PSUDEM9 ;BIR/DAM - CPT Codes for Inpatient PTF Record Extract ; 20 DEC 2001
Source file <PSUDEM9.m>
| Package | Total | Caller Graph | 
|---|---|---|
| Pharmacy Benefits Management | 1 | PSUDEM8 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN | ;EN      Called from PSUDEM8 | |
| CPTP | ;Find CPT pointers for the ^DGPT(D0,"401P" node by $ ordering | |
| AO | ;Find CPT pointers for the ^DGPT(D0,"P" node by $O through | |
| DEL1 | ;Delete duplicates | |
| P | ;Find CPT pointers for the ^DGPT(D0,"P" node by $O through | |
| DEL | ;Delete duplicates | |
| FIN | ;$O through temp global, and set codes into the Inpatient Record | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DGPT - [#45] | CPTP+5, P+5, AO+5 | 
| ^ICD0 - [#80.1] | CPTP+7, P+7, AO+7 | 
| ^XTMP("PSU_" | CPTP+8*, P+8*, DEL+2, DEL+3!, AO+8*, DEL1+2, DEL1+3!, FIN+4, FIN+6, FIN+7* , FIN+10, FIN+11*, FIN+12* | 
| Name | Line Occurrences | 
|---|---|
| AO | EN+3 | 
| CPTP | EN+1 | 
| DEL | P+9 | 
| DEL1 | AO+9 | 
| FIN | EN+4 | 
| P | EN+2 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> I | CPTP+3*, CPTP+8, CPTP+9*, P+3*, P+8, P+10*, DEL+3, AO+3*, AO+8, AO+10* , DEL1+3 | 
| >> N | DEL+2*, DEL1+2*, FIN+3*, FIN+4, FIN+7, FIN+8*, FIN+10*, FIN+11 | 
| >> PSUAP | CPTP+4*, CPTP+5*, CPTP+7 | 
| >> PSUBP | AO+4*, AO+5*, AO+7 | 
| >> PSUC | CPTP+5, CPTP+8, P+5, P+8, DEL+2, DEL+3, AO+5, AO+8, DEL1+2, DEL1+3 , FIN+4, FIN+6, FIN+7, FIN+10, FIN+11, FIN+12 | 
| PSUCPT | CPTP+6~, CPTP+7*, CPTP+8, P+6~, P+7*, P+8, DEL+2, DEL+3, AO+6~, AO+7* , AO+8, DEL1+2, DEL1+3 | 
| >> PSUIDF | FIN+5*, FIN+6*, FIN+7 | 
| >> PSUJOB | CPTP+8, P+8, DEL+2, DEL+3, AO+8, DEL1+2, DEL1+3, FIN+4, FIN+6, FIN+7 , FIN+10, FIN+11, FIN+12 | 
| >> PSUP | P+4*, P+5*, P+7 | 
| >> T | FIN+3*, FIN+4*, FIN+6 | 
| U | CPTP+7, P+7, AO+7, FIN+7, FIN+10, FIN+11, FIN+12 |