Routine: PSIVORC1

Package	Total	Call Graph
Inpatient Medications	7	ENIVKV^PSGSETU (ENSTOP,ENT)^PSIVCAL ^PSIVCHK (CKORD,EDCHK)^PSIVORC2 ^PSIVORLB GTOT^PSIVUTL EFDIV^PSJUTL
VA Fileman	5	^%DT NOW^%DTC FIND^DIC FIELD^DID ^DIR
Registration	1	EN^VALM

Package	Total	Caller Graph
Inpatient Medications	12	PSIVEDRG PSIVEDT PSIVEDT1 PSIVORC PSIVORC2 PSIVORE2 PSIVUTL PSIVUTL1 PSJDDUT3 PSJLIACT PSJLIFN PSJLIFNI

Entry Points

Name	Comments	DBIA/ICR reference
EDIT1	;
OTYP	; Get order type, display type.
55	; Syringe Size
56	; Intermittent Syringe
C	; Edit Chemo order
53	; IV Type
ENHLP	; order entry fields' help
EDIT	;
S	; Edit Syringe order
DIRQ	; Set DIR("?") for IV Type prompt.
CKFLDS	; Find required fields missing data.
SC	;
DONE	; Kill variables and exit
COMPLTE	;

External References

Name	Field # of Occurrence
^%DT	53+17
NOW^%DTC	COMPLTE+4
FIND^DIC	53+2
FIELD^DID	ENHLP+3, ENHLP+6, ENHLP+9
^DIR	53+12, 53+16, C+1, 56+1, 55+1, EDIT+1, EDIT+7
ENIVKV^PSGSETU	DONE+3
ENSTOP^PSIVCAL	53+17
ENT^PSIVCAL	53+17
^PSIVCHK	COMPLTE+1
CKORD^PSIVORC2	COMPLTE+4
EDCHK^PSIVORC2	EDIT1+5
^PSIVORLB	COMPLTE+5
GTOT^PSIVUTL	COMPLTE+1
EFDIV^PSJUTL	EDIT+3
EN^VALM	EDIT1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"PLEASE NOTE: This order's admin times (",PSGAT,")" Line Location: 53+9
Function Call: WRITE	Prompt: ! Line Location: 53+12
Function Call: WRITE	Prompt: !?5 Line Location: ENHLP+4
Function Call: WRITE	Prompt: !?5 Condition for execution: $L(F3)+$X>78 Line Location: ENHLP+4
Function Call: WRITE	Prompt: F3_" " Line Location: ENHLP+4
Function Call: WRITE	Prompt: !?2,PSJD("DESCRIPTION",F) Line Location: ENHLP+10
Function Call: WRITE	Prompt: !,"CHOOSE FROM:",!?8,0,?16,"NO",!?8,1,?16,"YES" Line Location: SC+1
Function Call: WRITE	Prompt: $C(7),!,"Order Unchanged.",! Line Location: COMPLTE+1
Function Call: WRITE	Prompt: ! Line Location: COMPLTE+5
Function Call: WRITE	Prompt: !,"Start date: " Line Location: COMPLTE+6
Function Call: WRITE	Prompt: $P(Y,"@")," ",$P(Y,"@",2),?30," Stop date: " Line Location: COMPLTE+6
Function Call: WRITE	Prompt: $P(Y,"@")," ",$P(Y,"@",2),?30," Stop date: " Line Location: COMPLTE+6
Function Call: WRITE	Prompt: !,"Please re-edit this order" Line Location: EDIT+1
Function Call: WRITE	Prompt: Condition for execution: 'Y $C(7),"order unchanged." Q:'Y Line Location: EDIT+1
Function Call: WRITE	Prompt: $C(7),"Order unchanged." Line Location: EDIT+7
Routine Call	VALM Line Location: EDIT1+4
Routine Call	DIC Line Location: 53+2
Routine Call	DIR Line Location: 53+12 53+16 C+1 56+1 55+1 EDIT+1 EDIT+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(51.1 - [#51.1]	FIND^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	ENHLP+6
^DD("DD"	COMPLTE+6
^PS(51.1 - [#51.1]	53+3, 53+4, 53+6
^PS(53.1 - [#53.1]	53+14
^TMP("PSIV"	DONE+3!
^TMP("PSJI"	EDIT1+3
^VA(200 - [#200]	COMPLTE+4

Label References

Name	Line Occurrences
53	53+16
@(	53+16
DIRQ	53+16, C+1
EDIT1	COMPLTE+2, COMPLTE+3, EDIT+1
S	C+1
SC	ENHLP+10

Naked Globals

Name	Field # of Occurrence
^(0	53+6
^(12	ENHLP+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	COMPLTE+4
%DT	53+17!*
ACTION	DONE+1!
AD	DONE+1!
DA	55+1~
DFN	DONE+1!
DIR	53+12!, 53+13~, C+1~, 56+1~, 55+1~, EDIT+1!, EDIT+5!, EDIT+7!
DIR("?"	DIRQ+1, DIRQ+2, EDIT+5, EDIT+6
DIR("??"	56+1, DIRQ+1, EDIT+6*
DIR("A"	53+12, 53+13, C+1, 56+1, DIRQ+1, EDIT+5*
DIR("B"	53+15, EDIT+5
DIR(0	53+12, 53+13, C+1, 56+1, 55+1, DIRQ+2, EDIT+1, EDIT+5*
DIRUT	56+1, EDIT+7!
DNE	CKFLDS+4, CKFLDS+5, DONE+1!
DONE	53+13, 53+16, C+1, 55+1, DONE+1!
DONE1	DONE+1!
DRG	DONE+1!
DRG(	CKFLDS+3, CKFLDS+4, CKFLDS+5
DRGI	DONE+1!
DRGN	DONE+1!
DRGT	DONE+1!
DRGTMP	CKFLDS+1~
DRGTN	DONE+1!
>> DTOUT	53+16, C+1, 55+1
>> DUOUT	55+1, COMPLTE+1
DUZ	COMPLTE+4
EDIT	CKFLDS+2, CKFLDS+3, CKFLDS+5, CKFLDS+6, CKFLDS+7, CKFLDS+8, DONE+1!
ERR	DONE+1!, COMPLTE+3, EDIT+1, EDIT+5
>> F	ENHLP+4, ENHLP+10
>> F0	ENHLP+4*
F1	DONE+1!, ENHLP+3, ENHLP+6, ENHLP+9
F2	DONE+1!, ENHLP+3, ENHLP+6, ENHLP+9, SC+1
>> F3	ENHLP+4*
FIL	CKFLDS+1~, DONE+1!
HDT	DONE+1!
IVCAT	53+8, 53+14~*, 53+15
IVTYPTMP	53+14~*, 53+15
J	DONE+1!
LN	DONE+1!
LN2	DONE+1!
LYN	53+2~
LYN("DILIST"	53+3, 53+5!, 53+6, 53+7
ND	DONE+1!, EDIT+10!
ND4	EDIT+10!
ND6	EDIT+10!
NDP2	EDIT+10!
ON	DONE+1!
ON1	DONE+1!
ON55	DONE+1!
ORIFN	DONE+1!
P	DONE+1!
P(	CKFLDS+6
P("CLRK"	COMPLTE+4*
P("DTYP"	OTYP+1*, CKFLDS+7
P("INS"	COMPLTE+4*
P("LOG"	COMPLTE+4*
P("MR"	CKFLDS+6
P("OT"	OTYP+1*
P("RES"	53+14
P("SYRS"	55+2*
P(11	CKFLDS+7
P(2	53+17*, COMPLTE+5
P(23	53+14, OTYP+1, C+1*
P(3	53+17*, COMPLTE+6
P(4	53+16*, OTYP+1, COMPLTE+1
P(5	53+14, OTYP+1, 56+1*
P(9	53+1, 53+2, 53+11, 53+14, CKFLDS+7
P16	DONE+1!, COMPLTE+1*
PC	DONE+1!
PDM	DONE+1!
PG	DONE+1!
PN	DONE+1!
PNME	DONE+1!
PNOW	DONE+1!
PSG0XT	EDIT+19!
PSGAT	53+1, 53+8, 53+9, EDIT+11!
PSGCANFL	EDIT+11!
PSGDI	EDIT+11!
PSGDO	EDIT+11!
PSGDRGN	EDIT+18!
PSGDT	EDIT+11!
PSGEA	EDIT+13!
PSGEB	EDIT+11!
PSGEBN	EDIT+11!
PSGEFN	EDIT+11!
PSGFD	EDIT+11!
PSGFDN	EDIT+11!
PSGHSM	EDIT+12!
PSGLI	EDIT+12!
PSGLIN	EDIT+12!
PSGLMT	DONE+1!, EDIT+12!
PSGMR	EDIT+12!
PSGMRN	EDIT+12!
PSGNEDFD	EDIT+12!
PSGNEF	EDIT+12!
PSGNEFD	EDIT+12!
PSGNESD	EDIT+13!
>> PSGNSTAT	53+9*
PSGOAT	EDIT+13!
PSGODDD	DONE+1!
PSGODO	EDIT+13!
PSGODT	EDIT+13!
PSGOEAV	EDIT+13!
PSGOEEF	EDIT+13!
PSGOEEG	EDIT+14!
PSGOEEWF	EDIT+14!
PSGOEF	EDIT+14!
PSGOENG	EDIT+14!
PSGOES	EDIT+14!
PSGOFD	EDIT+14!
PSGOFDN	EDIT+14!
PSGOHSM	EDIT+14!
PSGOINST	EDIT+15!
PSGOMR	EDIT+15!
PSGOMRN	EDIT+15!
PSGONC	EDIT+15!
PSGOPD	EDIT+16!
PSGOPR	EDIT+16!
PSGOPRN	EDIT+16!
>> PSGORD	53+1, 53+14
PSGOSD	EDIT+16!
PSGOSDN	EDIT+16!
PSGOSI	EDIT+16!
PSGOSM	EDIT+16!
PSGOST	EDIT+17!
PSGOSTN	EDIT+17!
PSGPD	EDIT+18!
PSGPDN	EDIT+18!
PSGPDRG	EDIT+18!
PSGPFLG	EDIT+18!
PSGPI	EDIT+18!
PSGPR	EDIT+18!
PSGPRIO	EDIT+18!
PSGPRN	EDIT+18!
PSGPTMP	EDIT+19!
PSGRRF	EDIT+19!
>> PSGS0XT	53+3*
PSGS0Y	53+2~, 53+4, 53+6, 53+7, 53+8, 53+10, EDIT+19!
PSGSCH	EDIT+19!
PSGSD	EDIT+19!
PSGSDN	EDIT+19!
PSGSI	EDIT+19!
PSGSM	EDIT+19!
PSGSS	DONE+2!
PSGSSH	DONE+2!
PSGST	53+3*, EDIT+20!
PSGSTAT	EDIT+20!
PSGSTN	EDIT+20!
PSIV	DONE+2!
PSIVAC	53+17, OTYP+1, DONE+2!
>> PSIVACEP	EDIT1+6*
PSIVASX	CKFLDS+1~, CKFLDS+2*, CKFLDS+3, CKFLDS+4, CKFLDS+5
PSIVASY	CKFLDS+1~, CKFLDS+4*, CKFLDS+5
PSIVAT	DONE+2!
PSIVCHG	COMPLTE+4, EDIT+4, EDIT1+5*!
>> PSIVCT	COMPLTE+1*
PSIVCV	DONE+2!
PSIVE	DONE+2!
PSIVEXAM	COMPLTE+1*, COMPLTE+5!
>> PSIVFN1	COMPLTE+2, EDIT1+4*
PSIVHD	DONE+2!
PSIVLN	DONE+2!
>> PSIVNOL	COMPLTE+1*
PSIVOK	DONE+2!
PSIVOLD	DONE+2!
PSIVORUT	DONE+2!
PSIVREA	DONE+2!
PSIVSC1	DONE+2!
PSIVSTR	DONE+2!
PSIVSTRT	DONE+2!
PSIVTYPE	DONE+2!
PSIVUP	DONE+2!
PSIVX	DONE+2!
PSIVX1	DONE+2!
PSIVY	EDIT1+2~*, EDIT1+4
PSJACNWP	EDIT+20!
PSJACOK	EDIT+20!
PSJCOI	EDIT+20!
PSJD	ENHLP+1~
PSJD("DESCRIPTION"	ENHLP+10
PSJHP	ENHLP+1~
PSJHP("HELP-PROMPT"	ENHLP+4
PSJIVOF	DONE+3!
PSJIVORF	DONE+3!
>> PSJLIFNI	EDIT+9
PSJNKF	DONE+3!
PSJORD	DONE+3!
PSJORF	DONE+3!
PSJORIFN	DONE+3!
PSJORL	DONE+3!
PSJORNP	DONE+3!
PSJORPF	DONE+3!
PSJORSTS	DONE+3!
>> PSJPWD	53+3, 53+4, 53+6
PSJX	ENHLP+1~
PSJX("XECUTAB	LE HELP" , ENHLP+6
PSOPDN	EDIT+16!
RB	DONE+3!
RF	DONE+3!
SOL	DONE+3!
STOP	DONE+3!
TYP	DONE+3!
U	53+3, 53+6, C+1, DIRQ+2, CKFLDS+3, CKFLDS+5, CKFLDS+6, CKFLDS+7, CKFLDS+8, COMPLTE+4
UL80	DONE+3!
>> VALMBCK	EDIT1+6*
>> VALMBG	EDIT1+3*
WD	DONE+3!
WDN	DONE+3!
WG	DONE+3!
X	53+2~, 53+5, 53+16, 53+17, C+1, DIRQ+2, CKFLDS+6, ENHLP+4, ENHLP+10, EDIT1+3~*
XFLG	EDIT1+2~
>> Y	53+16, 53+17, C+1, 56+1, 55+2, DIRQ+2, COMPLTE+3, COMPLTE+5, COMPLTE+6, EDIT+1* , EDIT+9, EDIT1+2
ZZ	53+2~, 53+3, 53+4, 53+5, 53+6, 53+7*
ZZND	53+2~, 53+3, 53+4, EDIT+3
ZZNDW	53+2~, 53+4~*

Customize PDF page

Package: Inpatient Medications

Routine: PSIVORC1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: