INPUT TEMPLATE XUEDITOPT
From VistApedia
FILEMAN INQUIRE TO INPUT TEMPLATE FILE
NAME: XUEDITOPT DATE CREATED: FEB 15, 2000@11:02 READ ACCESS: # FILE: OPTION WRITE ACCESS: # DATE LAST USED: MAY 11, 2015 EDIT FIELDS (c): NAME EDIT FIELDS (c): MENU TEXT EDIT FIELDS (c): PACKAGE//^S X=$S($D(XQPK):XQPK,1:"") EDIT FIELDS (c): K XQPK EDIT FIELDS (c): 2-3.5 EDIT FIELDS (c): TYPE EDIT FIELDS (c): S XQTYP=X EDIT FIELDS (c): D CLEAR^XQ5 EDIT FIELDS (c): S:DUZ(0)'="@"&('$D(^XUSEC("XUMGR",DUZ))) Y="@5" EDIT FIELDS (c): HEADER EDIT FIELDS (c): ENTRY ACTION EDIT FIELDS (c): EXIT ACTION EDIT FIELDS (c): @5 EDIT FIELDS (c): S Y=$S($D(XQTYP):"@"_$A(XQTYP),1:"@3") EDIT FIELDS (c): @66 EDIT FIELDS (c): RPC EDIT FIELDS (c): ALL EDIT FIELDS (c): @77 EDIT FIELDS (c): MENU EDIT FIELDS (c): ALL EDIT FIELDS (c): S Y="@3" EDIT FIELDS (c): @69 EDIT FIELDS (c): D DIE^XQ5 EDIT FIELDS (c): S:DUZ(0)'="@"&('$D(^XUSEC("XUMGR",DUZ))) Y="@3" EDIT FIELDS (c): DIC {DIC} EDIT FIELDS (c): D. EDIT FIELDS (c): DIC(0) EDIT FIELDS (c): DIE EDIT FIELDS (c): DR {DIE} EDIT FIELDS (c): NO UP-ARROW EDIT FIELDS (c): DIC(A) EDIT FIELDS (c): DIC(B) EDIT FIELDS (c): DIC(S) EDIT FIELDS (c): DIC(W) EDIT FIELDS (c): S Y="@3" EDIT FIELDS (c): @80 EDIT FIELDS (c): D DIP^XQ5 EDIT FIELDS (c): S:DUZ(0)'="@"&('$D(^XUSEC("XUMGR",DUZ))) Y="@3" EDIT FIELDS (c): DIC {DIP} EDIT FIELDS (c): L. EDIT FIELDS (c): FLDS EDIT FIELDS (c): BY EDIT FIELDS (c): FR EDIT FIELDS (c): TO EDIT FIELDS (c): DIS(0) EDIT FIELDS (c): DHIT EDIT FIELDS (c): DHD EDIT FIELDS (c): PG EDIT FIELDS (c): DCOPIES EDIT FIELDS (c): DIOBEG EDIT FIELDS (c): DIOEND EDIT FIELDS (c): DISUPNO EDIT FIELDS (c): DIPCRIT EDIT FIELDS (c): S Y="@3" EDIT FIELDS (c): @73 EDIT FIELDS (c): D DIQ^XQ5 EDIT FIELDS (c): S:DUZ(0)'="@"&('$D(^XUSEC("XUMGR",DUZ))) Y="@3" EDIT FIELDS (c): DIC {DIC} EDIT FIELDS (c): D. EDIT FIELDS (c): DIC(0) EDIT FIELDS (c): DIC {DIQ} EDIT FIELDS (c): FLDS EDIT FIELDS (c): DIQ(0) EDIT FIELDS (c): DIC(A) EDIT FIELDS (c): DIC(B) EDIT FIELDS (c): DIC(S) EDIT FIELDS (c): DIC(W) EDIT FIELDS (c): S Y="@3" EDIT FIELDS (c): @76 EDIT FIELDS (c): @79 EDIT FIELDS (c): @81 EDIT FIELDS (c): @88 EDIT FIELDS (c): MENU EDIT FIELDS (c): ALL EDIT FIELDS (c): S Y="@3" EDIT FIELDS (c): @82 EDIT FIELDS (c): ROUTINE EDIT FIELDS (c): S Y="@3" EDIT FIELDS (c): @83 EDIT FIELDS (c): R !,"Do you want help with servers? [Y/N] N// ",XQUR S:XQUR="" XQUR="N" EDIT FIELDS (c): I "Yy"[XQUR S XQH="XUDOC SERVERS" D EN^XQH K Y EDIT FIELDS (c): ROUTINE EDIT FIELDS (c): 220-228 EDIT FIELDS (c): 3.6-3.8 EDIT FIELDS (c): TIMES/DAYS PROHIBITED EDIT FIELDS (c): ALL EDIT FIELDS (c): S Y="@999" EDIT FIELDS (c): @67 EDIT FIELDS (c): DIC {DIC} EDIT FIELDS (c): D. EDIT FIELDS (c): DIC(0) EDIT FIELDS (c): 40-44 EDIT FIELDS (c): DIC(A) EDIT FIELDS (c): DIC(B) EDIT FIELDS (c): DIC(S) EDIT FIELDS (c): DIC(W) EDIT FIELDS (c): S Y="@3" EDIT FIELDS (c): @87 EDIT FIELDS (c): 24 EDIT FIELDS (c): ROUTINE EDIT FIELDS (c): ICON EDIT FIELDS (c): TITLE EDIT FIELDS (c): S Y="@3" EDIT FIELDS (c): @90 EDIT FIELDS (c): 24 EDIT FIELDS (c): ROUTINE EDIT FIELDS (c): ICON EDIT FIELDS (c): TITLE EDIT FIELDS (c): MENU EDIT FIELDS (c): ALL EDIT FIELDS (c): @65 EDIT FIELDS (c): @3 EDIT FIELDS (c): CREATOR EDIT FIELDS (c): HELP FRAME EDIT FIELDS (c): PRIORITY EDIT FIELDS (c): TIMES/DAYS PROHIBITED EDIT FIELDS (c): ALL EDIT FIELDS (c): QUEUING REQUIRED EDIT FIELDS (c): .01-.02 EDIT FIELDS (c): RESTRICT DEVICES? EDIT FIELDS (c): PERMITTED DEVICE EDIT FIELDS (c): PERMITTED DEVICE EDIT FIELDS (c): @999 EDIT FIELDS (c): K XQH,XQPK,XQTYP,XQUR COMPILED (c): NO