©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BLRAG07 ; IHS/MSC/SAT - LABORATORY ACCESSION GUI RPCS ; 17-Oct-2014 09:22 ; MKK
Source file <BLRAG07.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To Lab | 3 | ($$CVTDATE,$$PREP,$$TMPGLB,ERR,LEXLKUP)^BLRAGUT (HEADERDT,HEADERPG,LINEWRAP,PRESSKEY)^BLRGMENU ENTRYAUD^BLRUTIL |
| VA Fileman | 3 | ^DIC $$GET1^DIQ ^DIR |
| IHS VA Utilities | 2 | ^XBFMK ^XBKVAR |
| Kernel | 2 | ($$DT,$$FMADD,$$FMTE)^XLFDT $$CJ^XLFSTR |
| DRG Grouper | 1 | $$ICDDX^ICDEX |
| Lexicon Utility | 1 | $$ICDONE^LEXU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| XTLKUP | ||
| AICDLKUP | ||
| DESCICD(ICD,BLRVDT) | ; EP - DESCRIPTION is now a multiple
|
|
| CHKHITS | ||
| BADSTUFN(MSG) | ; EP - Display Message and Quit with ""
|
|
| FINDER(BLRINP,RES) | ; EP - Mimic FIND^DIC call
|
|
| ORL(BLRY,BLRINP) | ||
| DIAGICD(ICD,BLRVDT) | ; EP - DIAGNOSIS is now a multiple
|
|
| ICDCODSY(BLRVDT,ICDCODSY) | ; EP - Set the ICDCODSY array
|
|
| INACTDT(ICD,BLRVDT) | ; EP - STATUS EFFECTIVE DATE is part of the STATUS Multiple.
|
|
| ICDLKUP(BLRY,BLRINP,BLRLEX,BLRVDT,BLRGEN,BLRECOD,BLRVCOD) | ;EP - ICD lookup
; rpc: BLR ICD LOOKUP |
|
| TESTIT | ; EP - Interactively test ICDLKUP call
|
| Name | Field # of Occurrence |
|---|---|
| $$CVTDATE^BLRAGUT | ICDLKUP+44 |
| $$PREP^BLRAGUT | ORL+18 |
| $$TMPGLB^BLRAGUT | ICDLKUP+40, ORL+13 |
| ERR^BLRAGUT | ICDLKUP+43 |
| LEXLKUP^BLRAGUT | ICDLKUP+48 |
| HEADERDT^BLRGMENU | TESTIT+7, TESTIT+26 |
| HEADERPG^BLRGMENU | TESTIT+51 |
| LINEWRAP^BLRGMENU | TESTIT+54 |
| PRESSKEY^BLRGMENU | TESTIT+59, BADSTUFN+2 |
| ENTRYAUD^BLRUTIL | CHKHITS+2, CHKHITS+16 |
| ^DIC | ICDLKUP+61 |
| $$GET1^DIQ | CHKHITS+30, ICDCODSY+8, ICDCODSY+9 |
| ^DIR | TESTIT+13, TESTIT+31 |
| $$ICDDX^ICDEX | FINDER+5 |
| $$ICDONE^LEXU | ICDLKUP+52 |
| ^XBFMK | TESTIT+9, TESTIT+28 |
| ^XBKVAR | ICDLKUP+37, ORL+10 |
| $$DT^XLFDT | ICDLKUP+30, TESTIT+12, TESTIT+17 |
| $$FMADD^XLFDT | DESCICD+6, DIAGICD+6, INACTDT+5 |
| $$FMTE^XLFDT | TESTIT+19 |
| $$CJ^XLFSTR | TESTIT+37, TESTIT+38 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| RPC Name | Call Tags |
|---|---|
| BLR ICD LOOKUP | ICDLKUP |
| BLR ORDER REASON LKUP | ORL |
| FileNo | Call Tags |
|---|---|
| ^ICD9 - [#80] | Classic Fileman Calls, GET1^DIQ |
| ^ICDS - [#80.4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TRAP" | ICDLKUP+37, ORL+10 |
| ^DD(80 | ICDLKUP+66 |
| ^ICD9 - [#80] | CHKHITS+1, CHKHITS+8, DESCICD+3, DESCICD+7, DESCICD+10, DESCICD+13, DIAGICD+3, DIAGICD+7, DIAGICD+10, DIAGICD+13 , INACTDT+6, INACTDT+11, INACTDT+14 |
| ^ICD9("BA" | ICDLKUP+54, ICDLKUP+55, ICDLKUP+72, ICDLKUP+74 |
| ^ICDS - [#80.4] | ICDCODSY+7 |
| ^ICDS("C" | ICDCODSY+10 |
| ^LAB(69.9 - [#69.9] | ORL+16 |
| ^ORD(100.03 - [#100.03] | ORL+17, ORL+18, ORL+19 |
| ^TMP("BLRAG" | ICDLKUP+39!, ORL+12!, TESTIT+3! |
| ^TMP("ICD9" | ICDLKUP+60!, AICDLKUP+7, AICDLKUP+8 |
| ^TMP("XTLKHITS" | ICDLKUP+60!, ICDLKUP+75!, ICDLKUP+80*, ICDLKUP+82!, XTLKUP+1, XTLKUP+2 |
| ^UTILITY("AICDHITS" | ICDLKUP+75! |
| Name | Line Occurrences |
|---|---|
| $$BADSTUFN | TESTIT+14, TESTIT+32 |
| $$DESCICD | CHKHITS+28, FINDER+14 |
| $$DIAGICD | CHKHITS+29 |
| $$INACTDT | CHKHITS+19 |
| AICDLKUP | ICDLKUP+68 |
| CHKHITS | ICDLKUP+56, ICDLKUP+65, ICDLKUP+74, AICDLKUP+9, XTLKUP+3 |
| FINDER | ICDLKUP+78 |
| ICDCODSY | ICDLKUP+32 |
| ICDLKUP | TESTIT+35 |
| XTLKUP | ICDLKUP+67, ICDLKUP+81 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AICDRET | ICDLKUP+23~ |
| BLRDEF | ORL+8~, ORL+16*, ORL+17 |
| BLRECOD | ICDLKUP~, ICDLKUP+35*, CHKHITS+11, CHKHITS+12, TESTIT+23* |
| BLRGEN | ICDLKUP~, ICDLKUP+34*, CHKHITS+21, TESTIT+22* |
| BLRI | ICDLKUP+24~, ICDLKUP+38*, ICDLKUP+69, CHKHITS+34*, CHKHITS+36, ORL+8~, ORL+11*, ORL+17*, ORL+20*, TESTIT+49* , TESTIT+50*, TESTIT+52, TESTIT+53 |
| BLRIEN | ORL+8~, ORL+19*, ORL+20 |
| BLRINP | ICDLKUP~, ICDLKUP+43, ICDLKUP+48, ICDLKUP+58, ICDLKUP+69, ICDLKUP+71, ICDLKUP+72, ICDLKUP+78, ORL~, ORL+9* , ORL+18, FINDER~, FINDER+5, TESTIT+34*, TESTIT+35, TESTIT+37 |
| BLRJ | ORL+8~, ORL+18*, ORL+19, ORL+20 |
| BLRLEX | ICDLKUP~, ICDLKUP+28*, ICDLKUP+46, ICDLKUP+51*, ICDLKUP+52, TESTIT+21* |
| BLRVCOD | ICDLKUP~, ICDLKUP+36*, CHKHITS+13, CHKHITS+14, TESTIT+24* |
| BLRVDT | ICDLKUP~, ICDLKUP+30*, ICDLKUP+32, ICDLKUP+44*, CHKHITS+19, CHKHITS+28, CHKHITS+29, DESCICD~, DESCICD+5, DESCICD+6* , DESCICD+7, DIAGICD~, DIAGICD+5, DIAGICD+6*, DIAGICD+7, INACTDT~, INACTDT+1, INACTDT+5*, INACTDT+6, INACTDT+9 , ICDCODSY~, ICDCODSY+16, TESTIT+16*, TESTIT+17*, TESTIT+19, TESTIT+35 |
| BLRY | ICDLKUP~, ICDLKUP+40*, ICDLKUP+41, ICDLKUP+83, ICDLKUP+89, CHKHITS, CHKHITS+36, ORL~, ORL+13*, ORL+15 , ORL+17, ORL+20, TESTIT+35, TESTIT+38, TESTIT+50, TESTIT+52 |
| >> CNT | TESTIT+45*, TESTIT+57* |
| CODE | ICDLKUP+23~, CHKHITS+26~, CHKHITS+27*, CHKHITS+36 |
| CODESYS | ICDLKUP+25~, CHKHITS+26~, CHKHITS+30*, CHKHITS+31, CHKHITS+36, ICDCODSY+1~, ICDCODSY+10*, ICDCODSY+11 |
| CODESYSA | ICDCODSY+1~, ICDCODSY+9*, ICDCODSY+10 |
| DESC | ICDLKUP+23~, CHKHITS+26~, CHKHITS+29*, CHKHITS+36 |
| DESCDATE | DESCICD+1~, DESCICD+7*, DESCICD+8, DESCICD+10 |
| DESCNUM | DESCICD+1~, DESCICD+10*, DESCICD+11, DESCICD+13 |
| DESCRIP | DESCICD+1~, DESCICD+3*, DESCICD+13*, DESCICD+15 |
| DIAGDATE | DIAGICD+1~, DIAGICD+7*, DIAGICD+8, DIAGICD+10 |
| DIAGDESC | DIAGICD+1~, DIAGICD+3*, DIAGICD+13*, DIAGICD+15 |
| DIAGNUM | DIAGICD+1~, DIAGICD+10*, DIAGICD+11, DIAGICD+13 |
| DIC | ICDLKUP+22~, ICDLKUP+58* |
| DIC(0 | ICDLKUP+58* |
| >> DILOCKTM | TESTIT+1 |
| >> DIR("A" | TESTIT+11*, TESTIT+30* |
| >> DIR("B" | TESTIT+12* |
| >> DIR(0 | TESTIT+10*, TESTIT+29* |
| >> DIRUT | TESTIT+14, TESTIT+32 |
| >> DISYS | TESTIT+1 |
| DT | TESTIT+1 |
| DTIME | TESTIT+1 |
| DUZ | TESTIT+1 |
| DUZ("AG" | ICDLKUP+57 |
| >> HEADER(1 | TESTIT+5* |
| >> HEADER(2 | TESTIT+19* |
| >> HEADER(3 | TESTIT+37* |
| >> HEADER(4 | TESTIT+38* |
| >> HEADER(5 | TESTIT+39* |
| >> HEADER(6 | TESTIT+40* |
| >> HEADER(7 | TESTIT+41*, TESTIT+42*, TESTIT+43*, TESTIT+44* |
| HITS | ICDLKUP+47~, ICDLKUP+48, ICDLKUP+49*, ICDLKUP+50*, ICDLKUP+51 |
| HITS( | ICDLKUP+50, ICDLKUP+51 |
| I | ICDLKUP+22~, AICDLKUP*, AICDLKUP+7*, AICDLKUP+8, XTLKUP*, XTLKUP+1*, XTLKUP+2 |
| ICD | ICDLKUP+22~, ICDLKUP+54*, ICDLKUP+55*, ICDLKUP+56, ICDLKUP+64*, ICDLKUP+73*, ICDLKUP+74*, AICDLKUP+8*, XTLKUP+2*, CHKHITS , CHKHITS+1, CHKHITS+8, CHKHITS+19, CHKHITS+28, CHKHITS+29, CHKHITS+30, CHKHITS+36, FINDER+1~, FINDER+13*, FINDER+14 , DESCICD~, DESCICD+3, DESCICD+7, DESCICD+10, DESCICD+13, DIAGICD~, DIAGICD+3, DIAGICD+7, DIAGICD+10, DIAGICD+13 , INACTDT~, INACTDT+6, INACTDT+11, INACTDT+14 |
| ICD10ID | CHKHITS+26~ |
| ICDCODSY | ICDLKUP+26~, ICDLKUP+32, ICDCODSY~, ICDCODSY+3!, ICDCODSY+15 |
| ICDCODSY( | CHKHITS+31, ICDCODSY+18* |
| ICDSTR | FINDER+1~, FINDER+5*, FINDER+6, FINDER+10, FINDER+11, FINDER+12, FINDER+13 |
| IEN | ICDCODSY+1~, ICDCODSY+6*, ICDCODSY+7*, ICDCODSY+8, ICDCODSY+9, ICDCODSY+11, ICDCODSY+17*, ICDCODSY+18* |
| IMPLDATE | CHKHITS+26~, ICDCODSY+1~, ICDCODSY+8*, ICDCODSY+11, ICDCODSY+14*, ICDCODSY+15*, ICDCODSY+16, ICDCODSY+18 |
| IO | TESTIT+1 |
| >> IOBS | TESTIT+1 |
| IOF | TESTIT+1 |
| IOM | TESTIT+1, TESTIT+37, TESTIT+38 |
| ION | TESTIT+1 |
| >> IOS | TESTIT+1 |
| IOSL | TESTIT+1, TESTIT+46 |
| IOST | TESTIT+1 |
| >> IOT | TESTIT+1 |
| >> IOXY | TESTIT+1 |
| LEX | ICDLKUP+22~ |
| >> LINES | TESTIT+46*, TESTIT+51, TESTIT+56* |
| LK | ICDLKUP+70~, ICDLKUP+71*, ICDLKUP+72*, ICDLKUP+74 |
| LN | ICDLKUP+70~, ICDLKUP+71*, ICDLKUP+72 |
| >> MAXLINES | TESTIT+46*, TESTIT+51 |
| MSG | BADSTUFN~, BADSTUFN+1 |
| NARR | ICDLKUP+23~, CHKHITS+26~, CHKHITS+28*, CHKHITS+36 |
| >> PG | TESTIT+45*, TESTIT+51 |
| >> QFLG | TESTIT+47*, TESTIT+50, TESTIT+51 |
| REC | ICDLKUP+23~, CHKHITS+1*, CHKHITS+11, CHKHITS+12, CHKHITS+13, CHKHITS+14, CHKHITS+21, CHKHITS+27 |
| RES | ICDLKUP+22~, ICDLKUP+78, FINDER~, FINDER+3! |
| RES("DILIST" | ICDLKUP+79, ICDLKUP+80, FINDER+8*, FINDER+9*, FINDER+10*, FINDER+11*, FINDER+12*, FINDER+14* |
| STATUS | INACTDT+3~, INACTDT+14*, INACTDT+15 |
| >> STR | TESTIT+52*, TESTIT+53, TESTIT+54 |
| STSDATE | INACTDT+3~, INACTDT+6*, INACTDT+7, INACTDT+9, INACTDT+11 |
| STSNUM | INACTDT+3~, INACTDT+11*, INACTDT+12, INACTDT+14 |
| TMP | ICDCODSY+1~ |
| TMP( | ICDCODSY+11*, ICDCODSY+15, ICDCODSY+18 |
| U | CHKHITS+21, CHKHITS+27, CHKHITS+36, ORL+17, ORL+20, TESTIT+1 |
| X | ICDLKUP+22~, ICDLKUP+37*, ICDLKUP+52*, ICDLKUP+53, ICDLKUP+54, ICDLKUP+55, ICDLKUP+58*, ORL+10*, TESTIT+34 |
| >> XPARSYS | TESTIT+1 |
| >> XQXFLG | TESTIT+1 |
| XTLKSAY | ICDLKUP+23~, ICDLKUP+58* |
| Y | ICDLKUP+22~, ICDLKUP+63, ICDLKUP+64, TESTIT+16 |