Routine: PSIVEDT1

Information

PSIVEDT1 ;BIR/MLM - EDIT IV ORDER (CONT) ;Nov 2, 2021@12:47:00

Package	Total	Call Graph
Inpatient Medications	13	$$ENDL^PSGDL $$ENLU^PSGMI ENHLP^PSGOEM $$ODD^PSGS0 (ENSTOP,ENT)^PSIVCAL DEL^PSIVEDRG ENHLP^PSIVORC1 (EN,ENDL,ENI)^PSIVSP $$EDITOPI^PSJBCMA5 ($$SCHREQ,INFCHK)^PSJLIVFD $$COMPLEX^PSJOE $$ENQ^PSJORP2 $$ENBCMA^PSJUTL
VA FileMan	3	^%DT (,C)^%DTC ^DIR
Kernel	1	$$UP^XLFSTR
List Manager	1	(FULL,PAUSE,WAIT)^VALM1
Pharmacy Data Management	1	INDCATN^PSS50P7

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

Caller Graph Total: 11

Package	Total	Caller Graph
Inpatient Medications	11	PSIVCHK PSIVCHK1 PSIVEDRG PSIVEDT PSIVORC1 PSIVORFA PSIVORLB PSIVSP PSIVUTL PSJCLOR4 PSJUTL

Entry Points

Name	Comments	DBIA/ICR reference
10	; Start Date
A10
25	; Stop Date
A25
26	; Schedule
39	; Admin Times
A39
59	; Infusion Rate
NUMLAB(P)	; Prompt for Number of Labels
NUMLAB2	; Loop ;*305 ; Quit if no Infusion Rate
63	; Remarks
64	; Other Print Info
IND	;*399-IND
CIND	;
ORFLDS	; Display OE/RR fields during edit.
TIMES	;At least one admin time, not more than interval allows.
DOSE	;Make certain at least one dose is given.
ONCALL(SCHD)	; Check if a schedule is type On Call (all schedules with a given name must have the same schedule type)
ONETIME(SCHD)	; Check if a schedule is type On Call (all schedules with a given name must have the same schedule type)
CONTIN(SCHD)	; Check if a schedule is type On Call (all schedules with a given name must have the same schedule type)
NLBHLP(OUT)	; Help text for Number of Labels per day
EXPINF(P8,SILENT)	; Expand Infusion Rate

External References

Name	Field # of Occurrence
^%DT	A10+7, A25+5
^%DTC	A25+15
C^%DTC	A10+11, A10+13
^DIR	NUMLAB2+7, 63+1, IND+20, CIND+4
$$ENDL^PSGDL	A25+6
$$ENLU^PSGMI	CIND+13
ENHLP^PSGOEM	A39+10
$$ODD^PSGS0	26+16, A39+5, TIMES+1
ENSTOP^PSIVCAL	25+2, A39+13
ENT^PSIVCAL	10+2, A39+13
DEL^PSIVEDRG	26+6, A39+9, 59+12, NUMLAB2+8, 63+2, IND+23, CIND+6
ENHLP^PSIVORC1	A10+6, A25+4, 26+11, 59+14
EN^PSIVSP	26+13
ENDL^PSIVSP	A25+6
ENI^PSIVSP	59+18
$$EDITOPI^PSJBCMA5	64+2
$$SCHREQ^PSJLIVFD	26+7
INFCHK^PSJLIVFD	EXPINF+3
$$COMPLEX^PSJOE	A10+2, A25, 26+3, A39+2
$$ENQ^PSJORP2	DOSE+5
$$ENBCMA^PSJUTL	64+8, 64+9
INDCATN^PSS50P7	IND+6
FULL^VALM1	ORFLDS+1
PAUSE^VALM1	A10+1, A10+3, A25+1, 26+2, 26+4, 26+19, A39+1, A39+3, 59+4, TIMES+14
WAIT^VALM1	A10+14
$$UP^XLFSTR	EXPINF+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"This is a Renewal Order. Start Date may not be edited at this point." Line Location: A10+1
Function Call: WRITE	Prompt: !!?5,"This is a Complex Order. Start Date may not be edited at this point." Line Location: A10+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: A10+4
Function Call: WRITE	Prompt: $C(7),!!,"Start date of order being renewed is ",Y,".",!,"Start date of renewal order must be AFTER start date of order being renewed.",! Line Location: A10+10
Function Call: WRITE	Prompt: $C(7),!!,"Start date/time may not be entered prior to 7 days from the order's LOGIN DATE.",! Line Location: A10+11
Function Call: WRITE	Prompt: !!,$C(7),"Start date/time should not be entered for more than 7 days after the",!,"order's LOGIN DATE.",! Line Location: A10+14
Function Call: WRITE	Prompt: !!?5,"This is a Complex Order. Stop Date may not be edited at this point." Line Location: A25+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: A25+2
Function Call: WRITE	Prompt: $C(7)," (Required)" Line Location: A25+4
Function Call: WRITE	Prompt: !,"There is no administration time that falls between the Start Date/Time" Line Location: A25+11
Function Call: WRITE	Prompt: !,"and Stop Date/Time.",! Line Location: A25+12
Function Call: WRITE	Prompt: $C(7),!!?13,"* STOP DATE cannot be more than 367 days from START DATE *",! Line Location: A25+16
Function Call: WRITE	Prompt: !!?5,"This is a Renewal Order. Schedule may not be edited at this point." Line Location: 26+2
Function Call: WRITE	Prompt: !!?5,"This is a Complex Order. Schedule may not be edited at this point." Line Location: 26+4
Function Call: READ	Variable: X Timeout: DTIME Line Location: 26+5
Function Call: WRITE	Prompt: $C(7),"??" Line Location: 26+13
Function Call: WRITE	Prompt: !!?5,"This change in schedule also changes the Administration Times and Schedule Type of this order." Line Location: 26+17
Function Call: WRITE	Prompt: !!?5,"This is a Renewal Order. Administration times may not be edited at this point." Line Location: A39+1
Function Call: WRITE	Prompt: !!?5,"This is a Complex Order. Admin Times may not be edited at this point." Line Location: A39+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: A39+6
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: A39+8
Function Call: WRITE	Prompt: !,"This is a 'DAY OF THE WEEK' schedule and MUST have admin times." Condition for execution: (P(15)="D"!(X["@")) Line Location: A39+8
Function Call: WRITE	Prompt: !!?5,"This is a Renewal Order. Infusion Rate may not be edited at this point." Line Location: 59+4
Function Call: READ	Variable: X Timeout: DTIME Line Location: 59+5
Function Call: WRITE	Prompt: $C(7),!!,"An infusion rate must be entered!" Line Location: 59+19
Function Call: WRITE	Prompt: !,"INDICATION:" Line Location: IND+15
Function Call: WRITE	Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED WITHOUT SPACES.",! Line Location: CIND+8
Function Call: WRITE	Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED BETWEEN SPACES.",! Line Location: CIND+10
Function Call: WRITE	Prompt: !!,"Orderable Item: ",$P(P("PD"),U,2),!,"Give: ",$P(P("MR"),U,2)," ",P(9),!! Line Location: ORFLDS+2
Function Call: WRITE	Prompt: !,"This order requires at least one administration time." Line Location: TIMES+2
Function Call: WRITE	Prompt: !," This is a One Time Order - only one administration time is permitted." Line Location: TIMES+4
Function Call: WRITE	Prompt: !,"This order requires one administration time." Line Location: TIMES+9
Function Call: WRITE	Prompt: !,"The number of admin times entered is greater than indicated by the schedule." Line Location: TIMES+10
Function Call: WRITE	Prompt: !,"The number of admin times entered is fewer than indicated by the schedule." Line Location: TIMES+12
Function Call: WRITE	Prompt: !,"Enter the # of labels per day that will be needed." Line Location: NLBHLP+12
Function Call: WRITE	Prompt: !,"Example: 0 = 0 labels per day." Line Location: NLBHLP+13
Function Call: WRITE	Prompt: !," 2 = 2 labels per day." Line Location: NLBHLP+14
Function Call: WRITE	Prompt: !!,"Note: Number of Labels per day is required for continuous IV orders" Line Location: NLBHLP+15
Function Call: WRITE	Prompt: !," with free text Infusion Rate. Number of labels per day is not" Line Location: NLBHLP+16
Function Call: WRITE	Prompt: !," permitted for Intermittent (IVPB) type orders; for Intermittent" Line Location: NLBHLP+17
Function Call: WRITE	Prompt: !," orders, the schedule and administration time(s) will be used to" Line Location: NLBHLP+18
Function Call: WRITE	Prompt: !," determine the number of labels needed." Line Location: NLBHLP+19
Function Call: WRITE	Prompt: " Now expanding text" Line Location: EXPINF+5
Routine Call	DIR Line Location: NUMLAB2+7 63+1 IND+20 CIND+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	A10+4, A10+10, A25+2
^PS(51.1 - [#51.1]	TIMES+6, ONCALL+4, ONCALL+5, ONETIME+4, ONETIME+5, CONTIN+4, CONTIN+5
^PS(53.1 - [#53.1]	A10, 26+1, A39, 59+3
^PS(53.45 - [#53.45]	64+4, 64+5, 64+6
^PS(55 - [#55]	A10+8
^PS(59.5 - [#59.5]	25+2
^TMP($J	IND+5!, IND+7, IND+8, IND+9, IND+10!

Label References

Name	Line Occurrences
$$CONTIN	TIMES+2
$$ONCALL	A39+12, TIMES+2
$$ONETIME	TIMES+4, TIMES+5
10	A10+5, A10+8
25	A25+3
26	26+6, 26+7, 26+9, 26+11, 26+13
59	59+5, 59+7, 59+9, 59+12, 59+13, 59+14, 59+16, 59+18, 59+19
63	63+2
A10	A10+6, A10+7, A10+11
A25	25+1, A25+4, A25+6, A25+10, A25+13, A25+16
A39	A39+8, A39+9, A39+10, A39+11, A39+12, A39+13
CIND	IND+11, IND+22, CIND+1
DOSE	A25+7
EXPINF	59+5, 59+15
IND	IND+23, IND+24, CIND+6, CIND+7
NLBHLP	NUMLAB2+6, NUMLAB2+9
NUMLAB	59+5, 59+20
NUMLAB2	NUMLAB2+8, NUMLAB2+9, NUMLAB2+11, NUMLAB2+14
ORFLDS	A10+5, A25+3, 26+9, A39+11, 59+13
TIMES	A39+12

Naked Globals

Name	Field # of Occurrence
^(0	A10+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	26+6, A39+9, 59+12, NUMLAB2+8, 63+2, IND+23, CIND+6
%DT	A10+7!, A25+5!
CHG	26+12*, 26+14, 26+20!
CHK	IND+1~, IND+2, IND+13, IND+18, IND+22
CNT	IND+1~, IND+2, IND+14
DA	CIND+1~
>> DFN	A10+2, A10+8, A25, 26+3, A39+2, 64+2
DIR	A10+14!, NUMLAB2+5!, 63+1~, IND+1~, CIND+2!, TIMES+13~
DIR("?"	IND+19, NLBHLP+2, NLBHLP+3, NLBHLP+4, NLBHLP+5, NLBHLP+6, NLBHLP+7, NLBHLP+8, NLBHLP+9, NLBHLP+10
DIR("A"	26+18, NUMLAB2+7, IND+16, CIND+4
DIR("B"	NUMLAB2+5, 63+1, IND+18, CIND+3
DIR("L"	IND+14, IND+17
DIR(0	NUMLAB2+7, 63+1, IND+16, CIND+4
DIROUT	IND+1!, IND+21, CIND+2!, CIND+5
DIRUT	IND+1!, CIND+2!
>> DONE	A10+4, A25+2, 26+5, A39+6, 59+5, 63+1, IND+21, CIND+5
>> DRG(	IND+4
>> DRG("AD"	IND+3
DTIME	A10+4, A25+2, 26+5, A39+6, 59+5
DTOUT	63+1, IND+1!, IND+21, CIND+2!, CIND+5
DUOUT	IND+1!, CIND+2!
DUZ	64+5, 64+6
EXPANDED	EXPINF+3~*, EXPINF+4, EXPINF+6, EXPINF+7, EXPINF+8
>> F1	A10+6, A25+4, 26+11, 59+14
>> F2	A10+6, A25+4, 26+11, 59+14
H	TIMES+3~, TIMES+6*
I	IND+1~, IND+4, CIND+1~, CIND+9, TIMES+3~, TIMES+6*, TIMES+7, TIMES+8
IND	CIND+1~, CIND+9, CIND+11, CIND+13
INDI	IND+1~, IND+12*, IND+13, IND+14
INDLST	IND+1~
INFO	DOSE+1~, DOSE+3*, DOSE+5
J	IND+1~, IND+2, IND+4, CIND+1~, CIND+9*, CIND+10, CIND+11
K	IND+1~, IND+4*, IND+6
L	IND+1~, IND+8*, IND+9
M	IND+1~, IND+11
M(	IND+9*, IND+12
MAX	TIMES+3~, TIMES+8*, TIMES+9, TIMES+10, TIMES+11
N	IND+1~, IND+9*
NXT	ONCALL+1~, ONCALL+5, ONETIME+1~, ONETIME+5, CONTIN+1~, CONTIN+5*
O	IND+1~, IND+3*
>> OCCHK	ONCALL+2, ONCALL+3, ONCALL+4, ONCALL+6, ONCALL+7, ONCALL+8, ONCALL+9, ONETIME+2, ONETIME+3, ONETIME+4 , ONETIME+6, ONETIME+7, ONETIME+8, ONETIME+9, CONTIN+2, CONTIN+3, CONTIN+4, CONTIN+6, CONTIN+7, CONTIN+8 , CONTIN+9
>> ON	A10, A10+2, A25, 26+1, 26+3, A39, A39+2, 59+3
OPIMSG	64+1~, 64+2*, 64+7
>> ORIG	39+1*, A39+6
OUT	NLBHLP~, NLBHLP+1
P	26+7, 59+5, 59+20, NUMLAB~
P("APPT"	10+1
P("IND"	IND+13, IND+18, IND+22, IND+23, IND+24, IND+25, CIND+3, CIND+6, CIND+7, CIND+13*
P("IVRM"	10+2, 25+2
P("LOG"	A10+11, A10+13
P("MR"	ORFLDS+2
P("NUMLBL"	NUMLAB2+5, NUMLAB2+8, NUMLAB2+10
P("OLDON"	A10+8
P("OPI"	64+8, 64+9
P("OT"	A10+5, A25+3, 26+9, A39+11, 59+13
P("PD"	ORFLDS+2, DOSE+3
P("REM"	63+1, 63+2, 63+3
P("RES"	A10, A10+8, 26+1, A39, 59+3
P(11	26+15, 26+16, 39+1, A39+5, A39+6, A39+7, A39+9, A39+13, DOSE+3
P(15	26+15*, 26+16, A39+5, A39+6, A39+8, A39+12, TIMES+1, TIMES+2, TIMES+4, TIMES+5
P(2	10+1, 10+2, A10+4, A10+7, A10+15, 25+2, A25+2, A25+15, DOSE+3
P(23	59+7, 59+11, NUMLAB2+3
P(3	25+2, A25+2, A25+5, A25+9, A25+17*, DOSE+3
P(4	59+7, 59+11, NUMLAB2+3
P(5	59+7, 59+11, NUMLAB2+3
P(7	26+7, 26+13
P(8	59+5, 59+12, 59+18, 59+19, NUMLAB2+2, NUMLAB2+4, NUMLAB2+5, NUMLAB2+8, NUMLAB2+10*, NUMLAB2+11
P(9	A25+6, 26+5, 26+6, 26+12, 26+15, A39+4, A39+8, A39+12, ORFLDS+2, TIMES+2 , TIMES+4, TIMES+5, TIMES+6, DOSE+2, DOSE+3, DOSE+6*
P8	EXPINF~, EXPINF+2, EXPINF+4, EXPINF+6, EXPINF+7
P8BADDEF	59+2~*, 59+5
P8TMP	EXPINF+2~*, EXPINF+3, EXPINF+4
PNINE	DOSE+1~, DOSE+2*, DOSE+6
>> PSGFDX	25+1, A25+17*
PSGOES	26+13!
PSGP	DOSE+4~*, DOSE+5
>> PSGSDX	A10+15*
>> PSGZZND	DOSE+3
>> PSIVAC	A10+5, 25+2, A25+3, 26+9, A39+11, 59+13
PSIVCAL	A39+13!
>> PSIVRENW	A10+1, 26+2, A39+1, 59+4
>> PSIVSITE	25+2*
>> PSJBKDR	A10+3, A25+1, 26+4, A39+3
PSJEXMSG	59+2!, EXPINF+2, EXPINF+5*, EXPINF+8
PSJILBS	NUMLAB+1~, NUMLAB2+5*
PSJOPILN	64+1~, 64+2*, 64+8, 64+9
PSJOPIT	64+1~
PSJOVRMX	64+1~, 64+3, 64+4, 64+5, 64+7
>> PSJREN	10+2
>> PSJSYSP	64+4
PSJTMPTX	64+1~, 64+3, 64+5, 64+6, 64+7*, 64+8, 64+9
SCHARR	ONCALL+1~, ONETIME+1~, CONTIN+1~
SCHARR(	ONCALL+5, ONETIME+5, CONTIN+5*
SCHARR("C"	CONTIN+6, CONTIN+7, CONTIN+8
SCHARR("O"	ONETIME+6, ONETIME+7, ONETIME+8
SCHARR("OC"	ONCALL+6, ONCALL+7, ONCALL+8
SCHD	ONCALL~, ONCALL+3, ONCALL+4, ONCALL+5, ONETIME~, ONETIME+3, ONETIME+4, ONETIME+5, CONTIN~, CONTIN+3 , CONTIN+4, CONTIN+5
SEL	IND+1~, IND+14*, IND+16
SILENT	EXPINF~, EXPINF+5, EXPINF+8
TMPLIN	64+1~, 64+4*, 64+5, 64+6
>> TYP	ONCALL+5, ONETIME+5, CONTIN+5*
U	A10+4, A10+8, A10+10, A25+2, 26+5, A39+6, 59+5, IND+4, ORFLDS+2, DOSE+3
X	A10+4, A10+5, A10+6, A10+7, A10+11, A10+14, A25+2, A25+3, A25+4, A25+5 , A25+6, A25+8, A25+9, A25+10, A25+13, A25+16, 26+5, 26+6, 26+7, 26+9 , 26+11, 26+12, 26+13, 26+15, A39+6, A39+7, A39+8, A39+9, A39+10, A39+11 , A39+12, A39+13!, 59+5, 59+6, 59+7, 59+9, 59+11, 59+12, 59+13, 59+14 , 59+15, 59+16, 59+18, NUMLAB2+4, NUMLAB2+7, NUMLAB2+8, NUMLAB2+9, NUMLAB2+10, NUMLAB2+11, NUMLAB2+13 , NUMLAB2+14, 63+1*, 63+2, 63+3, IND+21, IND+23, IND+24, CIND+2!, CIND+5, CIND+6 , CIND+7, CIND+8, CIND+9, CIND+10!, TIMES+2!, TIMES+4!, TIMES+9!, TIMES+10!, TIMES+11, TIMES+13~
>> X1	A10+11, A10+13, A25+15*
>> X2	A10+11, A10+13, A25+15*
>> XT	26+13, 26+15
Y	A10+4, A10+7, A10+8, A10+10, A10+11, A10+14, A10+15, A25+2, A25+5, A25+8 , A25+13, A25+15, A25+17, 26+15, IND+11, IND+22, IND+25, CIND+1, CIND+2!, CIND+8* , CIND+9*, CIND+12, DOSE+1~
Y(0	IND+25
>> Z	A25+10, DOSE+5*

Customize PDF page

Package: Inpatient Medications

Routine: PSIVEDT1

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: