Routine: PSIVEDT

Information

PSIVEDT ;BIR/MLM-EDIT IV ORDER ;02-Apr-2013 19:38;PLS

Source Information

Source file <PSIVEDT.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Inpatient Medications	5	DRG^PSIVEDRG (10,25,26,39,59,63,64,ORFLDS)^PSIVEDT1 ENHLP^PSIVORC1 CMPLX^PSJCOM1 $$COMPLEX^PSJOE
VA Fileman	3	^DIC (,CHK)^DIE ^DIR
Registration	1	(FULL,PAUSE)^VALM1

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
Inpatient Medications	8	PSIVOPT2 PSIVORA1 PSIVORC2 PSIVORE2 PSIVORFE PSJCOMR PSJLIFN PSJLIFNI

Entry Points

Name	Comments	DBIA/ICR reference
25	; Stop Date.
26	; Schedule
59	; Infusion Rate.
58	; Solution.
109	; Dosage Ordered.
10	; Start Date.
EDIT	;
57	; Additive.
DKILL	; Kill for drug edit.
39	; Admin Times.
62	; IV Room.
1	; Provider.
FF	; up-arrow to another field.
3	; Med Route.
63	; Remarks.
64	; Other Print Info.
66	; Provider's comments.
101	; Orderable Item.
9999999	;IHS/MSC/PB - 4/25/12 added to allow edits of the stability offset value - 4/20/12 PB
NEWDRG	; Ask if adding a new drug.

External References

Name	Field # of Occurrence
^DIC	1+8, 3+16, 101+6, FF+1
^DIE	66+1, 9999999+20
CHK^DIE	109+3
^DIR	62+2, NEWDRG+1
DRG^PSIVEDRG	57+6, 58+3
10^PSIVEDT1	10+1
25^PSIVEDT1	25+1
26^PSIVEDT1	26+1
39^PSIVEDT1	39+1
59^PSIVEDT1	59+1
63^PSIVEDT1	63+1
64^PSIVEDT1	64+1
ORFLDS^PSIVEDT1	1+7, 3+15, 109+2
ENHLP^PSIVORC1	1+9, 3+17
CMPLX^PSJCOM1	EDIT+10
$$COMPLEX^PSJOE	EDIT+7, 1+3, 3+3, 57+3, 101+3
FULL^VALM1	EDIT+10
PAUSE^VALM1	1+2, 1+4, 3+2, 3+4, 57+2, 57+4, 58+2, 101+2, 101+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"This order is part of a complex order. Please review the following ",!?5,"associated orders before changing this order." Line Location: EDIT+10
Function Call: WRITE	Prompt: !!?5,"This is Renewal order. Provider may not be edited at this point." Line Location: 1+2
Function Call: WRITE	Prompt: !!?5,"This is a Complex Order. Provider may not be edited at this point." Line Location: 1+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: 1+6
Function Call: WRITE	Prompt: $C(7),!!,"A Provider must be entered.",!! Line Location: 1+9
Function Call: WRITE	Prompt: !!?5,"Med Route may not be edited at this point." Line Location: 3+2
Function Call: WRITE	Prompt: !!?5,"This is a Complex Order. Med Route may not be edited at this point." Line Location: 3+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: 3+14
Function Call: WRITE	Prompt: $C(7),!!,"A Med Route must be entered." Line Location: 3+17
Function Call: WRITE	Prompt: !!?5,"Additive may not be edited at this point." Line Location: 57+2
Function Call: WRITE	Prompt: !!?5,"This is a Complex Order. Provider may not be edited at this point." Line Location: 57+4
Function Call: WRITE	Prompt: !!,"Only additives marked for use in IV Fluid Order Entry may be selected." Line Location: 57+5
Function Call: WRITE	Prompt: !!?5,"Solution may not be edited at this point." Line Location: 58+2
Function Call: WRITE	Prompt: $P($P(Y,U,2),X,2) Line Location: 62+2
Function Call: WRITE	Prompt: !!?5,"This is Renewal order. Orderable Item may not be edited at this point." Line Location: 101+2
Function Call: WRITE	Prompt: !!?5,"This is a Complex Order. Orderable Item may not be edited at this point." Line Location: 101+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: 101+5
Function Call: WRITE	Prompt: $C(7),!!,"Orderable Item is required!",!! Line Location: 101+7
Function Call: READ	Timeout: DTIME Variable: X Line Location: 109+1
Function Call: WRITE	Prompt: $C(7),!!,"Enter the dosage in which the Orderable Item entered should be dispensed.",! Line Location: 109+3
Function Call: WRITE	Prompt: "Answer must be 1-20 characters in length." Line Location: 109+3
Function Call: WRITE	Prompt: !,"Beyond Use Days: "_OFFSET_"//" Line Location: 9999999+12
Function Call: WRITE	Prompt: !,"Max value is 30..." Line Location: 9999999+14
Function Call: WRITE	Prompt: !,"Minimum value is 0 (zero)..." Line Location: 9999999+15
Function Call: WRITE	Prompt: !,"Number of days into the future from IV Label print where the IV will expire." Line Location: 9999999+16
Routine Call	DIE Line Location: 66+1 9999999+20
Routine Call	DIE Line Location: 109+3
Routine Call	DIC Line Location: 1+8 3+16 101+6 FF+1
Routine Call	DIR Line Location: 62+2 NEWDRG+1

FileNo	Call Tags
^PS(50.7 - [#50.7]	Classic Fileman Calls
^PS(53.1 - [#53.1]	Classic Fileman Calls, CHK^DIE
^PS(53.45 - [#53.45]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.7 - [#50.7]	3+10
^PS(51.2 - [#51.2]	3+10
^PS(52.7 - [#52.7]	NEWDRG+2
^PS(53.1 - [#53.1]	1+1, 3+1, 57+1, 58+1, 101+1, 9999999+6
^PS(55 - [#55]	EDIT+8
^PS(59.5 - [#59.5]	EDIT+6
^VA(200 - [#200]	1+5, 3+5

Name	Line Occurrences
1	1+7, 1+9
101	101+7
109	109+2, 109+3
3	3+15, 3+17
9999999	9999999+14, 9999999+15, 9999999+16
@(	EDIT+12
DKILL	57+6
FF	EDIT+12

Name	Field # of Occurrence
^("PS"	1+5, 3+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AD	3+7~, 3+8*
>> APSPON	EDIT+6*, 9999999+18
DA	66+1~, 9999999+20!
>> DFN	EDIT+7, 1+3, 3+3, 57+3, 101+3
DIC	1+8!, 3+16!, 101+6~!, FF+1~!
DIC("B"	101+6*
DIC("S"	1+8, 3+16, 101+6, FF+1
DIC(0	1+8, 3+16, 101+6, FF+1
DIE	66+1~, 9999999+20!
DIR	62+1~, 66+1~, NEWDRG+1!
DIR("??"	62+1*
DIR("A"	62+1, NEWDRG+1
DIR("B"	62+1, NEWDRG+1
DIR(0	62+1, NEWDRG+1
>> DIRUT	62+2
>> DONE	EDIT+11, EDIT+12, 1+6, 3+14, 101+5, 109+1*
DR	66+1, 9999999+20!
>> DRG	NEWDRG+2*
>> DRG(	NEWDRG+2*, 9999999+1, 9999999+2, 9999999+3
>> DRG("AD"	3+8
>> DRG("SOL"	3+9
DRGI	DKILL+1!, NEWDRG+2*
DRGN	DKILL+1!
DRGT	57+6, 58+3, DKILL+1!, NEWDRG+1, NEWDRG+2
DRGTN	57+6, 58+3, DKILL+1!
DT	1+5, 3+5
DTIME	1+6, 3+14, 101+5, 109+1, 9999999+12
>> DTOUT	NEWDRG+1
>> DUOUT	NEWDRG+1
EDIT	EDIT+6*, EDIT+12, EDIT+13!
>> F1	1+9, 3+17
>> F2	1+9, 3+17
FIL	57+6, 58+3, DKILL+1!
>> II	9999999+1*, 9999999+2, 9999999+3
>> JJ	9999999+1*, 9999999+2, 9999999+3
>> OFFSET	9999999+1, 9999999+3, 9999999+4, 9999999+6, 9999999+11, 9999999+12, 9999999+13, 9999999+17*, 9999999+18, 9999999+20
OI	3+7~, 3+8, 3+9, 3+10*
OI(	3+8, 3+9, 3+10
>> ON	EDIT+6, 1+1, 1+3, 3+1, 3+3, 57+1, 57+3, 58+1, 101+1, 101+3 , 9999999+6, 9999999+18*, 9999999+20
>> OREND	EDIT+12*
>> P("DO"	109+1, 109+4*
>> P("IVRM"	EDIT+6, 62+1, 62+2*
>> P("MR"	3+6, 3+13, 3+14, 3+16
>> P("OFFSET"	9999999+11, 9999999+18*
>> P("OT"	1+7, 3+15
>> P("PD"	101+5, 101+6*
>> P("RES"	1+1, 3+1, 57+1, 58+1, 101+1
>> P(6	1+5, 1+6, 1+8, 3+5*
P2ND	EDIT+8~*, EDIT+9
PARENT	EDIT+8~, EDIT+9*, EDIT+10
PSGDIV	EDIT+13!
>> PSGP	EDIT+8, EDIT+10
>> PSGSI	66+1*
>> PSIVAC	EDIT+12, 1+7, 3+15, 57+5
>> PSIVE	EDIT+12*
PSIVOK	EDIT+12*, EDIT+13!
PSIVSTR	DKILL+1!
>> PSIVUP	66+1
>> PSJBKDR	1+4, 3+4, 57+4, 101+4
>> PSJORD	EDIT+7, EDIT+8, EDIT+10, 1+1, 3+1, 57+1, 58+1, 101+1
RT	3+7~, 3+10, 3+11, 3+13*
RT(	3+10*, 3+11, 3+13
RT(""	3+13
RTCNT	3+7~, 3+11*, 3+12
SOL	3+7~, 3+9*
>> TDRG	NEWDRG+1, NEWDRG+2
U	EDIT+6, EDIT+12, 1+5, 1+6, 1+8, 3+5, 3+14, 3+16, 62+1, 62+2 , 101+5, 101+6, 109+1, FF+1, NEWDRG+1, NEWDRG+2
X	EDIT+8~, EDIT+12, 1+6, 1+7, 1+8, 3+14, 3+15, 3+16, 62+2, 66+1 , 101+5, 101+6, 109+1, 109+2, 109+3, 109+4, FF+1, NEWDRG+2, 9999999+12*, 9999999+13 , 9999999+14, 9999999+15, 9999999+16, 9999999+17
Y	EDIT+8~, EDIT+12, 1+8, 3+16, 62+2, 66+1, 101+6, FF+1, NEWDRG+2
Y(0	1+8, 3+16

Customize PDF page

Package: Inpatient Medications

Routine: PSIVEDT

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: