Routine: PSIVORC2

Package	Total	Call Graph
Inpatient Medications	27	NEWNVAL^PSGAL5 $$FNP^PSGOE1 $$DIFFIND^PSGOE42 ENGNN^PSGOETO (ENSTOP,ENT)^PSIVCAL EDIT^PSIVEDT CPINDLOG^PSIVINDL ENLBL^PSIVOPT DC^PSIVORA (53,CKFLDS,COMPLTE)^PSIVORC1 EN^PSIVORE GSTRING^PSIVORE1 (DEL55,GTPD)^PSIVORE2 (NATURE,ORPARM,RUPDATE)^PSIVOREN (GT531,GTDRG,PUT531,UPD100)^PSIVORFA SETNEW^PSIVORFB GTFLDS^PSIVORFE ^PSIVORV2 ($$GETOPI,FILEOPI,MVOPI,MVOPIAL)^PSJBCMA5 (IV,VFYIV)^PSJCOMV EN1^PSJHL2 CIMOI^PSJIMO1 VF1^PSJLIACT MULTADDS^PSJLIFN ($$COMPARE,TMPDRG1)^PSJMISC SETOC^PSJNEWOC $$ENPC^PSJUTL
VA FileMan	3	^%DT NOW^%DTC (FIND,LIST)^DIC
List Manager	1	EN^VALM
Order Entry Results Reporting	1	EN1^ORCFLAG
Pharmacy Data Management	1	$$LS^PSSLOCK

Package

Total

Call Graph

NEWNVAL^PSGAL5  $$FNP^PSGOE1  $$DIFFIND^PSGOE42  ENGNN^PSGOETO  (ENSTOP,ENT)^PSIVCAL  EDIT^PSIVEDT  CPINDLOG^PSIVINDL  ENLBL^PSIVOPT
DC^PSIVORA  (53,CKFLDS,COMPLTE)^PSIVORC1  EN^PSIVORE  GSTRING^PSIVORE1  (DEL55,GTPD)^PSIVORE2  (NATURE,ORPARM,RUPDATE)^PSIVOREN  (GT531,GTDRG,PUT531,UPD100)^PSIVORFA  SETNEW^PSIVORFB
GTFLDS^PSIVORFE  ^PSIVORV2  ($$GETOPI,FILEOPI,MVOPI,MVOPIAL)^PSJBCMA5  (IV,VFYIV)^PSJCOMV  EN1^PSJHL2  CIMOI^PSJIMO1  VF1^PSJLIACT  MULTADDS^PSJLIFN
($$COMPARE,TMPDRG1)^PSJMISC  SETOC^PSJNEWOC  $$ENPC^PSJUTL

VA FileMan

^%DT NOW^%DTC (FIND,LIST)^DIC

List Manager

EN^VALM

Order Entry Results Reporting

EN1^ORCFLAG

Pharmacy Data Management

$$LS^PSSLOCK

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	10	PSIVOPT PSIVORC PSIVORC1 PSIVORE PSJHLV PSJLIACT PSJLIFN PSJLIFNI PSJOE PSJOEA

Package

Total

Caller Graph

Inpatient Medications

PSIVOPT PSIVORC PSIVORC1 PSIVORE PSJHLV PSJLIACT PSJLIFN PSJLIFNI
PSJOE PSJOEA

Entry Points

Name	Comments	DBIA/ICR reference
EDCHK	;Update or create new order in 55.
ACTIVE	;
CKORD	;Check if new order is to be created.
CKPC	;
OLDORD	; Update old order, update order links.
NEWORD	; Create new order, update order links.
GTIVDRG	; Try to find an IV drug from the Orderable Item. ; If there is only 1 match to OI then stuff in DRG otherwise prompt user to select which ; ad/sol matched to OI
EDIT	; Edit incomplete order
FINISH	; Ask only for missing data in incomplete IV order.
NONVF()	; Updated 53.1 status to non-verified after finish.
NWNONVF	;Create non-verified due to edit
VF	; Display Verify screen
RESET	;Reset PSIVOI("DILIST") for additives with quick codes

Name	Field # of Occurrence
^%DT	FINISH+4, FINISH+5
NOW^%DTC	GTIVDRG+4
FIND^DIC	GTIVDRG+6
LIST^DIC	GTIVDRG+9
EN1^ORCFLAG	VF+10
NEWNVAL^PSGAL5	NONVF+14, NONVF+15, NONVF+16, NONVF+19, NONVF+20, NWNONVF+9, NWNONVF+11
$$FNP^PSGOE1	VF+9
$$DIFFIND^PSGOE42	NONVF+5
ENGNN^PSGOETO	NWNONVF+1
ENSTOP^PSIVCAL	FINISH+5
ENT^PSIVCAL	FINISH+4
EDIT^PSIVEDT	FINISH+13
CPINDLOG^PSIVINDL	ACTIVE+11
ENLBL^PSIVOPT	ACTIVE+15
DC^PSIVORA	NEWORD+2, NWNONVF+3
53^PSIVORC1	EDIT+4, FINISH+3
CKFLDS^PSIVORC1	FINISH+13
COMPLTE^PSIVORC1	FINISH+13
EN^PSIVORE	ACTIVE+12
GSTRING^PSIVORE1	EDIT+5
DEL55^PSIVORE2	NONVF+21
GTPD^PSIVORE2	NONVF+8, NWNONVF+7
NATURE^PSIVOREN	EDCHK+2
ORPARM^PSIVOREN	EDCHK+1
RUPDATE^PSIVOREN	ACTIVE+8
GT531^PSIVORFA	VF+3
GTDRG^PSIVORFA	FINISH+1
PUT531^PSIVORFA	OLDORD+6, NONVF+13, NWNONVF+8
UPD100^PSIVORFA	OLDORD+6
SETNEW^PSIVORFB	ACTIVE+9
GTFLDS^PSIVORFE	EDIT+5
^PSIVORV2	EDIT+4
$$GETOPI^PSJBCMA5	ACTIVE+5, ACTIVE+6, ACTIVE+7
FILEOPI^PSJBCMA5	ACTIVE+5, ACTIVE+6, ACTIVE+7, NWNONVF+2
MVOPI^PSJBCMA5	ACTIVE+11
MVOPIAL^PSJBCMA5	ACTIVE+11
IV^PSJCOMV	EDCHK+4
VFYIV^PSJCOMV	ACTIVE+2
EN1^PSJHL2	ACTIVE+16, NEWORD+4, NWNONVF+12
CIMOI^PSJIMO1	ACTIVE+13
VF1^PSJLIACT	ACTIVE+14
MULTADDS^PSJLIFN	FINISH+10
$$COMPARE^PSJMISC	CKORD+11
TMPDRG1^PSJMISC	CKORD+10
SETOC^PSJNEWOC	VF+17
$$ENPC^PSJUTL	FINISH+2
$$LS^PSSLOCK	NWNONVF+14
EN^VALM	EDIT+7, VF+14

Name

Field # of Occurrence

^%DT

FINISH+4, FINISH+5

GTIVDRG+4

GTIVDRG+6

GTIVDRG+9

VF+10

NONVF+14, NONVF+15, NONVF+16, NONVF+19, NONVF+20, NWNONVF+9, NWNONVF+11

VF+9

NONVF+5

NWNONVF+1

FINISH+5

FINISH+4

FINISH+13

ACTIVE+11

ACTIVE+15

NEWORD+2, NWNONVF+3

EDIT+4, FINISH+3

FINISH+13

FINISH+13

ACTIVE+12

EDIT+5

NONVF+21

NONVF+8, NWNONVF+7

EDCHK+2

EDCHK+1

ACTIVE+8

VF+3

FINISH+1

OLDORD+6, NONVF+13, NWNONVF+8

OLDORD+6

ACTIVE+9

EDIT+5

EDIT+4

ACTIVE+5, ACTIVE+6, ACTIVE+7

FILEOPI^PSJBCMA5

ACTIVE+5, ACTIVE+6, ACTIVE+7, NWNONVF+2

ACTIVE+11

ACTIVE+11

EDCHK+4

ACTIVE+2

ACTIVE+16, NEWORD+4, NWNONVF+12

ACTIVE+13

ACTIVE+14

FINISH+10

CKORD+11

CKORD+10

VF+17

FINISH+2

NWNONVF+14

EDIT+7, VF+14

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Either the Inpatient Medications or the IV Medications package is not on, please check the Order Parameters file" Line Location: EDCHK+1
Function Call: WRITE	Prompt: $C(7),"Order unchanged" Line Location: EDCHK+2
Function Call: WRITE	Prompt: !,"...transcribing this non-verified order...." Line Location: NONVF+11
Routine Call	DIC Line Location: GTIVDRG+6
Routine Call	DIC Line Location: GTIVDRG+9
Routine Call	VALM Line Location: EDIT+7 VF+14

FileNo	Call Tags
52.61	LIST^DIC

FileNo

Call Tags

52.61

LIST^DIC

Name	Line Occurrences (* Changed, ! Killed)
^PS(	GTIVDRG+15
^PS(51.2 - [#51.2]	FINISH+6
^PS(53.1 - [#53.1]	ACTIVE+3, ACTIVE+17, CKORD+2, CKORD+3, CKORD+7, CKPC+8, OLDORD+2, OLDORD+5, OLDORD+6, NEWORD+2 , NEWORD+3, NONVF+10, NONVF+12, NONVF+18, NWNONVF+3, NWNONVF+5, NWNONVF+10
^PS(53.45 - [#53.45]	ACTIVE+8, NWNONVF+2
^PS(55 - [#55]	ACTIVE+16, ACTIVE+17, OLDORD+2, OLDORD+3, OLDORD+4, NEWORD+3
^SC - [#44]	NONVF+19
^TMP("PSODAOC"	NONVF+2, NWNONVF+13

Name

Line Occurrences (* Changed, ! Killed)

^PS(

GTIVDRG+15

^PS(51.2 - [#51.2]

FINISH+6

^PS(53.1 - [#53.1]

ACTIVE+3, ACTIVE+17, CKORD+2, CKORD+3, CKORD+7, CKPC+8, OLDORD+2, OLDORD+5, OLDORD+6*, NEWORD+2*
, NEWORD+3, NONVF+10, NONVF+12*, NONVF+18, NWNONVF+3*, NWNONVF+5*, NWNONVF+10*

^PS(53.45 - [#53.45]

ACTIVE+8, NWNONVF+2

^PS(55 - [#55]

ACTIVE+16, ACTIVE+17, OLDORD+2*, OLDORD+3, OLDORD+4, NEWORD+3*

^SC - [#44]

NONVF+19

^TMP("PSODAOC"

NONVF+2*, NWNONVF+13*

Name	Line Occurrences
$$NONVF	EDCHK+5
@(	ACTIVE+9
CKORD	EDCHK+1
GTIVDRG	EDIT+3, FINISH+2
NWNONVF	NONVF+6
RESET	GTIVDRG+12
VF	NONVF+22, NWNONVF+15

Name

Line Occurrences

$$NONVF

EDCHK+5

ACTIVE+9

EDCHK+1

EDIT+3, FINISH+2

NONVF+6

GTIVDRG+12

NONVF+22, NWNONVF+15

Name	Field # of Occurrence
^(0	OLDORD+4, OLDORD+5
^(2	OLDORD+2, OLDORD+3, NEWORD+3*

Name

Field # of Occurrence

^(0

OLDORD+4*, OLDORD+5*

^(2

OLDORD+2*, OLDORD+3*, NEWORD+3*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GTIVDRG+4
%DT	FINISH+4!, FINISH+5!
CNT	RESET+1~, RESET+2, RESET+4*, RESET+6
DA	NWNONVF+1!
>> DFN	ACTIVE+5, ACTIVE+6, ACTIVE+7, ACTIVE+8, ACTIVE+11, ACTIVE+13, ACTIVE+15, ACTIVE+16, ACTIVE+17, CKORD+10 , OLDORD+2, OLDORD+3, OLDORD+4, NEWORD+3, NEWORD+4, NONVF+5, NWNONVF+2, NWNONVF+12, VF+3
>> DNE	CKPC+6, CKPC+7, CKPC+8, CKPC+9, CKPC+10, GTIVDRG+15, FINISH+2*
>> DONE	EDIT+6
>> DRG	CKORD+11, CKPC+9, GTIVDRG+14, GTIVDRG+15
>> DRG(	CKPC+6, CKPC+7, CKPC+9, GTIVDRG+15*
>> DRG("AD"	EDIT+3, FINISH+2
>> DRG("SOL"	EDIT+3, FINISH+2
>> DRGI	CKPC+7, CKPC+9
>> DRGT	CKPC+6, CKPC+7, CKPC+8, CKPC+9, GTIVDRG+7, GTIVDRG+15
DUZ	ACTIVE+15, VF+6
>> EDIT	FINISH+13
FIL	CKPC+6, GTIVDRG+3~, GTIVDRG+6, GTIVDRG+7, GTIVDRG+15
INDCHNG	NONVF+5~*, NONVF+14, NWNONVF+9
LYN	RESET+8!
LYN(	RESET+2, RESET+4, RESET+7
ND	CKORD+2~, CKORD+4, CKORD+5, CKORD+6, CKORD+8~, CKPC+7~, CKPC+8, CKPC+9, CKPC+10!, GTIVDRG+3~ , GTIVDRG+15
ND("CNT"	CKPC+8*, CKPC+10
ND("PD"	CKORD+2*, CKORD+4
ND(0	CKORD+2*, CKORD+4, CKORD+5
NWCLN	NONVF+9~, NONVF+18*, NONVF+19, NONVF+20
>> OD	ACTIVE+12*
OLCLN	NONVF+9~, NONVF+10*, NONVF+19, NONVF+20
>> ON	ACTIVE+3, ACTIVE+8, ACTIVE+9, ACTIVE+12, CKORD+2, CKORD+3, CKORD+7, CKORD+10, CKPC+8, OLDORD+2 , OLDORD+6, NEWORD+2, NEWORD+3, NONVF+2, NONVF+10, NONVF+12, NONVF+15, NONVF+16, NONVF+18, NONVF+19 , NONVF+20, NONVF+21, NWNONVF+3, NWNONVF+4, NWNONVF+9, NWNONVF+10, NWNONVF+11, NWNONVF+12, NWNONVF+13, NWNONVF+14 , VF+1, VF+3, VF+4, VF+9, VF+17
ON1	CKPC+7~, CKPC+8*
>> ON55	ACTIVE+6, ACTIVE+9, ACTIVE+11, ACTIVE+12, ACTIVE+13, ACTIVE+15, ACTIVE+16, ACTIVE+17, OLDORD+2, OLDORD+3 , OLDORD+4, OLDORD+5, OLDORD+6, NEWORD+3, NEWORD+4, VF+4
>> ORSTS	ACTIVE+9*
>> P("21FLG"	EDCHK+3*
>> P("CLRK"	CKORD+5, VF+6
>> P("DO"	NWNONVF+7*
>> P("DTYP"	CKORD+7, CKORD+11, FINISH+3*
>> P("IND"	NONVF+5
>> P("MR"	CKORD+6, FINISH+6*
>> P("NAT"	EDCHK+2, NEWORD+2, NWNONVF+3
>> P("NEWON"	ACTIVE+4, ACTIVE+5, ACTIVE+7, ACTIVE+9, ACTIVE+12, NEWORD+2, NEWORD+3, NWNONVF+1, NWNONVF+2, NWNONVF+3 , NWNONVF+4, NWNONVF+5
>> P("OLDON"	ACTIVE+4, OLDORD+2, OLDORD+3, OLDORD+4, OLDORD+5, NWNONVF+4, NWNONVF+5, NWNONVF+10, VF+6
>> P("OPI"	FINISH+2*
>> P("OT"	CKORD+4, CKORD+6, CKPC+3, EDIT+3, FINISH+2, VF+11, VF+12
>> P("PD"	CKORD+6, GTIVDRG+6
>> P("PON"	ACTIVE+6
>> P("PRNTON"	ACTIVE+1
>> P("REN"	NONVF+7, NWNONVF+1
>> P("RES"	ACTIVE+3, ACTIVE+4, ACTIVE+9, OLDORD+1, OLDORD+2, OLDORD+3, OLDORD+4, OLDORD+5, NEWORD+1, NWNONVF+6
>> P(17	ACTIVE+9, NONVF+7, NWNONVF+1*, VF+6
>> P(2	ACTIVE+8, ACTIVE+12, FINISH+4*
>> P(23	FINISH+3
>> P(3	FINISH+5*
>> P(4	EDIT+4, FINISH+3
>> P(5	FINISH+3
>> P(6	ACTIVE+9, CKORD+5, CKORD+6
>> P(8	CKORD+3, CKORD+4, CKORD+6
>> P(9	CKORD+7
>> PSGACT	VF+5, VF+6, VF+8, VF+9, VF+10*
PSGOEAV	NONVF+1~*, NONVF+3, NONVF+4
>> PSGP	NWNONVF+14
>> PSIVAC	NEWORD+2, EDIT+2, NWNONVF+3*
>> PSIVCHG	EDCHK+2, EDCHK+3, ACTIVE+9, CKORD+1, CKORD+2, CKORD+6, CKORD+7, CKORD+9, CKORD+11, CKORD+13 , CKPC+3, CKPC+9, CKPC+10*, NONVF+6
>> PSIVCOPY	CKORD+1
>> PSIVDSFG	CKORD+7*
PSIVENO	EDIT+1!, EDIT+7*, VF+17
PSIVOI	GTIVDRG+3!, GTIVDRG+7*, GTIVDRG+8, GTIVDRG+16!
PSIVOI("DILIST"	GTIVDRG+6, GTIVDRG+9, GTIVDRG+10, GTIVDRG+13, GTIVDRG+14, GTIVDRG+16, RESET+2, RESET+3, RESET+4, RESET+5! , RESET+6, RESET+7*
>> PSIVOK	FINISH+12*
PSIVORFA	NONVF+21~*
>> PSIVQC("DILIST"	GTIVDRG+10, GTIVDRG+11!
>> PSIVUP	FINISH+2
PSJCHG	CKORD+2~
>> PSJCOM	EDCHK+4, ACTIVE+1*, ACTIVE+2
PSJEDFLG	VF+13, VF+15!
>> PSJINFIN	NONVF+16
>> PSJIOPIV	ACTIVE+11
PSJIVBD	VF+2!
>> PSJIVORF	EDCHK+1, EDCHK+2, NEWORD+4
>> PSJNOL	NWNONVF+14*
PSJNOW	GTIVDRG+3~, GTIVDRG+4*
PSJNVO	ACTIVE+5~, ACTIVE+6
>> PSJOCFG	VF+17
>> PSJORD	ACTIVE+9, ACTIVE+11, ACTIVE+13, ACTIVE+17, NEWORD+3, NONVF+5, NONVF+14, NWNONVF+3, NWNONVF+9, VF+4*
>> PSJORNAT	NEWORD+2, NWNONVF+3
>> PSJORNP	ACTIVE+9*
>> PSJOSTOP	ACTIVE+4*
PSJQUIT	FINISH+10~*
>> PSJSTAR	VF+11, VF+12
>> PSJSYSP	ACTIVE+8, NWNONVF+2
>> PSJSYSP0	NONVF+1
>> PSJSYSU	NONVF+3, NONVF+4, NONVF+15, NWNONVF+11, VF+8, VF+9, VF+10
PSJTROPI	ACTIVE+5~, ACTIVE+6, ACTIVE+7*
QC	GTIVDRG+9~, GTIVDRG+10*
SCR	GTIVDRG+3~
SCR("S"	GTIVDRG+5*, GTIVDRG+6
TDRG	CKORD+8~, CKPC+7~, CKPC+10!
TDRG(	CKPC+7*, CKPC+9
TDRG("CNT"	CKPC+7*, CKPC+10
TMPDRG	CKORD+8~, CKORD+10, CKORD+11, CKORD+12!
U	ACTIVE+3, CKORD+2, CKORD+3, CKORD+4, CKORD+5, CKORD+6, CKORD+7, CKPC+7, CKPC+9, OLDORD+2 , OLDORD+3, OLDORD+4, OLDORD+5, OLDORD+6, NEWORD+2, NEWORD+3, GTIVDRG+15, NONVF+1, NONVF+12, NONVF+14 , NWNONVF+3, NWNONVF+9, NWNONVF+10
>> VALMBCK	EDIT+7, FINISH+10
X	CKORD+3~, CKORD+4, FINISH+4, FINISH+5*
XX	GTIVDRG+9~, GTIVDRG+10, RESET+1~, RESET+2, RESET+3, RESET+4, RESET+7*
XXX	GTIVDRG+9~, RESET+1~, RESET+3, RESET+4
>> Y	FINISH+4, FINISH+5

Name	Field # of Occurrence
$T(EN1^ORCFLAG	VF+10

Name

Field # of Occurrence

$T(EN1^ORCFLAG

VF+10

Customize PDF page

Package: Inpatient Medications

Routine: PSIVORC2

Information

Source Information

Call Graph

Call Graph Total: 33

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items