PSUDEM8 ;BIR/DAM - ICD9 Codes for Inpatient PTF Record Extract ;20 DEC 2001
Source file <PSUDEM8.m>
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
|