Routine: PSJLIFN

Package	Total	Call Graph
Inpatient Medications	16	$$ENIVUD^PSGOEF1 Q2^PSGS0 (ENSTOP,ENT)^PSIVCAL (ORDERCHK,SAVEDRG)^PSIVEDRG EDIT^PSIVEDT OC^PSIVOC (53,CKFLDS,COMPLTE)^PSIVORC1 GTIVDRG^PSIVORC2 (GT531,GTDRG)^PSIVORFA ($$GTPCI,GTOT)^PSIVUTL ORDCHK^PSJLIFNI UDVARS^PSJLIORD $$SCHREQ^PSJLIVFD $$CHKSCHD^PSJMISC2 HOLDHDR^PSJOE $$ENPC^PSJUTL
List Manager	3	EN^VALM PAUSE^VALM1 RE^VALM4
VA FileMan	3	^%DT $$GET1^DIQ ^DIR
Outpatient Pharmacy	1	DRGCHK^PSOORDRG

Package

Total

Call Graph

$$ENIVUD^PSGOEF1 Q2^PSGS0 (ENSTOP,ENT)^PSIVCAL (ORDERCHK,SAVEDRG)^PSIVEDRG EDIT^PSIVEDT OC^PSIVOC (53,CKFLDS,COMPLTE)^PSIVORC1 GTIVDRG^PSIVORC2
(GT531,GTDRG)^PSIVORFA ($$GTPCI,GTOT)^PSIVUTL ORDCHK^PSJLIFNI UDVARS^PSJLIORD $$SCHREQ^PSJLIVFD $$CHKSCHD^PSJMISC2 HOLDHDR^PSJOE $$ENPC^PSJUTL

List Manager

EN^VALM PAUSE^VALM1 RE^VALM4

VA FileMan

^%DT $$GET1^DIQ ^DIR

Outpatient Pharmacy

DRGCHK^PSOORDRG

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Package	Total	Caller Graph
Inpatient Medications	11	PSIVOPT PSIVORC PSIVORC2 PSJCOMR PSJI LM FINISH PSJLIACT PSJLIFNI PSJLIORD PSJLIPRF PSJOE PSJOEA
Kernel	1	^ORD(101

Package

Total

Caller Graph

Inpatient Medications

PSIVOPT PSIVORC PSIVORC2 PSJCOMR PSJI LM FINISH PSJLIACT PSJLIFNI PSJLIORD
PSJLIPRF PSJOE PSJOEA

Kernel

^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Display order with numbers.
PENDING	; Process pending order.
DISPLAY	;
GTDATA	;
FINISH	; Prompt for missing data
MULTADDS	; If there are multiple IV Additives per Orderable Item, it will prompt for selection
ORDCHK	;* Do order check for Inpatient Meds IV. ; PSGORQF is defined (CONT^PSGSICHK) if not log an intervention ; No longer use after PSJ5181
ORDCHKA	;* Do order check against existing orders on the profile
OCORD	;* Do order check for each drug against the drugs within the order.
IVADDCNT(OI,IVLIST)	; Returns the number of IV Addtives Associated to the OI and Marked for IV Order Dialog

Name	Field # of Occurrence
^%DT	GTDATA+5, GTDATA+6
$$GET1^DIQ	MULTADDS+10, MULTADDS+17, MULTADDS+18, MULTADDS+23, IVADDCNT+8, IVADDCNT+10
^DIR	MULTADDS+21
$$ENIVUD^PSGOEF1	FINISH+12
Q2^PSGS0	FINISH+28
ENSTOP^PSIVCAL	GTDATA+6, FINISH+36, FINISH+48
ENT^PSIVCAL	GTDATA+5
ORDERCHK^PSIVEDRG	ORDCHKA+8
SAVEDRG^PSIVEDRG	MULTADDS+3, MULTADDS+4, OCORD+4, OCORD+29
EDIT^PSIVEDT	FINISH+43
OC^PSIVOC	FINISH+46
53^PSIVORC1	FINISH+22
CKFLDS^PSIVORC1	FINISH+43
COMPLTE^PSIVORC1	FINISH+55
GTIVDRG^PSIVORC2	FINISH+36
GT531^PSIVORFA	PENDING+13, FINISH+51
GTDRG^PSIVORFA	FINISH+10
$$GTPCI^PSIVUTL	PENDING+13
GTOT^PSIVUTL	PENDING+14
ORDCHK^PSJLIFNI	OCORD+24, OCORD+27
UDVARS^PSJLIORD	FINISH+11
$$SCHREQ^PSJLIVFD	FINISH+23
$$CHKSCHD^PSJMISC2	FINISH+26
HOLDHDR^PSJOE	FINISH+13
$$ENPC^PSJUTL	FINISH+19
DRGCHK^PSOORDRG	OCORD+22, OCORD+26
EN^VALM	PENDING+22, PENDING+24, DISPLAY+2, DISPLAY+3
PAUSE^VALM1	EN+1, FINISH+33
RE^VALM4	FINISH+34, FINISH+38, FINISH+59

Name

Field # of Occurrence

^%DT

GTDATA+5, GTDATA+6

$$GET1^DIQ

MULTADDS+10, MULTADDS+17, MULTADDS+18, MULTADDS+23, IVADDCNT+8, IVADDCNT+10

^DIR

MULTADDS+21

$$ENIVUD^PSGOEF1

FINISH+12

Q2^PSGS0

FINISH+28

ENSTOP^PSIVCAL

GTDATA+6, FINISH+36, FINISH+48

ENT^PSIVCAL

GTDATA+5

ORDERCHK^PSIVEDRG

ORDCHKA+8

SAVEDRG^PSIVEDRG

MULTADDS+3, MULTADDS+4, OCORD+4, OCORD+29

FINISH+43

FINISH+46

FINISH+22

FINISH+43

FINISH+55

FINISH+36

PENDING+13, FINISH+51

FINISH+10

PENDING+13

PENDING+14

OCORD+24, OCORD+27

FINISH+11

FINISH+23

FINISH+26

FINISH+13

FINISH+19

OCORD+22, OCORD+26

PENDING+22, PENDING+24, DISPLAY+2, DISPLAY+3

PAUSE^VALM1

EN+1, FINISH+33

RE^VALM4

FINISH+34, FINISH+38, FINISH+59

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$C(7),"This order is being edited by another user. Try later." Line Location: EN+1
Function Call: WRITE	Prompt: !!,"More than one dispense IV Additives are available for:" Line Location: MULTADDS+9
Function Call: WRITE	Prompt: !,"Orderable Item: ",$$GET1^DIQ(50.7,OI,.01) Line Location: MULTADDS+10
Function Call: WRITE	Prompt: !," Ordered Dose: ",$P(DRG("AD",PSIDX),"^",3) Line Location: MULTADDS+11
Function Call: WRITE	Prompt: !!,"Please select the correct dispense IV Additive below for this order:" Line Location: MULTADDS+12
Function Call: WRITE	Prompt: ! Line Location: MULTADDS+24
Routine Call	DIR Line Location: MULTADDS+21
Routine Call	VALM Line Location: PENDING+22 PENDING+24 DISPLAY+2 DISPLAY+3

FileNo	Call Tags
^PS(50.7 - [#50.7]	GET1^DIQ
^PS(52.6 - [#52.6]	GET1^DIQ

FileNo

Call Tags

^PS(50.7 - [#50.7]

GET1^DIQ

^PS(52.6 - [#52.6]

GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.2 - [#51.2]	GTDATA+7
^PS(52.6 - [#52.6]	OCORD+7, IVADDCNT+6
^PS(52.7 - [#52.7]	OCORD+13
^PS(53.1 - [#53.1]	EN+1, EN+5, FINISH+7
^PSDRUG - [#50]	OCORD+23
^TMP($J	OCORD+23*

Name

Line Occurrences (* Changed, ! Killed)

GTDATA+7

OCORD+7, IVADDCNT+6

OCORD+13

EN+1, EN+5, FINISH+7

OCORD+23

OCORD+23*

Name	Line Occurrences
GTDATA	PENDING+24, FINISH+35
IVADDCNT	MULTADDS+8
MULTADDS	FINISH+41
PENDING	EN+4

Name

Line Occurrences

GTDATA

PENDING+24, FINISH+35

IVADDCNT

MULTADDS+8

MULTADDS

FINISH+41

PENDING

EN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	GTDATA+5!, GTDATA+6!
DDRUG	OCORD+3~, OCORD+7, OCORD+8, OCORD+13, OCORD+14, OCORD+22, OCORD+26
DDRUG(	OCORD+8, OCORD+14, OCORD+22!, OCORD+26!
>> DFN	PENDING+12, PENDING+13, FINISH+51, OCORD+20, OCORD+28
DIR	MULTADDS+13~
DIR("?"	MULTADDS+14*
DIR("A"	MULTADDS+19, MULTADDS+20
DIR(0	MULTADDS+21*
DIRUT	MULTADDS+13~, MULTADDS+21
>> DNE	FINISH+36, FINISH+38
>> DONE	FINISH+52
DRG	FINISH+39!, MULTADDS+3, MULTADDS+4, OCORD+4, OCORD+29
DRG(	ORDCHKA+4, ORDCHKA+5, ORDCHKA+9
DRG("AD"	FINISH+36, MULTADDS+3, MULTADDS+6, MULTADDS+7, MULTADDS+11, MULTADDS+23*, OCORD+6, OCORD+7
DRG("SOL"	FINISH+36, OCORD+12, OCORD+13
DRGOC	FINISH+9~
DRGOC(	ORDCHKA+8, ORDCHKA+9*
DRGTMP	FINISH+9~, ORDCHKA+5*, ORDCHKA+7, ORDCHKA+10
DT	IVADDCNT+10
DUOUT	MULTADDS+13~, MULTADDS+21
>> EDIT	FINISH+43
FIL	FINISH+9~, ORDCHKA+3*
INTERVEN	OCORD+19~*
IVADD	MULTADDS+13~, MULTADDS+16, MULTADDS+17, MULTADDS+18, IVADDCNT+4~, IVADDCNT+5, IVADDCNT+6*, IVADDCNT+8, IVADDCNT+10, IVADDCNT+12
IVADDCNT	IVADDCNT+4~, IVADDCNT+5, IVADDCNT+12
IVCNT	MULTADDS+13~, MULTADDS+15*, MULTADDS+16, MULTADDS+17, MULTADDS+19, MULTADDS+20, MULTADDS+21
IVLIST	MULTADDS+5~, MULTADDS+8!, IVADDCNT~
IVLIST(	MULTADDS+15, MULTADDS+16, MULTADDS+23, IVADDCNT+12*
IVLIST(""	MULTADDS+8
NSFF	FINISH+9~*, FINISH+12!, FINISH+60!
OI	MULTADDS+5~, MULTADDS+7*, MULTADDS+8, MULTADDS+10, IVADDCNT~, IVADDCNT+6
>> ON	PENDING+12, PENDING+13, PENDING+17, PENDING+18, PENDING+19, FINISH+10, FINISH+29, FINISH+51, ORDCHKA+8, ORDCHKA+9 , OCORD+23
ON55	FINISH+9~, FINISH+10*
>> P	FINISH+23
>> P("DTYP"	GTDATA+2*
>> P("MR"	GTDATA+7*
>> P("OPI"	FINISH+19*
>> P("OT"	PENDING+14, PENDING+20, DISPLAY+2, DISPLAY+3, FINISH+35, FINISH+38
>> P("PON"	PENDING+12*
>> P("RES"	GTDATA+4, FINISH+22, FINISH+26
>> P(11	FINISH+30, FINISH+31
>> P(15	FINISH+23, FINISH+28
>> P(2	GTDATA+3, GTDATA+5*
>> P(23	GTDATA+2
>> P(3	GTDATA+6, FINISH+36
>> P(4	PENDING+14, GTDATA+2, FINISH+23, FINISH+34, FINISH+39*
>> P(5	GTDATA+2
>> P(9	FINISH+23, FINISH+25, FINISH+27*, FINISH+28
>> PSGORD	FINISH+10*
PSGORQF	FINISH+9~!, FINISH+23, FINISH+26*, FINISH+38, FINISH+39, FINISH+51, FINISH+59, ORDCHK+3!, ORDCHKA+3, ORDCHKA+4
>> PSGP	PENDING+12, ORDCHKA+8
PSGRDTX	FINISH+8!
PSGS0XT	FINISH+28~*
>> PSGS0Y	FINISH+30
PSIDX	MULTADDS+5~, MULTADDS+6*, MULTADDS+7, MULTADDS+11, MULTADDS+23
>> PSIVAC	PENDING+12*
PSIVACEP	PENDING+6~, FINISH+56, FINISH+58
>> PSIVAS	ORDCHKA+3*, ORDCHKA+4, ORDCHKA+5, ORDCHKA+9
PSIVCAL	FINISH+6~
PSIVEDIT	FINISH+6~, FINISH+8!, FINISH+42*, FINISH+46
PSIVFN1	PENDING+6~
PSIVNUM	PENDING+16~*
PSIVOCON	FINISH+9~, FINISH+10*
PSIVOI	PENDING+6~
>> PSIVOK	FINISH+43*
PSIVS	FINISH+9~
>> PSIVUP	PENDING+13*, FINISH+19
PSIVX	ORDCHKA+4, ORDCHKA+5, ORDCHKA+9, OCORD+3~, OCORD+21, OCORD+22, OCORD+23, OCORD+25*, OCORD+26
PSIVXD	FINISH+9~
PSJAD	OCORD+3~
PSJAD(	OCORD+8*, OCORD+21, OCORD+23
PSJADTMP	ORDCHKA+11!
PSJADTMP(	ORDCHKA+7, ORDCHKA+10*
PSJCOM	FINISH+6~, FINISH+7*
PSJDFN	OCORD+19~, OCORD+20*, OCORD+22, OCORD+24, OCORD+26, OCORD+27, OCORD+28
PSJDISP	DISPLAY+4!
PSJFNDS	PENDING+6~, PENDING+11, FINISH+58
>> PSJHIS	DISPLAY+5
PSJIVBD	PENDING+7!, FINISH+8!
PSJL	PENDING+15~
PSJLMX	PENDING+6~
>> PSJLYN	PENDING+18, FINISH+10
PSJMAI	PENDING+19*, PENDING+25!, FINISH+10
PSJNSS	FINISH+28~*
PSJOCCHK	PENDING+6~, PENDING+9*
PSJOCFG	EN+2~, EN+3*, EN+4!
PSJOLDNM	FINISH+6~, FINISH+26
PSJOLDNM("NEW_SCHD"	FINISH+27, FINISH+29, FINISH+30, FINISH+32
PSJOLDNM("ORD_SCHD"	FINISH+25*
>> PSJORD	EN+1, EN+5, PENDING+12, PENDING+17, FINISH+7, FINISH+10, FINISH+12
>> PSJPROT	FINISH+12
PSJQUIT	FINISH+41~, MULTADDS+2, MULTADDS+3, MULTADDS+6, MULTADDS+15, MULTADDS+21*
PSJREN	EN+4!, GTDATA+4*
PSJSOL	OCORD+3~
PSJSOL(	OCORD+14*, OCORD+25
PSJSTAR	PENDING+16~, PENDING+21, PENDING+23
TMPDRG	MULTADDS+1~, MULTADDS+3, MULTADDS+4, OCORD+3~, OCORD+4, OCORD+29
TYPE	OCORD+24~, OCORD+27~
U	OCORD+7, OCORD+13, OCORD+23
>> VALMBCK	DISPLAY+5, FINISH+26, FINISH+39, FINISH+41, FINISH+52, FINISH+56
>> VALMBG	FINISH+37, FINISH+59
>> VALMSG	DISPLAY+1*
X	GTDATA+5, GTDATA+6, FINISH+28~, MULTADDS+13~, MULTADDS+17, MULTADDS+18, MULTADDS+19, OCORD+3~, OCORD+6, OCORD+7 , OCORD+12*, OCORD+13
Y	GTDATA+5, GTDATA+6, MULTADDS+13~, MULTADDS+22, MULTADDS+23, OCORD+3~

Customize PDF page

Package: Inpatient Medications

Routine: PSJLIFN

Information

Source Information

Call Graph

Call Graph Total: 23

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: