PSUDEM9 ;BIR/DAM - CPT Codes for Inpatient PTF Record Extract ;20 DEC 2001
Source file <PSUDEM9.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;EN Called from PSUDEM8
|
|
CPTP | ;Find CPT pointers for the ^DGPT(D0,"401P" node by $ ordering
|
|
P | ;Find CPT pointers for the ^DGPT(D0,"P" node by $O through
|
|
DEL | ;Delete duplicates
|
|
AO | ;Find CPT pointers for the ^DGPT(D0,"P" node by $O through
|
|
DEL1 | ;Delete duplicates
|
|
FIN | ;$O through temp global, and set codes into the Inpatient Record
|