BLRRLEVT ;cmi/anch/maw - BLR Reference Lab Event ; 13-Oct-2017 14:04 ; MAW
Source file <BLRRLEVT.m>
| Package | Total | Caller Graph | 
|---|---|---|
| IHS Changes To Lab | 4 | BLRAG05 BLREVTQ BLRRLEV2 BLRRLEVN | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| ACC | ;EP - cmi/flag/maw added the following for ref lab accessions | |
| SETAO(RO,TS) | ;-- setup the ask at order array from whats in the BLRRLO global | |
| SENDOUT(AC,LRT) | ;-- check if a valid sendout test | |
| CHECKMAP(INST,TS) | ;-- there can be multiple entries mapped | |
| CLNAO(L,T) | ;-- clean ot the ask at order questions | |
| FLAO(RLC,T,RL,ACC,LEDI) | ;-- file the ask at order questions | |
| DISAAQ(BLRCNT,TIEN,AAQ) | ;-- display the ask at order questions | |
| CODE(RL,TST) | ||
| TMPSET(BLRSHP) | ;-- setup the array for the shipping manifest | |
| LEDI | ;-- LEDI III insurance stuff | |
| AAA | ||
| LEDIAAA | ;-- ledi ask at order question | |
| NOMAP(RL,TST,LOC) | ;-- check if the test is mapped | 
| Name | Field # of Occurrence | 
|---|---|
| BILL^BLRAG05C | AAA+13 | 
| $$COM^BLRRLCOM | LEDIAAA+1, AAA | 
| $$ACC^BLRRLEDI | LEDI+40, ACC+31 | 
| $$BTP^BLRRLEDI | LEDI+53 | 
| $$CLIENT^BLRRLEDI | LEDI+43 | 
| $$ORD^BLRRLEDI | LEDI+39, ACC+30 | 
| BILL^BLRRLEDI | LEDI+52, AAA+34 | 
| CLIENTG^BLRRLEDI | AAA+24, AAA+26, AAA+31 | 
| DX^BLRRLEDI | LEDI+51, AAA+32 | 
| PRTLC^BLRRLEVN | LEDI+36, AAA+23 | 
| SHIPMAN^BLRRLEVN | AAA+63 | 
| CLIENT^BLRRLHL | AAA+24, AAA+26 | 
| ADDDX^BLRRLHL2 | AAA+39 | 
| UPDATE^DIE | FLAO+15 | 
| ^DIK | CLNAO+4 | 
| $$GET1^DIQ | NOMAP+3, NOMAP+4 | 
| ^DIR | LEDIAAA+5, AAA+3, DISAAQ+11, DISAAQ+17 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^SC - [#44] | GET1^DIQ | 
| ^BLRSITE - [#9009029] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^BLRRL - [#9009026] | ACC+19, CODE+2, CODE+4, CODE+5 | 
| ^BLRRL("ALP" | CODE+3, NOMAP+6 | 
| ^BLRRLO - [#9009026.3] | LEDI+33, SETAO+3, SETAO+4, CLNAO+1, AAA+20 | 
| ^BLRRLO("ACC" | LEDI+32, ACC+31, AAA+19 | 
| ^BLRRLO("B" | LEDI+27, ACC+29 | 
| ^BLRSITE - [#9009029] | LEDI+10, LEDI+23, LEDI+48, LEDI+49, SENDOUT+5, ACC+1, ACC+8, ACC+14, ACC+15, ACC+16 , AAA+28, AAA+33, AAA+38 | 
| ^BLRSITE("ACC" | SENDOUT+11, ACC+24 | 
| ^DPT - [#2] | AAA+60, AAA+61 | 
| ^LAB(60 - [#60] | SENDOUT+8, SENDOUT+9 | 
| ^LAHM(62.9 - [#62.9] | NOMAP+4, CHECKMAP+3, CHECKMAP+4 | 
| ^LR - [#63] | AAA+57, AAA+58 | 
| ^LRO(68 - [#68] | ACC+22, ACC+28, AAA+51, AAA+55 | 
| ^SC - [#44] | LEDI+8, LEDI+9, ACC+6, ACC+7 | 
| ^TMP("BLRRL" | TMPSET+6*, TMPSET+13*, TMPSET+21*, TMPSET+27* | 
| Name | Line Occurrences | 
|---|---|
| $$CHECKMAP | NOMAP+5 | 
| $$NOMAP | LEDI+25, ACC+18 | 
| AAA | AAA+4 | 
| CLNAO | FLAO+1, AAA+5 | 
| DISAAQ | LEDIAAA+7, AAA+5 | 
| FLAO | LEDIAAA+8, AAA+6 | 
| LEDI | ACC+1 | 
| LEDIAAA | LEDI+42, LEDIAAA+6 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| A | DISAAQ+1~, DISAAQ+3*, DISAAQ+5 | 
| AAQ | DISAAQ~ | 
| AAQ( | DISAAQ+3, DISAAQ+5, DISAAQ+15, DISAAQ+16 | 
| AC | SENDOUT~, SENDOUT+1, SENDOUT+11 | 
| ACC | FLAO~, FLAO+11 | 
| ACCA | SENDOUT+3~, SENDOUT+9*, SENDOUT+10, SENDOUT+11 | 
| ADA | SETAO+1~, SETAO+3*, SETAO+4, SETAO+6, SENDOUT+7~, SENDOUT+8*, SENDOUT+9 | 
| ANS | SETAO+1~, SETAO+5*, SETAO+6, FLAO+3~, FLAO+7*, FLAO+13 | 
| AREA | SENDOUT+3~ | 
| BLRA | LEDI+1~, LEDI+40*, LEDI+41, ACC+31* | 
| >> BLRAGUI | LEDI+49, LEDI+52, LEDI+53, ACC+12, AAA+34, AAA+47, AAA+63 | 
| BLRALTDZ | LEDI+9*, LEDI+10, LEDI+11, LEDI+23, LEDI+48, LEDI+49, SENDOUT+5, ACC+1, ACC+7*, ACC+8 , ACC+9, ACC+13, ACC+14!, ACC+15!, ACC+16, ACC+24, AAA+28, AAA+33, AAA+38 | 
| >> BLRASFLG | LEDI+43, LEDI+44*, AAA+30, AAA+36* | 
| BLRB | LEDI+1~, LEDI+48*, LEDI+52, AAA+33*, AAA+34 | 
| >> BLRBT | LEDI+53, AAA+13, AAA+14 | 
| BLRC | LEDI+1~, LEDI+43* | 
| BLRCNT | LEDIAAA+7, AAA+5, DISAAQ~, DISAAQ+1~, DISAAQ+2*, DISAAQ+4*, DISAAQ+9 | 
| BLRDA | TMPSET+1~, TMPSET+2*, TMPSET+3, TMPSET+5, TMPSET+6, TMPSET+7~, TMPSET+8*, TMPSET+9, TMPSET+10, TMPSET+12 , TMPSET+13, TMPSET+14~, TMPSET+15*, TMPSET+16, TMPSET+17, TMPSET+19, TMPSET+20, TMPSET+21, TMPSET+22~, TMPSET+23* , TMPSET+24, TMPSET+25, TMPSET+26, TMPSET+27 | 
| BLRDATA | TMPSET+1~, TMPSET+5*, TMPSET+6, TMPSET+7~, TMPSET+12*, TMPSET+13, TMPSET+14~, TMPSET+20*, TMPSET+21, TMPSET+22~ , TMPSET+26*, TMPSET+27 | 
| BLRDFLG | LEDI+50!, AAA+29! | 
| BLRDXS | LEDI+50!, AAA+29! | 
| BLRIEN | TMPSET+7~, TMPSET+10*, TMPSET+11, TMPSET+12, TMPSET+13, TMPSET+14~, TMPSET+17*, TMPSET+18, TMPSET+19, TMPSET+20 , TMPSET+21, TMPSET+22~, TMPSET+25*, TMPSET+26, TMPSET+27 | 
| >> BLRINS | LEDI+52, LEDI+53*, AAA+34 | 
| >> BLRLCLNT( | LEDI+37*, AAA+24, AAA+25* | 
| BLRLDIO | ACC+3~ | 
| >> BLRLEDI | LEDI+3* | 
| BLRNORD | LEDI+31~, LEDI+33*, LEDI+34*, LEDI+35, LEDI+36, LEDI+37, LEDI+38, AAA+18~, AAA+20*, AAA+21* , AAA+22, AAA+23, AAA+24, AAA+25 | 
| BLRNORDI | LEDI+31~, LEDI+32*, LEDI+33, AAA+18~, AAA+19*, AAA+20 | 
| BLRO | LEDI+27*, LEDI+39*, LEDI+54!, LEDIAAA+8, ACC+29*, ACC+30*, AAA+5, AAA+6 | 
| BLROEN | TMPSET+14~, TMPSET+19*, TMPSET+20, TMPSET+21, TMPSET+22~ | 
| >> BLROPT | LEDI+28, ACC+12, AAA+15, AAA+47 | 
| >> BLRORDLC( | LEDI+35*, AAA+22* | 
| >> BLRPHASE | LEDI+22, ACC+4, ACC+10 | 
| >> BLRRDA | CODE+3*, CODE+4, CODE+5 | 
| BLRRL | ACC+2! | 
| BLRRL( | AAA+53* | 
| BLRRL("ACCCHECK" | ACC+21*, ACC+22*, ACC+23, ACC+24 | 
| BLRRL("ALTDUZ2" | ACC+13*, ACC+14!, ACC+15! | 
| BLRRL("BILL T | YPE" , LEDI+53*, AAA+13*, AAA+14*, AAA+40 | 
| BLRRL("LRTS" | ACC+25*, ACC+26, AAA, AAA+5 | 
| BLRRL("ORD" | AAA+52* | 
| BLRRL("PAT" | ACC+20* | 
| BLRRL("RL" | LEDI+23*, LEDI+24, LEDI+25, ACC+16*, ACC+17, ACC+18, ACC+19, ACC+24 | 
| BLRRL("RLE" | ACC+19* | 
| BLRRLC | LEDI+2!, LEDI+46!, LEDI+54!, SETAO+2!, LEDIAAA+7, LEDIAAA+8, ACC+2!, AAA+5, AAA+6 | 
| BLRRLC( | SETAO+6*, DISAAQ+19* | 
| BLRRLC(0 | LEDIAAA+1, LEDIAAA+3, AAA, AAA+1 | 
| >> BLRRLCLA | AAA+26 | 
| >> BLRRLCNT | ACC+32* | 
| >> BLRRLSUC | LEDIAAA+1*, AAA* | 
| BLRSHP | TMPSET~ | 
| BLRSHP( | TMPSET+2, TMPSET+5, TMPSET+8, TMPSET+10, TMPSET+12, TMPSET+15, TMPSET+17, TMPSET+19, TMPSET+20, TMPSET+23 , TMPSET+25, TMPSET+26 | 
| BLRSHPC | CODE+1!, CODE+5*, CODE+8 | 
| BLRTCODE | CODE+1!, CODE+3, CODE+4*, CODE+6, CODE+7, CODE+8 | 
| >> BLRTS | LEDI+4*, LEDI+25, LEDI+42, LEDIAAA+1, LEDIAAA+7, LEDIAAA+8, ACC+27*, AAA+5, AAA+6, AAA+7 , AAA+8 | 
| >> BLRTSTDA | AAA+8*, AAA+53 | 
| >> BT | LEDI+53* | 
| DA | CLNAO+1*, CLNAO+5! | 
| DA(1 | CLNAO+2*, CLNAO+3 | 
| DATA | SETAO+1~, SETAO+4*, SETAO+5 | 
| >> DFN | LEDI+36, LEDI+39, LEDI+40, ACC+20, ACC+30, ACC+31, AAA+23 | 
| DIK | CLNAO+3*, CLNAO+5! | 
| DIR | DISAAQ+8!, DISAAQ+14! | 
| DIR("A" | LEDIAAA+4*, AAA+2*, DISAAQ+10*, DISAAQ+15* | 
| DIR("B" | LEDIAAA+4*, AAA+2*, DISAAQ+16* | 
| DIR(0 | LEDIAAA+4*, AAA+2*, DISAAQ+9*, DISAAQ+15* | 
| >> DIRUT | DISAAQ+12, DISAAQ+18 | 
| DOB | AAA+49!, AAA+60* | 
| DUZ(2 | LEDI+9, LEDI+10, LEDI+23, LEDI+48, LEDI+49, SENDOUT+5, ACC+1, ACC+8, ACC+16, ACC+24 , AAA+28, AAA+33, AAA+38 | 
| FDA | FLAO+2~, FLAO+16! | 
| FDA( | FLAO+10*, FLAO+11*, FLAO+12*, FLAO+13*, FLAO+14* | 
| FERR | FLAO+2~, FLAO+16! | 
| FIENS | FLAO+2~, FLAO+9*, FLAO+10, FLAO+11, FLAO+12, FLAO+13, FLAO+14, FLAO+16! | 
| IEN | NOMAP+2~ | 
| INST | CHECKMAP~, CHECKMAP+3 | 
| L | CLNAO~, CLNAO+1, CLNAO+2 | 
| LEDI | FLAO~, FLAO+1 | 
| LOC | NOMAP~, NOMAP+3 | 
| >> LRAA | ACC+21, ACC+28, AAA+51, AAA+55 | 
| >> LRACC | ACC+22 | 
| >> LRAD | ACC+28, AAA+51, AAA+55 | 
| >> LRAN | ACC+28, AAA+51, AAA+55 | 
| >> LRCDT | LEDI+40, LEDI+52, ACC+31, AAA+34 | 
| >> LRDUZ(2 | LEDI+11*, ACC+9* | 
| >> LRLLOC | LEDI+36, AAA+23 | 
| >> LRODT | LEDI+36, AAA+23 | 
| >> LROLLOC | LEDI+7, LEDI+8, LEDI+9, LEDI+25, ACC+5, ACC+6, ACC+7, ACC+18 | 
| >> LRORD | LEDI+27, LEDI+34, LEDI+38*, LEDI+39, LEDI+40, LEDI+43, LEDI+51, LEDI+52, LEDI+53, ACC+28* , ACC+29, ACC+30, ACC+31, AAA+21, AAA+26, AAA+31, AAA+32, AAA+34, AAA+39 | 
| >> LRPRAC | LEDI+36, AAA+23 | 
| >> LRQUIET | LEDI+28, LEDIAAA+3, AAA+1, AAA+12, AAA+15, AAA+26, AAA+28, AAA+38 | 
| LRT | SENDOUT~, SENDOUT+1, SENDOUT+8, SENDOUT+9 | 
| >> LRTS | LEDI+4, ACC+18, ACC+25, ACC+27 | 
| >> LRTSORU | LEDI+4, ACC+25, ACC+27 | 
| >> LRTSTS | LEDI+4, LEDI+36, AAA+23 | 
| >> LRUID | LEDI+32, LEDI+36, LEDI+40, LEDI+43, LEDI+52, LEDIAAA+8, ACC+31, AAA+6, AAA+19, AAA+23 , AAA+24, AAA+26, AAA+31, AAA+34 | 
| MAPPED | NOMAP+2~, NOMAP+4, NOMAP+5* | 
| MATCH | SENDOUT+3~, SENDOUT+4*, SENDOUT+8, SENDOUT+11*, SENDOUT+12, CHECKMAP+1~, CHECKMAP+2*, CHECKMAP+4*, CHECKMAP+5 | 
| MDA | CHECKMAP+1~, CHECKMAP+3*, CHECKMAP+4 | 
| ORDLINST | NOMAP+2~, NOMAP+3*, NOMAP+4, NOMAP+5 | 
| ORDNUM | AAA+50~, AAA+51*, AAA+52, AAA+53, AAA+63 | 
| PA | AAA+54~, AAA+58*, AAA+59, AAA+60, AAA+61 | 
| PAI | AAA+54~, AAA+55*, AAA+56, AAA+57, AAA+58 | 
| QUES | SETAO+1~, SETAO+5*, SETAO+6, FLAO+3~, FLAO+6*, FLAO+12 | 
| RDA | FLAO+3~, FLAO+4*, FLAO+5, FLAO+6, FLAO+7, FLAO+8 | 
| RES | DISAAQ+7~, DISAAQ+13*, DISAAQ+15, DISAAQ+16, DISAAQ+19 | 
| RIEN | FLAO+3~, FLAO+5*, FLAO+6, FLAO+7, FLAO+8 | 
| RL | FLAO~, FLAO+1, FLAO+9, SENDOUT+3~, SENDOUT+5*, SENDOUT+6, CODE~, CODE+2, CODE+3, CODE+4 , CODE+5, NOMAP~, NOMAP+6 | 
| RLC | FLAO~ | 
| RLC( | FLAO+4, FLAO+5, FLAO+6, FLAO+7, FLAO+8 | 
| RO | SETAO~, SETAO+3, SETAO+4 | 
| RSC | SETAO+1~, SETAO+5*, SETAO+6, FLAO+3~, FLAO+8*, FLAO+14 | 
| SEX | AAA+49!, AAA+61* | 
| T | FLAO~, FLAO+1, FLAO+10, CLNAO~, CLNAO+1 | 
| TIEN | DISAAQ~, DISAAQ+3, DISAAQ+5, DISAAQ+15, DISAAQ+16, DISAAQ+19 | 
| TS | SETAO~, SETAO+3, CHECKMAP~, CHECKMAP+4 | 
| TST | SETAO+1~, SETAO+5*, SETAO+6, CODE~, CODE+3, NOMAP~, NOMAP+5, NOMAP+6 | 
| U | LEDI+8, LEDI+9, LEDI+33, LEDI+48, LEDI+49, SETAO+5, SETAO+6, LEDIAAA+1, FLAO+6, FLAO+7 , FLAO+8, SENDOUT+9, ACC+1, ACC+6, ACC+7, ACC+14, ACC+15, ACC+19, AAA, AAA+20 , AAA+28, AAA+33, AAA+38, AAA+55, AAA+57, AAA+58, AAA+60, AAA+61, CODE+4, CODE+5 , CODE+8, DISAAQ+5, DISAAQ+15, DISAAQ+16, DISAAQ+19 | 
| >> XQY0 | LEDIAAA+1, AAA | 
| >> Y | LEDIAAA+6, AAA+4, DISAAQ+13, DISAAQ+19 |