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 |