Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSIVEDT1

Package: Inpatient Medications

Routine: PSIVEDT1


Information

PSIVEDT1 ;BIR/MLM - EDIT IV ORDER (CONT) ;Oct 28, 2020@10:09:21

Source Information

Source file <PSIVEDT1.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Inpatient Medications 12 $$ENDL^PSGDL  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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

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
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
$$ENDL^PSGDL A25+6
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
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, A2526+3, A39+2
$$ENQ^PSJORP2 DOSE+5
$$ENBCMA^PSJUTL 64+8, 64+9
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: !!,"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

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] A1026+1, A3959+3
^PS(53.45 - [#53.45] 64+4, 64+5, 64+6
^PS(55 - [#55] A10+8
^PS(59.5 - [#59.5] 25+2

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
DOSE A25+7
EXPINF 59+5, 59+15
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
%DT A10+7!*, A25+5!*
CHG 26+12*, 26+14, 26+20!
>> DFN A10+2, A10+8, A2526+3, A39+2, 64+2
DIR A10+14!, NUMLAB2+5!, 63+1~, TIMES+13~
DIR("?" NLBHLP+2*, NLBHLP+3*, NLBHLP+4*, NLBHLP+5*, NLBHLP+6*, NLBHLP+7*, NLBHLP+8*, NLBHLP+9*, NLBHLP+10*
DIR("A" 26+18*, NUMLAB2+7*
DIR("B" NUMLAB2+5*, 63+1*
DIR(0 NUMLAB2+7*, 63+1*
>> DONE A10+4*, A25+2*, 26+5*, A39+6*, 59+5*, 63+1*
DTIME A10+4, A25+2, 26+5, A39+6, 59+5
>> DTOUT 63+1
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 TIMES+3~, TIMES+6*, TIMES+7, TIMES+8
INFO DOSE+1~, DOSE+3*, DOSE+5
MAX TIMES+3~, TIMES+8*, TIMES+9, TIMES+10, TIMES+11
NXT ONCALL+1~, ONCALL+5*, ONETIME+1~, ONETIME+5*, CONTIN+1~, CONTIN+5*
>> 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 A10A10+2, A2526+1, 26+3, A39A39+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("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" A10A10+8, 26+1, A3959+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
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, 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, 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, DOSE+1~
>> Z A25+10, DOSE+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All