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

Package: Lab Service

Routine: LRUPS


Information

LRUPS ;AVAMC/REG/WTY - PATIENT SPEC LOOK-UP ;3/20/01

Source Information

Source file <LRUPS.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Lab Service 2 DPA^LRDPA  (D,YN)^LRU  

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

Package Total Caller Graph
Lab Service 7 LRAPAUSR  LRAPDA  LRAPLG1  LRAPMOD  LRAURPT  LRSPRPT  LRSPT  

Entry Points

Name Comments DBIA/ICR reference
GETP
I
EN
ACC
OK
GOT
L
WT
SP
CY
AU
EN1 ;from LRAPMOD, LRSPRPT, LRSPT

External References

Name Field # of Occurrence
DPA^LRDPA GETP, EN1+1
D^LRU EN+12, L, AU+9
YN^LRU WT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GETP+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No data for ",PNM
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !!,"Count #",?10,"Accession #",?29,"Date",?45,"Site/specimen"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Specimen(s)",?30,"Count #",?40,"Accession #",?55,"Date Obtained"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"No specimens entered for "_LRH(0)
  • Line Location: EN+13
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ACC+0
Function Call: WRITE
  • Prompt: !?11,"Choose Count #(1-",C,"): "
  • Line Location: ACC+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter numbers only",!!
  • Line Location: ACC+1
Function Call: WRITE
  • Prompt: " Doesn't exist for ",PNM
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !!," Accession #: ",LRAC
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,"More accessions "
  • Line Location: WT+0
Function Call: WRITE
  • Prompt: " not verified"
  • Line Location: SP+0
Function Call: WRITE
  • Prompt: !?2,"(",$J(C,2),")",?10,LRAC,?25,Y
  • Line Location: CY+0
Function Call: WRITE
  • Prompt: ?45,$S($D(^LAB(61,LRST,0)):$E($P(^(0),U),1,34),1:"")
  • Condition for execution: LRST
  • Line Location: CY+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No autopsy entry for ",LRP,!!
  • Line Location: AU+1
Function Call: WRITE
  • Prompt: $C(7),!!,"No autopsy accession"
  • Line Location: AU+3
Function Call: WRITE
  • Prompt: $C(7),!!,"No autopsy # for ",LRP
  • Line Location: AU+8
Function Call: WRITE
  • Prompt: !,"Autopsy performed: ",Y," Acc # ",LRAC
  • Line Location: AU+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61 - [#61] CY
^LR - [#63] EN, EN+5, EN+6, EN+14, GOT, SP+1, AU

Label References

Name Line Occurrences
@( EN+12
ACC ACC+1, OK
AU I+2
GETP EN, EN+13
I EN1+2
L EN+14
WT EN+7

Naked Globals

Name Field # of Occurrence
^( SP+1
^(0 SP+1, CY

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % WT*
>> A SP+1*
>> C EN+4*, EN+7, EN+10*, EN+11, EN+13, EN+14, ACC, WT, SP, CY
>> DFN GETP*, GETP+1, EN1+1
DIC GETP!, EN1+1!
DIC(0 GETP*, EN1+1*
DTIME ACC
>> E EN+1*, EN+5, EN+7, WT*
>> LRABV EN+1*, EN+7, AU+3
>> LRAC EN+6*, EN+7, EN+8, EN+10, L*, SP, CY, AU+2*, AU+3, AU+4
, AU+7, AU+9
>> LRAD EN+9, AU+5
LRAN GETP!, GETP+1*, EN+10*, EN+11, ACC*, L*, AU+1*, AU+3*, AU+6*, AU+7*
, AU+8*, EN1+1!*
LRAN( EN+11*, OK, GOT
LRAN(1 EN+14
LRAY I~, EN+8*, EN+9, AU+4*, AU+5
>> LRDFN EN, EN+5, EN+6, EN+14, GOT, SP+1, AU
>> LRDPF GETP*, EN1+1*
>> LRH(0 EN+13, AU+6
>> LRI EN+1*, EN+5*, EN+6, EN+11, EN+14*, GOT*, SP+1
>> LRLIDT EN+1*, EN+11*
>> LRND AU*, AU+1, AU+2, AU+9
>> LRP AU+1, AU+8
LRPFLG I+1~*, EN+9, AU+5
>> LRSS I+2, EN, EN+2, EN+5, EN+6, EN+12, EN+14, GOT, SP+1
>> LRST EN+12*, SP+1*, CY
>> LRTK EN+14*, GOT*
>> LRWW L*
>> LRX GETP*, EN1+1*
>> PNM EN, OK
U EN, EN+6, EN+11, EN+12, ACC, L, CY, AU+2
>> X GETP*, EN+6*, EN+12, ACC*, ACC+1, OK, GOT, SP
>> Y EN+12*, L*, SP, CY, AU+9*
>> Y(0 EN+14*, GOT*, L
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All