Routine: PSGMMAR0

Information

PSGMMAR0 ;BIR/CML3-GATHERS INFO FOR MD CMR ;03-Apr-2012 10:34;PLS

Source Information

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 5

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

Entry Points

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

External References

Name	Field # of Occurrence
^%DTC	DTS+3
C^%DTC	ENQ+2, OS+35, DTS+2, SPN+18
DW^%DTC	ENQ+2
NOW^%DTC	ENQ+3
$$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+7
$$UP^XLFSTR	OS+7

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

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+1
^SC - [#44]	GC
^TMP($J	ENQ+3!, ENQ+5, GG+1, GW+4, GPI+13, GPI+14, OS+3, OS+15, OS+18, OS+22 , OS+27, OS+30, SPN+4, SPN+7, SPN+10*
^XTMP(	OS+36, OS+38, OS+40, SPN+19, SPN+21, SPN+23

Name	Line Occurrences
@(	ENQ+3, GPI+10, GPI+11
DTS	OS+9
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

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+3, OS+35!, SPN+18!
%H	OS+35!, SPN+18!
%T	OS+35!, 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+7*, OS+15, OS+18, OS+22, OS+27, OS+30, OS+38, OS+40
DT	OS+35, OS+36, SPN+18, SPN+19
>> FD	OS+4*, OS+9, DTS+2, DTS+4
>> HX	ENQ+2*
IO	ENQ+5
IOF	ENQ+5
MARX	OS+7~
MARX(1	OS+7
>> ND2	OS+2, OS+4, OS+8, OS+9, OS+10, OS+11
>> ON	2+11, 2+12, 2+13*, OS+2, OS+3, OS+7
>> PPN	GPI+7*, GPI+8, GPI+13, OS+15, OS+18, OS+22, SPN+4
>> PSGAPWDN	GC*
>> PSGCAD	GC+2, GC+3, GC+5, GC+6, GC+7, GC+9
>> PSGCLNC	OS+21
PSGD	ENQ+2!
PSGD(	ENQ+2*, OS+9, DTS+1
PSGDEM	OS+33~, OS+38, OS+40, OS+41, SPN+16~, SPN+21, SPN+23, SPN+24
>> PSGDT	ENQ+3*
>> PSGDW	ENQ+2*
>> PSGINCL	OS+30, OS+37, SPN+7, SPN+20
>> PSGINCLG	OS+27, OS+39, SPN+10, SPN+22
>> PSGINWD	OS+21
>> PSGINWDG	OS+18
>> PSGMARB	GW+5, GP+1, GPI+9, GPI+14
>> PSGMARDF	ENQ+2, ENQ+5
>> PSGMARED	2+11, 2+12, 2+13*
>> PSGMARFD	OS+2, DTS+2, DTS+4
>> PSGMARS	2+11, 2+12, OS+2
>> PSGMARSD	ENQ+2, 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+3, GW+1, GW+5, GPI+2, GPI+13, 2+10, 2+11, 2+12, 2+13, OS+3* , OS+15, OS+18, OS+21, OS+22, OS+27, OS+30, OS+37, OS+38, OS+39, OS+40 , SPN+4, SPN+7, SPN+10, SPN+20, SPN+21, SPN+22, SPN+23
>> PSGMSORT	ENQ+1*, OS+15, OS+18, OS+22, OS+27, OS+30, OS+38, OS+40
>> 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+7
>> PSGP(0	GPI+7, SPN+2
>> PSGPAT(	GP+1
>> PSGRBPPN	GPI+8, OS+37, OS+39, SPN+20, SPN+22
>> PSGREP	OS+34, OS+36, OS+38, OS+40, SPN+17, SPN+19, SPN+21, SPN+23
PSGS	DTS+4*, DTS+5!
>> PSGSS	ENQ+3, GPI+2, GPI+4, GPI+13, OS+15, OS+18, OS+21, OS+24, OS+27, OS+30 , OS+37, OS+39, 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+3*
>> 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+8
>> Q	ENQ+2, DTS+1
>> QQ	OS+9, OS+11, DTS+1, DTS+2*
>> QST	OS+8*, OS+9, OS+11, OS+15, OS+18, OS+22, OS+27, OS+30, OS+38, OS+40
S	OS+9, DTS+1!, DTS+2, DTS+4*
S(	OS+9, DTS+1, DTS+2, DTS+4*
SCHEDULE	DTS~, DTS+1, DTS+2
>> SD	OS+2, OS+7, OS+9, DTS+2*, DTS+3
ST	DTS+3, DTS+4, DTS+5!
SUB1	PSGMMAR0+7~, GPI+8, GPI+13, OS+3, OS+27, OS+30, OS+38, OS+40, SPN+7, SPN+10 , SPN+21, SPN+23
SUB2	PSGMMAR0+7~, GPI+8, GPI+13, OS+3, OS+27, OS+30, OS+38, OS+40, 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+27, OS+30, OS+38, OS+40 , SPN+7, SPN+10, SPN+21, SPN+23
U	ENQ+1, ENQ+2, GW+1, GPI+5, GPI+7, OS+2, OS+4, OS+7, OS+8, OS+9 , OS+10, OS+11, OS+36, 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+2, OS+9, OS+11, OS+15, OS+18, OS+22, OS+27, OS+30, OS+33, OS+36 , OS+41, DTS+2, DTS+3, DTS+4, SPN+2, SPN+4, SPN+7, SPN+10, SPN+13, SPN+16 , SPN+19, SPN+24*
>> X1	ENQ+2, OS+35, DTS+2, DTS+3, SPN+18*
>> X2	ENQ+2, OS+35, 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: 8

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: