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 |