Routine: PSUDEM8

Information

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