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 |