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

Package: Inpatient Medications

Routine: PSGOE81


Information

PSGOE81 ;BIR/CML - NON-VERIFIED ORDER EDIT (CONT.) ;May 03, 2023@17:45

Source Information

Source file <PSGOE81.m>

Entry Points

Name Comments DBIA/ICR reference
39 ; admin times
A39 ;*315 next 2 lines
8 ; special instructions
A8 ; special instructions
10 ; start date/time edit
A10 ; start date/time edit
25 ; stop date
A25 ;
A255
W25 ;
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
WRITE ;
ASK ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A39+3
Function Call: WRITE
  • Prompt: !,"ADMIN TIMES: "_$S(PSGAT:PSGAT_"// ",1:"")
  • Line Location: A39+3
Function Call: WRITE
  • Prompt: !,"This is a 'DAY OF THE WEEK' schedule and MUST have admin times."
  • Line Location: A39+8
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A39+15
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: !!,$C(7),"Start date/time should not be entered for more than 7 days after the",!,"order's LOGIN DATE.",!
  • Line Location: A10+18
Function Call: WRITE
  • Prompt: !!,"*** SUPPLY PERIOD NOT TO EXCEED "_X2_" DAYS! ***",!
  • Line Location: A10+30
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A25+32
Function Call: WRITE
  • Prompt: !,"STOP DATE/TIME: "_$S($P(PSGFDN,"^")]"":$P(PSGFDN,"^")_"// ",1:"")
  • Line Location: A25+32
Function Call: WRITE
  • Prompt: " ...dose limit..."
  • Line Location: A25+36
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! INVALID STOP DATE OR PRIOR TO START DATE! ***",!
  • Line Location: A25+37
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** STOP DATE cannot be more than 367 days from START DATE ***",!
  • Line Location: A25+40
Function Call: WRITE
  • Prompt: !!,"*** STOP DATE/TIME NOT TO EXCEED "_X2_" DAYS! ***",!
  • Line Location: A255+6
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! THE STOP DATE ENTERED IS IN THE PAST! ***",!
  • Line Location: W25+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+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: 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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call