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

Package: Inpatient Medications

Routine: PSJO3


Information

PSJO3 ;BIR/CML3,PR-GET AND PRINT INPATIENT ORDERS ;08 MAR 95 / 1:12 PM

Source Information

Source file <PSJO3.m>

Entry Points

Name Comments DBIA/ICR reference
ENGET ;
ENNP
ENHEAD ; print new page, name, ssn, dob, and ward
BOT ; print name, ssn, and dob on bottom of page
ENL ;
LCHK ;
LM
PENDIU ; Help when asking if pending med order is to be an IV or UD.

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: " '^' TO QUIT "
  • Variable: NP
  • Timeout: DTIME
  • Line Location: ENNP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: !,?2,$P(PSGP(0),"^"),?40,PSJPPID,?70,$E($P(PSJPDOB,"^",2),1,8)
  • Line Location: BOT+2
Function Call: READ
  • Variable: PSJOL
  • Timeout: DTIME
  • Line Location: ENL+2
Function Call: WRITE
  • Prompt: PSJOL="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: ENL+2
Function Call: WRITE
  • Prompt: $P(" SHORT^ LONG","^",PSJOL="L"+1)
  • Line Location: LCHK+2
Function Call: WRITE
  • Prompt: $P(X,PSJOL,2)
  • Line Location: LCHK+4
Function Call: WRITE
  • Prompt: !!?2,"Enter 'SHORT' (or 'S', or press the RETURN key) to exclude this patient's",!,"discontinued and expired orders in the following profile. Enter 'LONG' (or 'L') to include those orders."
  • Line Location: LM+0
Function Call: WRITE
  • Prompt: " Enter 'NO' (or 'N') to bypass the profile com-",!,"pletely. Enter '^' if you wish to go no further with this patient."
  • Line Location: LM+1
Function Call: WRITE
  • Prompt: !!,?5,"Enter ""I"" to complete this as an IV Medication order.",!,?5,"Enter ""U"" to complete this as an Unit Dose Medication order.",!!
  • Line Location: PENDIU+1
Info |  Source |  Entry Points |  Interaction Calls