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

Package: Lab Service

Routine: LRXREF1


Information

LRXREF1 ;SLC/RWA,ALB/TMK - CONTINUE BUILD X-REF FOR RE-INDEX ;09/15/2010 10:42:09

Source Information

Source file <LRXREF1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 ^LREXPD  ($$ACTV61,$$ACTV62)^LRJUTL3  
VA FileMan 1 EN^DDIOL  

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

Package Total Caller Graph
Lab Service 6 SITE/SPECIMEN  ^LRD(65  ACCESSION NUMBER  DATE RE-ENTERED  SPECIMEN #  TEST  

Entry Points

Name Comments DBIA/ICR reference
AT ;^LRO(69,"AT" CROSS REFERENCE
AT1
ATD ;KILL FOR ^LRO(69,"AT" CROSS REFERENCE
AC ;BUILD "AC" CROSS-REFERENCE IN FILE 68
END
SET
AC1 ;KILL "AC" CROSS-REFERENCE IN FILE 68
KILL
A65 ;Rebuild "A" x-ref in file 65 for 65.15,.08 for Re-index utility
A658 ;build "A" x-ref in file 65 for 65,.05 for Re-index utility
C ;build "C" x-ref in file 69
A6599 ;Rebuild Archive "A" x-ref in file 65.9999 for 65.999915,.08 for Re-index utility
A65899 ;build Archive "A" x-ref in file 65.9999 for 65.9999,.05 for Re-index utility
IT600101(DA,DINUM,X) ;
; Input Transform for Sub-File #60.01 field #.01 SITE/SPECIMEN
; Expects X (#61 IEN of SITE/SPECIMEN being added to the test) and DA array -- DA(1)=^LAB(60,DA(1)) DA=^LAB(60,DA(1),1,DA)
; Kills X if invalid selection
; Sets DINUM if valid selection
IT600301(DA,X) ;
; Input Transform for Sub-File #60.03 field #.01 COLLECTION SAMPLE
; Expects X (#62 IEN of COLLECTION SAMPLE being added to the test) and DA array -- DA(1)=^LAB(60,DA(1)) DA=^LAB(60,DA(1),1,DA)
; Kills X if invalid selection

External References

Name Field # of Occurrence
EN^DDIOL IT600101+9, IT600101+11, IT600301+4, IT600301+6
^LREXPD AC+3, AC1+3
$$ACTV61^LRJUTL3 IT600101+11
$$ACTV62^LRJUTL3 IT600301+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] SETKILL, IT600101+6, IT600101+8, IT600101+9, IT600301+4
^LAB(61 - [#61] IT600101+11
^LAB(62 - [#62] IT600301+6
^LRD(65 - [#65] A65+1*, A658+1*
^LRD(65.9999 A6599+1*, A65899+1*
^LRO(68 - [#68] AC+2, SET*, AC1+2, KILL!
^LRO(69 - [#69] AT+1, AT1AT1+1*, ATD+1, ATD+2!, C+1*, C+2*
^TMP("LR" END!, AC1+4!

Label References

Name Line Occurrences
AT1 AT+1
END SET+1
KILL AC1+3
SET AC+3

Naked Globals

Name Field # of Occurrence
^( AT1+1*, ATD+2!, A65+1, A6599+1
^(0 SET
^(2 AT1ATD+1
^(3 IT600301+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ATX AT1*, AT1+1, AT1+2!, ATD+1*, ATD+2, ATD+3!
ATX(1 AT1*, AT1+1, ATD+1*, ATD+2
ATX(2 AT1*, AT1+1, ATD+1*, ATD+2
ATX(3 AT1+1*, ATD+2*
DA AT+1, AT1ATD+1, AC+2, SETAC1+2, KILLA65+1, C+1, C+2
A6599+1, IT600101~, IT600301~
DA(1 AT+1, AT1AT1+1, ATD+1, ATD+2, AC+2, SETAC1+2, KILLA658+1
C+1, C+2, A65899+1, IT600101+6, IT600101+9, IT600301+4
DA(2 AT+1, AT1AT1+1, ATD+1, ATD+2, AC+2, SETAC1+2, KILL
DINUM IT600101~, IT600101+12*
>> DIU(0 C+1, C+2
DT IT600101+11, IT600301+6
>> I AC+2*, AC+3*, AC1+2*, AC1+3*
>> LR A65+1*, A658+1*, A6599+1*, A65899+1*
>> LR(1 A65+1*, A6599+1*
LRA IT600101+5~, IT600101+6*, IT600101+7, IT600101+8*, IT600101+9
LRGTN AC+2*, AC+3*, END!, SETAC1+2*, AC1+3*, AC1+4!, KILL
>> LRORD AC+3, SET+1, AC1+3
>> LRORD( AC+3, AC1+3
LRTEST AC+1*, AC+2*, END!, AC1+1*, AC1+2*, AC1+4!
LRTN AC+1*, AC+2*, END!, AC1+1*, AC1+2*, AC1+4!
LRTSTS AC+3, END!, AC1+3, AC1+4!
U SETKILL, IT600101+6, IT600101+9, IT600101+11, IT600301+4, IT600301+6
X C+1, C+2, IT600101~, IT600101+7!, IT600101+9!, IT600101+11!, IT600101+12, IT600301~, IT600301+4!, IT600301+6!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All