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 |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSJPDIR

Package: Inpatient Medications

Routine: PSJPDIR


Information

PSJPDIR ;BIR/MLM-PATIENT PROFILE CALLS ;10 MAY 96 / 9:56 AM

Source Information

Source file <PSJPDIR.m>

Call Graph

Call Graph

Call Graph Total: 6

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

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

Package Total Caller Graph
Inpatient Medications 5 PSGAP  PSGDS  PSGPR  PSJEXP  PSJPDV  

Entry Points

Name Comments DBIA/ICR reference
GWP ; Ask for seletion by WARD GROUP,WARD or PATIENT.
P ;*** Select by Patient
W ;*** Select by WARD
G ;***Select by WARD GROUP
ADMTM ;*** Askif user want to sort by admin team
ADMTM2 ;
TM2HLP
DICTM ;*** LooK up a team.
RBPPN ;*** Sort by ROOM-BED or PATIENT
ENL ;
LCHK ;
LM ;Profile Type
ENDPT ;*** get patient ***
CHK ;*** Check patient status ***
STOP() ;
DONE ;

External References

Name Field # of Occurrence
^DIC W+1, G+1, DICTM+3
^DIR GWP+5, ADMTM+1, ADMTM2+2, RBPPN+3
$$ENDTC^PSGMI CHK+3
EN^PSJDPT ENDPT+2
^PSJP P+2
IN5^VADPT CHK+2
INP^VADPT CHK+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: GWP+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: G+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADMTM2+2
Function Call: WRITE
  • Prompt: !!,"Enter the name of an Administration Team that you want",!,"to include on the report."," Enter ""ALL"" (or accept the",!,"default) to include all teams on the report.",!
  • Line Location: TM2HLP+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: RBPPN+3
Function Call: READ
  • Variable: PSJOL
  • Timeout: DTIME
  • Line Location: ENL+1
Function Call: WRITE
  • Prompt: PSJOL="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: ENL+1
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+1
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+2
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+2
Function Call: WRITE
  • Prompt: $C(7),!!?3,"PATIENT IS FOUND TO BE D",$P("ISCHARG^ECEAS",U,X+1),"ED AS OF ",$$ENDTC^PSGMI(+VAIP(3)),"."
  • Line Location: CHK+3
Routine Call
  • DIC
  • Line Location:
    • W+1
    • G+1
    • DICTM+3
Routine Call
  • DIR
  • Line Location:
    • GWP+5
    • ADMTM+1
    • ADMTM2+2
    • RBPPN+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42 - [#42] Classic Fileman Calls
^PS(57.5 - [#57.5] Classic Fileman Calls

Label References

Name Line Occurrences
$$STOP GWP+5, W+2, G+2, ADMTM+1, ADMTM+6, ADMTM2+2, RBPPN+3
@( GWP+6
ADMTM W+3
ADMTM2 ADMTM+6
DICTM ADMTM2+3
DONE ENDPT+1
ENDPT ENDPT+3, CHK+2, CHK+3
GWP GWP+6
LCHK ENL+1
LM LCHK+1
RBPPN GWP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DONE+1!
>> DFN CHK+1*
DIC W+1!*, G+1!*, DICTM+2!*, ENDPT+1!, ENDPT+4!, DONE+1!
DIC("A" W+1*, G+1*, DICTM+3*
DIC(0 W+1*, G+1*, DICTM+2*, DICTM+3*
DIK DONE+1!
DIR GWP+1!, GWP+5!, ADMTM+1~, ADMTM2+1!, RBPPN+2!
DIR("?" GWP+2*, GWP+3*, GWP+4*, ADMTM+1*, ADMTM2+1*
DIR("A" GWP+1*, ADMTM+1*, ADMTM2+1*, RBPPN+2*
DIR("B" ADMTM+1*, ADMTM2+1*, RBPPN+2*
DIR(0 GWP+1*, ADMTM+1*, ADMTM2+1*, RBPPN+2*
>> DIRUT STOP+2
DTIME ENL+1, ENDPT+1
>> DTOUT P+3, ADMTM2+4, STOP+2
>> DUOUT P+3, ADMTM2+4, STOP+2
>> PFLG P+2*, ADMTM2+4, DICTM+3*
>> PPN CHK+1*
PSGDICA P+1~, P+2*, P+3, ENDPT+1
PSGP P+2, ENDPT+1!*, CHK+1*
PSGP(0 P+2
PSGPAT P+1~
>> PSGWD P+2*
PSJACNWP P+1~*
>> PSJOL ENL+1*, LCHK+1, LCHK+2*, LCHK+3*, LCHK+4*
>> PSJPCAF CHK+2*
>> PSJPWD P+2, ENL+1, LCHK+2
>> PSJPWDO P+2*
PSJSEL GWP+1!
PSJSEL("P" P+2*
PSJSEL("RBP" RBPPN+3*
PSJSEL("SELECT" GWP+6*
PSJSEL("TM" ADMTM+6, ADMTM2+2*, DICTM+3*
PSJSEL("W" W+3*, DICTM+2
PSJSEL("WG" GWP+6, G+4*, G+5*
>> PSJSTOP GWP+1*, GWP+5*, GWP+6, P+3*, W+2*, W+3, G+2*, G+4, G+5, ADMTM2+4*
, STOP+2*, STOP+3
>> Q LCHK+3*
U CHK+1, CHK+3
>> VA200 CHK+1*
>> VAIN(4 CHK+1
>> VAIP("D" CHK+2*
>> VAIP(13 CHK+2
>> VAIP(3 CHK+3
>> VAIP(4 CHK+3
>> X G+2, ADMTM+6, LCHK+4*, ENDPT+1*, CHK+3*
Y GWP+5, GWP+6, P+3, W+2, W+3, G+2, G+5, ADMTM+1, ADMTM2+2, ADMTM2+4
DICTM+3, RBPPN+3, ENDPT+1!*, ENDPT+3, CHK+1
Y(0 DICTM+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All