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

Package: Inpatient Medications

Routine: PSJCLOR4


Information

PSJCLOR4 ;BIR/JCH - INPATIENT MEDICATIONS PROFILE FOR CLINIC ORDERS ;25 SEP 97 / 7:43 AM

Source Information

Source file <PSJCLOR4.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DONE ;
GO ;
DEV ;
ENQ ;
PC ;
PJ ;
PG ;
PW ;
PAT ;
PAT1 ;
PP ;
PP1 ;
PP2 ; Display selected order.
PP3
PH ;
ENOR(PSGP) ;S (PSGP,DFN)=+ORVP,PSGP(0)=^DPT(PSGP,0)
ENLM
A34 ; Stop date Active Unit Dose
W34 ;Compare to Start Date
A34DONE ; clean up Active UD Stop Date vars
A25NV ; Stop Date Non-Verified
W25 ; Loop Stop Date NV
A25DONE ; NV Stop Date Done
A25V(DFN,ON) ; Stop Date Active IV
A25V2 ; IV Stop Date Continued

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GO+2
Function Call: READ
  • Timeout: DTIME
  • Line Location: GO+3
Function Call: WRITE
  • Prompt: !!?2,"Enter a 'P' to print ONLY the PROFILE of orders for this patient. Enter an",!,"'E' to print ONLY the EXPANDED VIEW of the orders for this patient. Enter a",!,"'B' to have BOTH the profile (first) and the expanded views print."
  • Line Location: PH+1
Function Call: WRITE
  • Prompt: " Enter an '^'to exit."
  • Line Location: PH+2
Function Call: WRITE
  • Prompt: !!?5,"Stop Date/Time may not be edited for active complex orders."
  • Line Location: A34+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A34+6
Function Call: WRITE
  • Prompt: !,"STOP DATE/TIME: "_$S($P(PSGFDN,"^")]"":$P(PSGFDN,"^")_"// ",1:"")
  • Line Location: A34+6
Function Call: WRITE
  • Prompt: " "_$P(PSGFDN,"^")
  • Line Location: A34+7
Function Call: WRITE
  • Prompt: " ...dose limit..."
  • Line Location: A34+10
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! THE STOP DATE ENTERED IS IN THE PAST! ***",!
  • Line Location: W34+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A25NV+2
Function Call: WRITE
  • Prompt: !,"STOP DATE/TIME: "_$S($P(PSGFDN,"^")]"":$P(PSGFDN,"^")_"// ",1:"")
  • Line Location: A25NV+2
Function Call: WRITE
  • Prompt: " ...dose limit..."
  • Line Location: A25NV+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: !!?5,"This is a Complex Order. Stop Date may not be edited at this point."
  • Line Location: A25V2+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A25V2+4
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A25V2+5
Function Call: WRITE
  • Prompt: $C(7),!?5," Time is REQUIRED. Re-enter Start Date. "
  • Line Location: A25V2+10
Function Call: WRITE
  • Prompt: !,"There is no administration time that falls between the Start Date/Time"
  • Line Location: A25V2+15
Function Call: WRITE
  • Prompt: !,"and Stop Date/Time.",!
  • Line Location: A25V2+16
Info |  Source |  Entry Points |  Interaction Calls