MC44PST0 ;ALB/JAM - MEDICAL DIAGNOSES UPDATE WITH ICD10 CODES ;3/26/12 15:45
Source file <MC44PST0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;Patch entry point
|
|
| RPT | ;Queue entry point for Medical Diagnosis ICD10 update
|
|
| DEL | ;Remove ICD-10 codes that are no longer valid, if patch was installed before
|
|
| ADDX | ;* add ICD10 diagnosis code
|
|
| FILICD | ;File ICD10 codes in File 697.5
|
|
| ERRSET(ERRMSG) | ; set string with error
|
|
| LINE(TEXT) | ; Add line to message global
|
|
| ; Send message
|
||
| CODES | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | EN+11 |
| $$FIND1^DIC | ADDX+5 |
| UPDATE^DIE | FILICD+10 |
| ^DIK | DEL+14, DEL+26 |
| $$CODEC^ICDEX | DEL+23 |
| $$CODECS^ICDEX | FILICD+4 |
| $$CODEN^ICDEX | FILICD+6 |
| $$CSI^ICDEX | DEL+11 |
| $$UP^XLFSTR | ADDX+4 |
| ^XMD | MAIL+5 |
| $$INSTALDT^XPDUTL | DEL+3 |
| BMES^XPDUTL | EN+3 |
| MES^XPDUTL | EN+2, EN+4, EN+5, EN+6, EN+7, EN+8 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^MCAR(697.5 - [#697.5] | FIND1^DIC |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARY | DEL+1~ |
| ARY( | DEL+20 |
| ARY("ADV EFF | MEDICAL/BIOLOGICAL SUBSTANCES NOS" , DEL+16* |
| ARY("DRUG REL | ATED LUPUS ERYTHEMATOSUS" , DEL+16*, ATED RHEUMATIC SYNDROMES" , DEL+17* |
| CNT | RPT+1~, RPT+7*, RPT+14, LINE+1* |
| CNTD | RPT+1~, RPT+7*, RPT+16, FILICD+12* |
| COU | RPT+1~, RPT+11*, RPT+12* |
| >> DA | DEL+12*, DEL+24* |
| >> DA(1 | DEL+12*, DEL+13, DEL+24*, DEL+25 |
| DEL | DEL+1~, DEL+3*, DEL+4 |
| >> DIK | DEL+13*, DEL+25* |
| DUZ | MAIL+2 |
| DX | DEL+10*, DEL+11, DEL+22*, DEL+23, ADDX+1~, ADDX+4*, FILICD+2, FILICD+4, FILICD+6, ERRSET+2 |
| DXIEN | FILICD+1~, FILICD+6*, FILICD+8, FILICD+9 |
| ERRMSG | ERRSET~, ERRSET+2 |
| ERRTXT | ADDX+1~, ADDX+6*, FILICD+1~, FILICD+3*, FILICD+5*, FILICD+11* |
| MCDXT | ADDX+1~, ADDX+5*, FILICD+8, FILICD+9 |
| MCERR | FILICD+1~, FILICD+11 |
| MCFDA | FILICD+1~ |
| MCFDA( | FILICD+9* |
| MCRTN | RPT+1~, RPT+11*, RPT+12*, ADDX+3 |
| MCTAG | ADDX+1~, ADDX+3* |
| MCX | ADDX+1~, ADDX+3* |
| MCXX | ADDX+1~, ADDX+4*, ADDX+5, ERRSET+2 |
| MCXY | ADDX+1~, ADDX+3*, ADDX+4 |
| RESLT | DEL+1~, DEL+3 |
| RESLT( | DEL+6 |
| RESLT("" | DEL+5 |
| SPACE | ADDX+1~, ADDX+2*, ERRSET+2 |
| STR | DEL+1~, DEL+6*, DEL+19*, DEL+20, ERRSET+1~, ERRSET+2*, ERRSET+3 |
| TEXT | LINE~, LINE+1 |
| TXT | RPT+1~, RPT+4*, RPT+5*, RPT+8*, RPT+9*, RPT+10*, RPT+13*, RPT+14*, RPT+15*, RPT+16* |
| XMDUZ | MAIL+1~, MAIL+2* |
| XMSUB | MAIL+1~, MAIL+3* |
| XMTEXT | MAIL+1~, MAIL+4* |
| XMY | MAIL+1~ |
| XMY( | MAIL+2* |
| XX | DEL+1~, DEL+5*, DEL+6, DEL+8*, DEL+9, DEL+10, DEL+12, DEL+18*, DEL+19, DEL+21 , DEL+22, DEL+24 |
| YY | DEL+1~, DEL+9*, DEL+10, DEL+12, DEL+21*, DEL+22, DEL+24 |
| ZTDESC | EN+1~, EN+10* |
| ZTDTH | EN+1~, EN+11* |
| ZTIO | EN+1~, EN+10* |
| ZTREQ | EN+1~, EN+11* |
| ZTRTN | EN+1~, EN+10* |
| ZTSAVE | EN+1~ |
| ZTSAVE("ZTREQ" | EN+11* |
| Name | Field # of Occurrence |
|---|---|
| $T(@MCTAG | ADDX+3 |
