PSUDEM8 ;BIR/DAM - ICD9 Codes for Inpatient PTF Record Extract ;20 DEC 2001
Source file <PSUDEM8.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 2 | $$CSI^ICDEX $$ICDDATA^ICDXCODE |
| Pharmacy Benefits Management | 1 | EN^PSUDEM9 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;EN CALLED FROM PSUDEM7
|
|
| PTFIEN | ;$O through ^XTMP("PSU_"_PSUJOB,"PSUIPV" to get all the PTF IEN's
|
|
| PTF70 | ;Find all ICD pointers present on ^DGPT(D0,70 node
|
|
| ICD91 | ;Find ICD codes from pointer on ^DGPT(D0,70 node and place in
|
|
| PTFM | ;
|
|
| DEL | ;Delete duplicates
|
|
| FIN | ;$O through array, and set codes into the Inpatient Record
|
| Name | Field # of Occurrence |
|---|---|
| $$CSI^ICDEX | PTF70+6, PTF70+9, PTF70+12, PTF70+15, PTF70+18, PTF70+21, PTF70+24, PTF70+27, PTF70+30, PTF70+33 , PTF70+36, PTFM+7 |
| $$ICDDATA^ICDXCODE | ICD91+5, ICD91+7, ICD91+9, ICD91+11, ICD91+13, ICD91+15, ICD91+17, ICD91+19, ICD91+21, ICD91+23 , ICD91+25, PTFM+7 |
| EN^PSUDEM9 | PTFIEN+8 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPT - [#45] | PTF70+5, PTF70+8, PTF70+11, PTF70+14, PTF70+17, PTF70+20, PTF70+23, PTF70+26, PTF70+29, PTF70+32 , PTF70+35, PTFM+3 |
| ^XTMP("PSU_" | PTFIEN+4, PTFIEN+7!, ICD91+6*, ICD91+8*, ICD91+10*, ICD91+12*, ICD91+14*, ICD91+16*, ICD91+18*, ICD91+20* , ICD91+22*, ICD91+24*, ICD91+26*, PTFM+8*, DEL+2, DEL+3!, FIN+5, FIN+7, FIN+8, FIN+11* , FIN+13, FIN+14* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CSYS | PTF70+3~ |
| CSYS( | PTFM+7*, PTFM+8 |
| CSYS(1 | PTF70+6*, ICD91+5 |
| CSYS(10 | PTF70+33*, ICD91+23 |
| CSYS(11 | PTF70+36*, ICD91+25 |
| CSYS(2 | PTF70+9*, ICD91+7 |
| CSYS(3 | PTF70+12*, ICD91+9 |
| CSYS(4 | PTF70+15*, ICD91+11 |
| CSYS(5 | PTF70+18*, ICD91+13 |
| CSYS(6 | PTF70+21*, ICD91+15 |
| CSYS(7 | PTF70+24*, ICD91+17 |
| CSYS(8 | PTF70+27*, ICD91+19 |
| CSYS(9 | PTF70+30*, ICD91+21 |
| >> I | PTFM+2*, PTFM+7, PTFM+8, PTFM+10*, DEL+3 |
| ISYSCODE | FIN+3~, FIN+8*, FIN+9, FIN+10* |
| >> N | DEL+2*, FIN+4*, FIN+5, FIN+11, FIN+12*, FIN+13*, FIN+14 |
| PSU1 | PTF70+3~, PTF70+5*, PTF70+6, ICD91+5 |
| PSU1("ICDSYS" | PTF70+6*, ICD91+6 |
| PSU10 | PTF70+3~, PTF70+32*, PTF70+33, ICD91+23 |
| PSU10("ICDSYS" | PTF70+33*, ICD91+24 |
| PSU11 | PTF70+3~, PTF70+35*, PTF70+36, ICD91+25 |
| PSU11("ICDSYS" | PTF70+36*, ICD91+26 |
| PSU2 | PTF70+3~, PTF70+8*, PTF70+9, ICD91+7 |
| PSU2("ICDSYS" | PTF70+9*, ICD91+8 |
| PSU3 | PTF70+3~, PTF70+11*, PTF70+12, ICD91+9 |
| PSU3("ICDSYS" | PTF70+12*, ICD91+10 |
| PSU4 | PTF70+3~, PTF70+14*, PTF70+15, ICD91+11 |
| PSU4("ICDSYS" | PTF70+15*, ICD91+12 |
| PSU5 | PTF70+3~, PTF70+17*, PTF70+18, ICD91+13 |
| PSU5("ICDSYS" | PTF70+18*, ICD91+14 |
| PSU6 | PTF70+3~, PTF70+20*, PTF70+21, ICD91+15 |
| PSU6("ICDSYS" | PTF70+21*, ICD91+16 |
| PSU7 | PTF70+3~, PTF70+23*, PTF70+24, ICD91+17 |
| PSU7("ICDSYS" | PTF70+24*, ICD91+18 |
| PSU8 | PTF70+3~, PTF70+26*, PTF70+27, ICD91+19 |
| PSU8("ICDSYS" | PTF70+27*, ICD91+20 |
| PSU9 | PTF70+3~, PTF70+29*, PTF70+30, ICD91+21 |
| PSU9("ICDSYS" | PTF70+30*, ICD91+22 |
| >> PSUC | PTFIEN+3*, PTFIEN+4*, PTF70+5, PTF70+8, PTF70+11, PTF70+14, PTF70+17, PTF70+20, PTF70+23, PTF70+26 , PTF70+29, PTF70+32, PTF70+35, ICD91+6, ICD91+8, ICD91+10, ICD91+12, ICD91+14, ICD91+16, ICD91+18 , ICD91+20, ICD91+22, ICD91+24, ICD91+26, PTFM+3, PTFM+8, DEL+2, DEL+3, FIN+5, FIN+7 , FIN+8, FIN+11, FIN+13, FIN+14 |
| >> PSUCD | PTFM+1*, PTFM+3*, PTFM+4*, PTFM+6, PTFM+7 |
| PSUCSYS1 | FIN+16!* |
| PSUID1 | ICD91+3~, ICD91+5*, ICD91+6 |
| PSUID10 | ICD91+4~, ICD91+23*, ICD91+24 |
| PSUID11 | ICD91+4~, ICD91+25*, ICD91+26 |
| PSUID2 | ICD91+3~, ICD91+7*, ICD91+8 |
| PSUID3 | ICD91+3~, ICD91+9*, ICD91+10 |
| PSUID4 | ICD91+3~, ICD91+11*, ICD91+12 |
| PSUID5 | ICD91+3~, ICD91+13*, ICD91+14 |
| PSUID6 | ICD91+3~, ICD91+15*, ICD91+16 |
| PSUID7 | ICD91+3~, ICD91+17*, ICD91+18 |
| PSUID8 | ICD91+3~, ICD91+19*, ICD91+20 |
| PSUID9 | ICD91+3~, ICD91+21*, ICD91+22 |
| >> PSUIDF | FIN+6*, FIN+7*, FIN+8, FIN+11 |
| PSUIDT | PTFM+5~, PTFM+7*, PTFM+8, DEL+2, DEL+3 |
| >> PSUJOB | PTFIEN+4, PTFIEN+7, ICD91+6, ICD91+8, ICD91+10, ICD91+12, ICD91+14, ICD91+16, ICD91+18, ICD91+20 , ICD91+22, ICD91+24, ICD91+26, PTFM+8, DEL+2, DEL+3, FIN+5, FIN+7, FIN+8, FIN+11 , FIN+13, FIN+14 |
| SYSCODE | FIN+3~, FIN+8*, FIN+9*, FIN+10, FIN+16 |
| >> T | FIN+4*, FIN+5*, FIN+7, FIN+8 |
| U | PTF70+5, PTF70+8, PTF70+11, PTF70+14, PTF70+17, PTF70+20, PTF70+23, PTF70+26, PTF70+29, PTF70+32 , PTF70+35, ICD91+5, ICD91+7, ICD91+9, ICD91+11, ICD91+13, ICD91+15, ICD91+17, ICD91+19, ICD91+21 , ICD91+23, ICD91+25, PTFM+7, FIN+11, FIN+13, FIN+14 |