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

Package: Lab Service

Routine: LRXREF


Information

LRXREF ;DALOI/STAFF - BUILD CROSS-REFERENCES FOR RE-INDEX ;02/17/17 10:43

Source Information

Source file <LRXREF.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 EN^DDIOL  $$GET1^DID  FILE^DIE  $$IENS^DILF  
Kernel 2 $$UP^XLFSTR  $$KSP^XUPARAM  
Lab Service 2 $$CODE^LRSCT  $$MAKEISO^LRVRMI1  
Lexicon Utility 1 $$CODE^LEXTRAN  

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

Package Total Caller Graph
Lab Service 25 ^LAB(61  ^LAB(61.2  ^LAB(62  ^LAB(64.21  ^LAB(64.22  ^LAM  ACCESSION NUMBER  CODE  
COLLECTION DATE/TIME  COMMENT  FUNGUS/YEAST  MYCOBACTERIUM  ORGANISM  PARASITE  RESULT  RESULTS  
SPECIMEN #  SYNONYM  TREATING SPECIALITY  VIRUS  ^LAB(64.061  ^LAB(69.5  ^LRT(67  ^LRT(67.1  
WKLD CODE  
Automated Lab Instruments 3 LA7VLCM3  LA7XREF  NON-VA ORDER SNOMED CODES  
National Laboratory Test 2 CODE  SYNONYM  

Entry Points

Name Comments DBIA/ICR reference
AVS1 ; Rebuild "AVS" cross-reference in file 68 for Re-index utility - DATE/TIME RESULTS AVAILABLE (68.02,13)
AVS2 ; Rebuild "AVS" cross-reference in file 68 for Re-index utility - DATE/TIME RESULTS AVAILABLE (68.02,13)
AVS3 ; Rebuild "AVS" cross-reference in fie #68 for re-index utility - DATE/TIME RESULTS AVAILABLE (68.02,13)
AVS4 ; Rebuild "AVS" cross-reference in file 68 for Re-index utility - DATE/TIME RESULTS AVAILABLE (68.02,13)
AC1 ; Build "AC" cross-reference when comment is deleted from a verified test in File 63. Audit trail only.
AN1 ; Build logic "AN"" cross-reference in File 69, when results available
AN2 ; Kill logic for "AN"" cross-reference in File 69, when results available
AR1 ; Setup variables for set/kill "AR" cross-reference in File 69, when results available
AR2 ; Build "AR" cross-reference in File 69, when results available
AR3 ; Kill "AR" cross-reference in File 69, when results available
LRKILL ; This cross-reference will be reset when the cumulative runs. Due to the complexity of the cumulative reporting it was felt that
; it was better to have reprinted data rather than possibly having some data not printed at all.
AP ; Setup variables for set/kill "AP" cross-reference in File 69, when results available
AP1 ; Build "AP" cross-reference in File 69, when results available
AP2 ; Kill "AP" cross-reference in File 69, when results available
AL ; Setup variables for set/kill "AL" cross-reference in File 69, when results available
AL1 ; Build "AL" cross-reference in File 69, when results available
AL2 ; Kill "AL" cross-reference in File 69, when results available
UP ; Convert lower to upper case.
TRIG ; Trigger LAB Workload
; Stuff the Cap Code Name into field .03 of field 4 of field 1 of field 1 of ^LRO(67.9 LAB MONTHLY WORKLOAD
TRIGTS ; Trigger to stuff treating specialty name into .03 field of ^DD(67.91148
TRIG9 ; Trigger for LAB Workload
; Stuff the Cap Code Name into field .03 of field 4 of field 1 of field 1 of ^LRO(67.99999 ARCHIVED LAB MONTHLY WORKLOAD
TRIGTS9 ; Trigger to stuff treating specialty name into .03 field of ^DD(67.999991148
LAM185 ; Trigger logic to set TYPE(#5) of CODE (#18) of WKLD CODE (#64)
SCTCHK(LRSCT,LR612,LRSCT1) ;
; File #61.2 SNOMEDCT field check - Coded to work within FM DD calls
; Inputs
; LRSCT : SNOMED CT code
; LR612 : File #61.2 IEN
; LRSCT1 : <opt>"old" value of SNOMED CT ID field
; Output
; 1 = OK to add code
; -1 = SCT code not valid
DELSCT(LR612) ;
; Delete File #61.2 field 20 (SNOMED CT ID) - For use within FM DD calls and SCTCHK API
IT61F20 ; Input transform for file #61, field 20
; $C(32) tricks EN^DDIOL to not insert a linefeed
IT612F20 ; Input Transform for File #61.2 field 20
; $C(32) tricks EN^DDIOL to not insert a linefeed
IT62F20 ; Input transform for file #62, field 20
; $C(32) tricks EN^DDIOL to not insert a linefeed
ISQUIET() ;
; Is "Quiet" or not (Should we Write output?)
SETISOID(LRSUB) ;
; Called from #63.05 fields Cross reference
; Create and stuff ISOLATE ID when .01 field entered
; Inputs
; LRSUB : The global subscript for this isolate
IT600201 ;
; Input Transform for Sub-File #60.02 field #.01
; Expects X (#60 IEN of test being added to panel) and DA array -- DA(1)=^LAB(60,IEN) DA=^LAB(60,DA(1),2,DA)
PANELCHK(LR60,LRRECUR) ;
; Private method for IT600201 above
; This is a recursive method.
; Called from DD (Input Transform). Must be FileMan safe.
; Caller must kill ^TMP($J,"LRXREF-PANELCHK") before
; first call and after last call. Parent and Child panel tests
; should be added to ^TMP($J,"LRXREF-PANELCHK",IEN) before calling:
; I $O(^LAB(60,IEN,2,0)) S ^TMP($J,"LRXREF-PANELCHK",IEN)=""

External References

Name Field # of Occurrence
EN^DDIOL IT61F20+15, IT61F20+16, IT612F20+15, IT612F20+23, IT62F20+15, IT62F20+16, IT600201+5, IT600201+10, IT600201+28
$$GET1^DID AR1+3, AP+7, AL+2
FILE^DIE DELSCT+6, SETISOID+23
$$IENS^DILF SETISOID+18
$$CODE^LEXTRAN IT61F20+10, IT62F20+10
$$CODE^LRSCT SCTCHK+15
$$MAKEISO^LRVRMI1 SETISOID+19
$$UP^XLFSTR UP+1
$$KSP^XUPARAM SETISOID+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42.4 - [#42.4] TRIGTS+1, TRIGTS9+1
^LAB(60 - [#60] IT600201+3, IT600201+18, PANELCHK+23, PANELCHK+25, PANELCHK+29
^LAB(62.47 - [#62.47] IT612F20+13
^LAC("LRKILL" LRKILL+2!
^LAM - [#64] TRIG+2, TRIG9+2
^LAM("E" TRIG+2, TRIG9+2
^LR - [#63] AC1+1*, AR1+2, AP+6, AL+1
^LRO(67.9 - [#67.9] TRIG+2, TRIGTS+1
^LRO(67.99999 TRIG9+2, TRIGTS9+1
^LRO(68 - [#68] AVS1+1*, AVS2+1!, AVS3+1!, AVS4+1*
^LRO(69 - [#69] AN1+1*, AN2+1!, AR1+1, AR2+3*, AR3+3!, AP+1, AP+3, AP+6, AP1+3*, AP2+3!
, AL+1, AL+4, AL1+3*, AL2+3!
^TMP($J IT600201+19!, IT600201+20*, IT600201+21*, IT600201+25!, PANELCHK+30, PANELCHK+34*
^VA(200 - [#200] AP+4

Label References

Name Line Occurrences
$$ISQUIET IT61F20+14, IT612F20+15, IT612F20+23, IT62F20+14
$$SCTCHK IT612F20+19
AL AL1+2, AL2+2
AP AP1+2, AP2+2
AR1 AR2+2, AR3+2
PANELCHK IT600201+23, IT600201+24, PANELCHK+35

Naked Globals

Name Field # of Occurrence
^(0 AN1+1, AN2+1, AR1+2, AP+4, AP+6, AL+1
^(3 AVS1+1, AVS4+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%1 LAM185+1~, LAM185+2*
DA AVS1+1, AVS2+1, AVS3+1, AVS4+1, AN1+1, AN2+1, AR1+1, AP+1, AP+3, AP+6
, AL+1, AL+4, TRIG+2, TRIGTS+1, TRIG9+2, TRIGTS9+1, DELSCT+2~, IT612F20+18, IT612F20+19, SETISOID+8
, SETISOID+18, SETISOID+19, SETISOID+22~, PANELCHK+18~
DA(1 AVS1+1, AVS2+1, AVS3+1, AVS4+1, AC1+1, AN1+1, AN2+1, AR1+1, AP+1, AP+3
, AP+6, AL+1, AL+4, TRIG+2, TRIGTS+1, TRIG9+2, TRIGTS9+1, IT600201+3, IT600201+8, IT600201+16
DA(2 AVS1+1, AVS2+1, AVS3+1, AVS4+1, AC1+1, TRIG+2, TRIGTS+1, TRIG9+2, TRIGTS9+1
DA(3 TRIG+2, TRIGTS+1, TRIG9+2, TRIGTS9+1
DA(4 TRIGTS+1, TRIGTS9+1
DFN AR1+2*, AR1+3, AP+6*, AP+7, AP1+1~, AP2+1~, AL+1*, AL+2, AL1+1~, AL2+1~
DI DELSCT+2~
DIC DELSCT+2~, SETISOID+22~
DIE SETISOID+22~
DIERR DELSCT+2~, SETISOID+22~
>> DIQUIET ISQUIET+5
>> DIU(0 AVS1+1, AVS2+1, AVS3+1, AVS4+1, AC1+1
>> DIUTIL IT61F20+14, IT61F20+19, IT612F20+15, IT612F20+23, IT612F20+26, IT62F20+14, IT62F20+19, IT600201+7
DT IT61F20+10, IT62F20+10
DUZ AC1+1
LR60 PANELCHK~, PANELCHK+19*, PANELCHK+23, PANELCHK+24, PANELCHK+25, PANELCHK+26~, PANELCHK+27*, PANELCHK+28, PANELCHK+29, PANELCHK+30
, PANELCHK+32, PANELCHK+34, PANELCHK+35
LR6002 PANELCHK+18~, PANELCHK+22*, PANELCHK+23*, PANELCHK+25
LR60B PANELCHK+18~, PANELCHK+24*, PANELCHK+32
LR60C IT600201+14~, IT600201+15*, IT600201+18, IT600201+20, IT600201+24
LR60P IT600201+14~, IT600201+16*, IT600201+18, IT600201+21, IT600201+23
LR612 SCTCHK~, SCTCHK+12*, DELSCT~, DELSCT+4*, DELSCT+5
>> LR612F20 SCTCHK+14
LRCNT SCTCHK+10~
LRDATA PANELCHK+18~, PANELCHK+25*, PANELCHK+27
LRDATE AP+1*, AP1+1~, AP1+3, AP2+1~, AP2+3, AL+1*, AL1+1~, AL1+3, AL2+1~, AL2+3
LRDFN AR1+2*, AR2+1~, AR2+3, AR3+1~, AR3+3, AP+6*, AP1+1~, AP1+3, AP2+1~, AP2+3
, AL+1*, AL1+1~, AL1+3, AL2+1~, AL2+3
LRDPF AR1+2*, AR1+3, AP+6*, AP+7, AP1+1~, AP2+1~, AL+1*, AL+2, AL1+1~, AL2+1~
LRDT AR1+1*, AR2+1~, AR2+3, AR3+1~, AR3+3
LRFDA DELSCT+2~, SETISOID+6~
LRFDA(1 DELSCT+5*, SETISOID+20*
>> LRFMERTS IT61F20+19, IT612F20+26, IT62F20+19
LRGN AR1+3*, AR1+4*, AR2+1~, AR3+1~, AP+7*, AP+8*, AP1+1~, AP2+1~, AL+2*, AL+3*
, AL1+1~, AL2+1~
LRIENS SETISOID+6~, SETISOID+18*, SETISOID+20
LRLLOC AR1+1*, AR2+1~, AR2+3, AR3+1~, AR3+3, AL+4*, AL1+1~, AL1+3, AL2+1~, AL2+3
LRMSG DELSCT+2~, SETISOID+6~
LROUT IT61F20+5~, IT62F20+5~
LROUT("F" IT61F20+15, IT62F20+15
LRPHY AP+3*, AP+4*, AP1+1~, AP1+3, AP2+1~, AP2+3
LRPNM AR1+4*, AR2+1~, AR2+3, AR3+1~, AR3+3, AP+8*, AP1+1~, AP1+3, AP2+1~, AP2+3
, AL+3*, AL1+1~, AL1+3, AL2+1~, AL2+3
>> LRQUIET ISQUIET+4
LRRECUR IT600201+14~, IT600201+22*, IT600201+23, IT600201+24, IT600201+26, PANELCHK~, PANELCHK+20*, PANELCHK+21, PANELCHK+23, PANELCHK+31*
, PANELCHK+35
LRRECUR(1 PANELCHK+32*
LRSCT SCTCHK~, SCTCHK+12*, SCTCHK+13, SCTCHK+15
LRSCT1 SCTCHK~, SCTCHK+12*
LRSTAT SCTCHK+10~, SCTCHK+12*, SCTCHK+17*, SCTCHK+20
LRSTATUS IT61F20+5~, IT61F20+10*, IT61F20+11, IT61F20+16, IT62F20+5~, IT62F20+10*, IT62F20+11, IT62F20+16
LRSUB SETISOID~, SETISOID+7*, SETISOID+10, SETISOID+11, SETISOID+12, SETISOID+13, SETISOID+14, SETISOID+19
LRSUBFL SETISOID+6~, SETISOID+9*, SETISOID+10*, SETISOID+11*, SETISOID+12*, SETISOID+13*, SETISOID+14*, SETISOID+15, SETISOID+20
LRT SCTCHK+10~, SCTCHK+11*, SCTCHK+19, DELSCT+2~, DELSCT+3*, DELSCT+7, IT612F20+5~, IT612F20+7*, IT612F20+16, IT612F20+28
LRX SCTCHK+10~, SCTCHK+15*, SCTCHK+17, IT612F20+5~, IT612F20+19*, IT612F20+21, SETISOID+6~, SETISOID+19*, SETISOID+20
QUIET ISQUIET+2~, ISQUIET+3*, ISQUIET+4*, ISQUIET+5*, ISQUIET+6
U AVS1+1, AVS2+1, AVS3+1, AVS4+1, AC1+1, AN1+1, AN2+1, AR1+1, AR1+2, AR1+4
, AP+1, AP+3, AP+4, AP+6, AP+8, AL+1, AL+3, AL+4, TRIG+2, TRIGTS+1
, TRIG9+2, TRIGTS9+1, IT600201+3, PANELCHK+27
X AC1+1, AR1+1, UP+1*, TRIG+2*, TRIGTS+1*, TRIG9+2*, TRIGTS9+1*, LAM185+2*, DELSCT+2~, IT61F20+7
, IT61F20+10, IT61F20+11!, IT61F20+19!, IT612F20+9, IT612F20+14!, IT612F20+19, IT612F20+22!, IT612F20+26!, IT62F20+7, IT62F20+10
, IT62F20+11!, IT62F20+19!, SETISOID+22~, IT600201+4!, IT600201+8, IT600201+9!, IT600201+12, IT600201+15, IT600201+27!, PANELCHK+18~
X1 SETISOID+22~
X2 SETISOID+22~
Y DELSCT+2~, IT612F20+13, IT612F20+19, SETISOID+22~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All