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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSGOE91

Package: Inpatient Medications

Routine: PSGOE91


Information

PSGOE91 ;BIR/CML - ACTIVE ORDER EDIT (CONT.) ;May 03, 2023@17:45

Source Information

Source file <PSGOE91.m>

Entry Points

Name Comments DBIA/ICR reference
41 ; admin times
A41
8 ; special instructions
A8
10 ; start date/time edit
A10 ; start date/time edit
34 ; stop date
A34 ;
W34 ;Compare to Start Date
DONE ;
FF ; up-arrow to another field
DEL ; delete entry
TIMES ;At least one admin time, not more than interval allows.
DOSE ;Make certain at least one dose is given.
PSGDUR ; Prompt for Removal times if admin times are on 24hr rotations and Site Params are enabled.
; check parameter files for removal criteria quit if removal rotation not enabled (<2)
; if enabled determine type (hard vers soft stop)
VERTIMES ; Redisplay Admin and Removal times *315
WRITE ;
ASK ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A41+2
Function Call: WRITE
  • Prompt: !,"ADMIN TIMES: "_$S(PSGAT:PSGAT_"// ",1:"")
  • Line Location: A41+2
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A41+14
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: A8+2
Function Call: WRITE
  • Prompt: !!?5,"Start Date/Time may not be edited for active complex orders."
  • Line Location: A10+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A10+5
Function Call: WRITE
  • Prompt: !,"START DATE/TIME: "_$S($P(PSGSDN,"^")]"":$P(PSGSDN,"^")_"// ",1:"")
  • Line Location: A10+5
Function Call: WRITE
  • Prompt: " "_$P(PSGSDN,"^")
  • Line Location: A10+6
Function Call: WRITE
  • Prompt: A10
  • Condition for execution: '$D(X) $C(7) G:'$D(X)
  • Line Location: A10+7
Function Call: WRITE
  • Prompt: " ",$P(PSGSDN,"^")
  • Line Location: A10+7
Function Call: WRITE
  • Prompt: A10
  • Condition for execution: '$D(X) $C(7) G:'$D(X)
  • Line Location: A10+8
Function Call: WRITE
  • Prompt: " ",$P(PSGSDN,"^")
  • Line Location: A10+8
Function Call: WRITE
  • Prompt: $C(7),!?5,"*** THE START DATE CANNOT BE AFTER THE STOP DATE! ***",!
  • Line Location: A10+12
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+15
Function Call: WRITE
  • Prompt: !!,"*** SUPPLY PERIOD NOT TO EXCEED "_X2_" DAYS! ***",!
  • Line Location: A10+28
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A34+33
Function Call: WRITE
  • Prompt: !,"STOP DATE/TIME: "_$S($P(PSGFDN,"^")]"":$P(PSGFDN,"^")_"// ",1:"")
  • Line Location: A34+33
Function Call: WRITE
  • Prompt: " "_$P(PSGFDN,"^")
  • Line Location: A34+34
Function Call: WRITE
  • Prompt: " ...dose limit..."
  • Line Location: A34+37
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! INVALID STOP DATE OR PRIOR TO START DATE! ***",!
  • Line Location: A34+38
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** STOP DATE cannot be more than 367 days from START DATE ***",!
  • Line Location: A34+41
Function Call: WRITE
  • Prompt: !!?13,"*** EMERGENCY SUPPLY NOT TO EXCEED 4 DAYS! ***",!
  • Line Location: A34+56
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! THE STOP DATE ENTERED IS IN THE PAST! ***",!
  • Line Location: W34+6
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !,"ADMIN TIMES must be entered in a 2 or 4 digit numeric format"
  • Line Location: TIMES+11
Function Call: WRITE
  • Prompt: !,"All ADMIN TIMES must be the same 2 or 4 digit numeric format"
  • Line Location: TIMES+14
Function Call: WRITE
  • Prompt: !,"(i.e. 09-13 or 0900-1300)"
  • Line Location: TIMES+14
Function Call: READ
  • Variable: RP
  • Timeout: DTIME
  • Line Location: PSGDUR+13
Function Call: WRITE
  • Prompt: !,"DURATION OF ADMINISTRATION (HRS): "_$S($G(RP):RP_"// ",1:"")
  • Line Location: PSGDUR+13
Function Call: WRITE
  • Prompt: !,"DURATION OF ADMINISTRATION MATCHES OR EXCEEDS ORDER FREQUENCY"
  • Line Location: PSGDUR+22
Function Call: WRITE
  • Prompt: $C(7),!,"ENTRY IS REQUIRED"
  • Line Location: PSGDUR+25
Function Call: WRITE
  • Prompt: !!,"Verify Admin and removal times",!
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: !,"(A)DMINISTRATION -(R)EMOVAL TIMES"
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: !,"___________________________________________________________________________",!
  • Line Location: WRITE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.7 - [#50.7] GET1^DIQ
^PS(51.1 - [#51.1] FIND1^DIC,  GET1^DIQ
^PS(53.1 - [#53.1] GET1^DIQ
^PS(55 - [#55] GET1^DIQ
55.06 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call