©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
BGOICDLK ; IHS/BAO/TMD - FHL - PROGRAM TO GET LIST OF DIAGNOSES ;06-Mar-2014 20:24;DU
Source file <BGOICDLK.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 2 | $$ICDDX^ICDCODE ($$ICDDX,$$IMP,$$LD)^ICDEX |
| GUI Objects | 2 | ($$CVTDATE,$$TMPGBL,LEXLKUP)^BGOUTL $$AICD^BGOUTL2 |
| IHS Patient | 1 | $$IMP^AUPNSICD |
| Lexicon Utility | 1 | $$ONE^LEXU |
| VA Fileman | 1 | (,FIND)^DIC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| XTLKUP | ||
| ICDLKUP(RET,INP) | ;PEP - ICD lookup
|
|
| CHKINJ(IEN,SYS) | ;Check for an injury code
|
|
| CHKHITS | ||
| AICDLKUP | ||
| DXLIST(RET,INP) | ;PEP - retrieve dx list
|
| Name | Field # of Occurrence |
|---|---|
| $$IMP^AUPNSICD | ICDLKUP+13 |
| $$CVTDATE^BGOUTL | ICDLKUP+6 |
| $$TMPGBL^BGOUTL | ICDLKUP+3 |
| LEXLKUP^BGOUTL | ICDLKUP+19 |
| $$AICD^BGOUTL2 | ICDLKUP+17, ICDLKUP+28, CHKHITS+1, CHKHITS+7 |
| ^DIC | ICDLKUP+34 |
| FIND^DIC | ICDLKUP+49 |
| $$ICDDX^ICDCODE | ICDLKUP+29, CHKHITS+2 |
| $$ICDDX^ICDEX | ICDLKUP+28, CHKHITS+1 |
| $$IMP^ICDEX | ICDLKUP+14 |
| $$LD^ICDEX | CHKHITS+8 |
| $$ONE^LEXU | ICDLKUP+24 |
| RPC Name | Call Tags |
|---|---|
| BGOICDLK ICDLKUP | ICDLKUP |
| FileNo | Call Tags |
|---|---|
| ^ICD9 - [#80] | Classic Fileman Calls, FIND^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(80 | ICDLKUP+38 |
| ^ICD9 - [#80] | CHKHITS+12 |
| ^ICD9("BA" | ICDLKUP+44, ICDLKUP+46 |
| ^TMP("XTLKHITS" | ICDLKUP+33!, ICDLKUP+47!, ICDLKUP+51*, ICDLKUP+53!, XTLKUP+1, XTLKUP+2 |
| ^UTILITY("AICDHITS" | ICDLKUP+33!, ICDLKUP+47!, AICDLKUP+1, AICDLKUP+2 |
| Name | Line Occurrences |
|---|---|
| $$CHKINJ | CHKHITS+9, CHKHITS+14 |
| AICDLKUP | ICDLKUP+40 |
| CHKHITS | ICDLKUP+30, ICDLKUP+37, ICDLKUP+46, AICDLKUP+3, XTLKUP+3 |
| ICDLKUP | DXLIST+9 |
| XTLKUP | ICDLKUP+39, ICDLKUP+52 |
| Name | Field # of Occurrence |
|---|---|
| ^( | CHKHITS* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AICDRET | ICDLKUP+2~ |
| APP | ICDLKUP+2~, ICDLKUP+18*, ICDLKUP+19, ICDLKUP+24 |
| CNT | ICDLKUP+1~, ICDLKUP+11*, ICDLKUP+41, CHKHITS+5*, CHKHITS+17 |
| CODE | ICDLKUP+2~ |
| DESC | ICDLKUP+2~ |
| DIC | ICDLKUP+1~, ICDLKUP+32* |
| DIC(0 | ICDLKUP+32* |
| DT | ICDLKUP+7, ICDLKUP+14 |
| DUZ("AG" | ICDLKUP+31 |
| ECD | ICDLKUP+1~, ICDLKUP+9*, CHKHITS+15, CHKHITS+16, DXLIST+1~, DXLIST+7*, DXLIST+9 |
| HITS | ICDLKUP+16~, ICDLKUP+19, ICDLKUP+20*, ICDLKUP+21*, ICDLKUP+22 |
| HITS( | ICDLKUP+21, ICDLKUP+22 |
| I | ICDLKUP+1~, AICDLKUP*, AICDLKUP+1*, AICDLKUP+2, XTLKUP*, XTLKUP+1*, XTLKUP+2 |
| ICD | ICDLKUP+1~, ICDLKUP+28*, ICDLKUP+29*, ICDLKUP+30, ICDLKUP+36*, ICDLKUP+45*, ICDLKUP+46*, AICDLKUP+2*, XTLKUP+2*, CHKHITS , CHKHITS+1, CHKHITS+2, CHKHITS+12, CHKHITS+17 |
| IEN | ICDLKUP+1~, CHKHITS+1*, CHKHITS+2*, CHKHITS+4, CHKHITS+8, CHKHITS+9, CHKHITS+13, CHKHITS+14, CHKHITS+17, CHKINJ~ , CHKINJ+5, CHKINJ+6, CHKINJ+7, CHKINJ+8, CHKINJ+9, CHKINJ+11 |
| IMP | ICDLKUP+2~, ICDLKUP+14*, ICDLKUP+18 |
| INJ | ICDLKUP+2~, CHKHITS+9*, CHKHITS+14*, CHKHITS+15, CHKHITS+16 |
| INP | ICDLKUP~, ICDLKUP+4, ICDLKUP+5, ICDLKUP+6, ICDLKUP+8, ICDLKUP+9, ICDLKUP+10, DXLIST~, DXLIST+2, DXLIST+3 , DXLIST+4, DXLIST+5, DXLIST+6, DXLIST+7, DXLIST+8 |
| J | CHKINJ+1~, CHKINJ+2*, CHKINJ+5*, CHKINJ+6*, CHKINJ+7*, CHKINJ+8*, CHKINJ+9*, CHKINJ+11*, CHKINJ+12 |
| LEX | ICDLKUP+1~, ICDLKUP+5*, ICDLKUP+15, ICDLKUP+22*, ICDLKUP+24 |
| LK | ICDLKUP+42~, ICDLKUP+43*, ICDLKUP+44*, ICDLKUP+46 |
| LKUP | ICDLKUP+1~, ICDLKUP+4*, ICDLKUP+19, ICDLKUP+32, ICDLKUP+41, ICDLKUP+43, ICDLKUP+44, ICDLKUP+49, DXLIST+1~, DXLIST+2* , DXLIST+9 |
| LN | ICDLKUP+42~, ICDLKUP+43*, ICDLKUP+44 |
| MAX | DXLIST+1~, DXLIST+3* |
| MORE | DXLIST+1~, DXLIST+4* |
| NARR | ICDLKUP+2~, CHKHITS+8*, CHKHITS+12*, CHKHITS+13*, CHKHITS+17 |
| REC | ICDLKUP+2~ |
| RES | ICDLKUP+1~ |
| RES("DILIST" | ICDLKUP+50, ICDLKUP+51 |
| RET | ICDLKUP~, ICDLKUP+3*, ICDLKUP+54, CHKHITS, CHKHITS+17, DXLIST~, DXLIST+9 |
| SEX | ICDLKUP+1~, ICDLKUP+8*, DXLIST+1~, DXLIST+6*, DXLIST+9 |
| SYS | ICDLKUP+2~, ICDLKUP+13*, CHKHITS+9, CHKHITS+14, CHKINJ~, CHKINJ+4 |
| U | ICDLKUP+4, ICDLKUP+5, ICDLKUP+6, ICDLKUP+8, ICDLKUP+9, ICDLKUP+10, ICDLKUP+19, ICDLKUP+28, ICDLKUP+29, ICDLKUP+35 , CHKHITS+4, CHKHITS+13, CHKHITS+17, CHKINJ+5, CHKINJ+6, CHKINJ+7, CHKINJ+8, CHKINJ+11, DXLIST+2, DXLIST+3 , DXLIST+4, DXLIST+5, DXLIST+6, DXLIST+7, DXLIST+8, DXLIST+9 |
| VCD | ICDLKUP+1~, ICDLKUP+10*, DXLIST+1~, DXLIST+8*, DXLIST+9 |
| VDT | ICDLKUP+1~, ICDLKUP+6*, ICDLKUP+7*, ICDLKUP+13, ICDLKUP+18, ICDLKUP+19, ICDLKUP+24, ICDLKUP+28, ICDLKUP+29, CHKHITS+1 , CHKHITS+2, CHKHITS+8, DXLIST+1~, DXLIST+5*, DXLIST+9 |
| X | ICDLKUP+1~, ICDLKUP+24*, ICDLKUP+25, ICDLKUP+28, ICDLKUP+29, ICDLKUP+32* |
| XTLKSAY | ICDLKUP+2~, ICDLKUP+32* |
| Y | ICDLKUP+1~, ICDLKUP+35, ICDLKUP+36 |