Routine: PSIVEDT

Package	Total	Call Graph
Inpatient Medications	11	$$ACTPRO^PSGOE1 (50,51)^PSGOE82 ENSTOP^PSIVCAL (DRG,SAVEDRG)^PSIVEDRG (10,25,26,39,59,63,64,IND,ORFLDS)^PSIVEDT1 (OC,SETDD)^PSIVOC ENHLP^PSIVORC1 CMPLX^PSJCOM1 $$COMPARE^PSJMISC GMRAOC^PSJOC $$COMPLEX^PSJOE
VA FileMan	4	^DIC (,CHK)^DIE $$GET1^DIQ ^DIR
Pharmacy Data Management	2	START1^PSSJORDF $$OIDEA^PSSOPKI
Kernel	1	$$SDEA^XUSER
List Manager	1	(FULL,PAUSE)^VALM1

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

Entry Points

Name	Comments	DBIA/ICR reference
EDIT	;
1	; Provider.
N1	;
3	; Med Route.
CNT	;
10	; Start Date.
25	; Stop Date.
26	; Schedule
39	; Admin Times.
57	; Additive.
58	; Solution.
DKILL	; Kill for drug edit.
59	; Infusion Rate.
62	; IV Room.
63	; Remarks.
64	; Other Print Info.
66	; Provider's comments.
101	; Orderable Item.
109	; Dosage Ordered.
113	; Clinic appointment. ;*p319
126	; Clinic date. ;*p319
132	;*399-IND
FF	; up-arrow to another field.
NEWDRG	; Ask if adding a new drug.
MRSL	;check for OI med route short list;*366
CKMRSL	;;check for med route short list leading letters ;*366
MROL	;
IVDEA(DRG,PROVIEN,P)	; Check that provider PROVIEN is authorized to prescribe CS schedules in DRG("AD") and DRG("SOL")

External References

Name	Field # of Occurrence
^DIC	N1+15, CNT+1, 101+6, FF+1, MRSL+2, CKMRSL+1
^DIE	66+1
CHK^DIE	109+3
$$GET1^DIQ	IVDEA+17, IVDEA+27
^DIR	62+2, NEWDRG+1
$$ACTPRO^PSGOE1	N1+8
50^PSGOE82	113+1
51^PSGOE82	126+1
ENSTOP^PSIVCAL	57+12, 58+15
DRG^PSIVEDRG	57+7, 58+4
SAVEDRG^PSIVEDRG	EDIT+3, EDIT+14
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
IND^PSIVEDT1	132+1
ORFLDS^PSIVEDT1	N1+13, 3+20, 109+2
OC^PSIVOC	EDIT+11, 57+13, 58+15
SETDD^PSIVOC	58+11
ENHLP^PSIVORC1	N1+16, CNT+2
CMPLX^PSJCOM1	EDIT+7
$$COMPARE^PSJMISC	57+11, 58+7, 58+8
GMRAOC^PSJOC	58+12
$$COMPLEX^PSJOE	EDIT+4, N1+5, 3+3, 57+3, 101+3
START1^PSSJORDF	MROL+5
$$OIDEA^PSSOPKI	IVDEA+18, IVDEA+28
FULL^VALM1	EDIT+7
PAUSE^VALM1	N1+4, N1+6, N1+11, 3+2, 3+4, 57+2, 57+4, 58+3, 101+2, 101+4
$$SDEA^XUSER	IVDEA+18, IVDEA+28

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+7
Function Call: WRITE	Prompt: !!?5,"This is Renewal order. Provider may not be edited at this point." Line Location: N1+4
Function Call: WRITE	Prompt: !!?5,"This is a Complex Order. Provider may not be edited at this point." Line Location: N1+6
Function Call: WRITE	Prompt: !,"PROVIDER: "_$S($P(P(6),U,2)]"":$P(P(6),U,2)_"//",1:"") Line Location: N1+9
Function Call: WRITE	Prompt: $C(7),!!?5,"INVALID PROVIDER." Line Location: N1+11
Function Call: WRITE	Prompt: $C(7),!!,"A Provider must be entered.",!! Line Location: N1+16
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	Variable: X Timeout: DTIME Line Location: 3+18
Function Call: WRITE	Prompt: $C(7),!!,"A Med Route must be entered." Line Location: CNT+2
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+3
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	Variable: X Timeout: DTIME Line Location: 101+5
Function Call: WRITE	Prompt: $C(7),!!,"Orderable Item is required!",!! Line Location: 101+7
Function Call: READ	Variable: X Timeout: DTIME 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: !,?10,I_" "_$P(^TMP(MRTFN,$J,I,0),U)_" "_$P(^TMP(MRTFN,$J,I,0),U,3) Line Location: MRSL+1
Function Call: WRITE	Prompt: !,"Provider not authorized to prescribe medications in Federal Schedule "_PSDEA_".",!,"Please contact the provider.",! Line Location: IVDEA+20
Function Call: WRITE	Prompt: $C(7),!!,"Provider must have a valid DEA# or VA# to write prescriptions for this drug.",! Line Location: IVDEA+21
Function Call: WRITE	Prompt: !,"Provider not authorized to prescribe medications in Federal Schedule "_PSDEA_".",!,"Please contact the provider.",! Line Location: IVDEA+30
Function Call: WRITE	Prompt: $C(7),!!,"Provider must have a valid DEA# or VA# to write prescriptions for this drug.",! Line Location: IVDEA+31
Routine Call	DIC Line Location: N1+15 CNT+1 101+6 FF+1 MRSL+2 CKMRSL+1
Routine Call	DIE Line Location: 66+1
Routine Call	DIE Line Location: 109+3
Routine Call	DIR Line Location: 62+2 NEWDRG+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(50.7 - [#50.7]	Classic Fileman Calls
^PS(52.6 - [#52.6]	GET1^DIQ
^PS(52.7 - [#52.7]	GET1^DIQ
^PS(53.1 - [#53.1]	CHK^DIE
^PS(53.45 - [#53.45]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.7 - [#50.7]	3+11
^PS(51.2 - [#51.2]	3+11
^PS(52.7 - [#52.7]	NEWDRG+2
^PS(53.1 - [#53.1]	N1+3, 3+1, 57+1, 58+2, 101+1
^PS(55 - [#55]	EDIT+5
^TMP(	3+16!, 3+22!, MRSL+1, MROL+8, MROL+12

Label References

Name	Line Occurrences
$$IVDEA	N1+10, N1+15
101	101+7
109	109+2, 109+3
3	3+20, 3+21, CNT+2
@(	EDIT+9
CKMRSL	3+22
CNT	3+21
DKILL	57+7, 57+14, 58+17
FF	EDIT+9
MROL	3+17
MRSL	3+21
N1	N1+10, N1+13, N1+15, N1+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AD	3+8~, 3+9*
>> ADCNT	IVDEA+14*, IVDEA+16
BKP6	1+1~*, N1+11
CT	MROL+1~, MROL+2, MROL+3, MROL+4, MROL+11, MROL+12
DA	66+1~*
>> DFN	EDIT+4, N1+5, 3+3, 57+3, 101+3
DIC	N1+15!, CNT+1!, 101+6~!, FF+1~!, MRSL+2~, CKMRSL+1~
DIC("A"	MRSL+2*
DIC("B"	101+6*
DIC("S"	N1+15, CNT+1, 101+6, FF+1
DIC("T"	CKMRSL+1*
DIC(0	N1+15, CNT+1, 101+6, FF+1, MRSL+2, CKMRSL+1
DIE	66+1~*
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+8, EDIT+9, N1+10, 3+18, 101+5, 109+1*
DR	66+1~*
DRG	EDIT+3, EDIT+14, N1+10, N1+15, 57+11, 58+7, 58+8, NEWDRG+2*, IVDEA~, IVDEA+10
DRG(	NEWDRG+2*
DRG("AD"	3+9, MROL+2, IVDEA+14, IVDEA+16
DRG("SOL"	3+10, MROL+3, IVDEA+24, IVDEA+26
DRGI	DKILL+1!, NEWDRG+2*
DRGN	DKILL+1!
DRGT	57+7, 58+4, DKILL+1!, NEWDRG+1, NEWDRG+2
DRGTN	57+7, 58+4, DKILL+1!
DTIME	N1+9, 3+18, 101+5, 109+1
>> DTOUT	NEWDRG+1
>> DUOUT	NEWDRG+1
EDIT	EDIT+9, EDIT+12!, 57+13, 58+15
>> F1	N1+16, CNT+2
>> F2	N1+16, CNT+2
FIL	57+7, 58+4, DKILL+1!
I	MRSL+1~, MROL+1~, MROL+2, MROL+3, MROL+9, MROL+10, MROL+11*, MROL+12
MRTFN	3+16~*, 3+22!, MRSL+1, MROL+8, MROL+12
OI	3+8~, 3+9, 3+10, 3+11, MROL+1~, MROL+2, MROL+3*
OI(	3+9, 3+10, 3+11
OIZ	3+16~, 3+21, 3+22!, MROL+5, MROL+6, MROL+7, MROL+8
OIZ(	MROL+2, MROL+3, MROL+9, MROL+10
OIZ("A"	MROL+6
OIZ(0	MROL+4*
>> ON	N1+3, N1+5, 3+1, 3+3, 57+1, 57+3, 58+2, 101+1, 101+3
>> OREND	EDIT+9*
P	N1+10, N1+15, IVDEA~
P("DO"	109+1, 109+4*
P("IVRM"	62+1, 62+2*
P("MR"	3+7, 3+14, 3+18, CNT+1
P("OT"	N1+13, 3+20
P("PD"	101+5, 101+6*
P("RES"	N1+3, 3+1, 57+1, 58+2, 101+1
P(6	1+1, N1+8, N1+9, N1+10, N1+11, N1+15, IVDEA+19, IVDEA+29*
P2ND	EDIT+5~*, EDIT+6
PARENT	EDIT+5~, EDIT+6*, EDIT+7
PDEA	IVDEA+18, IVDEA+19, IVDEA+20, IVDEA+26~, IVDEA+28, IVDEA+29, IVDEA+30
PROVIEN	IVDEA~, IVDEA+9, IVDEA+18, IVDEA+19, IVDEA+28, IVDEA+29
PSADCNT	N1+1~
PSADIEN	IVDEA+16~, IVDEA+17, IVDEA+26~, IVDEA+27
PSADOI	IVDEA+16~, IVDEA+17, IVDEA+18, IVDEA+26~, IVDEA+27, IVDEA+28
>> PSDEA	IVDEA+18, IVDEA+20, IVDEA+28, IVDEA+30
>> PSDEAFLG	IVDEA+8, IVDEA+19, IVDEA+29*, IVDEA+32
PSGDI	EDIT+12!
>> PSGORQF	EDIT+10, EDIT+11, EDIT+14, 58+12, 58+14
>> PSGP	EDIT+5, EDIT+7
>> PSGSI	66+1*
PSIALLFL	EDIT+2~, 58+12*
>> PSIVAC	EDIT+9, N1+13, 3+20, 57+5
>> PSIVDEA	IVDEA+18, IVDEA+28
PSIVE	EDIT+2~, EDIT+9*
PSIVEDIT	EDIT+10!
PSIVENO	EDIT+10*, EDIT+11!
PSIVOK	EDIT+9*, EDIT+12!
PSIVSTR	DKILL+1!
>> PSIVUP	66+1
PSJALLGY	58+9~, 58+10!, 58+13!
>> PSJBKDR	N1+6, 3+4, 57+4, 101+4
PSJCMPFG	58+1~, 58+7*, 58+8, 58+15, 58+16!
>> PSJENHOC	57+13, 58+15
PSJFLG57	EDIT+2~, 57+13!, FF+2*
>> PSJFNDS	CNT+1, 10+2, 25+2*
PSJOCCHK	EDIT+10*, EDIT+11!, 57+13!, 58+15!
>> PSJOCFG	CNT+1, 10+2, 25+2
>> PSJORD	EDIT+4, EDIT+5, EDIT+7, N1+3, 3+1, 57+1, 58+2, 101+1
PSPROV	N1+1~, N1+10*
RT	3+8~, 3+11, 3+12, 3+14*
RT(	3+11*, 3+12, 3+14
RT(""	3+14
RTCNT	3+8~, 3+12*, 3+13
SCHDCHK	IVDEA+13~*
SOL	3+8~, 3+10*
>> SOLCNT	IVDEA+24*, IVDEA+26
>> TDRG	NEWDRG+1, NEWDRG+2
TMPDRG	EDIT+2~, EDIT+3, EDIT+14, 57+11, 58+7, 58+8
U	EDIT+9, N1+9, N1+10, N1+11, N1+15, 3+18, 3+21, CNT+1, 62+1, 62+2 , 101+5, 101+6, 109+1, FF+1, NEWDRG+1, NEWDRG+2, MRSL+1, MROL+8, MROL+10
X	EDIT+5~, EDIT+9, N1+9, N1+10, N1+11, N1+12, N1+13, N1+15, 3+18, 3+20 , 3+21, CNT+1, 57+14, 58+9~, 58+17, 62+2, 66+1, 101+5, 101+6, 109+1* , 109+2, 109+3, 109+4, FF+1, NEWDRG+2, MRSL+4, MRSL+5, CKMRSL+3*
Y	EDIT+5~, EDIT+9, N1+15, CNT+1, 62+2, 66+1, 101+6, FF+1, FF+2, NEWDRG+2 , MRSL+3, MRSL+5, CKMRSL+2, CKMRSL+3
Y(0	N1+15, CNT+1
ZZ	MROL+9~
ZZ(	MROL+10*, MROL+11, MROL+12

Customize PDF page

Package: Inpatient Medications

Routine: PSIVEDT

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: