Routine: PSIVORC2

Information

PSIVORC2 ;BIR/MLM-PROCESS INCOMPLETE IV ORDER - CONT ;22 OCT 97 / 3:16 PM

Call Graph

Call Graph Total: 25

Package	Total	Call Graph
Inpatient Medications	19	NEWNVAL^PSGAL5 ENGNN^PSGOETO (ENSTOP,ENT)^PSIVCAL EDIT^PSIVEDT ENLBL^PSIVOPT DC^PSIVORA (53,CKFLDS,COMPLTE)^PSIVORC1 EN^PSIVORE GSTRING^PSIVORE1 (DEL55,GTPD)^PSIVORE2 (NATURE,ORPARM,RUPDATE)^PSIVOREN (GT531,PUT531,UPD100)^PSIVORFA SETNEW^PSIVORFB GTFLDS^PSIVORFE ^PSIVORV2 (IV,VFYIV)^PSJCOMV EN1^PSJHL2 VF1^PSJLIACT $$ENPC^PSJUTL
VA Fileman	3	^%DT NOW^%DTC (FIND,LIST)^DIC
Order Entry Results Reporting	1	EN1^ORCFLAG
Pharmacy Data Management	1	$$LS^PSSLOCK
Registration	1	EN^VALM

Package	Total	Caller Graph
Inpatient Medications	10	PSIVOPT PSIVORC PSIVORC1 PSIVORE PSJHLV PSJLIACT PSJLIFN PSJLIFNI PSJOE PSJOEA

Entry Points

Name	Comments	DBIA/ICR reference
RESET	;Reset PSIVOI("DILIST") for additives with quick codes
FINISH	; Ask only for missing data in incomplete IV order.
EDCHK	;Update or create new order in 55.
CKPC	;
VF	; Display Verify screen
NONVF()	; Updated 53.1 status to non-verified after finish.
EDIT	; Edit incomplete order
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
OLDORD	; Update old order, update order links.
ACTIVE	;
CKORD	;Check if new order is to be created.
NWNONVF	;Create non-verified due to edit

External References

Name	Field # of Occurrence
^%DT	FINISH+3, FINISH+4
NOW^%DTC	GTIVDRG+4
FIND^DIC	GTIVDRG+6
LIST^DIC	GTIVDRG+9
EN1^ORCFLAG	VF+7
NEWNVAL^PSGAL5	NONVF+10, NWNONVF+10
ENGNN^PSGOETO	NWNONVF+2
ENSTOP^PSIVCAL	FINISH+4
ENT^PSIVCAL	FINISH+3
EDIT^PSIVEDT	FINISH+6
ENLBL^PSIVOPT	ACTIVE+8
DC^PSIVORA	NEWORD+2, NWNONVF+3
53^PSIVORC1	EDIT+3, FINISH+2
CKFLDS^PSIVORC1	FINISH+6
COMPLTE^PSIVORC1	FINISH+6
EN^PSIVORE	ACTIVE+6
GSTRING^PSIVORE1	EDIT+4
DEL55^PSIVORE2	NONVF+11
GTPD^PSIVORE2	NONVF+6, NWNONVF+7
NATURE^PSIVOREN	EDCHK+2
ORPARM^PSIVOREN	EDCHK+1
RUPDATE^PSIVOREN	ACTIVE+4
GT531^PSIVORFA	VF+3
PUT531^PSIVORFA	OLDORD+7, NONVF+9, NWNONVF+8
UPD100^PSIVORFA	OLDORD+7
SETNEW^PSIVORFB	ACTIVE+5
GTFLDS^PSIVORFE	EDIT+4
^PSIVORV2	EDIT+3
IV^PSJCOMV	EDCHK+5
VFYIV^PSJCOMV	ACTIVE+2
EN1^PSJHL2	ACTIVE+9, NEWORD+5, NONVF+12, NWNONVF+11
VF1^PSJLIACT	ACTIVE+7
$$ENPC^PSJUTL	FINISH+1
$$LS^PSSLOCK	NWNONVF+12
EN^VALM	EDIT+7, VF+10

Interaction Calls

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+7
Routine Call	VALM Line Location: EDIT+7 VF+10
Routine Call	DIC Line Location: GTIVDRG+9
Routine Call	DIC Line Location: GTIVDRG+6

FileNo	Call Tags
52.61	LIST^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	EDIT+6
^PS(	GTIVDRG+15
^PS(51.2 - [#51.2]	FINISH+5
^PS(53.1 - [#53.1]	ACTIVE+3, ACTIVE+10, CKORD+2, CKORD+3, CKORD+4, CKORD+10, CKORD+11, CKPC+6, OLDORD+2, OLDORD+6 , OLDORD+7, NEWORD+2, NEWORD+3, NONVF+8, NWNONVF+3, NWNONVF+9*
^PS(55 - [#55]	ACTIVE+9, ACTIVE+10, OLDORD+2, OLDORD+3, OLDORD+4, NEWORD+3

Label References

Name	Line Occurrences
$$NONVF	EDCHK+6
@(	ACTIVE+5
CKORD	EDCHK+1
GTIVDRG	EDIT+2, FINISH+1
NWNONVF	NONVF+4
RESET	GTIVDRG+12
VF	NONVF+13, NWNONVF+13

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GTIVDRG+4
%DT	FINISH+3!, FINISH+4!
CNT	RESET+1~, RESET+2, RESET+3*, RESET+5
DA	NWNONVF+2!
>> DFN	ACTIVE+4, ACTIVE+8, ACTIVE+9, ACTIVE+10, OLDORD+2, OLDORD+3, OLDORD+4, NEWORD+3, NEWORD+5, NONVF+12 , NWNONVF+11, VF+3
DNE	CKORD+8~, CKORD+10, CKORD+13, CKPC+4, CKPC+5, CKPC+6, CKPC+7, CKPC+8, GTIVDRG+15, FINISH+1*
>> DONE	EDIT+5
>> DRG	CKPC+7, GTIVDRG+14, GTIVDRG+15
>> DRG(	CKORD+9, CKPC+4, CKPC+5, CKPC+7, GTIVDRG+15*
>> DRG("AD"	CKORD+15, EDIT+2, FINISH+1
>> DRG("DRGC"	CKORD+8, CKORD+11, CKORD+15
>> DRG("SOL"	CKORD+15, EDIT+2, FINISH+1
>> DRGI	CKORD+9, CKORD+10, CKORD+11, CKORD+12, CKPC+5, CKPC+7
>> DRGT	CKORD+9, CKORD+10, CKORD+11, CKORD+12, CKPC+4, CKPC+5, CKPC+6, CKPC+7, GTIVDRG+7, GTIVDRG+15
DUZ	ACTIVE+8, VF+5
>> EDIT	FINISH+6
FIL	CKPC+4, GTIVDRG+3~, GTIVDRG+6, GTIVDRG+7, GTIVDRG+15
LYN	RESET+7!
LYN(	RESET+2, RESET+3, RESET+6
ND	CKORD+2~, CKORD+4, CKORD+5, CKORD+6, CKORD+8~, CKPC+5~, CKPC+6, CKPC+7, CKPC+8!, GTIVDRG+3~ , GTIVDRG+15
ND("CNT"	CKPC+6*, CKPC+8
ND("PD"	CKORD+2*, CKORD+4
ND(0	CKORD+2*, CKORD+4, CKORD+5
>> OD	ACTIVE+6*
>> ON	ACTIVE+3, ACTIVE+4, ACTIVE+5, ACTIVE+6, CKORD+2, CKORD+3, CKORD+4, CKORD+10, CKORD+11, CKPC+6 , OLDORD+2, OLDORD+7, NEWORD+2, NEWORD+3, NONVF+8, NONVF+10, NONVF+11, NONVF+12, NWNONVF+3, NWNONVF+4 , NWNONVF+9, NWNONVF+10, NWNONVF+11, NWNONVF+12, VF+1, VF+3
>> ON1	CKPC+6*
>> ON55	ACTIVE+5, ACTIVE+6*, ACTIVE+8, ACTIVE+9, ACTIVE+10, OLDORD+2, OLDORD+3, OLDORD+4, OLDORD+6, OLDORD+7 , NEWORD+3, NEWORD+5
>> ORSTS	ACTIVE+5*
>> P("21FLG"	EDCHK+4*
>> P("CLRK"	CKORD+5, VF+5
>> P("DO"	NWNONVF+7*
>> P("DTYP"	CKORD+10, CKORD+15, FINISH+2*
>> P("MR"	CKORD+4, CKORD+6, FINISH+5*
>> P("NAT"	EDCHK+2, NEWORD+2, NWNONVF+3
>> P("NEWON"	ACTIVE+4, ACTIVE+5, ACTIVE+6, NEWORD+2, NEWORD+3, NWNONVF+2, NWNONVF+3, NWNONVF+4
>> P("OLDON"	ACTIVE+4, OLDORD+2, OLDORD+3, OLDORD+4, OLDORD+6, NWNONVF+4, NWNONVF+9, VF+5
>> P("OPI"	FINISH+1*
>> P("OT"	CKORD+4, CKORD+6, CKORD+9*, CKPC+1, EDIT+2, FINISH+1, VF+8, VF+9
>> P("PD"	CKORD+4, CKORD+6, GTIVDRG+6
>> P("PRNTON"	ACTIVE+1
>> P("REN"	NONVF+5, NWNONVF+2
>> P("RES"	ACTIVE+3, ACTIVE+4, ACTIVE+5, OLDORD+1, OLDORD+2, OLDORD+3, OLDORD+4, OLDORD+6, NEWORD+1, NWNONVF+5
>> P(17	ACTIVE+5, CKORD+7, NONVF+5, NWNONVF+2*, VF+5
>> P(2	ACTIVE+4, ACTIVE+6, FINISH+3*
>> P(23	FINISH+2
>> P(3	FINISH+4*
>> P(4	EDIT+3, FINISH+2
>> P(5	FINISH+2
>> P(6	ACTIVE+5, CKORD+5, CKORD+6
>> P(8	CKORD+3, CKORD+4, CKORD+6
>> P(9	CKORD+6
>> PSGACT	VF+4, VF+5, VF+6, VF+7
PSGOEAV	NONVF+1~*, NONVF+2, NONVF+3
>> PSGP	NWNONVF+12
>> PSIVAC	NEWORD+2, EDIT+1, NWNONVF+3*
>> PSIVCHG	EDCHK+2, EDCHK+4, ACTIVE+5, CKORD+1, CKORD+2, CKORD+6, CKORD+9, CKORD+13, CKORD+14, CKORD+15* , CKPC+1, CKPC+7, CKPC+8, NONVF+4
>> PSIVCOPY	CKORD+1
>> PSIVENO	EDIT+6, EDIT+7
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*
>> PSIVOK	FINISH+6*
PSIVORFA	NONVF+11~*
>> PSIVQC("DILIST"	GTIVDRG+10, GTIVDRG+11!
>> PSIVUP	FINISH+1
>> PSJCOM	EDCHK+5, ACTIVE+1*, ACTIVE+2
PSJIVBD	VF+2!
>> PSJIVORF	EDCHK+1, EDCHK+2, NEWORD+5
>> PSJNOL	NWNONVF+12*
PSJNOW	GTIVDRG+3~, GTIVDRG+4*
>> PSJORD	ACTIVE+5, ACTIVE+10, NEWORD+3, NWNONVF+3
>> PSJORNAT	NEWORD+2, NWNONVF+3
>> PSJORNP	ACTIVE+5*
>> PSJOSTOP	ACTIVE+4*
>> PSJSTAR	VF+8, VF+9
>> PSJSYSP0	NONVF+1
>> PSJSYSU	NONVF+2, NONVF+3, NONVF+10, NWNONVF+10, VF+6, VF+7
QC	GTIVDRG+9~, GTIVDRG+10*
SCR	GTIVDRG+3~
SCR("S"	GTIVDRG+5*, GTIVDRG+6
TDRG	CKORD+8~, CKPC+5~, CKPC+8!
TDRG(	CKORD+9, CKORD+12, CKPC+5, CKPC+7
TDRG("CNT"	CKPC+5*, CKPC+8
U	ACTIVE+3, CKORD+2, CKORD+3, CKORD+4, CKORD+5, CKORD+6, CKORD+9, CKORD+12, CKPC+5, CKPC+7 , OLDORD+2, OLDORD+3, OLDORD+4, OLDORD+6, OLDORD+7, NEWORD+2, NEWORD+3, GTIVDRG+15, NONVF+1, NONVF+8 , NWNONVF+3, NWNONVF+9
>> VALM("PROTOCOL"	EDIT+6
>> VALMBCK	EDIT+7*
X	CKORD+3~, CKORD+4, CKORD+11, CKORD+12, FINISH+3, FINISH+4
XX	GTIVDRG+9~, GTIVDRG+10, RESET+1~, RESET+2, RESET+3, RESET+6*
XXX	GTIVDRG+9~, RESET+1~, RESET+3
>> Y	FINISH+3, FINISH+4

Marked Items

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

Customize PDF page

Package: Inpatient Medications

Routine: PSIVORC2

Information

Source Information

Call Graph

Call Graph Total: 25

Caller Graph

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