Routine: PSGPL1

Information

PSGPL1 ;BIR/CML3-GATHER PICK LIST DATA ;26 JAN 99 / 9:30 AM

Source Information

Source file <PSGPL1.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Inpatient Medications	7	ENUNM^PSGOU ^PSGPL0 $$WS^PSGPL1 ^PSGPLR ($$LOCK,UNLOCK)^PSGPLUTL ENKV^PSGSETU ^PSJAC
VA Fileman	3	(C,NOW)^%DTC ^DIE (,EN1)^DIK
Kernel	1	^%ZISC

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Inpatient Medications	3	PSGPL PSGPL1 PSGPLUP0

Entry Points

Name	Comments	DBIA/ICR reference
EN	; entry point for PSGPL - get ward info, loop thru patients
PATIENT	; add a patient to Pick List. Can also be called from ^PSGPLUP0.
A1	; if there are orders, set the order and drug multiples. ; PSJJORD = unit dose subfile order ien ; PSGORD = PL order multiple ien ; DRG = unit dose subfile dispense drug multiple ien ; PSGDRG = PL dispense drug multiple ien
DONE	;
ENASET	; this tag can be called from above or from update (^PSGPLUP0) ; if order not being edited (OE), on hold (HD), non-verified (NV) or self-med (SM) get units (^PSGPL0)
WS(DND,WD,PSGPLC,PSGDT)	;

External References

Name	Field # of Occurrence
C^%DTC	EN+7
NOW^%DTC	EN+7, EN+16
^%ZISC	DONE+3
^DIE	PATIENT+5
^DIK	EN+4
EN1^DIK	EN+15
ENUNM^PSGOU	EN+9
^PSGPL0	A1+9
$$WS^PSGPL1	A1+12
^PSGPLR	DONE+2
$$LOCK^PSGPLUTL	EN+3, EN+5
UNLOCK^PSGPLUTL	DONE+1
ENKV^PSGSETU	DONE+3
^PSJAC	EN+9

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	EN+8
^DPT("CN"	EN+9
^PS(53.5 - [#53.5]	EN+6, EN+14, EN+16, A1+5, A1+6, A1+7, A1+10, A1+11, A1+13, A1+14 , PATIENT+1, PATIENT+2, PATIENT+4*
^PS(55 - [#55]	EN+11, EN+12, ENASET+3!, ENASET+5, A1+7, A1+8, A1+15
^PS(57.5 - [#57.5]	EN+4, EN+8
^PS(57.7 - [#57.7]	EN+10

Label References

Name	Line Occurrences
A1	ENASET+4
DONE	EN+6
ENASET	EN+12
PATIENT	EN+11

Naked Globals

Name	Field # of Occurrence
^(	A1+8, WS+4
^(0	EN+10, ENASET+5, A1+6, A1+11, PATIENT+2*
^(1	A1+5, A1+10, PATIENT+1*
^(2	EN+4*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+7, EN+16
AOU	WS+1~, WS+3*, WS+4
DA	EN+4!, EN+14, PATIENT+5*
DA(1	PATIENT+5*
DDC	DONE+3!, A1+8, A1+13, A1+14*
DIE	PATIENT+5*!
DIK	EN+4!, EN+14, EN+16!
DIK(1	EN+15*
DND	A1+8*, A1+12, A1+13, A1+14, WS~, WS+2, WS+3, WS+4
>> DR	PATIENT+5*
DRG	DONE+3!, A1+8*, A1+13, A1+14
DRUG	WS+1~, WS+4*
>> EST	EN+6*, ENASET+2, ENASET+4, A1+13
>> F	WS+2*, WS+3, WS+4
IO	EN+16
>> NST	ENASET+2*, ENASET+4, A1+7, A1+13
>> OG	EN+2, EN+3, EN+4
P	DONE+3!
PN	DONE+3!
PRINT	EN+1~, EN+16, DONE+2
>> PSGAU	PATIENT+5
PSGDRG	A1+11*, A1+13, A1+14, A1+16!
PSGDT	EN+7*, A1+12, WS~, WS+4
PSGLOCK	DONE+3!, ENASET+2, ENASET+3, ENASET+5, A1+15
PSGMAR	DONE+3!
PSGORD	DONE+3!, A1+6*, A1+7, A1+10, A1+11, A1+13, A1+14
PSGP	EN+9*, EN+11, EN+12, DONE+3!, ENASET+3, ENASET+5, A1+5, A1+6, A1+7, A1+8 , A1+10, A1+11, A1+13, A1+14, A1+15, PATIENT+2, PATIENT+4, PATIENT+5
PSGPLC	DONE+3!, A1+9, A1+12, A1+14, WS~, WS+3, WS+4*, WS+5
PSGPLD	EN+7*, EN+12, DONE+3!
>> PSGPLDC	ENASET+2, ENASET+5, A1+7, A1+9, A1+12
>> PSGPLF	A1+13
>> PSGPLG	EN+5, EN+6, EN+14, EN+16, DONE+1, A1+5, A1+6, A1+7, A1+10, A1+11 , A1+13, A1+14, PATIENT+1, PATIENT+2, PATIENT+4, PATIENT+5
PSGPLO	DONE+3!, A1+9*
>> PSGPLS	EN+7, EN+11, ENASET+2
PSGPLTND	EN+6*, DONE+3!
PSGPLWD	EN+8*, EN+10, DONE+3!, A1+12
PSGPLWDN	EN+9*, DONE+3!
>> PSGPLWG	EN+4, EN+8
PSJACNWP	EN+9*, DONE+3!
PSJJORD	EN+11, EN+12, DONE+3!, ENASET+3, ENASET+5, A1+7, A1+8, A1+9, A1+15
>> PSJPRB	EN+10
>> PST	EN+12*, ENASET+2
>> RB	EN+10*, PATIENT+4
>> RERUN	EN+2
SD	EN+12*, DONE+3!, ENASET+2
ST	DONE+3!
TM	EN+10*, DONE+3!, PATIENT+4
U	A1+7, WS+4
WD	WS~, WS+2, WS+3
>> WDN	EN+8*, EN+9, PATIENT+4
WSF	EN+6*, EN+9, DONE+3!
>> X	EN+7, EN+10, WS+4
>> X1	EN+7*
>> X2	EN+7*

Customize PDF page

Package: Inpatient Medications

Routine: PSGPL1

Call Graph Total: 11

Caller Graph Total: 3