FUNCTION XGIPAM_POPUP(STRING EQUIPMENT)
AssVarTags(-2, 0,EQUIPMENT+"\MMXU3\PPV\phsAB",
EQUIPMENT+"\MMXU3\PPV\phsBC",
EQUIPMENT+"\MMXU3\PPV\phsCA",
EQUIPMENT+"\MMXU1\A\phsA",
EQUIPMENT+"\MMXU1\A\phsB",
EQUIPMENT+"\MMXU1\A\phsC",
EQUIPMENT+"\MMXU1\Hz",
EQUIPMENT+"\MMXU1\TotPF");
AssVarTags(-2, 8,EQUIPMENT+"\MMXU1\TotW",
EQUIPMENT+"\MMXU1\TotVAr");
AssWin("!POP_XGIPAM",20,20,1);
WinTitle(EQUIPMENT+" Parameter")
END