Routine: PSJDIN

Package	Total	Call Graph
Inpatient Medications	1	($$DDNAME,$$OINAME)^PSJLMUTL
Pharmacy Data Management	1	($$PROMPT,EN)^PSSDIN
Registration	1	(CLEAR,FULL,PAUSE)^VALM1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Inpatient Medications	6	PSGOE7 PSIVEDRG PSJLIUTL PSJLIVFD PSJLIVMD PSJLMUDE

Entry Points

Name	Comments	DBIA/ICR reference
DDNF(PSJDD)
DINIV(FIL,DRGTMP)
DINFLUD(PSJOI,PSJDDA)	;
IV	;
OINF(PSJOI)
DINOI(PSJOI,COL)
TXD(N1)	;
NEWUD	;*New backdoor order doesn't have an order# yet.
DINHIDE(PSJDFN,PSJORD)	;
DIN(PSJOI,PSJDRG)
UD	;
HLD	;
DINFLIV(DRG)
DINDD(PSJDD,COL)
NFIV(FIL,PSJIVIEN,PSJNF)

External References

Name	Field # of Occurrence
^DIR	HLD+5
$$DDNAME^PSJLMUTL	DINDD+6
$$OINAME^PSJLMUTL	DINOI+6
$$PROMPT^PSSDIN	DIN+8
EN^PSSDIN	DIN+6, DINFLIV+9, DINFLUD+9, DINFLUD+11, IV+16, UD+7, UD+12, NEWUD+6, NEWUD+11
CLEAR^VALM1	DIN+14
FULL^VALM1	IV+7, UD+4, NEWUD+4
PAUSE^VALM1	DIN+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Dispense Drug Text:" Line Location: DIN+11
Function Call: WRITE	Prompt: ! Line Location: DIN+11
Function Call: WRITE	Prompt: ! Line Location: DIN+11
Function Call: WRITE	Prompt: !!,"Orderable Item Text:" Line Location: DIN+13
Function Call: WRITE	Prompt: ! Line Location: DIN+13
Function Call: WRITE	Prompt: ! Line Location: DIN+13
Function Call: WRITE	Prompt: ! Line Location: TXD+7
Function Call: WRITE	Prompt: ! Line Location: HLD+1
Function Call: WRITE	Prompt: @IOF Line Location: HLD+6
Function Call: WRITE	Prompt: @IOF Line Location: IV+7
Function Call: WRITE	Prompt: !,"Drug restriction/guideline info:" Line Location: IV+8
Function Call: WRITE	Prompt: !!,"IV "_$S(FIL="AD":"Additive",1:"Solution")_": "_NAME Line Location: IV+13
Function Call: WRITE	Prompt: $G(PSJNF("NF")),! Line Location: IV+14
Function Call: WRITE	Prompt: @IOF Line Location: UD+4
Function Call: WRITE	Prompt: !,"Drug restriction/guideline info:" Line Location: UD+5
Function Call: WRITE	Prompt: @IOF Line Location: NEWUD+4
Function Call: WRITE	Prompt: !,"Drug restriction/guideline info:" Line Location: NEWUD+5
Function Call: WRITE	Prompt: !!,?COL,"Orderable Item: "_$$OINAME^PSJLMUTL(PSJOI)_$$OINF(PSJOI),! Line Location: DINOI+6
Function Call: WRITE	Prompt: !,?10,"No information available",! Line Location: DINOI+7
Function Call: WRITE	Prompt: ! Line Location: DINOI+8
Function Call: WRITE	Prompt: !,?COL,"Dispense drug: "_$$DDNAME^PSJLMUTL(+PSJDD)_$$DDNF(PSJDD),! Line Location: DINDD+6
Function Call: WRITE	Prompt: !?10,"No information available",! Line Location: DINDD+7
Function Call: WRITE	Prompt: @IOF Line Location: DINDD+8
Routine Call	DIR Line Location: HLD+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(	DINIV+6, NFIV+8, DINFLIV+9
^PS(50.7 - [#50.7]	OINF+4
^PS(52.6 - [#52.6]	IV+15
^PS(52.7 - [#52.7]	IV+15
^PS(53.45 - [#53.45]	NEWUD+8, NEWUD+10
^PSDRUG - [#50]	NFIV+8, DDNF+4
^TMP(	TXD+4, TXD+5, TXD+6, TXD+7
^TMP("PSSDIN"	DIN+7, DINFLIV+10, DINFLIV+12!, DINFLUD+9!, DINFLUD+11, DINFLUD+12!, DINHIDE+11!, IV+20!, UD+15!, NEWUD+14! , DINOI+7, DINDD+7

Label References

Name	Line Occurrences
$$DDNF	DINDD+6
$$DINFLUD	DINFLIV+11
$$OINF	DINOI+6
@(	DINHIDE+9
DIN	DINIV+7
DINDD	IV+18, UD+13, NEWUD+12
DINOI	IV+17, UD+7, NEWUD+6
HLD	TXD+7, IV+19, UD+14, NEWUD+13, DINDD+7, DINDD+8
IV	DINHIDE+6
NEWUD	DINHIDE+10
NFIV	IV+14
TXD	DIN+11, DIN+13, DINOI+8, DINDD+8
UD	DINHIDE+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COL	DINOI~, DINOI+6, DINDD~, DINDD+6
DIR	HLD+3!, HLD+5!
DIR("A"	HLD+4*
DIR(0	HLD+4*
DRG	DINFLIV~
DRG(	DINFLIV+8, DINFLIV+9, IV+9, IV+12, IV+15
DRG("AD"	DINHIDE+9
DRG("SOL"	DINHIDE+9
DRGTMP	DINIV~, DINIV+6
F	UD+3~, UD+6*, UD+7, UD+9, UD+11, NEWUD+3~
FIL	DINIV~, DINIV+6, NFIV~, NFIV+8, IV+6~, IV+9*, IV+12, IV+13, IV+14, IV+15
IOF	DIN+9, HLD+6, IV+7, UD+4, NEWUD+4, DINDD+8
N1	TXD~, TXD+4, TXD+5, TXD+6, TXD+7
N2	TXD+3~, TXD+4*, TXD+5, TXD+6, TXD+7
N3	TXD+3~, TXD+5*, TXD+6, TXD+7
N4	TXD+3~, TXD+6*, TXD+7
NAME	IV+6~, IV+12*, IV+13
NX	TXD+3~*, TXD+4, TXD+5, TXD+6, TXD+7
>> P("PD"	DINFLIV+11
>> PSGPD	NEWUD+6
PSJDD	DINIV+5~, DIN+5~, DINFLUD+8~, DINFLUD+10, DINFLUD+11, IV+6~, IV+16, IV+18, UD+3~, UD+11* , UD+12, UD+13, NEWUD+3~, NEWUD+10*, NEWUD+11, NEWUD+12, DINDD~, DINDD+6, DINDD+7, DDNF~ , DDNF+4
PSJDDA	DINFLUD~
PSJDDA(	DINFLUD+10
PSJDDX	UD+3~, UD+9, UD+11, NEWUD+3~, NEWUD+8, NEWUD+10
PSJDFN	DINHIDE~
PSJDIN	DINIV+5~, DIN+5~, DIN+8*, DIN+10, DIN+12
PSJDRG	DINIV+5~, DINIV+6*, DINIV+7, DIN~, DIN+6
PSJFIL	DINFLIV+7~, DINFLIV+8*, DINFLIV+9
PSJFL	DINFLIV+7~, DINFLIV+8, DINFLIV+10, DINFLIV+11, DINFLIV+13, DINFLUD+8~, DINFLUD+11*, DINFLUD+13
PSJINDEX	DINIV+5~, DIN+5~
PSJIVIEN	NFIV~, NFIV+8
PSJND	DINFLIV+7~, DINFLIV+8*, DINFLIV+9
PSJNF	NFIV~, NFIV+8*, NFIV+9, NFIV+10, IV+6~, IV+14
PSJNF("MSG"	NFIV+10*
PSJNF("NF"	NFIV+9*, IV+14
PSJOI	DINIV+5~, DINIV+6, DINIV+7, DIN~, DIN+6, DINFLUD~, DINFLUD+9, IV+6~, IV+16, IV+17 , UD+3~, UD+7, UD+12, NEWUD+3~, NEWUD+6, NEWUD+11, DINOI~, DINOI+6, DINOI+7, OINF~ , OINF+4
PSJORD	DINFLIV+11, DINHIDE~, DINHIDE+6, DINHIDE+7, DINHIDE+8, DINHIDE+10, UD+6
>> PSJSYSP	NEWUD+8, NEWUD+10
PSJX	DINFLIV+7~, DINFLIV+9, IV+6~, IV+9, IV+12, IV+14, IV+15
PSJXY	IV+6~, IV+11, IV+19, UD+3~, UD+10, UD+14, NEWUD+3~, NEWUD+9*, NEWUD+13
U	DINIV+6, DIN+10, TXD+4, TXD+5, TXD+6, NFIV+8, NFIV+9, NFIV+10, DINFLIV+9, IV+12 , IV+16, OINF+4, DDNF+4
X	DIN+5~, TXD+7, IV+6~, IV+10~, IV+15*, IV+16, DINOI+5~, DINDD+5~
XIT	DIN+5~, DIN+10, TXD+3, TXD+4, TXD+5, TXD+6, TXD+7
XX	DINOI+5~
Y	DIN+5~, DIN+9, IV+6~

Customize PDF page

Package: Inpatient Medications

Routine: PSJDIN

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: