Routine: PSGMUTL

Package	Total	Call Graph
Inpatient Medications	4	ONHOLD^PSGMMAR2 TXT^PSGMUTL $$LASTREN^PSJLMPRI DRGDISP^PSJLMUT1
Registration	1	$$SETSTR^VALM1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Inpatient Medications	15	PSGDSP PSGEUD PSGMAR PSGMAR2 PSGMMAR PSGMMAR2 PSGMMAR3 PSGMUTL PSGPLR PSIVLBL1 PSIVUTL PSJEXP0 PSJLMUT1 PSJORMA1 PSJORMAR

Name	Comments	DBIA/ICR reference
DELIM(BSD)	;* BSD=" ","/","-"
TXT(TXT,LEN)
MARLB2	;Split array into 2 labels.
BLANK(LEN)	;
SPLIT	;* Split a word string into individual words.
MARLB(LEN)
LEN(X1,OLD)	;* Wrap word around if it doesn't fit the display length
MARFORM	;Prompt for the MAR form (Blank and Non-blank)

Name	Field # of Occurrence
^DIR	MARFORM+8
ONHOLD^PSGMMAR2	MARLB+2
TXT^PSGMUTL	MARLB+12
$$LASTREN^PSJLMPRI	MARLB+17
DRGDISP^PSJLMUT1	MARLB+10
$$SETSTR^VALM1	MARLB+8

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	MARLB+16
^PS(55 - [#55]	MARLB+16

Name	Line Occurrences
$$BLANK	MARLB+4, MARLB+11, MARLB+20, MARLB+21, MARLB+26, MARLB+27, MARLB+28, MARLB+29
DELIM	SPLIT+5
LEN	SPLIT+6, DELIM+9
MARLB2	MARLB+32
SPLIT	TXT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BSD	SPLIT+3~, SPLIT+5*, DELIM~, DELIM+2, DELIM+5, DELIM+6, DELIM+7
>> DIR("?"	MARFORM+3, MARFORM+4, MARFORM+5, MARFORM+6, MARFORM+7*
>> DIR("A"	MARFORM+2*
>> DIR("B"	MARFORM+2*
>> DIR(0	MARFORM+1*
>> DIRUT	MARFORM+8
DRUGNAME	MARLB+2!, MARLB+10
DRUGNAME(	MARLB+11
INIT	MARLB2+2~, MARLB2+3*, MARLB2+11
L	MARLB+2~, MARLB+3, MARLB+4, MARLB+5, MARLB+6, MARLB+7, MARLB+8, MARLB+9, MARLB+11, MARLB+13* , MARLB+19, MARLB+20, MARLB+22, MARLB+24, MARLB+30, MARLB+31
LEN	BLANK~, BLANK+2, TXT~, TXT+7, SPLIT+4, SPLIT+6, LEN+2, LEN+4, MARLB~, MARLB+12
MARLB	MARLB+2!, MARLB+31, MARLB+32, MARLB2+3, MARLB2+4, MARLB2+5, MARLB2+7, MARLB2+9, MARLB2+11, MARLB2+13 , MARLB2+15, MARLB2+17, MARLB2+18*
MARLB(	MARLB+4, MARLB+5, MARLB+6, MARLB+7, MARLB+8, MARLB+11, MARLB+13, MARLB+19, MARLB+20, MARLB+22 , MARLB+30, MARLB2+3, MARLB2+4, MARLB2+6, MARLB2+7, MARLB2+8, MARLB2+9, MARLB2+10, MARLB2+11, MARLB2+13 , MARLB2+15, MARLB2+16*
MARLB(12	MARLB2+17*
MARLB(5	MARLB+24*
MARLB(6	MARLB2+14*
MARX	TXT+5!, TXT+12*, MARLB+14!
MARX(	TXT+7, TXT+8, TXT+9, TXT+11*, MARLB+13
ND4	MARLB+16~*, MARLB+17
NEW	SPLIT+3~, DELIM+1!
NEW(	SPLIT+7, LEN+4, DELIM+5, DELIM+6, DELIM+8, DELIM+9, DELIM+10
OLD	TXT+5~, SPLIT+6!, LEN~, LEN+2, LEN+3, LEN+4, DELIM+10!
OLD(	TXT+6, TXT+7, TXT+10, SPLIT+7, DELIM+2, DELIM+5, DELIM+6, DELIM+7, DELIM+8, DELIM+10
OLD(0	SPLIT+5
OLD(1	SPLIT+4, SPLIT+5, SPLIT+6
ON	MARLB+2!*
ONCALL	DELIM+2!, DELIM+3, DELIM+8*
>> ONHOLD	MARLB+7
>> PPN	MARLB+8
>> PSGLFD	MARLB+6
>> PSGLNF	MARLB+18, MARLB+27
>> PSGLOD	MARLB+5, MARLB+6, MARLB+7
PSGLREN	MARLB+17~*
>> PSGLRN	MARLB+15, MARLB+17*, MARLB+21, MARLB+29
PSGLRNDT	MARLB+17~*
>> PSGLRPH	MARLB+20, MARLB+28
>> PSGLSD	MARLB+6
>> PSGLSI	MARLB+12
>> PSGLSM	MARLB+18, MARLB+26
>> PSGLST	MARLB+11
>> PSGLWS	MARLB+18, MARLB+25
>> PSGMARB	MARFORM+8*
>> PSGORD	MARLB+2, MARLB+10, MARLB+15, MARLB+16, MARLB+17
>> PSGP	MARLB+10, MARLB+15, MARLB+16, MARLB+17
>> PSSN	MARLB+8
>> PST	MARLB+5
>> TS	MARLB+32, MARLB2+5
TXT	TXT~, SPLIT+4, SPLIT+5, SPLIT+6, MARLB+2~
X	BLANK+1~, BLANK+2, BLANK+3, TXT+6, TXT+7, TXT+10, SPLIT+3~, SPLIT+7, LEN+1~, LEN+3 , LEN+4, DELIM+2, DELIM+5, DELIM+6, DELIM+7, DELIM+8, DELIM+10, MARLB+2~, MARLB+11, MARLB+13* , MARLB+18, MARLB+19, MARLB+20, MARLB+21, MARLB+22, MARLB+25, MARLB+26, MARLB+27, MARLB+28, MARLB+29 , MARLB+30, MARLB2+2~, MARLB2+4, MARLB2+5, MARLB2+6, MARLB2+7, MARLB2+8, MARLB2+9, MARLB2+10, MARLB2+11 , MARLB2+13~, MARLB2+15, MARLB2+16*
X(	MARLB2+4, MARLB2+7, MARLB2+9, MARLB2+13, MARLB2+15, MARLB2+17
X1	TXT+5~, TXT+6, TXT+7, TXT+8, TXT+9, TXT+11, TXT+12, SPLIT+3~, LEN~, LEN+4* , DELIM+2, DELIM+4, DELIM+5, DELIM+6, DELIM+8, DELIM+9
Y	MARFORM+8, TXT+5~, TXT+6, TXT+7, TXT+10, TXT+11, SPLIT+3~, DELIM+2, DELIM+3, DELIM+5 , DELIM+6, DELIM+8, MARLB2+2~, MARLB2+3, MARLB2+7, MARLB2+9*

Customize PDF page

Package: Inpatient Medications

Routine: PSGMUTL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: