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

Package: Inpatient Medications

Routine: PSJMP


Information

PSJMP ;BIR/CML3-PATIENT LOOK-UP ;12 JAN 94 / 2:00 PM

Source Information

Source file <PSJMP.m>

Entry Points

Name Comments DBIA/ICR reference
ENDPT ;*** get patient ***
CHK ;*** Check patient status ***
DONE ;
CONT() ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENDPT+1
Function Call: WRITE
  • Prompt: !!,"Select "_$S($D(PSGDICA):PSGDICA_" ",1:"")_"PATIENT: "
  • Line Location: ENDPT+1
Function Call: WRITE
  • Prompt: $C(7),!!?3,"PATIENT HAS NEVER BEEN ADMITTED."
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: $C(7),!!?3,"PATIENT IS FOUND TO BE D",$P("ISCHARG^ECEAS",U,X+1),"ED AS OF ",PSGOD,"."
  • Line Location: CHK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+1
Info |  Source |  Entry Points |  Interaction Calls