Routine: PSGPL

Package	Total	Call Graph
Inpatient Medications	6	$$EN^PSGCT ($$ENDD,$$ENDTC)^PSGMI EN^PSGPL1 ($$LOCK,UNLOCK)^PSGPLUTL (ENCV,ENKV)^PSGSETU ENPL^PSGTI
VA Fileman	5	^%DT (C,NOW)^%DTC ^DIC YN^DICN (,IX)^DIK
Kernel	1	^%ZISC

Package

Total

Call Graph

Inpatient Medications

$$EN^PSGCT ($$ENDD,$$ENDTC)^PSGMI EN^PSGPL1 ($$LOCK,UNLOCK)^PSGPLUTL (ENCV,ENKV)^PSGSETU ENPL^PSGTI

VA Fileman

^%DT (C,NOW)^%DTC ^DIC YN^DICN (,IX)^DIK

Kernel

^%ZISC

Package	Total	Caller Graph
Inpatient Medications	1	PSJU PL

Package

Total

Caller Graph

Inpatient Medications

PSJU PL

Entry Points

Name	Comments	DBIA/ICR reference
BOTH	;
BEGIN	; get ward group, last pick list # for group, see if it's a rerun. ; ND2 - 2 node of WARD GROUP file or WARD GROUP^^start date^stop date from pick list ) node ; PSGPLG - pick list number PSGPLWG - ward group number ; PSGPLF - start date PSGPLWGP - 5 node from WARD GROUP
SET	;
GETSF1
UL	;
DONE	;
RERUN	;
DTEXST	;
DTQ	;
GETSF	;

External References

Name	Field # of Occurrence
^%DT	GETSF1
C^%DTC	GETSF1+4
NOW^%DTC	BEGIN+5
^%ZISC	DONE+1
^DIC	BEGIN+7
YN^DICN	GETSF1+7, RERUN+2
^DIK	SET+1
IX^DIK	SET+3
$$EN^PSGCT	DTEXST+1, GETSF+2
$$ENDD^PSGMI	GETSF+2
$$ENDTC^PSGMI	BEGIN+10, DTEXST+1
EN^PSGPL1	BOTH+6
$$LOCK^PSGPLUTL	BOTH+2, RERUN+1
UNLOCK^PSGPLUTL	UL+1, RERUN+3, RERUN+4
ENCV^PSGSETU	BEGIN+5
ENKV^PSGSETU	DONE+1
ENPL^PSGTI	BOTH+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Start date/time for this pick list: ",PSGOD Line Location: BEGIN+10
Function Call: WRITE	Prompt: ! Line Location: BOTH+1
Function Call: WRITE	Prompt: !!,"Pick list queued!" Line Location: BOTH+4
Function Call: WRITE	Prompt: !!,"No device chosen for Pick List ",$E("re",1,RERUN),"run." Line Location: BOTH+5
Function Call: WRITE	Prompt: !,"...this may take a while...(you really should QUEUE the pick list)..." Line Location: BOTH+6
Function Call: WRITE	Prompt: !!,"The PICK LIST for this WARD GROUP was last run",$S(XX:" on "_XX,1:""),!," for ",Y," through ",X,! Line Location: DTEXST+2
Function Call: WRITE	Prompt: $C(7),$C(7),!,"* THIS PICK LIST HAS NOT RUN TO COMPLETION. *",! Line Location: DTEXST+3
Function Call: WRITE	Prompt: $C(7),!!,"This PICK LIST cannot be ",$E("re",1,RERUN),"run without a ",MES," date." Line Location: GETSF1+0
Function Call: WRITE	Prompt: $C(7),!!,"* Stop date must be greater than start date !! *",! Line Location: GETSF1+2
Function Call: WRITE	Prompt: $C(7),!!,"* WARNING: You're Attempting to run the Pick List for greater than 7 days *",! Line Location: GETSF1+6
Function Call: WRITE	Prompt: !,"Are you Sure (Y/N):" Line Location: GETSF1+7
Function Call: WRITE	Prompt: $C(7),!!," THE NEXT PICK LIST FOR THIS WARD GROUP IS CURRENTLY RUNNING. " Line Location: RERUN+1
Function Call: WRITE	Prompt: !,"Do you want to rerun this pick list" Line Location: RERUN+2
Function Call: WRITE	Prompt: $C(7)," (Answer required.)" Condition for execution: %Y="" Line Location: RERUN+2
Function Call: WRITE	Prompt: !!?2,"Enter a 'Y' to rerun this pick list. Enter an 'N' (or '^') to NOT rerun this pick list. NOTE: Rerunning a pick list deletes all of its old data.",! Line Location: DTQ+1
Routine Call	DIC Line Location: BEGIN+7

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

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.5 - [#53.5]	BEGIN+8, BOTH+1, BOTH+2, BOTH+3, SET+2, DTEXST+3, RERUN+3
^PS(57.5 - [#57.5]	BEGIN+7, SET+1, SET+2*, GETSF+2
^PS(59.7 - [#59.7]	BEGIN+6

Name	Line Occurrences
BEGIN	BEGIN+9
BOTH	BEGIN+10
DONE	BEGIN+7, BEGIN+10, BEGIN+11
DTEXST	BEGIN+10, RERUN+2
DTQ	RERUN+2
GETSF	BEGIN+10, BEGIN+11
GETSF1	GETSF1+2, GETSF1+5
RERUN	BEGIN+9
SET	BOTH+4, BOTH+6
UL	BEGIN+9, BOTH+4, BOTH+5

Name	Field # of Occurrence
^(	BEGIN+6, BEGIN+8
^(0	BEGIN+8, DTEXST+3, GETSF+2
^(2	SET+1*
^(5	BEGIN+7

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BEGIN+5, BEGIN+9, GETSF1+5, GETSF1+7, RERUN+1, RERUN+2*, RERUN+3
%DT	GETSF+1!*
%DT("A"	GETSF+1*
%DT("B"	GETSF+2*
>> %Y	RERUN+2
AM	DONE+1!
>> DA	SET+1, SET+3
DIC	BEGIN+7*!, DONE+1!
DIC("S"	BEGIN+7*
DIC(0	BEGIN+7*
DIK	SET+1!, SET+3!
DUZ	SET+2
EST	DONE+1!
FD	DONE+1!
FFF	DONE+1!
IO("Q"	BOTH+4
MES	BEGIN+10, BEGIN+11, DONE+1!, GETSF+1, GETSF+2, GETSF1, GETSF1+1, GETSF1+2, GETSF1+5
ND	BOTH+1, BOTH+2, DONE+1!
ND2	BEGIN+7, BEGIN+8, BEGIN+9, BEGIN+10, DONE+1!, SET+2, DTEXST+1, RERUN+3*
OG	DONE+1!, SET+1, RERUN+3*
OS	DONE+1!, RERUN+3*
POP	BOTH+5, DONE+1!
PSGDT	BEGIN+5*, BEGIN+9, DONE+1!, SET+2
PSGID	DONE+1!
PSGION	DONE+1!
PSGOD	BEGIN+10*, DONE+1!
PSGPLF	BEGIN+10*, DONE+1!, SET+2
PSGPLG	BEGIN+7, BEGIN+8, BOTH+2*, UL+1, DONE+1!, SET+2, SET+3, DTEXST+3, RERUN+1, RERUN+3 , RERUN+4
PSGPLS	BEGIN+10, DONE+1!, SET+2, DTEXST+1*, GETSF+2, GETSF1+2, GETSF1+4
PSGPLSF	GETSF1+4~*, GETSF1+5
PSGPLWG	BEGIN+7*, BEGIN+8, DONE+1!, SET+1, SET+2, GETSF+2
PSGPLWGP	BEGIN+7*, DONE+1!, SET+2
PSJPRN	BEGIN+6~*
PSJSITE	BEGIN+6~*
Q	BEGIN+8*, DONE+1!
RERUN	BEGIN+5, BOTH+5, DONE+1!, SET+1, GETSF1, RERUN+3
ST	DONE+1!
U	BEGIN+6
X	DTEXST+1, DTEXST+2, GETSF+2, GETSF1+4~
>> X1	GETSF1+4*
>> X2	GETSF1+4*
XX	DONE+1!, DTEXST+1*, DTEXST+2
>> Y	BEGIN+7, BEGIN+10, BEGIN+11, DTEXST+1, DTEXST+2, GETSF+2, GETSF1, GETSF1+1, GETSF1+2, GETSF1+5
ZTOUT	DONE+1!
>> ZTSK	BOTH+4

Customize PDF page

Package: Inpatient Medications

Routine: PSGPL

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: