BKMUL3 ;APTIV/HC/DB-BKM utilities for Code Set Versioning ; 16 Apr 2008 6:00 PM
Source file <BKMUL3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ICD0(VAL,IDT,PC) | ; EP - Return value of CSV pc of the ICD OPERATION/PROCEDURE file (#80.1)
|
|
| ICPT(VAL,IDT,PC) | ; EP - Return value of CSV pc of the CPT file (#81)
|
|
| TKO(STR,VAL) | ;EP - Take off ending character
|
|
| ICD9(VAL,IDT,PC) | ; EP - Return value of CSV pc of the ICD DIAGNOSIS file (#80)
|
|
| ICDD(FILE,VAL,IDT) | ;EP - Return description for ^ICD9 or ^ICD0
; FILE is 80 or 80.1 ; VAL is internal entry number ; IDT is the date |
| Name | Field # of Occurrence |
|---|---|
| $$TKO^BQIUL1 | ICDD+18 |
| $$ICDD^ICDCODE | ICDD+11 |
| $$ICDDX^ICDCODE | ICD9+13 |
| $$ICDOP^ICDCODE | ICD0+13 |
| $$CSI^ICDEX | ICD9+10, ICD0+10, ICDD+14 |
| $$ICDDX^ICDEX | ICD9+11 |
| $$ICDOP^ICDEX | ICD0+11 |
| $$ICDDESC^ICDXCODE | ICDD+15 |
| $$CPT^ICPTCOD | ICPT+9 |
| $$VERSION^XPDUTL | ICD9+9, ICD9+12, ICD0+9, ICD0+12, ICDD+7, ICDD+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | ICDD+5~, ICDD+15 |
| ARRAY( | ICDD+17 |
| CODE | ICDD+5~, ICDD+10, ICDD+11 |
| >> CSYS | ICDD+14*, ICDD+15 |
| DESC | ICDD+5~, ICDD+17*, ICDD+18*, ICDD+19 |
| EXEC | ICDD+5~, ICDD+8*, ICDD+9 |
| FILE | ICDD~, ICDD+8, ICDD+14 |
| I | ICDD+5~, ICDD+17* |
| IDT | ICD9~, ICD9+8*, ICD9+11, ICD9+13, ICD0~, ICD0+8*, ICD0+11, ICD0+13, ICPT~, ICPT+8* , ICPT+9, ICDD~, ICDD+6*, ICDD+8, ICDD+11, ICDD+15 |
| OK | ICDD+5~, ICDD+11*, ICDD+12, ICDD+13, ICDD+15* |
| PC | ICD9~, ICD9+15, ICD0~, ICD0+15, ICPT~, ICPT+11 |
| QFL | ICDD+5~, ICDD+6*, ICDD+7, ICDD+10*, ICDD+12* |
| STR | ICD9+7~, ICD9+11*, ICD9+13*, ICD9+14, ICD9+15, ICD0+7~, ICD0+11*, ICD0+13*, ICD0+14, ICD0+15 , ICPT+7~, ICPT+9*, ICPT+10, ICPT+11, TKO~, TKO+11, TKO+14*, TKO+16 |
| >> SYS | ICD9+10*, ICD9+11, ICD0+10*, ICD0+11 |
| U | ICD9+14, ICD9+15, ICD0+14, ICD0+15, ICPT+10, ICPT+11 |
| VAL | ICD9~, ICD9+10, ICD9+11, ICD9+13, ICD0~, ICD0+10, ICD0+11, ICD0+13, ICPT~, ICPT+9 , ICDD~, ICDD+8, ICDD+14, ICDD+15, TKO~, TKO+12, TKO+14 |