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: PSGOE41

Package: Inpatient Medications

Routine: PSGOE41


Information

PSGOE41 ;BIR/CML - REGULAR ORDER ENTRY (CONT.) ;Dec 15, 2021@09:56:53

Source Information

Source file <PSGOE41.m>

Entry Points

Name Comments DBIA/ICR reference
39 ; admin times
8 ; special instructions
132 ;*399-IND
10 ; start date/time
A10 ; start date/time edit
O25 ;
25 ; stop date
A25 ;
A255 ;
W25 ;
NEXT ;
DONE ;
FF ; up-arrow to another field
DEL ; delete entry
TIMES
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
WRITE ;
ASK ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 39+3
Function Call: WRITE
  • Prompt: !,"ADMIN TIMES: "_$S(PSGS0Y:PSGS0Y_"// ",1:"")
  • Line Location: 39+3
Function Call: WRITE
  • Prompt: !,"This is a 'DAY OF THE WEEK' schedule and MUST have admin times."
  • Line Location: 39+10
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 39+14
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 8+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A10+2
Function Call: WRITE
  • Prompt: !,"START DATE/TIME: "_PSGSD_"// "
  • Line Location: A10+2
Function Call: WRITE
  • Prompt: " "_PSGSD
  • Line Location: A10+3
Function Call: WRITE
  • Prompt: A10
  • Condition for execution: '$D(X) $C(7) G:'$D(X)
  • Line Location: A10+4
Function Call: WRITE
  • Prompt: " ",PSGSD
  • Line Location: A10+4
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+10
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A25+1
Function Call: WRITE
  • Prompt: !,"STOP DATE/TIME: "_$S(PSGFD]"":PSGFD_"// ",1:"")
  • Line Location: A25+1
Function Call: WRITE
  • Prompt: " "_PSGFD
  • Line Location: A25+2
Function Call: WRITE
  • Prompt: " ...dose limit..."
  • Line Location: A25+5
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! INVALID STOP DATE OR PRIOR TO START DATE! ***",!
  • Line Location: A25+6
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** STOP DATE cannot be more than 367 days from START DATE ***",!
  • Line Location: A25+9
Function Call: WRITE
  • Prompt: !!,"*** STOP DATE/TIME NOT TO EXCEED "_X2_" DAYS! ***",!
  • Line Location: A25+15
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! THE STOP DATE ENTERED IS IN THE PAST! ***",!
  • Line Location: W25+5
Function Call: WRITE
  • Prompt: $C(7)," ...order not entered..."
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !,"This order requires at least one administration time."
  • Line Location: TIMES+1
Function Call: WRITE
  • Prompt: !,"This is a One Time Order - only one admin time is permitted."
  • Line Location: TIMES+4
Function Call: WRITE
  • Prompt: !,"ADMIN TIMES must be entered in a 2 or 4 digit numeric format"
  • Line Location: TIMES+10
Function Call: WRITE
  • Prompt: !,"All ADMIN TIMES must be the same 2 or 4 digit numeric format"
  • Line Location: TIMES+13
Function Call: WRITE
  • Prompt: !,"(i.e. 09-13 or 0900-1300)"
  • Line Location: TIMES+13
Function Call: WRITE
  • Prompt: !,"This order requires one admin time."
  • Line Location: TIMES+16
Function Call: WRITE
  • Prompt: !,"The number of admin times entered is greater than indicated by the schedule."
  • Line Location: TIMES+17
Function Call: WRITE
  • Prompt: !,"The number of admin times entered is fewer than indicated by the schedule."
  • Line Location: TIMES+18
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+21
Function Call: WRITE
  • Prompt: !,"ENTRY IS REQUIRED"
  • Line Location: PSGDUR+24
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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call