Routine: PSGPLRP

Information

PSGPLRP ;BIR/CML3-PICK LIST REPRINT DRIVER ;18 APR 95 / 4:20 PM

Package	Total	Call Graph
Inpatient Medications	5	$$ENDTC^PSGMI ^PSGPLG ^PSGPLR (ENCV,ENKV)^PSGSETU ENDEV^PSGTI
VA Fileman	3	NOW^%DTC ^DIC YN^DICN
Kernel	1	^%ZISC

Package	Total	Caller Graph
Inpatient Medications	1	PSJU PLRP

Name	Comments	DBIA/ICR reference
RP1	;
PAT	; select patient to start from
PW	; print which? pick list or update
HLP	;
START	;
DONE	;

Name	Line Occurrences
Function Call: READ	Prompt: "Select WARD GROUP or PICK LIST: " Formatting: !! Timeout: DTIME Variable: X Line Location: START+1
Function Call: WRITE	Prompt: " ",Y,!?$L(PSGPLG)+21,$$ENDTC^PSGMI(PSGID)," thru ",$$ENDTC^PSGMI(PSGOD) Line Location: START+3
Function Call: WRITE	Prompt: $C(7),$C(7),!!?33,"* WARNING *",!,"THIS PICK LIST STARTED TO RUN ",$$ENDTC^PSGMI($P(^(0),"^",11)),", BUT HAS NOT RUN TO COMPLETION." Line Location: RP1+3
Function Call: WRITE	Prompt: !,"No device selected. Option terminated." Line Location: RP1+5
Function Call: WRITE	Prompt: !!," ...one moment, please..." Line Location: RP1+7
Function Call: WRITE	Prompt: !?2,"Select a Ward Group for which a pick list has run for which you wish to",!,"reprint.",!?2,"You may also select a Pick List by number, which prints in the upper left",!,"corner of each pick list." Line Location: HLP+1
Function Call: WRITE	Prompt: !!,"This pick list has an update.",!,"Do you want to print the update" Line Location: PW+1
Function Call: WRITE	Prompt: !!?2,"An update has been run for this pick list. Enter 'YES' to print the update",!,"only. Enter 'NO' to print the complete pick list." Line Location: PW+1
Routine Call	DIC Line Location: START+4 PAT+2

FileNo	Call Tags
^PS(57.5 - [#57.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PAT+6
^PS(53.5 - [#53.5]	START+2, RP1+1, RP1+3, PAT+3, PAT+4, PAT+5, PAT+7
^PS(57.5 - [#57.5]	START+2, START+3, START+5

Name	Field # of Occurrence
^(0	START+3, RP1+3

Name	Field # of Occurrence
>> %	START+5, RP1+1, RP1+3, PW+1, PW+2
DIC	START+4!, PAT+2!
DIC("A"	PAT+2*
DIC("S"	START+4, PAT+1
DIC(0	START+4, PAT+2
DTIME	START+1
>> DUOUT	RP1+2
IO("Q"	RP1+6
PN	DONE+1!, PAT+6*, PAT+7, PAT+8
>> POP	RP1+5
>> PSGDT	START+5*
>> PSGID	START+2*, START+3
>> PSGOD	START+3*
PSGPLG	START+2, START+3, START+5, DONE+1!, RP1+1, RP1+3, PAT+2, PAT+3, PAT+4, PAT+5 , PAT+7
PSGPLGF	START+5*, DONE+1!
PSGPLSTR	DONE+1!, PAT+2, PAT+8
PSGPLUPF	DONE+1!, RP1+1!, RP1+4, PW+2*, PAT+1
PSGPLWG	START+2, START+3, START+5, DONE+1!
PSGPLWGP	START+2, START+5, DONE+1!
>> PSGTIR	RP1+4*
>> PSJPRN	RP1+4
RB	DONE+1!, PAT+4, PAT+5, PAT+7, PAT+8
TM	DONE+1!, PAT+3*, PAT+7, PAT+8
U	START+2, PAT+4, PAT+6
WDN	DONE+1!, PAT+3*, PAT+7, PAT+8
>> X	START+1*, START+2, START+4
>> XQUIT	PSGPLRP+3
Y	START+2, START+3, START+4, START+5, DONE+1!, PAT+2
Y(0	PAT+3, PAT+4, PAT+6
>> ZTDESC	RP1+4*
ZTSAVE	RP1+4!
ZTSAVE("PSGPLG"	RP1+4*
ZTSAVE("PSGPLSTR"	RP1+4*
ZTSAVE("PSGPLUPF"	RP1+4*
ZTSAVE("PSGPLWG"	RP1+4*
ZTSAVE("PSGPLWGP"	RP1+4*
ZTSAVE("PSJPRN"	RP1+4*
>> ZTSK	RP1+6