Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSIVEDT1

Package: Inpatient Medications

Routine: PSIVEDT1


Information

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

Source Information

Source file <PSIVEDT1.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls