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
 |