Routine: PSGPER

Information

PSGPER ;BIR/CML3-PRINTS PRE-EXCHANGE NEEDS REPORT ;04 JAN 95 / 5:08 PM

Package	Total	Call Graph
Inpatient Medications	4	(ENP,ENPAT)^PSGPER0 $$DEFON^PSGPER1 ENIVKV^PSGSETU ENTSK^PSGTI
VA Fileman	3	^DIC YN^DICN ^DIK
Kernel	1	^%ZIS

Package	Total	Caller Graph
Inpatient Medications	3	PSGOE PSGVBW0 PSJOE

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Do you want another chance to choose a device" Line Location: POP+2
Function Call: WRITE	Prompt: !?3,"Enter 'YES' to choose a device to print. Enter 'NO' to quit now." Line Location: POP+2
Function Call: WRITE	Prompt: !!,"DO YOU NEED TO PRINT THIS REPORT AGAIN" Line Location: AG+1
Function Call: WRITE	Prompt: $C(7)," ANSWER 'YES' OR 'NO' (Entry required)" Line Location: AGMSG+1
Function Call: WRITE	Prompt: !," Enter 'YES' to print this report again. Enter 'NO' (or an '^') to quit",!,"now. PLEASE NOTE that you will NOT be able to retrieve this data at a later",!,"date. You should print this information now." Line Location: AGMSG+2
Function Call: WRITE	Prompt: !!,"Keep ",ION," as the PRE-EXCHANGE REPORT DEVICE for this session" Line Location: CURDEF+4
Function Call: WRITE	Prompt: !,$C(7)," ANSWER 'YES' OR 'NO' (Entry required)" Line Location: DEFMSG+1
Function Call: WRITE	Prompt: !!," Enter 'YES' to make ",ION," the PRE-EXCHANGE REPORT default DEVICE" Line Location: DEFMSG+2
Function Call: WRITE	Prompt: !," for the current session. PLEASE NOTE that this will override the ward" Line Location: DEFMSG+3
Function Call: WRITE	Prompt: !," default PRE-EXCHANGE REPORT DEVICE for this session only." Line Location: DEFMSG+4
Routine Call	DIC Line Location: CURDEF+2
Routine Call	%ZIS Line Location: DEV1+2 DEV1+3 POP+3

FileNo	Call Tags
^%ZIS(1 - [#3.5]	Classic Fileman Calls
^PS(53.4 - [#53.4]	Classic Fileman Calls

Name	Field # of Occurrence
>> %	DEV1+4, DEV1+8, POP+1, POP+2, POP+3, AG+1, CURDEF+4*
>> %Y	AGMSG+1, DEFMSG+1
%ZIS	DEV1+2!, DEV1+3!
%ZIS("A"	DEV1+3*
%ZIS("B"	DEV1+3*
D	DEV1+2, DEV1+3, DEV1+5, CURDEF+3~, CURDEF+4
DA	DONE+1*, CURDEF+2!, CURDEF+6!
DIC	CURDEF+2!*, CURDEF+6!
DIC(0	CURDEF+2*
DIE	CURDEF+2!, CURDEF+6!
>> DIK	DONE+1*
DR	CURDEF+2!, CURDEF+6!
IO("Q"	DEV1+3!, DEV1+6
ION	DEV+1, DEV1+2, DEV1+3!, DEV1+5, CURDEF+2, CURDEF+4, DEFMSG+2
IOP	DEV1+2, DEV1+3!, POP+3
>> POP	DEV1+4
>> PSGION	DEV+1*, POP+3
PSGPERRF	PSGPER+3, DEV1+8, OUT+1!, POP+1, POP+2
>> PSGPXDEV	DEV1+2, CURDEF+1, CURDEF+4*
PSGPXN	DONE+1, OUT+1!
>> PSGPXPT	DEV1+7, OUT+4
>> PSGTIR	DEV1+6*
PSGVBW	OUT+3~
>> PSJCOM	OUT+2
>> PSJPREX	OUT+2
PSJPWD	OUT+3~
PSJSYSL	OUT+3~
PSJSYSW0	DEV1+2, OUT+3~, CURDEF+5*
U	DEV1+2
X	CURDEF+2!*, CURDEF+6!
Y	CURDEF+2!, CURDEF+3, CURDEF+5, CURDEF+6!
>> ZTDESC	DEV1+6*
>> ZTDTH	DEV1+6*
ZTSAVE	DEV1+6!
ZTSAVE("PSGPXN"	DEV1+6*
ZTSK	DEV1+6!