Routine: PSGPLUP

Package	Total	Call Graph
Inpatient Medications	8	$$ENDTC^PSGMI ^PSGPLG ^PSGPLR ENQ^PSGPLUP ENQ^PSGPLUP0 ($$LOCK,UNLOCK)^PSGPLUTL (ENCV,ENKV)^PSGSETU ENTSK^PSGTI
VA Fileman	4	NOW^%DTC ^DIC YN^DICN ^DIR
Kernel	2	^%ZIS ^%ZISC

Package

Total

Call Graph

Inpatient Medications

$$ENDTC^PSGMI ^PSGPLG ^PSGPLR ENQ^PSGPLUP ENQ^PSGPLUP0 ($$LOCK,UNLOCK)^PSGPLUTL (ENCV,ENKV)^PSGSETU ENTSK^PSGTI

VA Fileman

NOW^%DTC ^DIC YN^DICN ^DIR

Kernel

^%ZIS ^%ZISC

Package	Total	Caller Graph
Inpatient Medications	2	PSGPLUP PSJU PLUP

Package

Total

Caller Graph

Inpatient Medications

PSGPLUP PSJU PLUP

Name	Comments	DBIA/ICR reference
RP	;
CHK	;
UP	;
DEV	;
UPC	;
QUEUE	;
ENQ	;
DONE	;
ASK	;
NL	; numeric look-up
DIC

External References

Name	Field # of Occurrence
NOW^%DTC	CHK+1
^%ZIS	DEV+1
^%ZISC	ASK+3, DONE+1, ENQ+6, ENQ+7
^DIC	ASK+3
YN^DICN	ENQ+7
^DIR	CHK+3
$$ENDTC^PSGMI	UP+1, NL+2
^PSGPLG	ASK+3
^PSGPLR	ENQ+6, ENQ+7
ENQ^PSGPLUP	QUEUE+6
ENQ^PSGPLUP0	ENQ+5
$$LOCK^PSGPLUTL	UP+2
UNLOCK^PSGPLUTL	UP+3
ENCV^PSGSETU	PSGPLUP+3
ENKV^PSGSETU	DONE+1
ENTSK^PSGTI	QUEUE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THERE ARE CURRENTLY NO PICK LISTS TO UPDATE." Line Location: CHK+3
Function Call: READ	Prompt: "Select WARD GROUP or PICK LIST: " Formatting: !! Timeout: DTIME Variable: X Line Location: ASK+1
Function Call: WRITE	Prompt: !!?2,"Select a Ward Group for which a pick list has been run that you wish to",!,"update.",!?2,"You may also select a Pick List by number, which prints in the upper left",!,"corner of each pick list." Line Location: ASK+2
Function Call: WRITE	Prompt: $C(7),$C(7),!!?33,"* WARNING *",!,"THIS PICK LIST STARTED TO RUN ",$$ENDTC^PSGMI($P(^(0),"^",10)),", BUT HAS NOT RUN TO COMPLETION." Line Location: UP+1
Function Call: WRITE	Prompt: $C(7),$C(7),!!?33,"* WARNING *",!!?15,"THIS PICK LIST IS CURRENTLY LOCKED BY ANOTHER JOB." Line Location: UP+2
Function Call: READ	Timeout: DTIME Line Location: UP+4
Function Call: WRITE	Prompt: !!,"Update terminated." Line Location: UP+5
Function Call: WRITE	Prompt: !,"...this may take a few minutes..." Line Location: UP+7
Function Call: WRITE	Prompt: !!,"DO YOU NEED A REPRINT OF THIS UPDATE" Line Location: ENQ+7
Function Call: WRITE	Prompt: !!," Enter a 'U' if you wish to print only the new and edited (updated) orders for this pick list. Enter a 'P' to print the entire pick list, including the up- dated orders. Enter a '^' to terminate this update now." Line Location: UPC+1
Function Call: WRITE	Prompt: "PDATE" Line Location: UPC+2
Function Call: WRITE	Prompt: "ICK LIST" Line Location: UPC+3
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: UPC+4
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"No device chosen." Line Location: DEV+1
Function Call: WRITE	Prompt: !,"Pick list update queued!" Line Location: QUEUE+4
Function Call: WRITE	Prompt: !!,"Enter a 'Y' to reprint this update. Enter an 'N' (or '^') if you do not want to reprint this update." Line Location: RP+1
Function Call: WRITE	Prompt: " ",PSGPLWGN,!?$L(GRP)+21,Y," thru ",PSGOD Line Location: NL+3
Routine Call	DIC Line Location: ASK+3
Routine Call	DIR Line Location: CHK+3
Routine Call	%ZIS Line Location: DEV+1

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

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.5 - [#53.5]	CHK+2, UP+1, ENQ+4, NL+1
^PS(57.5 - [#57.5]	ASK+3, NL+2

Name	Line Occurrences
ASK	ASK+3
CHK	ASK+1, ASK+4
DEV	UP+7, ENQ+7
DIC	ASK+3
DONE	CHK+3, ASK+1, ENQ+8
NL	ASK+1
QUEUE	UP+7
RP	ENQ+7
UP	ASK+1, ASK+3
UPC	UP+4

Name	Field # of Occurrence
^(	CHK+2
^(0	UP+1
^(5	NL+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CHK+1, ENQ+7*
%ZIS	DEV+1!*
%ZIS("A"	DEV+1*
%ZIS("B"	DEV+1*
CML	DONE+1!
DIC	ASK+3!, DIC!*
DIC("S"	DIC*
DIC(0	DIC*
DIR	CHK+3!
DIR(0	CHK+3*
DTIME	ASK+1, UP+4
FD	DONE+1!
FFF	DONE+1!
FQ	DONE+1!
GRP	DONE+1!, NL+2*, NL+3
IO	ENQ+2, ENQ+7
IO("Q"	UP+7, ENQ+7, DEV+1!, QUEUE+1
IO(0	ENQ+2
ION	ENQ+2, DEV+1
IOP	ENQ+7, DEV+1!
IOST	ENQ+2
PDRG	DONE+1!
>> POP	UP+7, ENQ+7, DEV+1*
>> PSGDT	CHK+1*, CHK+2, DIC, NL+1
>> PSGID	NL+2*
>> PSGION	DEV+1*
PSGMAR	DONE+1!
>> PSGOD	NL+2*, NL+3
PSGPLC	DONE+1!
PSGPLF	DONE+1!, ENQ+4*
PSGPLG	ASK+1, ASK+3, DONE+1!, UP+1, UP+2, UP+3, ENQ+4, NL+2
PSGPLGF	ASK+1*, DONE+1!
PSGPLREN	DONE+1!, ENQ+1~
PSGPLS	DONE+1!, ENQ+4*
PSGPLTND	DONE+1!, ENQ+4*
PSGPLUP	DONE+1!, UP+6~, ENQ+3
PSGPLUPD	DONE+1!, ENQ+2*, ENQ+7
PSGPLUPF	DONE+1!, ENQ+4*
PSGPLUPQ	ENQ+2, ENQ+7, DEV+1!, QUEUE+2*, QUEUE+4!
PSGPLUPR	DONE+1!, ENQ+7*, QUEUE+2
PSGPLWG	ASK+3, DONE+1!, NL+2
PSGPLWGN	DONE+1!, NL+2*, NL+3
PSGPLWGP	ASK+3, DONE+1!, NL+2
>> PSGTIR	QUEUE+2*
>> PSJPRN	QUEUE+3
>> Q	CHK+2*
SD	DONE+1!
TS	DONE+1!
UP	DONE+1!, UP+4, UP+5, UP+6, ENQ+3, ENQ+4, ENQ+6, UPC+1, UPC+2, UPC+3 , UPC+4*
WD	DONE+1!
>> WSF	ENQ+4*
>> X	ASK+1, ASK+2, QUEUE+3, NL+1, NL+2*
>> XQUIT	PSGPLUP+3
XX	DONE+1!
>> Y	ASK+1, ASK+3, NL+1, NL+2, NL+3*
>> ZTDESC	QUEUE+2*
ZTSAVE	QUEUE+2!
ZTSAVE(	QUEUE+3*
ZTSAVE("PSJPRN"	QUEUE+3*
>> ZTSK	QUEUE+4, QUEUE+5

Customize PDF page

Package: Inpatient Medications

Routine: PSGPLUP

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: