Routine: PSGLOI

Package	Total	Call Graph
Inpatient Medications	4	($$ENDTC,$$ENDTC1)^PSGMI $$ENSET^PSGSICHK $$LASTREN^PSJLMPRI DRGDISP^PSJLMUT1
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Inpatient Medications	7	PSGL PSGL0 PSGMAR PSGMAR2 PSGMMAR PSGMMAR2 PSGMMAR3

Entry Points

Name	Comments	DBIA/ICR reference
ENP	;
ENOI	;
ENKV	;*** Kill var created from this routine
SET	; ; naked references below refer to full reference inside indirection @(F_"2)" for either file 53.1 or 55
NXTLNE	; Print info to right of drug

External References

Name	Field # of Occurrence
NOW^%DTC	SET+32
$$ENDTC^PSGMI	SET+16, SET+21
$$ENDTC1^PSGMI	SET+23
$$ENSET^PSGSICHK	SET+18
$$LASTREN^PSJLMPRI	SET+14
DRGDISP^PSJLMUT1	SET+30

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(13),?1,PSGLOD," \|",X,?36,"(",PSGLBS5,")",?42,"\|",PSGLAT(1),?52,PSGLPN,?88,$J($S(PSGLRB]"":PSGLRB,1:"NF"),12) Line Location: ENP+3
Function Call: WRITE	Prompt: !?1,DRUGNAME(X),?42,PSGLST,?43,"\|",PSGLAT(2),?52,PSGLSSN,?70,PSGLDOB," (",PSGLAGE,")",?85,$J($S(PSGLTM]"":PSGLTM,1:"NOT FOUND"),15) Line Location: ENP+5
Function Call: WRITE	Prompt: !?1,DRUGNAME(X),?43,"\|",PSGLAT(3),?52,PSGLSEX,?65,"DX: ",PSGLDX Line Location: ENP+6
Function Call: WRITE	Prompt: "See next label for continuation" Line Location: ENP+8
Function Call: WRITE	Prompt: !,?1 Line Location: ENP+8
Function Call: WRITE	Prompt: !?1,DRUGNAME(X) Line Location: ENP+9
Function Call: WRITE	Prompt: "See next label for continuation" Line Location: ENP+10
Function Call: WRITE	Prompt: !,?1 Line Location: ENP+10
Function Call: WRITE	Prompt: $E(Y1,1,LEN) Line Location: ENP+13
Function Call: WRITE	Prompt: "See next label for continuation" Line Location: ENP+14
Function Call: WRITE	Prompt: !,?1 Line Location: ENP+14
Function Call: WRITE	Prompt: "See next label for continuation" Line Location: ENP+15
Function Call: WRITE	Prompt: !,?1 Line Location: ENP+15
Function Call: WRITE	Prompt: ?1,"See next label for continuation" Line Location: ENP+19
Function Call: WRITE	Prompt: ! Line Location: ENP+19
Function Call: WRITE	Prompt: $E("WS",1,PSGLWS*2) Line Location: ENP+22
Function Call: WRITE	Prompt: ?4,$E("HSM",PSGLSM,3) Condition for execution: PSGLSM Line Location: ENP+22
Function Call: WRITE	Prompt: ?8,$E("NF",1,PSGLNF*2),?24,"RPH:",PSGLRPH,?33," RN:",PSGLRN Line Location: ENP+22
Function Call: WRITE	Prompt: ! Line Location: ENP+23
Function Call: WRITE	Prompt: ?43,"\|",$G(PSGLAT(L)) Line Location: NXTLNE+1
Function Call: WRITE	Prompt: ?52 Line Location: NXTLNE+3
Function Call: WRITE	Prompt: $S(+$G(PSGLREN):PSGLREN,1:PSGLSD),?77,$S(Y="NR":"RENEWAL ",Y["N":"NEW ",1:""),"ORDER " Condition for execution: +$G(PSGLREN)!(PSGLSD) Line Location: NXTLNE+3
Function Call: WRITE	Prompt: " (EXPIRED)" Line Location: NXTLNE+5
Function Call: WRITE	Prompt: !,?1 Line Location: NXTLNE+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.2 - [#51.2]	SET+26
^PSD(58.8 - [#58.8]	SET+32
^PSI(58.1 - [#58.1]	SET+32
^SC - [#44]	ENOI+6
^VA(200 - [#200]	SET+24, SET+25, SET+27

Label References

Name	Line Occurrences
NXTLNE	ENP+8, ENP+9, ENP+10, ENP+13, ENP+14, ENP+15, ENP+17, ENP+19, ENP+20, ENP+21 , ENP+22

Naked Globals

Name	Field # of Occurrence
^(	SET+20, SET+32
^(0	SET+24, SET+25, SET+26, SET+27
^(7	SET+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SET+32
>> DFN	SET+14, SET+30
DRUGNAME	SET+29~, SET+30
DRUGNAME(	ENP+4, ENP+5, ENP+6, ENP+9
>> F	ENOI+1*, ENOI+3, ENOI+4, ENOI+5, ENOI+6, SET+2, SET+15, SET+18, SET+20, SET+32 , ENP+1
>> L	ENP+7, ENP+8, ENP+10, ENP+14, ENP+15, ENP+18, ENP+19, ENP+21, NXTLNE+1, NXTLNE+2 , NXTLNE+6, NXTLNE+7
>> LEN	ENP+13*
>> ND	ENOI+4, ENOI+5, SET+2, SET+15
>> NG	ENOI+4*, SET+17
>> PSGCLN	ENOI+6*
PSGDT	SET+5, NXTLNE+5, ENKV+1!
PSGLAGE	ENP+5, ENKV+1!
PSGLAT	SET+2!, SET+3, SET+4, SET+6*, SET+7, SET+9, SET+12, ENKV+1!
PSGLAT(	SET+8, SET+12, SET+13*, ENP+18, NXTLNE+1
PSGLAT(0	SET+5, SET+7, SET+9, SET+12
PSGLAT(1	SET+5, SET+10, SET+11*, ENP+3
PSGLAT(2	SET+5*, ENP+5
PSGLAT(3	SET+5, SET+9, SET+11*, ENP+6
PSGLAT(4	SET+5*
PSGLAT(5	SET+5, SET+10, SET+11*
PSGLBS5	ENP+3, ENKV+1!
PSGLDDA	ENOI+5*, ENKV+1!
PSGLDO	ENOI+5*, SET+28, ENKV+1!
PSGLDOB	ENP+5, ENKV+1!
PSGLDRG	ENOI+5*, ENKV+1!
PSGLDT	SET+2, SET+21, ENKV+1!
PSGLDX	ENP+6, ENKV+1!
PSGLFD	SET+2, SET+5, SET+22, SET+23*, ENP+2, ENKV+1!
PSGLFFD	SET+2*, NXTLNE+5, ENKV+1!
PSGLMN	SET+2*, SET+3, ENKV+1!
PSGLMR	ENOI+4, SET+26, SET+28, ENKV+1!
PSGLNF	SET+32*, ENP+22, ENKV+1!
PSGLOD	ENOI+4, SET+21, ENP+3, ENKV+1!
PSGLPN	ENP+3, ENKV+1!
PSGLPR	ENOI+4, SET+27, ENKV+2!
PSGLR	SET+2*, NXTLNE+3, NXTLNE+4, NXTLNE+5, ENKV+2!
PSGLRB	ENP+3, ENKV+2!
PSGLREN	SET+14~, SET+15, SET+16, ENP+2, NXTLNE+3
PSGLRN	SET+15, SET+24, ENP+22, ENKV+2!
PSGLRNDT	SET+15~*
PSGLRPH	SET+15, SET+25, ENP+22, ENKV+2!
PSGLSCH	SET+2, SET+4, SET+6, SET+28*, ENKV+2!
PSGLSD	SET+2, SET+3, SET+22, SET+23*, ENP+1, ENP+2, NXTLNE+3, ENKV+2!
PSGLSEX	ENP+6, ENKV+2!
PSGLSI	SET+17, SET+18, SET+20*, ENP+8, ENP+10, ENP+11, ENP+17, ENKV+2!
PSGLSM	ENOI+4*, ENP+22, ENKV+2!
PSGLSSD	SET+2*, ENKV+2!
PSGLSSN	ENP+5, ENKV+2!
PSGLST	ENOI+4, SET+3, SET+6, SET+22, ENP+5, ENKV+2!
PSGLSTAT	ENOI+4*, SET+5, SET+6, SET+22, ENKV+3!
PSGLSTOP	SET+33, ENKV+3!
PSGLTD	ENOI+4*, ENKV+3!
PSGLTM	ENP+5, ENKV+3!
PSGLWD	SET+32, ENKV+3!
PSGLWDN	ENOI+6*, NXTLNE+6, ENKV+3!
PSGLWGN	NXTLNE+6, ENKV+3!
PSGLWS	SET+32*, ENP+22, ENKV+3!
PSGNOW	SET+32~*, ENKV+3!
PSGOP	ENOI+1, ENKV+3!
PSGORD	ENOI+1, SET+14, SET+30, ENKV+3!
>> Q	SET+8, SET+9, SET+10, SET+11, SET+12, SET+13, SET+28*
U	SET+20, SET+32
>> X	SET+5, SET+7, SET+12, SET+13, SET+20, SET+24, SET+25, SET+32, ENP+1, ENP+2* , ENP+3, ENP+4*, ENP+5, ENP+6, ENP+7, ENP+9
Y	SET+9, SET+10, SET+11, SET+20, SET+32, ENP+11, NXTLNE+3~*, NXTLNE+4
>> Y1	ENP+11, ENP+12, ENP+13, ENP+15, ENP+16
>> Z	SET+20*

Customize PDF page

Package: Inpatient Medications

Routine: PSGLOI

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: