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 |
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 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 |