Routine: PSGMMAR0

Package	Total	Call Graph
Inpatient Medications	6	$$EN^PSGCT DIET^PSGMAR0 ^PSGMMAR5 ^PSGMMIV PSJAC2^PSJAC DRGDISP^PSJLMUT1
VA FileMan	1	(,C,DW,NOW)^%DTC

Package	Total	Caller Graph
Inpatient Medications	5	PSGMMAR PSGMMAR5 PSGMMIV PSGMMIVC PSJORMA2

Entry Points

Name	Comments	DBIA/ICR reference
ENQ	; start sort; where queue comes in at
DONE	;
GG	; find individual wards in this ward group
GW	; find patients in each ward
GP	; go thru selected patients
GL
GC
GPI	; get patient info ; PSGTMALL=1(sort by all team), PSGTM=1(individual team(S) selected).
2	;Loop thru UD orders
3	;Loop thru IV orders that are Piggy back and Syringes types.
4	;Loop thru IV orders(Admixtures).
5	;Loop thru IV orders(Hyperal).
6	;Loop thru IV order(Chemo).
OS	; order record set
DTS(SCHEDULE)	;
SPN	; set patient node

External References

Name	Field # of Occurrence
^%DTC	DTS+3
C^%DTC	ENQ+3, OS+33, DTS+2, SPN+18
DW^%DTC	ENQ+3
NOW^%DTC	ENQ+4
$$EN^PSGCT	DTS+3, DTS+4
DIET^PSGMAR0	SPN+1
^PSGMMAR5	GPI+12
^PSGMMIV	2+14, 3+1, 4+1, 5+1, 6+1
PSJAC2^PSJAC	GW+5, GP+1, GC+1, GC+5, GC+9
DRGDISP^PSJLMUT1	OS+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: ENQ+6
Function Call: WRITE	Prompt: !!,"(No data found for "_PSGMARDF_" day MAR run.)" Line Location: ENQ+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	GW+1
^DPT("CN"	GW+5
^PS(53.1 - [#53.1]	GC+1
^PS(55 - [#55]	GW+5, GP+1, GC+3, GC+5, GC+7, GC+9, 2+11, 2+12, 2+13, OS+2 , OS+3
^PS(57.5 - [#57.5]	GG+1, GW+3
^PS(57.7 - [#57.7]	GPI+5
^PS(57.8 - [#57.8]	GL
^PS(59.7 - [#59.7]	ENQ+2
^SC - [#44]	GC
^TMP($J	ENQ+4!, ENQ+6, GG+1, GW+4, GPI+13, GPI+14, OS+3, OS+13, OS+16, OS+20 , OS+25, OS+28, SPN+4, SPN+7, SPN+10*
^XTMP(	OS+34, OS+36, OS+38, SPN+19, SPN+21, SPN+23

Label References

Name	Line Occurrences
@(	ENQ+4, GPI+10, GPI+11
DTS	OS+7
GC	GL
GPI	GW+5, GP+1, GC+5, GC+9
GW	GG+1
OS	2+11, 2+12, 2+13
SPN	GPI+9, GPI+13, GPI+14, OS+3

Naked Globals

Name	Field # of Occurrence
^($J	GW+4*
^(0	GW+1, GC, GPI+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ENQ+4, OS+33!, SPN+18!
%H	OS+33!, SPN+18!
%T	OS+33!, SPN+18!
A	OS+1~, OS+3*
AM	DTS+4*, DTS+5!
>> CG	GL
>> CL	GL*, GC, GC+1, GC+5, GC+9
>> DRG	OS+5*, OS+13, OS+16, OS+20, OS+25, OS+28, OS+36, OS+38
DT	OS+33, OS+34, SPN+18, SPN+19
>> FD	OS+4*, OS+7, DTS+2, DTS+4
>> HX	ENQ+3*
IO	ENQ+6
IOF	ENQ+6
MARX	OS+5~
MARX(1	OS+5
>> ND2	OS+2, OS+4, OS+6, OS+7, OS+8, OS+9
>> ON	2+11, 2+12, 2+13*, OS+2, OS+3, OS+5
>> PPN	GPI+7*, GPI+8, GPI+13, OS+13, OS+16, OS+20, SPN+4
>> PSGAPWDN	GC*
>> PSGCAD	GC+2, GC+3, GC+5, GC+6, GC+7, GC+9
>> PSGCLNC	OS+19
PSGD	ENQ+3!
PSGD(	ENQ+3*, OS+7, DTS+1
PSGDEM	OS+31~, OS+36, OS+38, OS+39, SPN+16~, SPN+21, SPN+23, SPN+24
>> PSGDT	ENQ+4*
>> PSGDW	ENQ+3*
>> PSGINCL	OS+28, OS+35, SPN+7, SPN+20
>> PSGINCLG	OS+25, OS+37, SPN+10, SPN+22
>> PSGINWD	OS+19
>> PSGINWDG	OS+16
>> PSGMARB	GW+5, GP+1, GPI+9, GPI+14
>> PSGMARDF	ENQ+3, ENQ+6
>> PSGMARED	2+11, 2+12, 2+13*
>> PSGMARFD	OS+2, DTS+2, DTS+4
>> PSGMARS	2+11, 2+12, OS+2
>> PSGMARSD	ENQ+3, GW+5, GP+1, GC+2, GC+6, 2+11, 2+12, 2+13, DTS+2, DTS+3
PSGMARWC	2+9~, 2+10*, 2+11, 2+12, 2+13
>> PSGMARWD	GG+1*, GW+1, GW+3, GPI+5
>> PSGMARWG	GG+1, GW+3*, GW+4
>> PSGMARWN	ENQ+4, GW+1, GW+5, GPI+2, GPI+13, 2+10, 2+11, 2+12, 2+13, OS+3* , OS+13, OS+16, OS+19, OS+20, OS+25, OS+28, OS+35, OS+36, OS+37, OS+38 , SPN+4, SPN+7, SPN+10, SPN+20, SPN+21, SPN+22, SPN+23
>> PSGMSORT	ENQ+2*, OS+13, OS+16, OS+20, OS+25, OS+28, OS+36, OS+38
>> PSGMTYPE	GPI+10, GPI+11
>> PSGP	GW+5, GP+1, GC+1, GC+4, GC+5, GC+8, GC+9*, GPI+7, 2+11, 2+12 , 2+13, OS+2, OS+3, OS+5
>> PSGP(0	GPI+7, SPN+2
>> PSGPAT(	GP+1
>> PSGRBPPN	GPI+8, OS+35, OS+37, SPN+20, SPN+22
>> PSGREP	OS+32, OS+34, OS+36, OS+38, SPN+17, SPN+19, SPN+21, SPN+23
PSGS	DTS+4*, DTS+5!
>> PSGSS	ENQ+4, GPI+2, GPI+4, GPI+13, OS+13, OS+16, OS+19, OS+22, OS+25, OS+28 , OS+35, OS+37, SPN+4, SPN+7, SPN+10, SPN+20, SPN+22
PSGT	DTS+2, DTS+3!, DTS+4, DTS+5!
>> PSGTM	GPI+4, GPI+6
>> PSGTM(	GPI+6
>> PSGTMALL	GPI+4, GPI+6
PSGX	DTS+4*, DTS+5!
>> PSJACNWP	ENQ+4*
>> PSJDIET	SPN+4, SPN+7, SPN+10, SPN+13
>> PSJPAD	SPN+2
>> PSJPAGE	SPN+2
>> PSJPDOB	SPN+2
>> PSJPDX	SPN+2
>> PSJPHT	SPN+2
>> PSJPHTD	SPN+2
>> PSJPRB	GPI+3*, GPI+5, GPI+8, SPN+4
>> PSJPSEX	SPN+2
>> PSJPTD	SPN+2
>> PSJPWD	SPN+2
>> PSJPWDN	GPI+2
>> PSJPWT	SPN+2
>> PSJPWTD	SPN+2
>> PST	2+11, 2+12, 2+13, 2+14, 3+1, 4+1, 5+1, 6+1, OS+6
>> Q	ENQ+3, DTS+1
>> QQ	OS+7, OS+9, DTS+1, DTS+2*
>> QST	OS+6*, OS+7, OS+9, OS+13, OS+16, OS+20, OS+25, OS+28, OS+36, OS+38
S	OS+7, DTS+1!, DTS+2, DTS+4*
S(	OS+7, DTS+1, DTS+2, DTS+4*
SCHEDULE	DTS~, DTS+1, DTS+2
>> SD	OS+2, OS+5, OS+7, DTS+2*, DTS+3
ST	DTS+3, DTS+4, DTS+5!
SUB1	ENQ+1~, GPI+8, GPI+13, OS+3, OS+25, OS+28, OS+36, OS+38, SPN+7, SPN+10 , SPN+21, SPN+23
SUB2	ENQ+1~, GPI+8, GPI+13, OS+3, OS+25, OS+28, OS+36, OS+38, SPN+7, SPN+10 , SPN+21, SPN+23
>> T	OS+4*, DTS+1, DTS+2, DTS+3
>> TM	GPI+2, GPI+4, GPI+5*, GPI+6, GPI+13, OS+3, OS+25, OS+28, OS+36, OS+38 , SPN+7, SPN+10, SPN+21, SPN+23
U	ENQ+2, ENQ+3, GW+1, GPI+5, GPI+7, OS+2, OS+4, OS+5, OS+6, OS+7 , OS+8, OS+9, OS+34, DTS+1, SPN+2, SPN+4, SPN+7, SPN+10, SPN+19
>> VA("PID"	SPN+2
>> WD	DTS+1, DTS+2, DTS+4
>> X	ENQ+3, OS+7, OS+9, OS+13, OS+16, OS+20, OS+25, OS+28, OS+31, OS+34 , OS+39, DTS+2, DTS+3, DTS+4, SPN+2, SPN+4, SPN+7, SPN+10, SPN+13, SPN+16 , SPN+19, SPN+24*
>> X1	ENQ+3, OS+33, DTS+2, DTS+3, SPN+18*
>> X2	ENQ+3, OS+33, DTS+2, DTS+3, SPN+18*
>> XTYPE	GPI+10, GPI+11

Customize PDF page

Package: Inpatient Medications

Routine: PSGMMAR0

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: