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 |  All
Print Page as PDF
Routine: LRDPA

Package: Lab Service

Routine: LRDPA


Information

LRDPA ;SLC/RWF/WTY/KLL - FILE OF FILES LOOKUP ON ENTITIES ; 2/28/03 4:10pm

Source Information

Source file <LRDPA.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Lab Service 5 EN^LR7OV2  ^LRDPA1  ^LRDPAREF  LABKEY^LRPARAM  (DD,INF,PT)^LRX  
VA FileMan 3 EN^DDIOL  (,IX)^DIC  ^DIR  
Kernel 1 $$DTIME^XUP  
Order Entry Results Reporting 1 (LK,ULK)^ORX2  

Caller Graph

Caller Graph Total: 64

Package Total Caller Graph
Lab Service 63 LR INF WARN  LR7OF0  LR7OR1  LR7OSUM  LRACM2  LRACM3  LRACSUM  LRAPCUM  
LRAPDA  LRAPLG  LRAPMV  LRAPOLD  LRAPS  LRAPST  LRARCHD  LRBLJL  
LRBLJLA  LRBLJR  LRBLP  LRBLPBR  LRBLPC  LRBLPCS  LRBLPH  LRBLPT  
LRBLPUS  LRBLPX  LRBLQPR  LRCE  LRCHIVD  LRDCOM  LRDIST  LRDIST4  
LRFAST  LRGEN  LRLISTPS  LRMIBL  LRMIPC  LRMIPSZ  LRMISEZA  LRMITSES  
LROE1  LRORD1  LROS  LROW  LROW4  LRQCLOG  LRRP2  LRRP3  
LRRSP  LRSETUP  LRSLOW  LRSOR  LRUCN  LRUG  LRUL  LRUMD1  
LRUMDS  LRUPS  LRUPT  LRUQ  LRUTRAN  LRVRPOC  ^LAB(62.3  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
DPA ;from LRUPS
DPA1 ;Entry point from PNAME^LRAPDA
EN1 ;from LRUG, LRUPS
EN ;
LAYG ;Don't allow DLAYGO on second pass.
ANY
FL
FL0
FL1 ;
NONE
REASK
END ;from LROR, LRSETUP
E2
E3
FILE
DICQ ;
EN2(DFN,LOCK,TALK) ;Patient Lock
WARN ;Warn the user the patient has died and display date of death (LR*5.2*360)

External References

Name Field # of Occurrence
EN^DDIOL END+8
^DIC EN+9, FL, FL1+9, FL1+13, REASK+1, FILE+4
IX^DIC DICQ+2
^DIR WARN+6
EN^LR7OV2 E3+4
^LRDPA1 E3+3
^LRDPAREF LRDPA+22
LABKEY^LRPARAM DPA+1, FL1+1
DD^LRX WARN+1
INF^LRX E3+2
PT^LRX EN+14, FL1+13, REASK+1
LK^ORX2 EN2+6
ULK^ORX2 EN2+7
$$DTIME^XUP LRDPA+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You may enter patient identification or enter a file name followed by "":"".",!,"You may enter ""?:?"" for more extended help."
  • Line Location: DPA1+4
Function Call: WRITE
  • Prompt: !," File: ",X
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,"Internal patient ID incorrect in ^LR( for ",PNM,". Contact Lab Coordinator.",$C(7)
  • Line Location: E3+0
Function Call: WRITE
  • Prompt: !,$C(7),"Internal patient ID incorrect for ",PNM,". Contact Lab Coordinator."
  • Line Location: E3+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: FILE+0
Function Call: WRITE
  • Prompt: !,"Select FILE: "
  • Line Location: FILE+0
Function Call: READ
  • Variable: %
  • Timeout: DTIME
  • Line Location: DICQ+7
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: DICQ+7
Function Call: WRITE
  • Prompt: !?10,@LRVIDO,"Patient ",PNM," died on: ",Y,@LRVIDOF,!
  • Line Location: WARN+2
Routine Call
  • DIC
  • Line Location:
    • EN+9
    • FL
    • FL1+9
    • FL1+13
    • REASK+1
    • FILE+4
Routine Call
  • DIC
  • Line Location:
    • DICQ+2
Routine Call
  • DIR
  • Line Location:
    • WARN+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] ANY, FL0
^LR - [#63] E2, E2+1*, E3, E3+1
^LR("B" E2+1*
^LR(0 END+6, END+11, END+12, E2+1
^ORD(100.99 - [#100.99] E3+4

Label References

Name Line Occurrences
% %
ANY DPA+3, EN1+1
DICQ FILE+1
DPA DPA1+4, EN+13
E2 E2
E3 END+5
END DPA1+1, EN+14, FL1+14, REASK+1
FILE ANY, FILE+1, FILE+4
FL EN1+1
FL0 ANY+1
FL1 ANY
LAYG EN+13
LRDPA FL0, END+12
NONE ANY+1, FL, FL1+13
WARN EN+14

Naked Globals

Name Field # of Occurrence
^(0 E2+1*, E3+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % %*
D DICQ+1*, DICQ+5!
DFN DPA1+1*, EN+14*, FL1+13*, NONE*, REASK*, REASK+1*, END+1*, END+2, END+9*, E2+1
, E3+1, E3+4, EN2~, EN2+3, EN2+5, WARN+7*
DIC LRDPA+21*, LRDPA+26*, DPA+3, EN1+1*, EN+2*, EN+13!, ANY, FL*, FL0*!, FL1+4*
, FL1+12, NONE+1!, END+3!, END+10!, END+12!, E3+3!, FILE+2*, DICQ+1*, DICQ+5!
DIC("S" EN+4*, EN+9!, FL*, FL1+8!, FL1+9*!, FL1+11*, FL1+12*, FL1+13!, REASK*, REASK+1!
, FILE+3*, FILE+4!, DICQ+2*
DIC(0 LRDPA+24*, LRDPA+25*, EN+1*, LAYG+1*, LAYG+4*, FL*, FL1+4*, FL1+6*, FL1+7, FL1+9*
, FL1+10, REASK*, FILE+2*, DICQ+1*
DIR WARN+6!
DIR("A" WARN+4*
DIR("T" WARN+5*
DIR(0 WARN+3*
DIRUT WARN+7, WARN+8!
DLAYGO LRDPA+26!, DPA1+1!, EN+9!, LAYG+1!, LAYG+4*, FL1+3*, FL1+7*, END+3!, END+10!, END+12!
, E3+3!
>> DOD EN+14, WARN+1
DTIME LRDPA+23*, DPA+4, FILE, %
DUOUT EN+9!, FL1+9!, REASK+1!
DUZ LRDPA+23
LOCK EN2~, EN2+4*, EN2+6, EN2+7
>> LRDFN NONE*, END+3*, END+4*, END+5, END+9*, END+11*, E2*, E2+1, E3*, E3+1*
, E3+3
>> LRDPAF E3+3
>> LRDPF DPA+3*, EN+2*, ANY*, FL0*, FL1+3, FL1+4, FL1+6, FL1+7, NONE*, END+4
, E2+1, E3+1, E3+4
>> LRLABKY DPA+1, LAYG+3, FL1+1, FL1+6
>> LRLOOKUP FL1+3, FL1+5
>> LRORDRR LRDPA+22
>> LRPARAM LAYG+2
>> LRREFFL LRDPA+21
>> LRVIDO WARN+2
>> LRVIDOF WARN+2
LRX EN1+1*!, FL1+4, FL1+8!
MSG END+7*, END+8!
>> PNM EN+14*, FL1+13*, REASK+1*, E3, E3+1, WARN+2
TALK EN2~, EN2+4*
U LRDPA+23*
VA DPA+2!, NONE+1!
>> VA200 EN+2*, NONE+1*, END+3*, END+9*, E3+3*
VADM DPA+2!, NONE+1!
VAIN DPA+2!, NONE+1!
>> X LRDPA+23*, DPA+4*, DPA1+1, DPA1+4, EN1+1*, FL, FL1+8*, FL1+9, FL1+10, END+4*
, END+12, E2+1, FILE*, FILE+1, DICQ+1*, DICQ+3*, DICQ+4*, EN2+5*
>> Y EN+9, EN+13, EN+14, ANY+1, FL, FL0, FL1+9, FL1+13, NONE*, REASK+1
, END+1*, END+4, FILE*, FILE+4, DICQ+3, DICQ+5*, WARN+1*, WARN+2, WARN+7
>> Y(0 EN+14, FL1+13, REASK+1, DICQ+4
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 |  All