INPUT TEMPLATE XUEDITOPT

From VistApedia
Revision as of 02:42, 18 May 2015 by DavidWhitten (talk | contribs) (Created page with "== FILEMAN INQUIRE TO INPUT TEMPLATE FILE == NAME: XUEDITOPT DATE CREATED: FEB 15, 2000@11:02 READ ACCESS: # FILE: OPTIO...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

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