Routine: PSJLMUT1

Package	Total	Call Graph
Inpatient Medications	8	($$ENDTC,$$ENMRN)^PSGMI TXT^PSGMUTL GTDRG^PSIVORFA GTDRG^PSIVORFB (GTOT,NAME)^PSIVUTL $$ONE^PSJBCMA DRGDISP^PSJLMUT1 SHOR^PSJLMUT2
Outpatient Pharmacy	1	EN^PSODRDU2
Registration	1	$$SETSTR^VALM1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Inpatient Medications	48	PSGAP0 PSGAPP PSGCAP0 PSGCAPP PSGLOI PSGMAR0 PSGMMAR0 PSGMMAR5 PSGMUTL PSGO PSGOECS PSGOETO1 PSGOU PSGSICHK PSGVBW0 PSGVW PSIVORE2 PSIVORFA PSIVORFB PSIVPRO PSIVSPDC PSIVUTL PSJADT2 PSJBCMA PSJBCMA1 PSJBCMA4 PSJCOM1 PSJDPT PSJEXP PSJEXP0 PSJLIFNI PSJLMPRU PSJLMUT1 PSJMPEND PSJMPRT PSJMPRTU PSJO PSJO1 PSJORMA1 PSJORRE PSJORRE1 PSJORRN PSJORRN1 PSJORRO PSJORUTL PSJPDV0 PSJPDV1 PSJPXRM1

Entry Points

External References

Name	Field # of Occurrence
^DIR	PAUSE+1
$$ENDTC^PSGMI	DSPLORDU+8, PIV1+2
$$ENMRN^PSGMI	DRGDISP+12
TXT^PSGMUTL	DRGDISP+20, DRGDISP+22
GTDRG^PSIVORFA	DRGDISP+13, DSPLORDV+7
GTDRG^PSIVORFB	DSPLORDV+5
GTOT^PSIVUTL	DSPLORDV+5, DSPLORDV+7
NAME^PSIVUTL	SOL+2, PIVAD+1
$$ONE^PSJBCMA	DSPLORDV+4
DRGDISP^PSJLMUT1	DSPLORDU+4
SHOR^PSJLMUT2	ORDCHK+25
EN^PSODRDU2	ORDCHK+26
$$SETSTR^VALM1	DSPLORDU+12, SOL+2, PIVAD+1, PIV1+3, PIV1+4, SETPSJOC+2, SETPSJOC+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The patient has this "_$S($P(PSJPACK,";")["N":"Non-VA Meds",$P(PSJPACK,";",2)["O":"Outpatient",1:"")_" order:",! Line Location: ORDCHK+24
Function Call: WRITE	Prompt: ! Line Location: ORDCHK+37
Function Call: WRITE	Prompt: ! Line Location: ORDCHK+39
Function Call: WRITE	Prompt: !!,"This patient is already receiving the following order",$S(PSJOC>1:"s",1:"")," for ",$S($G(PSJDD)]"":$P($G(^PSDRUG(PSJDD,0)),U),1:"this drug"),":",! Line Location: WRITE+2
Function Call: WRITE	Prompt: !!,"This patient is already receiving ",$S(PSJOC>1:"orders",1:"an order")," for the following drug",$S(PSJOC>1:"s",1:"")," in the same",!,"class as ",$S($G(PSJDD)]"":$P($G(^PSDRUG(PSJDD,0)),U),1:"the drug selected"),":",! Line Location: WRITE+3
Function Call: WRITE	Prompt: !!,"This patient is receiving the following medication",$S(PSJOC>1:"s",1:"")," that ha",$S(PSJOC>1:"ve",1:"s")," an interaction",!,"with ",$P($G(^PSDRUG(PSJDD,0)),U),":",! Line Location: WRITE+4
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Routine Call	DIR Line Location: PAUSE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	OIDF+4
^PS(50.7 - [#50.7]	OIDF+3
^PS(53.1 - [#53.1]	DSPLORDV+7, ORDCHK+13, ORDCHK+15
^PS(55 - [#55]	DSPLORDV+3, ORDCHK+15, ORDCHK+32
^PSDRUG - [#50]	DD+4, WRITE+2, WRITE+3, WRITE+4
^TMP($J	ORDCHK+9, ORDCHK+10, ORDCHK+17, ORDCHK+18, ORDCHK+20, ORDCHK+25, SETPSJOC+2

Label References

Name	Line Occurrences
$$OIDF	DRGDISP+16
DD	DRGDISP+15
DSPLORDU	ORDCHK+34
DSPLORDV	DSPLORDU+5, ORDCHK+33
PAUSE	ORDCHK+23, ORDCHK+25, ORDCHK+26, ORDCHK+38
PIV1	SOL+2, PIVAD+1
PIVAD	DSPLORDV+8
SETPSJOC	ORDCHK+29, ORDCHK+32
SETTMP	SOL+2, PIVAD+1
SOL	DSPLORDV+8
WRITE	ORDCHK+36

Naked Globals

Name	Field # of Occurrence
^(2	DSPLORDV+7
^(8	DSPLORDV+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	DRGDISP~, DSPLORDV~, DSPLORDV+3, DSPLORDV+4, ORDCHK~, ORDCHK+15, ORDCHK+26, ORDCHK+32, ORDCHK+33, ORDCHK+34
DIR	PAUSE+1!
DIR("A"	PAUSE+1*
DIR(0	PAUSE+1*
DRG	DRGDISP+13~, DSPLORDV+1~, SOL+2, PIVAD+1
DRG(	DRGDISP+13
DRG("AD"	PIVAD+1
DRG("SOL"	SOL+2
DRGI	DSPLORDV+1~
DRGT	DSPLORDV+1~
DRGX	DSPLORDV+1~, SOL+2, PIVAD+1
DRUGNAME	DRGDISP+7~, DRGDISP+15, DRGDISP+16*, DRGDISP+20, DSPLORDU+1~, DSPLORDU+4
DRUGNAME(	DSPLORDU+10, DSPLORDU+13
DRUGNAME(1	DSPLORDU+12*
DRUGONLY	DRGDISP~, DRGDISP+21
F	DRGDISP+7~, DRGDISP+9, DRGDISP+10, DRGDISP+11, DRGDISP+12, DRGDISP+14, DRGDISP+15, DD~, DD+3, DD+6 , DSPLORDU+1~, DSPLORDU+2*, DSPLORDU+3
FIL	DSPLORDV+1~
GL	DRGDISP~, DRGDISP+22
MARX	DRGDISP+7~
MARX(	DRGDISP+20, DRGDISP+22, DRGDISP+23, DRGDISP+24
MR	DRGDISP+7~, DRGDISP+12*, DRGDISP+18
NAME	DRGDISP~, DRGDISP+8!, OIDF+2~, OIDF+4, OIDF+5, DD~, DD+2!, DD+4, DD+5*, SOL+2 , PIVAD+1
NAME(	DRGDISP+20, DRGDISP+23, DRGDISP+24*, SOL+2, PIVAD+1
NAME(1	DRGDISP+11*
ND	DSPLORDV+1~
NL	DRGDISP~, DRGDISP+20
NODE0	DSPLORDU+1~, DSPLORDU+3*, DSPLORDU+5, DSPLORDU+6, DSPLORDU+7
NODE2	DSPLORDU+1~, DSPLORDU+3*, DSPLORDU+8
NOTGV	DRGDISP+7~, DRGDISP+12*, DRGDISP+18
OIND	DRGDISP+7~, DRGDISP+12, DRGDISP+13, DRGDISP+16, OIDF~, OIDF+3, OIDF+5
ON	DRGDISP~, DRGDISP+9, DRGDISP+10, DSPLORDU~, DSPLORDU+2, DSPLORDU+4, DSPLORDU+5, DSPLORDU+13, DSPLORDV~, DSPLORDV+2 , DSPLORDV+3, DSPLORDV+4, DSPLORDV+5, DSPLORDV+7, SETTMP+1, ORDCHK+7~, ORDCHK+27, ORDCHK+28, ORDCHK+29, ORDCHK+31 , ORDCHK+32, ORDCHK+33, ORDCHK+34, ORDCHK+35, ORDCHK+37, ORDCHK+38, SETPSJOC+4
ON55	DSPLORDV+1~, DSPLORDV+5*, ORDCHK+16
P	DSPLORDV+1~
P(	DSPLORDV+3, PIV1+2
P("OT"	DSPLORDV+5*
P(17	DSPLORDV+7*, PIV1+3, PIV1+4
P(2	DSPLORDV+4, DSPLORDV+7*, PIV1+3, PIV1+4
P(3	DSPLORDV+4, DSPLORDV+7*, PIV1+3, PIV1+4
P(4	DSPLORDV+5, DSPLORDV+7*
P(8	DSPLORDV+7*
P(9	DSPLORDV+4, DSPLORDV+7*
PIECE	ORDCHK~, ORDCHK+10, ORDCHK+17, SETPSJOC+1~*, SETPSJOC+2
PSGGV	DRGDISP+7~, DRGDISP+18*, DRGDISP+22
PSGINS	DRGDISP+7~, DRGDISP+8, DRGDISP+10, DRGDISP+18
>> PSGORD	ORDCHK+11, ORDCHK+12
PSGP	DSPLORDU~, DSPLORDU+4, DSPLORDU+5
PSGUPDDO	DRGDISP+7~, DRGDISP+12, DRGDISP+15, DRGDISP+18, DD+6
PSGX	DRGDISP+7~, DRGDISP+13, DRGDISP+19, DRGDISP+20*, DRGDISP+23, DRGDISP+24
>> PSIVOCON	ORDCHK+28, ORDCHK+29
>> PSIVRNFG	ORDCHK+16
PSIVX	ORDCHK+7~, ORDCHK+9, ORDCHK+10, ORDCHK+17, ORDCHK+18, ORDCHK+20, ORDCHK+25, ORDCHK+38, SETPSJOC+2
>> PSJCOM	ORDCHK+13
>> PSJCT	DSPLORDV+6*
>> PSJDD	WRITE+2, WRITE+3, WRITE+4
>> PSJEXTP	PIV1+2, PIV1+3
>> PSJFST	ORDCHK+23, ORDCHK+25, ORDCHK+26, ORDCHK+37*
PSJID	DSPLORDU+1~, DSPLORDU+8, DSPLORDU+9, DSPLORDU+11
>> PSJIREQ	ORDCHK+18*
PSJIVFLG	DSPLORDV+1~, DSPLORDV+8*, SOL+1, SOL+2, PIVAD+1, PIV1+1!
PSJL	DSPLORDV+6, SOL+1, SOL+2, PIVAD+1, PIV1+3, PIV1+4, SETTMP+1, ORDCHK+7~
PSJLINE	DSPLORDU+13, DSPLORDU+14, SETTMP+1, ORDCHK+7~, ORDCHK+8, ORDCHK+35, ORDCHK+37, ORDCHK+38, SETPSJOC+4*
PSJOC	ORDCHK+7~, ORDCHK+8, ORDCHK+33, ORDCHK+34, ORDCHK+36, SETPSJOC+4, WRITE+2, WRITE+3, WRITE+4
PSJOC(	DSPLORDU+13, SETTMP+1, ORDCHK+27, ORDCHK+35, ORDCHK+37, ORDCHK+38, SETPSJOC+4
>> PSJORD	ORDCHK+11*, ORDCHK+12, ORDCHK+13, ORDCHK+15
PSJORIEN	ORDCHK+7~, ORDCHK+17*, ORDCHK+28, ORDCHK+29
PSJORIFN	DSPLORDV+1~
PSJPACK	ORDCHK+7~, ORDCHK+10*, ORDCHK+12, ORDCHK+13, ORDCHK+15, ORDCHK+16, ORDCHK+22, ORDCHK+24, ORDCHK+26, ORDCHK+27
PSJPDDDP	DRGDISP+18, DRGDISP+19!, DD+7*
>> PSJPDRG	ORDCHK+26, WRITE+1
>> PSJRXREQ	ORDCHK+20*
PSJX	DSPLORDU+1~, DSPLORDU+10*, DSPLORDU+11, DSPLORDU+12, DSPLORDU+13
SCH	DRGDISP+7~, DRGDISP+14, DRGDISP+18, DSPLORDU+1~, DSPLORDU+6, DSPLORDU+9*, DSPLORDU+11
SD	DSPLORDU+1~, DSPLORDU+8, DSPLORDU+9, DSPLORDU+11
STAT	DSPLORDU+1~, DSPLORDU+7*, DSPLORDU+8, DSPLORDU+9, DSPLORDU+11
TYP	DSPLORDV+1~, DSPLORDV+2, DSPLORDV+4, PIV1+3, PIV1+4
TYPE	ORDCHK~, ORDCHK+9, ORDCHK+10, ORDCHK+17, ORDCHK+18, ORDCHK+20, ORDCHK+25, ORDCHK+36, SETPSJOC+1, SETPSJOC+2 , WRITE~, WRITE+2, WRITE+3, WRITE+4
U	DRGDISP+12, DRGDISP+13, DRGDISP+14, OIDF+4, DD+4, DD+6, DSPLORDU+5, DSPLORDU+6, DSPLORDU+7, DSPLORDU+8 , DSPLORDV+3, DSPLORDV+7, ORDCHK+10, ORDCHK+17, ORDCHK+18, ORDCHK+20, SETPSJOC+2, WRITE+2, WRITE+3, WRITE+4
X	DRGDISP+7~, DRGDISP+10, DRGDISP+12, DRGDISP+13, DRGDISP+20, DRGDISP+22, DRGDISP+23, DRGDISP+24, OIDF+2~, OIDF+3 , OIDF+4, DD+2~, DD+3, DD+4, DD+5, DD+6, DSPLORDU+1~, DSPLORDU+11, DSPLORDU+12, DSPLORDV+1~ , DSPLORDV+3, PIV1+2, ORDCHK+22~, SETPSJOC+2, SETPSJOC+3*, SETPSJOC+4
Y	DSPLORDU+1~, DSPLORDV+1~, DSPLORDV+3, DSPLORDV+7

Name	Comments	DBIA/ICR reference
PIV1	; Print Sched type, start/stop dates, and status.
PIVAD	; Print IV Additives.
SETTMP	;
DSPLORDV(DFN,ON)
DRGDISP(DFN,ON,NL,GL,NAME,DRUGONLY)
SOL	;
WRITE(TYPE)
DD(F,NAME)
PAUSE	;
OIDF(OIND)
SETPSJOC	;Set PSJOC array to be displayed later
DSPLORDU(PSGP,ON)
ORDCHK(DFN,TYPE,PIECE)

Customize PDF page

Package: Inpatient Medications

Routine: PSJLMUT1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 48

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: