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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSJDPT

Package: Inpatient Medications

Routine: PSJDPT


Information

PSJDPT ;BIR/JLC - CENTRALIZED PATIENT LOOKUP FOR IPM ;29-May-2012 14:38;PLS

Source Information

Source file <PSJDPT.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 4 ($$GETACT,DISPPRF)^DGPFAPI  (NOTICE,PTSEC)^DGSEC4  $$BADADR^DGUTL3  $$DOB^DPTLK1  
VA Fileman 2 ^DIC  YN^DICN  
Inpatient Medications 1 PAUSE^PSJLMUT1  
Order Entry Results Reporting 1 ($$HAVEHDR,HAVEHDR)^ORRDI1  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Inpatient Medications 7 PSGP  PSGVBW0  PSIV  PSIVORC  PSJMP  PSJP  PSJPDIR  

Entry Points

Name Comments DBIA/ICR reference
CHK(Y,DISP,PAUSE)
EN ; MAIN ENTRY POINT FOR PATIENT LOOKUP
DPT
SENS
ENCONT

External References

Name Field # of Occurrence
$$GETACT^DGPFAPI CHK+2
DISPPRF^DGPFAPI CHK+3
NOTICE^DGSEC4 CHK+12
PTSEC^DGSEC4 CHK+4
$$BADADR^DGUTL3 EN+3
^DIC EN+2
YN^DICN ENCONT+1
$$DOB^DPTLK1 DPT
$$HAVEHDR^ORRDI1 EN+7
HAVEHDR^ORRDI1 EN+7
PAUSE^PSJLMUT1 EN+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Remote data not available - Only local order checks processed."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: @IOF,"PATIENT: ",$P(Y,U,2)
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHK+6
Function Call: WRITE
  • Prompt: ?(80-$L($P(Y,"^",2)))\2,$P(Y,"^",2),!
  • Line Location: CHK+6
Function Call: WRITE
  • Prompt: ?(80-$L(RESULT(I)))\2,RESULT(I),!
  • Line Location: CHK+7
Function Call: WRITE
  • Prompt: !,"Do you want to continue processing this patient record"
  • Line Location: ENCONT+0
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to continue processing, or 'NO' to quit processing this record."
  • Line Location: ENCONT+2
Function Call: WRITE
  • Prompt: ?42,$E(NS,1,3),"-",$E(NS,4,5),"-",$E(NS,6,10)," "
  • Line Location: DPT+2
Function Call: WRITE
  • Prompt: ?55,$E(NB,4,5),"/",$E(NB,6,7),"/",$E(NB,2,3)," "
  • Line Location: DPT+3
Function Call: WRITE
  • Prompt: ?67,$P(^(.1),"^")
  • Line Location: DPT+4
Function Call: WRITE
  • Prompt: ?42,"*SENSITIVE* ",?55,"*SENSITIVE* ",?67,"*SENSITIVE*"
  • Line Location: SENS+0
Routine Call
  • DIC
  • Line Location:
    • EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DPT+1, DPT+4
^XTMP("ORRDI" EN+7

Label References

Name Line Occurrences
ENCONT CHK+11, ENCONT+2
SENS DPT

Naked Globals

Name Field # of Occurrence
^( DPT+4
^(0 DPT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENCONT+1*, ENCONT+2
CHKY CHK~, CHK+3*!
DIC EN+2!*
DIC("W" EN+2*
DIC(0 EN+2*
DISP CHK~, CHK+1*, CHK+6
>> I CHK+7*
IOF CHK+2
>> NB DPT+1*, DPT+3
>> ND DPT+1*
>> NS DPT+1*, DPT+2
PAUSE CHK~, CHK+1*, CHK+8
PSGTEMP CHK~, CHK+2!
>> PSJNODIS EN+7
RES CHK~, CHK+12
RESULT CHK~, CHK+4
RESULT( CHK+7
RESULT(1 CHK+5, CHK+8, CHK+9, CHK+10, CHK+11, CHK+12
U CHK+2
>> XQY0 CHK+2, CHK+12
Y EN+3, EN+4~, CHK~, CHK+2, CHK+3*, CHK+4, CHK+6, CHK+10*, CHK+11, CHK+12*
, ENCONT+1*, DPT, DPT+1, DPT+4

Marked Items

Name Field # of Occurrence
$T(HAVEHDR^ORRDI1 EN+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All