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 |