ICPTSUPT ;SLC/KER - CPT SUPPORT FOR APIS ; 04/18/2004
Source file <ICPTSUPT.m>
| Package | Total | Caller Graph | 
|---|---|---|
| DRG Grouper | 5 | ICPTAPIU ICPTCOD ICPTID ICPTMOD ICPTMOD2 | 
| GUI Objects | 1 | BGOVCPT2 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| MSG(CDT,CS) | ||
| GBL(CODE) | ; return Global Node of Code | |
| EFF(FILE,CODE,EDT) | ; Returns Effective Date and Status for Code/Modifier ; Input: ; FILE = file number REQUIRED ; 81 for CPT file ; 81.3 for CPT MODIFIER file ; CODE = CPT CODE ien or CPT MODIFIER ien REQUIRED ; EDT = date to check for (FileMan format) (default = today) | |
| DTBR(CDT) | ; Date Business Rules ; Input: ; CDT - Code Date to check (FileMan format, default=Today) | 
| Name | Field # of Occurrence | 
|---|---|
| $$DT^XLFDT | EFF+25, DTBR+9, DTBR+10, MSG+10 | 
| Name | Line Occurrences | 
|---|---|
| $$DTBR | EFF+25, MSG+10 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| CDT | DTBR~, DTBR+9, DTBR+10, DTBR+11*, DTBR+12*, DTBR+13, MSG~, MSG+10*, MSG+12, MSG+13 | 
| CODE | EFF~, EFF+22, EFF+24, GBL~, GBL+1, GBL+2 | 
| CS | MSG~, MSG+9*, MSG+12, MSG+13 | 
| EDT | EFF~, EFF+25*, EFF+26 | 
| EFF | EFF+23~, EFF+26*, EFF+27, EFF+28, EFF+32*, EFF+33*, EFF+34 | 
| EFFB | EFF+23~, EFF+32*, EFF+33, EFF+34*, EFF+35*, EFF+36* | 
| EFFDOS | EFF+23~, EFF+35*, EFF+36, EFF+37*, EFF+38, EFF+39 | 
| EFFDT | EFF+23~, EFF+32*, EFF+38, EFF+39 | 
| EFFN | EFF+23~, EFF+28*, EFF+29, EFF+34*, EFF+35 | 
| EFFST | EFF+23~, EFF+32*, EFF+36, EFF+38 | 
| EFILE | EFF+23~, EFF+24*, EFF+26, EFF+28, EFF+29, EFF+33, EFF+34, EFF+35 | 
| FILE | EFF~, EFF+20, EFF+21, EFF+22, EFF+24 | 
| MSGDAT | MSG+11~*, MSG+12 | 
| MSGTXT | MSG+11~*, MSG+12, MSG+14 | 
| STR | EFF+23~, EFF+29*, EFF+30, EFF+32, EFF+38*, EFF+39*, EFF+40 |