BLRREFLA ;IHS/MSC/MKK - REFerence Lab Address functions ; 17-Oct-2014 09:22 ; MKK
Source file <BLRREFLA.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 2 | $$FIND1^DIC ($$GET1,GETS)^DIQ |
DRG Grouper | 1 | $$ICDDX^ICDEX |
IHS Changes To Lab | 1 | (EEP,HEADERDT)^BLRGMENU |
Kernel | 1 | $$IHSDIV^XUS1 |
Package | Total | Caller Graph |
---|---|---|
IHS Mods To Text Integration Utilities | 1 | BTIULO11 |
Name | Comments | DBIA/ICR reference |
---|---|---|
RLADDRES(F4IEN,ARRAY) | ; EP
; F4IEN = IEN from INSTITUTION (#4) file. ; Output (if any) will be put into the ARRAY ; Returns 1 if successful or 0 if failure. |
|
LISTVISD(VFILEIEN,VISITIEN) | ; EP - List Visit Data
|
|
FINDSOME | ; EP - DEBUG
|
|
CHPCCSUB(VLABIEN,ARRAY) | ; EP - "CH" subscripted tests
|
|
VLABDATA(VLABIEN) | ; EP - Display VLAB Data
|
|
EEP | ; Ersatz EP
|
|
FINDVFVI | ; EP - Find V File visits
|
|
MIPCCSUB(VLMICIEN,ARRAY) | ; EP - "MI" subscripted tests
|
|
PCCRLADR(VFILENUM,VFILEIEN,ARRAY) | ; EP - Get Address for Lab V File entry
; VFILENUM = Number of the Lab V File ; VFILEIEN = IEN of the test in the Lab V File |
|
SHOWICD(ICD) | ; EP -
|
|
FINDVISL | ; EP - Find VLAB visits
|
Name | Field # of Occurrence |
---|---|
EEP^BLRGMENU | EEP+1 |
HEADERDT^BLRGMENU | FINDVISL+16, FINDVFVI+15 |
$$FIND1^DIC | MIPCCSUB+26, VLABDATA+48 |
$$GET1^DIQ | CHPCCSUB+5, CHPCCSUB+6, CHPCCSUB+8, CHPCCSUB+9, CHPCCSUB+11, CHPCCSUB+21, CHPCCSUB+27, CHPCCSUB+30, CHPCCSUB+31, CHPCCSUB+34 , MIPCCSUB+5, MIPCCSUB+6, MIPCCSUB+7, MIPCCSUB+9, MIPCCSUB+14, MIPCCSUB+20, MIPCCSUB+22, MIPCCSUB+35, RLADDRES+11, RLADDRES+12 , RLADDRES+13, RLADDRES+14, RLADDRES+15, RLADDRES+16, FINDSOME+13, FINDSOME+15, FINDSOME+16, FINDSOME+21, FINDSOME+24, VLABDATA+3 , VLABDATA+4, VLABDATA+5, VLABDATA+6, VLABDATA+8, VLABDATA+9, VLABDATA+14, VLABDATA+15, VLABDATA+16, VLABDATA+32, VLABDATA+42 , VLABDATA+45, VLABDATA+53, VLABDATA+54, VLABDATA+58, VLABDATA+60, VLABDATA+62, VLABDATA+64, VLABDATA+66, LISTVISD+6 |
GETS^DIQ | FINDVISL+22, LISTVISD+3 |
$$ICDDX^ICDEX | SHOWICD+3 |
$$IHSDIV^XUS1 | CHPCCSUB+24, MIPCCSUB+17, VLABDATA+43 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^DIC(4 - [#4] | GET1^DIQ |
^SC - [#44] | FIND1^DIC, GET1^DIQ |
^LAB(60 - [#60] | GET1^DIQ |
63.04 | GET1^DIQ |
^LRO(68 - [#68] | FIND1^DIC |
^LAB(69.9 - [#69.9] | GET1^DIQ |
^AUPNVSIT - [#9000010] | GET1^DIQ |
^AUPNVLAB - [#9000010.09] | GET1^DIQ, GETS^DIQ |
^AUPNVMIC - [#9000010.25] | GET1^DIQ |
^BLRRL - [#9009026] | GET1^DIQ |
^BLRSITE - [#9009029] | GET1^DIQ |
^AUTTLOC - [#9999999.06] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVLAB - [#9000010.09] | FINDVISL+20, FINDVFVI+21 |
^AUPNVMIC - [#9000010.25] | FINDVFVI+31 |
^DPT - [#2] | FINDVISL+37 |
^LAB(60 - [#60] | MIPCCSUB+31, MIPCCSUB+32 |
^LR - [#63] | CHPCCSUB+17, FINDSOME+7, FINDSOME+9, VLABDATA+39, VLABDATA+40 |
Name | Line Occurrences |
---|---|
$$CHPCCSUB | PCCRLADR+25 |
$$MIPCCSUB | PCCRLADR+27 |
$$RLADDRES | CHPCCSUB+40, MIPCCSUB+41 |
$$SHOWICD | FINDVISL+33 |
LISTVISD | FINDVFVI+24, FINDVFVI+32 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARRAY | PCCRLADR~, PCCRLADR+20!, PCCRLADR+25, PCCRLADR+27, CHPCCSUB~, CHPCCSUB+1, CHPCCSUB+40, MIPCCSUB~, MIPCCSUB+1, MIPCCSUB+41 , RLADDRES~, RLADDRES+4, RLADDRES+6! |
ARRAY("CITY" | RLADDRES+22* |
ARRAY("NAME" | RLADDRES+20* |
ARRAY("ST1" | RLADDRES+20* |
ARRAY("ST2" | RLADDRES+21* |
ARRAY("STATE" | RLADDRES+22* |
ARRAY("ZIP" | RLADDRES+22* |
>> CITY | RLADDRES+14*, RLADDRES+19, RLADDRES+22 |
>> CNT | FINDSOME+5*, FINDSOME+7, FINDSOME+9, FINDSOME+27, FINDSOME+29*, FINDSOME+30, FINDVISL+18*, FINDVISL+20, FINDVISL+40*, FINDVFVI+19* , FINDVFVI+21, FINDVFVI+29*, FINDVFVI+31, LISTVISD+17* |
>> CNTACC | FINDSOME+5*, FINDSOME+26*, FINDSOME+27 |
>> COLLDATE | CHPCCSUB+11*, CHPCCSUB+13, CHPCCSUB+16, MIPCCSUB+9*, MIPCCSUB+10, VLABDATA+6*, VLABDATA+11, VLABDATA+22 |
>> DATANAME | VLABDATA+8*, VLABDATA+25, VLABDATA+39, VLABDATA+40 |
>> DFN | CHPCCSUB+8*, CHPCCSUB+9, MIPCCSUB+6*, MIPCCSUB+7, FINDVISL+25*, FINDVISL+26, FINDVISL+27, FINDVISL+37, FINDVISL+38, VLABDATA+5* , VLABDATA+9, VLABDATA+21, LISTVISD+5*, LISTVISD+6, LISTVISD+13*, LISTVISD+14 |
>> DFN( | FINDVISL+26, FINDVISL+27* |
>> DILOCKTM | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
>> DISYS | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
DT | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
DTIME | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
DUZ | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
DUZ(2 | FINDSOME+3, FINDSOME+19 |
ERRS | MIPCCSUB+25!, FINDVISL+21!, FINDVFVI+22!, LISTVISD+1! |
>> F44IEN | VLABDATA+48*, VLABDATA+49, VLABDATA+50, VLABDATA+52, VLABDATA+53, VLABDATA+54 |
F4IEN | RLADDRES~, RLADDRES+4, RLADDRES+9, RLADDRES+11, RLADDRES+12, RLADDRES+13, RLADDRES+14, RLADDRES+15, RLADDRES+16, RLADDRES+26 |
>> F60IEN | CHPCCSUB+5*, CHPCCSUB+6, MIPCCSUB+5*, MIPCCSUB+29, MIPCCSUB+31, MIPCCSUB+32, VLABDATA+3*, VLABDATA+8, VLABDATA+20 |
>> HEADER(1 | FINDVISL+5*, FINDVFVI+3* |
>> HEADER(2 | FINDVISL+6*, FINDVFVI+4* |
>> HEADER(3 | FINDVISL+7*, FINDVISL+8*, FINDVISL+9*, FINDVISL+10*, FINDVISL+11*, FINDVISL+12*, FINDVISL+14*, FINDVFVI+5*, FINDVFVI+6*, FINDVFVI+7* |
>> HEADER(4 | FINDVFVI+8*, FINDVFVI+9*, FINDVFVI+10*, FINDVFVI+11*, FINDVFVI+12*, FINDVFVI+13* |
ICD | SHOWICD~, SHOWICD+3, SHOWICD+5 |
ICDSTR | SHOWICD+1~, SHOWICD+3*, SHOWICD+4*, SHOWICD+5*, SHOWICD+6 |
>> IENS | CHPCCSUB+19*, CHPCCSUB+21, CHPCCSUB+27, CHPCCSUB+30, MIPCCSUB+12*, MIPCCSUB+14, MIPCCSUB+20, FINDSOME+10*, FINDSOME+13, FINDSOME+15 , VLABDATA+37*, VLABDATA+42, VLABDATA+45, VLABDATA+58, VLABDATA+60, VLABDATA+62 |
>> IFIELD | FINDSOME+12*, FINDSOME+17*, FINDSOME+33 |
>> INST | CHPCCSUB+3*, CHPCCSUB+17*, CHPCCSUB+24*, CHPCCSUB+27*, CHPCCSUB+29, CHPCCSUB+31*, CHPCCSUB+34*, CHPCCSUB+37, CHPCCSUB+40, MIPCCSUB+3* , MIPCCSUB+17*, MIPCCSUB+20*, MIPCCSUB+30*, MIPCCSUB+31, MIPCCSUB+32*, MIPCCSUB+35*, MIPCCSUB+38, MIPCCSUB+41, FINDSOME+13*, FINDSOME+14 , FINDSOME+16*, FINDSOME+19, FINDSOME+21, FINDSOME+34 |
>> INSTIEN | MIPCCSUB+30*, MIPCCSUB+31*, MIPCCSUB+32 |
IO | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
>> IOBS | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
IOF | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
IOM | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
ION | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
>> IOS | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
IOSL | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
IOST | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
>> IOT | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
>> IOXY | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
>> LRAA | MIPCCSUB+26*, MIPCCSUB+29, MIPCCSUB+32 |
>> LRAAAB | MIPCCSUB+23*, MIPCCSUB+26 |
>> LRDFN | CHPCCSUB+9*, CHPCCSUB+16, CHPCCSUB+17, CHPCCSUB+19, MIPCCSUB+7*, MIPCCSUB+12, FINDSOME+6*, FINDSOME+7*, FINDSOME+9, FINDSOME+10 , FINDSOME+31, VLABDATA+9*, VLABDATA+26, VLABDATA+37, VLABDATA+39, VLABDATA+40, LISTVISD+6*, LISTVISD+7, LISTVISD+15 |
>> LRDN | CHPCCSUB+6*, CHPCCSUB+16, CHPCCSUB+17 |
>> LRIDT | CHPCCSUB+13*, CHPCCSUB+17, CHPCCSUB+19, MIPCCSUB+10*, MIPCCSUB+12, FINDSOME+8*, FINDSOME+9*, FINDSOME+10, FINDSOME+32, VLABDATA+11* , VLABDATA+27, VLABDATA+37, VLABDATA+39, VLABDATA+40 |
>> LRSS | CHPCCSUB+14*, CHPCCSUB+17 |
>> MAX | FINDSOME+5*, FINDSOME+7, FINDSOME+9, FINDVISL+18*, FINDVISL+20, FINDVFVI+19*, FINDVFVI+21, FINDVFVI+29*, FINDVFVI+31 |
>> NAME | RLADDRES+11*, RLADDRES+19, RLADDRES+20 |
>> REFLAB | FINDSOME+21*, FINDSOME+22, FINDSOME+24, FINDSOME+35 |
>> REFLNAME | FINDSOME+24*, FINDSOME+36 |
>> REQLOC | CHPCCSUB+30*, CHPCCSUB+31, FINDSOME+15*, FINDSOME+16, VLABDATA+45*, VLABDATA+46, VLABDATA+47, VLABDATA+48, VLABDATA+49, VLABDATA+51 , VLABDATA+62*, VLABDATA+63, VLABDATA+64 |
>> ST1 | RLADDRES+12*, RLADDRES+19, RLADDRES+20 |
>> ST2 | RLADDRES+13*, RLADDRES+21 |
>> STATE | RLADDRES+15*, RLADDRES+19, RLADDRES+22 |
TARGET | FINDVISL+21!, FINDVFVI+22!, LISTVISD+1! |
TARGET( | FINDVISL+25, FINDVISL+30, FINDVISL+31, FINDVISL+33, FINDVISL+34, FINDVISL+35, LISTVISD+5, LISTVISD+11, LISTVISD+12, LISTVISD+13 |
>> TESTIEN | FINDVISL+3*, FINDVFVI+18* |
U | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
VFILEIEN | PCCRLADR~, PCCRLADR+23, PCCRLADR+25, PCCRLADR+27, LISTVISD~, LISTVISD+3, LISTVISD+5, LISTVISD+9, LISTVISD+11, LISTVISD+12 , LISTVISD+13 |
VFILENUM | PCCRLADR~, PCCRLADR+22, PCCRLADR+23, PCCRLADR+25, PCCRLADR+27, PCCRLADR+29 |
>> VFLRAS | MIPCCSUB+22*, MIPCCSUB+23 |
>> VHLOCIEN | VLABDATA+16*, VLABDATA+34 |
>> VISIENS | VLABDATA+13*, VLABDATA+14, VLABDATA+16, VLABDATA+30 |
VISITIEN | VLABDATA+4*, VLABDATA+13, LISTVISD~, LISTVISD+3, LISTVISD+5, LISTVISD+10, LISTVISD+11, LISTVISD+12, LISTVISD+13 |
VLABIEN | CHPCCSUB~, CHPCCSUB+1, CHPCCSUB+5, CHPCCSUB+8, CHPCCSUB+11, FINDVISL+19*, FINDVISL+20*, FINDVISL+22, FINDVISL+25, FINDVISL+29 , FINDVISL+30, FINDVISL+31, FINDVISL+33, FINDVISL+34, FINDVISL+35, VLABDATA~, VLABDATA+1, VLABDATA+3, VLABDATA+4, VLABDATA+5 , VLABDATA+6, VLABDATA+19, FINDVFVI+20*, FINDVFVI+21*, FINDVFVI+24 |
VLMICIEN | MIPCCSUB~, MIPCCSUB+1, MIPCCSUB+5, MIPCCSUB+6, MIPCCSUB+9, MIPCCSUB+22 |
>> VLOCEIEN | VLABDATA+14*, VLABDATA+15, VLABDATA+31 |
>> VLOCENIEN | VLABDATA+15*, VLABDATA+32 |
>> VMICIEN | FINDVFVI+30*, FINDVFVI+31*, FINDVFVI+32 |
>> VPIEN | CHPCCSUB+21*, CHPCCSUB+24, MIPCCSUB+14*, MIPCCSUB+17, VLABDATA+42*, VLABDATA+43 |
>> XPARSYS | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
>> XQXFLG | CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1 |
>> ZIP | RLADDRES+16*, RLADDRES+19, RLADDRES+22 |