©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
BLRICDO ; IHS/OIT/MKK - ICDO Global Utilities ; 17-Oct-2014 09:22 ; MKK
Source file <BLRICDO.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 1 | $$ICDDX^ICDEX |
| IHS Changes To Lab | 1 | (EEP,HEADERDT,PRESSKEY)^BLRGMENU |
| Kernel | 1 | $$LJ^XLFSTR |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Changes To Lab | 1 | BLRPRE34 |
| Lab Service | 1 | ^LAB(61 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ICHEKALL | ; EP - Interactively CHEcK ALL the codes in ^BLRICDO
; This is to ensure that the codes are in the ICD DIAGNOSIS (#80) dictionary. ; If the code is in ^BLRICDO but not in File 80, delete it from ^BLRICDO |
|
| ICDO(X) | ; EP - Input Transform for field .07 file 61
|
|
| SILPURGE | ; EP - SILent Purge of BLRICDO dictionary
; This is to ensure that the codes are in the ICD DIAGNOSIS (#80) dictionary. ; If the code is in ^BLRICDO but not in File 80, delete it from ^BLRICDO |
|
| SETUP | ; EP
; This subroutine creates the ^BLRICDO global with the necessary ICDO codes ; so that the input transform subroutine (see ICDO below) can use it instead ; of having to create an array every time it is accessed. |
|
| EEP | ; Ersatz EP
|
|
| CLEANSET | ; EP
; This subroutine is called during the post-install phase of LR*5.2*1034. ; It first creates the ^BLRICDO (see SETUP below). ; It then purges all non-valid ICD codes from ^BLRICDO (see SILPURGE below). |
|
| STUFFIT(CODE,SUB) | ; EP - Create and "stuff" resulting code into ^BLRICDO
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BLRICDO( | STUFFIT+1*, ICHEKALL+15, SILPURGE+11, ICDO+4 |
| Name | Line Occurrences |
|---|---|
| SETUP | CLEANSET+5 |
| SILPURGE | CLEANSET+6 |
| STUFFIT | SETUP+12, SETUP+16, SETUP+17, SETUP+18, SETUP+19, SETUP+20, SETUP+21, SETUP+22, SETUP+23, SETUP+24 , SETUP+25, SETUP+26, SETUP+27, SETUP+28, SETUP+29, SETUP+30, SETUP+31, SETUP+32, SETUP+33, SETUP+34 , SETUP+35, SETUP+36, SETUP+37, SETUP+38, SETUP+39, SETUP+40, SETUP+41, SETUP+42 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | ICHEKALL+4~, ICHEKALL+12*, ICHEKALL+16*, ICHEKALL+17, ICHEKALL+24, SILPURGE+4~, SILPURGE+9*, SILPURGE+12* |
| CODE | SETUP+5~, SETUP+12*, STUFFIT~, STUFFIT+1 |
| GLOBAL | SETUP+5~, SETUP+7*, SETUP+8, ICHEKALL+4~, ICHEKALL+6*, ICHEKALL+34, SILPURGE+4~, SILPURGE+6*, SILPURGE+24 |
| HEADER | ICHEKALL+4~ |
| HEADER(1 | ICHEKALL+8* |
| HEADER(2 | ICHEKALL+9* |
| I | SETUP+5~, SETUP+16*, SETUP+18*, SETUP+19*, SETUP+20*, SETUP+21*, SETUP+22*, SETUP+24*, SETUP+25*, SETUP+26* , SETUP+27*, SETUP+29*, SETUP+30*, SETUP+31*, SETUP+32*, SETUP+33*, SETUP+34*, SETUP+37*, SETUP+38*, SETUP+40* , SETUP+41*, SETUP+42* |
| ICD | ICHEKALL+4~, ICHEKALL+11*, ICHEKALL+15*, ICHEKALL+19, ICHEKALL+21, ICHEKALL+28*, ICHEKALL+29*, ICHEKALL+30, ICHEKALL+32, ICHEKALL+33 , SILPURGE+4~, SILPURGE+8*, SILPURGE+11*, SILPURGE+14, SILPURGE+16, SILPURGE+20*, SILPURGE+21*, SILPURGE+22, SILPURGE+23 |
| >> ICDSTR | ICHEKALL+32*, ICHEKALL+33*, ICHEKALL+34, SILPURGE+22*, SILPURGE+23*, SILPURGE+24 |
| KILLER | ICHEKALL+4~, ICHEKALL+34*, ICHEKALL+35, SILPURGE+4~, SILPURGE+24*, SILPURGE+25 |
| PURGED | ICHEKALL+4~, ICHEKALL+12*, ICHEKALL+22*, ICHEKALL+25, ICHEKALL+27, SILPURGE+4~, SILPURGE+9*, SILPURGE+17*, SILPURGE+19 |
| PURGED( | ICHEKALL+21*, ICHEKALL+29, SILPURGE+16*, SILPURGE+21 |
| SUB | SETUP+5~, SETUP+12*, STUFFIT~, STUFFIT+1 |
| X | SETUP+5~, SETUP+12*, ICDO~, ICDO+4 |