©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
PSUDEM8 ;BIR/DAM - ICD9 Codes for Inpatient PTF Record Extract ; 20 DEC 2001
Source file <PSUDEM8.m>
| Package | Total | Caller Graph |
|---|---|---|
| Pharmacy Benefits Management | 1 | PSUDEM7 |
| 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 ICD9 pointers present on ^DGPT(D0,70 node
|
|
| ICD91 | ;Find ICD9 codes from pointer on ^DGPT(D0,70 node and place in
|
|
| DEL | ;Delete duplicates
|
|
| PTFM | ;
|
|
| FIN | ;$O through array, and set codes into the Inpatient Record
|
| Name | Field # of Occurrence |
|---|---|
| EN^PSUDEM9 | PTFIEN+7 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPT - [#45] | PTF70+3, PTF70+4, PTF70+5, PTF70+6, PTF70+7, PTF70+8, PTF70+9, PTF70+10, PTF70+11, PTF70+12 , PTF70+13, PTFM+3 |
| ^ICD9 - [#80] | ICD91+5, ICD91+7, ICD91+9, ICD91+11, ICD91+13, ICD91+15, ICD91+17, ICD91+19, ICD91+21, ICD91+23 , ICD91+25, PTFM+6 |
| ^XTMP("PSU_" | PTFIEN+3, PTFIEN+6!, ICD91+6*, ICD91+8*, ICD91+10*, ICD91+12*, ICD91+14*, ICD91+16*, ICD91+18*, ICD91+20* , ICD91+22*, ICD91+24*, ICD91+26*, PTFM+7*, DEL+2, DEL+3!, FIN+4, FIN+6, FIN+7*, FIN+10 , FIN+11* |
| Name | Line Occurrences |
|---|---|
| DEL | PTFM+8 |
| FIN | PTFIEN+6 |
| ICD91 | PTF70+14 |
| PTF70 | PTFIEN+4 |
| PTFIEN | EN+1 |
| PTFM | PTFIEN+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> I | PTFM+2*, PTFM+7, PTFM+9*, DEL+3 |
| >> N | DEL+2*, FIN+3*, FIN+4, FIN+7, FIN+8*, FIN+10*, FIN+11 |
| PSU1 | PTF70+2~, PTF70+3*, ICD91+5 |
| PSU10 | PTF70+2~, PTF70+12*, ICD91+23 |
| PSU11 | PTF70+2~, PTF70+13*, ICD91+25 |
| PSU2 | PTF70+2~, PTF70+4*, ICD91+7 |
| PSU3 | PTF70+2~, PTF70+5*, ICD91+9 |
| PSU4 | PTF70+2~, PTF70+6*, ICD91+11 |
| PSU5 | PTF70+2~, PTF70+7*, ICD91+13 |
| PSU6 | PTF70+2~, PTF70+8*, ICD91+15 |
| PSU7 | PTF70+2~, PTF70+9*, ICD91+17 |
| PSU8 | PTF70+2~, PTF70+10*, ICD91+19 |
| PSU9 | PTF70+2~, PTF70+11*, ICD91+21 |
| >> PSUC | PTFIEN+2*, PTFIEN+3*, PTF70+3, PTF70+4, PTF70+5, PTF70+6, PTF70+7, PTF70+8, PTF70+9, PTF70+10 , PTF70+11, PTF70+12, PTF70+13, 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+7, DEL+2, DEL+3, FIN+4, FIN+6 , FIN+7, FIN+10, FIN+11 |
| >> PSUCD | PTFM+1*, PTFM+3*, PTFM+4*, PTFM+6 |
| 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+5*, FIN+6*, FIN+7 |
| PSUIDT | PTFM+5~, PTFM+6*, PTFM+7, DEL+2, DEL+3 |
| >> PSUJOB | PTFIEN+3, PTFIEN+6, ICD91+6, ICD91+8, ICD91+10, ICD91+12, ICD91+14, ICD91+16, ICD91+18, ICD91+20 , ICD91+22, ICD91+24, ICD91+26, PTFM+7, DEL+2, DEL+3, FIN+4, FIN+6, FIN+7, FIN+10 , FIN+11 |
| >> T | FIN+3*, FIN+4*, FIN+6 |
| U | PTF70+3, PTF70+4, PTF70+5, PTF70+6, PTF70+7, PTF70+8, PTF70+9, PTF70+10, PTF70+11, PTF70+12 , PTF70+13, ICD91+5, ICD91+7, ICD91+9, ICD91+11, ICD91+13, ICD91+15, ICD91+17, ICD91+19, ICD91+21 , ICD91+23, ICD91+25, PTFM+6, FIN+7, FIN+10, FIN+11 |