Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Inpatient Medications 2 ENTRY^PSJHEAD  PAUSE^PSJLMUTL  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Inpatient Medications 6 PSGL  PSGVBWP  PSIVORC  PSJO  PSJOE0  PSJPR  

Entry Points

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

External References

Name Field # of Occurrence
ENTRY^PSJHEAD ENHEAD+3
PAUSE^PSJLMUTL LM+1
FULL^VALM1 LM

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: " '^' TO QUIT "
  • Formatting: !
  • Timeout: DTIME
  • Variable: NP
  • 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
  • Timeout: DTIME
  • Variable: PSJOL
  • 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

Label References

Name Line Occurrences
BOT ENNP+1
LCHK ENL+2
LM LCHK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN ENHEAD+3
DTIME ENNP, ENL+2
ENGET ENGET+1*, ENHEAD+4!
IOSL BOT+1
>> LN2 ENHEAD+4
>> NP ENNP*
>> ON ENGET+2*
>> PG ENGET+2*, ENHEAD+1*, ENHEAD+3, ENHEAD+4
>> PSGP(0 BOT+2
>> PSGVWA ENGET+2
>> PSJDEV ENNP, ENNP+1
>> PSJEXTP ENL+1
>> PSJNARC ENHEAD+3
>> PSJOL ENL+1*, ENL+2*, LCHK+1, LCHK+2*, LCHK+3*, LCHK+4*
>> PSJON ENNP, ENNP+1
>> PSJOPC ENHEAD+2*, ENHEAD+3
>> PSJPDOB BOT+2
>> PSJPPID BOT+2
>> PSJPRB ENGET+3
>> PSJPWD ENL+2, LCHK+2
>> PSJSEL("TM" ENHEAD+2
>> PSJTEAM ENHEAD+2*, ENHEAD+3
>> Q BOT+1*, LCHK+3*
>> RB ENGET+3*
>> SLS ENGET+2*
>> TF ENGET+2*
>> X LCHK+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All