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 |