©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
BGOFHLK ; IHS/BAO/TMD - FHL - PROGRAM TO GET LIST OF DIAGNOSES ;02-Apr-2013 09:12;MGH
Source file <BGOFHLK.m>
| Package | Total | Call Graph |
|---|---|---|
| GUI Objects | 2 | ($$CVTDATE,$$TMPGBL)^BGOUTL $$AICD^BGOUTL2 |
| DRG Grouper | 1 | ($$ICDDX,$$LKTX)^ICDEX |
| IHS Patient | 1 | $$CHKFH^AUPNSICD |
| Kernel | 1 | $$FMDIFF^XLFDT |
| VA Fileman | 1 | ^DIC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHKHITS | ;Q:$D(@RET@(0,ICD)) S ^(ICD)=""
|
|
| ICDLKUP(RET,INP) | ;PEP - ICD lookup
|
|
| CHKFH | ;Family history lookup
|
| RPC Name | Call Tags |
|---|---|
| BGOFHX ICDLKUP | ICDLKUP |
| FileNo | Call Tags |
|---|---|
| ^ICD9 - [#80] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ICD9 - [#80] | CHKHITS+2, CHKHITS+10 |
| ^ICD9("AB" | ICDLKUP+38, ICDLKUP+39 |
| ^ICD9("BA" | ICDLKUP+31, ICDLKUP+33 |
| ^TMP("ICD9" | ICDLKUP+15!, ICDLKUP+18, ICDLKUP+19 |
| ^TMP("XTLKHITS" | ICDLKUP+23! |
| ^UTILITY("AICDHITS" | ICDLKUP+23! |
| Name | Line Occurrences |
|---|---|
| CHKHITS | ICDLKUP+20, ICDLKUP+27, ICDLKUP+33, ICDLKUP+39 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AICDRET | ICDLKUP+2~ |
| CNT | ICDLKUP+1~, ICDLKUP+9*, ICDLKUP+28, CHKHITS+12*, CHKHITS+13 |
| CODE | ICDLKUP+2~, CHKHITS+11*, CHKHITS+13 |
| DESC | ICDLKUP+2~, CHKHITS+11*, CHKHITS+13 |
| DIC | ICDLKUP+1~, ICDLKUP+22* |
| DIC(0 | ICDLKUP+22* |
| DUZ("AG" | ICDLKUP+11 |
| FROM | ICDLKUP+1~, ICDLKUP+5*, ICDLKUP+36*, ICDLKUP+38 |
| HITS | ICDLKUP+13~, ICDLKUP+14*, ICDLKUP+16*, ICDLKUP+17 |
| I | ICDLKUP+1~ |
| ICD | ICDLKUP+1~, ICDLKUP+19*, ICDLKUP+26*, ICDLKUP+32*, ICDLKUP+33*, ICDLKUP+39*, CHKHITS+2, CHKHITS+5, CHKHITS+9, CHKHITS+10 , CHKHITS+13 |
| INP | ICDLKUP~, ICDLKUP+4, ICDLKUP+5, ICDLKUP+6, ICDLKUP+7, ICDLKUP+8 |
| LK | ICDLKUP+29~, ICDLKUP+30*, ICDLKUP+31*, ICDLKUP+33, ICDLKUP+35~, ICDLKUP+38*, ICDLKUP+39 |
| LK1 | ICDLKUP+35~, ICDLKUP+38* |
| LKUP | ICDLKUP+1~, ICDLKUP+4*, ICDLKUP+10, ICDLKUP+16, ICDLKUP+22, ICDLKUP+28, ICDLKUP+30, ICDLKUP+31, ICDLKUP+34 |
| LN | ICDLKUP+29~, ICDLKUP+30*, ICDLKUP+31 |
| NARR | ICDLKUP+2~, CHKHITS+9*, CHKHITS+10*, CHKHITS+13 |
| OK | CHKHITS+1~, CHKHITS+5*, CHKHITS+6 |
| REC | ICDLKUP+2~, CHKHITS+2*, CHKHITS+3, CHKHITS+4, CHKHITS+7, CHKHITS+8, CHKHITS+11 |
| RECN | CHKHITS+1~, CHKHITS+4* |
| RET | ICDLKUP~, ICDLKUP+3*, ICDLKUP+40, CHKHITS+13 |
| SEX | ICDLKUP+1~, ICDLKUP+8*, CHKHITS+8 |
| TO | ICDLKUP+1~, ICDLKUP+6*, ICDLKUP+37*, ICDLKUP+38 |
| U | ICDLKUP+4, ICDLKUP+5, ICDLKUP+6, ICDLKUP+7, ICDLKUP+8, ICDLKUP+19, CHKHITS+3, CHKHITS+4, CHKHITS+7, CHKHITS+8 , CHKHITS+9, CHKHITS+11, CHKHITS+13 |
| VDT | ICDLKUP+1~, ICDLKUP+7*, ICDLKUP+16, CHKHITS+7, CHKHITS+9 |
| X | ICDLKUP+1~, ICDLKUP+18*, ICDLKUP+19, ICDLKUP+22* |
| XTLKSAY | ICDLKUP+2~, ICDLKUP+22* |
| Y | ICDLKUP+1~, ICDLKUP+25, ICDLKUP+26 |