Routine: PSJLIFNI

Call Graph Total: 14

Package	Total	Call Graph
Inpatient Medications	13	($$PRNOK,EN)^PSGS0 CONT^PSGSICHK ENSTOP^PSIVCAL EDIT^PSIVEDT (53,CKFLDS,COMPLTE)^PSIVORC1 GTIVDRG^PSIVORC2 GT531^PSIVORFA ($$GTPCI,GTOT)^PSIVUTL (GTDATA,ORDCHK)^PSJLIFN $$SCHREQ^PSJLIVFD $$OIDF^PSJLMUT1 HOLDHDR^PSJOE $$ENPC^PSJUTL
Registration	1	PAUSE^VALM1

Package

Total

Call Graph

($$PRNOK,EN)^PSGS0 CONT^PSGSICHK ENSTOP^PSIVCAL EDIT^PSIVEDT (53,CKFLDS,COMPLTE)^PSIVORC1 GTIVDRG^PSIVORC2 GT531^PSIVORFA ($$GTPCI,GTOT)^PSIVUTL
(GTDATA,ORDCHK)^PSJLIFN $$SCHREQ^PSJLIVFD $$OIDF^PSJLMUT1 HOLDHDR^PSJOE $$ENPC^PSJUTL

PAUSE^VALM1

Package	Total	Caller Graph
Inpatient Medications	2	PSGOEF1 PSJLIFN

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
ORDCHK(DFN,TYPE)	;
WRITE(TYPE)	;Display order check description
EXIT	;
IV(PSJORD,OI)	; Prompt for missing data to be finished as IV.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$C(7),"This order is being edited by another user. Try later." Line Location: IV+1
Function Call: WRITE	Prompt: ! Line Location: ORDCHK+16
Function Call: WRITE	Prompt: !!,"There are duplicate ",$P(^TMP($J,TYPE,PSIVX,0),U,2),!,"medications prescribed for this order.",! Line Location: WRITE+2
Function Call: WRITE	Prompt: !!,"This medication: ",$P(^TMP($J,TYPE,PSIVX,0),U,4),!,"is in the same class as the following medication(s) within this order: " Line Location: WRITE+3
Function Call: WRITE	Prompt: !!,"This medication: ",$P(^TMP($J,TYPE,PSIVX,0),U,2),!,"has an interaction with the following medication(s) within this order: " Line Location: WRITE+4
Function Call: WRITE	Prompt: !,$S(TYPE="DC":$P(^TMP($J,TYPE,X,0),U,4),TYPE="DI":$P(^TMP($J,TYPE,X,0),U,6),1:$P(^TMP($J,TYPE,X,0),U,2)),! Line Location: WRITE+5

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	IV+1, EXIT+1
^TMP("PSJI"	IV+21*
^TMP($J	ORDCHK+7, ORDCHK+8, WRITE+2, WRITE+3, WRITE+4, WRITE+5

Name	Line Occurrences
EXIT	IV+23
WRITE	ORDCHK+9

Name	Field # of Occurrence
DFN	IV+9*, IV+10, ORDCHK~
>> DNE	IV+19*
>> DONE	IV+23
DRG	IV+20!
DRG("AD"	IV+19
DRG("SOL"	IV+19
DRGOC	IV+7~
>> EDIT	IV+22
OI	IV~, IV+10
ON	IV+9*, IV+10, ORDCHK+5~
ON55	IV+7~, IV+9*
>> P	IV+16
>> P("OPI"	IV+12*
>> P("OT"	IV+11, IV+14, IV+19
>> P("PD"	IV+10*
>> P("PON"	IV+9*
>> P(11	IV+16, IV+18*
>> P(15	IV+16
>> P(3	IV+19*
>> P(4	IV+11, IV+14, IV+20*
>> P(9	IV+16
PSGAT	IV+16~*
PSGOES	IV+16~
PSGORQF	IV+7~, IV+17*, IV+20
>> PSGP	IV+9
PSGS0XT	IV+16~*
PSGS0Y	IV+16~, IV+18
>> PSIVAC	IV+9*
PSIVACEP	IV+7~, IV+25
PSIVFN1	IV+7~
PSIVOI	IV+7~
>> PSIVOK	IV+22*
>> PSIVUP	IV+10*, IV+12
PSIVX	ORDCHK+5~, ORDCHK+7*, ORDCHK+8, WRITE+2, WRITE+3, WRITE+4
>> PSJIREQ	ORDCHK+8*
PSJIVBD	IV+6!
PSJL	ORDCHK+5~
PSJLIFNI	IV+7~, IV+8*
PSJLINE	ORDCHK+5~, ORDCHK+6*
PSJNSS	IV+16~
PSJOC	ORDCHK+5~, ORDCHK+6*
PSJORD	IV~, IV+1, IV+9, EXIT+1
PSJORIEN	ORDCHK+5~
PSJPACK	ORDCHK+5~
>> PSJPDRG	WRITE+1*
TYPE	ORDCHK~, ORDCHK+7, ORDCHK+8, ORDCHK+9, WRITE~, WRITE+2, WRITE+3, WRITE+4, WRITE+5
U	IV+10, ORDCHK+8, WRITE+2, WRITE+3, WRITE+4, WRITE+5
>> VALMBCK	IV+20, IV+23, IV+25*
>> X	IV+16, IV+17, WRITE+5

Information