Routine: PSJORMA1

Package	Total	Call Graph
Inpatient Medications	2	TXT^PSGMUTL DRGDISP^PSJLMUT1
List Manager	1	$$SETSTR^VALM1

Package	Total	Caller Graph
Inpatient Medications	1	PSJORMAR

Name	Comments	DBIA/ICR reference
BLANK(LEN)	;
TXT(TXT,LEN)
SPLIT	;* Split a word string into individual words.
LEN(X1,OLD)	;* Wrap word around if it doesn't fit the display lenght.
DELIM(BSD)	;* BSD=" ","/","-"
MARLB(LEN)
MARLB2	;Slit array into 2 labels.

Name	Field # of Occurrence
TXT^PSGMUTL	MARLB+11
DRGDISP^PSJLMUT1	MARLB+9
$$SETSTR^VALM1	MARLB+7

Name	Line Occurrences
$$BLANK	MARLB+10, MARLB+16, MARLB+17, MARLB+23, MARLB+24, MARLB+25, MARLB+26
DELIM	SPLIT+5
LEN	SPLIT+6, DELIM+6
MARLB2	MARLB+29
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+4, DELIM+5
>> DFN	MARLB+9
DRUGNAME	MARLB+2!, MARLB+9
DRUGNAME(	MARLB+10
INIT	MARLB2+2~, MARLB2+3*, MARLB2+11
L	MARLB+2~, MARLB+3, MARLB+5, MARLB+6, MARLB+7, MARLB+8, MARLB+10, MARLB+12, MARLB+15, MARLB+16 , MARLB+18, MARLB+20, MARLB+27, MARLB+28
LEN	BLANK~, BLANK+2, TXT~, TXT+7, SPLIT+4, SPLIT+6, LEN+2, LEN+4, MARLB~, MARLB+9 , MARLB+11
MARLB	MARLB+2!, MARLB+28, MARLB+29, MARLB2+3, MARLB2+4, MARLB2+5, MARLB2+7, MARLB2+9, MARLB2+11, MARLB2+13 , MARLB2+15, MARLB2+17, MARLB2+18*
MARLB(	MARLB+5, MARLB+6, MARLB+7, MARLB+10, MARLB+12, MARLB+15, MARLB+16, MARLB+18, MARLB+20, MARLB+27 , MARLB2+3, MARLB2+4, MARLB2+6, MARLB2+7, MARLB2+8, MARLB2+9, MARLB2+10, MARLB2+11, MARLB2+13, MARLB2+15* , MARLB2+16*
MARLB(10	MARLB2+17*
MARLB(5	MARLB2+14*
MARX	TXT+10*, MARLB+13!
MARX(	TXT+7, TXT+9, MARLB+12
NEW	SPLIT+3~, DELIM+1!
NEW(	SPLIT+7, LEN+4, DELIM+4, DELIM+5*, DELIM+6, DELIM+7
>> NODE(4	MARLB+5
OLD	TXT+5~, SPLIT+6!, LEN~, LEN+2, LEN+3, LEN+4, DELIM+7!
OLD(	TXT+6, TXT+7, TXT+8, SPLIT+7, DELIM+2, DELIM+4, DELIM+5, DELIM+7
OLD(0	SPLIT+5
OLD(1	SPLIT+4, SPLIT+5, SPLIT+6
>> ON	MARLB+5
>> PSGLBS5	MARLB+7
>> PSGLFD	MARLB+6
>> PSGLNF	MARLB+14, MARLB+24
>> PSGLOD	MARLB+5, MARLB+6
>> PSGLRN	MARLB+17, MARLB+26
>> PSGLRPH	MARLB+16, MARLB+25
>> PSGLSD	MARLB+6
>> PSGLSI	MARLB+11
>> PSGLSM	MARLB+14, MARLB+23
>> PSGLST	MARLB+10
>> PSGLWS	MARLB+14, MARLB+22
>> PSGORD	MARLB+9
>> TS	MARLB+15, MARLB+29, MARLB2+5
TXT	TXT~, SPLIT+4, SPLIT+5, SPLIT+6, MARLB+2~
X	BLANK+1~, BLANK+2, BLANK+3, TXT+6, TXT+7, TXT+8, SPLIT+3~, SPLIT+7, LEN+1~, LEN+3 , LEN+4, DELIM+2, DELIM+4, DELIM+5, DELIM+7, MARLB+2~, MARLB+10, MARLB+12, MARLB+14, MARLB+15 , MARLB+16, MARLB+17, MARLB+18, MARLB+22, MARLB+23, MARLB+24, MARLB+25, MARLB+26, MARLB+27, 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+6, TXT+7, TXT+9, TXT+10, SPLIT+3~, LEN~, LEN+4, DELIM+2, DELIM+3*, DELIM+4 , DELIM+5, DELIM+6
Y	TXT+6, TXT+7, TXT+8, TXT+9, SPLIT+3~, DELIM+2, DELIM+4, DELIM+5, MARLB2+2~, MARLB2+3* , MARLB2+7, MARLB2+9

Customize PDF page

Package: Inpatient Medications

Routine: PSJORMA1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Label References

Local Variables

Legend: