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 |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42 - [#42] Classic Fileman Calls
^PS(57.5 - [#57.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call