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

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Inpatient Medications 2 $$ENDTC^PSGMI  EN^PSJDPT  
Registration 1 (IN5,INP)^VADPT  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJMDIR1  

Entry Points

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

External References

Name Field # of Occurrence
^DIR CONT+2
$$ENDTC^PSGMI CHK+6
EN^PSJDPT ENDPT+2
IN5^VADPT CHK+4
INP^VADPT CHK+1

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
Routine Call
  • DIR
  • Line Location:
    • CONT+2

Label References

Name Line Occurrences
$$CONT CHK+4, CHK+6
DONE ENDPT+1, CHK+2
ENDPT ENDPT+3, CHK+4, CHK+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DONE+1!
>> DFN CHK+1*
DIC ENDPT+1!, ENDPT+4!, DONE+1!
DIR CONT+1!
DIR("?" CONT+1*
DIR("A" CONT+2*
DIR(0 CONT+2*
DTIME ENDPT+1
NB DONE+1!
ND DONE+1!
NS DONE+1!
>> PPN CHK+1*
>> PSGDICA ENDPT+1
PSGID CHK+6*, DONE+1!
PSGOD CHK+6*, CHK+7, DONE+1!
PSGP ENDPT+1!*, CHK+1*
>> PSJPAD CHK+6*
>> PSJPCAF CHK+4*
>> PSJPWD CHK+2*, CHK+4*, CHK+6*
U CHK+1, CHK+7
VA200 CHK+1*, DONE+1!
VADM DONE+1!
VAIN DONE+1!
VAIN(4 CHK+2
VAIP DONE+1!
VAIP("D" CHK+4*
VAIP(13 CHK+4, CHK+6
VAIP(3 CHK+6
VAIP(4 CHK+6
VAMT DONE+1!
X ENDPT+1*, CHK+6*, CHK+7, DONE+1!
Y ENDPT+1!*, ENDPT+3, CHK+1, CONT+3
Y(0 DONE+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All