PSUDEM9 ;BIR/DAM - CPT Codes for Inpatient PTF Record Extract ;20 DEC 2001
Source file <PSUDEM9.m>
Package | Total | Call Graph |
---|---|---|
DRG Grouper | 1 | $$ICDOP^ICDEX |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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
|
|
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
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> I | CPTP+3*, CPTP+9, CPTP+10*, P+3*, P+9, P+11*, DEL+3, AO+3*, AO+9, AO+11* , 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, CPTP+9, P+5, P+8, P+9, DEL+2, DEL+3, AO+5, AO+8 , AO+9, DEL1+2, DEL1+3, FIN+4, FIN+6, FIN+7, FIN+10, FIN+11, FIN+12, FIN+17 , FIN+18, FIN+19, FIN+20 |
PSUCPT | CPTP+6~, CPTP+7*, CPTP+8*, CPTP+9, P+6~, P+7*, P+8*, P+9, DEL+2, DEL+3 , AO+6~, AO+7*, AO+8*, AO+9, DEL1+2, DEL1+3 |
PSUCSYS | EN+1!, EN+6!, FIN+16*, FIN+17*, FIN+18*, FIN+19*, FIN+20 |
PSUCSYS( | CPTP+8*, P+8*, AO+8*, FIN+17, FIN+18, FIN+19 |
PSUCSYS1 | FIN+16, FIN+21! |
>> PSUIDF | FIN+5*, FIN+6*, FIN+7 |
>> PSUJOB | CPTP+9, P+9, DEL+2, DEL+3, AO+9, DEL1+2, DEL1+3, FIN+4, FIN+6, FIN+7 , FIN+10, FIN+11, FIN+12, FIN+20 |
>> PSUP | P+4*, P+5*, P+7 |
SCOUNT | EN+1!*, EN+6!, CPTP+5, CPTP+10*, P+5, P+11*, DEL+3*, AO+5, AO+11*, DEL1+3* |
>> T | FIN+3*, FIN+4*, FIN+6 |
U | CPTP+8, P+8, AO+8, FIN+7, FIN+10, FIN+11, FIN+12, FIN+20 |