LRXREF ;DALOI/STAFF - BUILD CROSS-REFERENCES FOR RE-INDEX ;02/17/17 10:43
Source file <LRXREF.m>
| 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)="" |
