IBEFUNC2 ;ALB/ARH - CPT BILLING EXTRINSIC FUNCTIONS II ;11/27/91
Source file <IBEFUNC2.m>
| Package | Total | Call Graph |
|---|---|---|
| CPT HCPCS Codes | 2 | $$CPT^ICPTCOD $$MOD^ICPTMOD |
| Integrated Billing | 1 | $$CPTBSTAT^IBEFUNC1 |
| Scheduling | 1 | STATUS^SDAMBAE4 |
| 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 |
|---|---|---|
| Integrated Billing | 10 | IBACCWLEE4 IBCEOB1 IBCSC5 IBCSCH1 IBEFUNC IBJTBC IBOCOSI IBTOBI4 ^IBE(350.7 ^IBE(350.71 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MODLST(MODS,DESC,IBMOD,IBDATE) | ; Function returns string of actual modifiers translated
; from the comma delimited string of modifier iens in MODS ; DESC = 1 if description of modifier should be returned in IBMOD(1) ; Must pass IBMOD by reference for this to work ; IBMOD = the ',' delimited list of modifiers, ; IBMOD(1) = the ',' delimited modifier descriptions, if ; DESC = 1 and IBMOD is passed by reference ; IBDATE = Date of Service (opt) for the versioned text description ; |
|
| CPTSTAT(CPT,DATE) | ;determine the overall status for a CPT for given date, assumes today if no date given
|
|
| CEND | ||
| TDG(SSN) | ;reformat SSN into terminal digit order
; returns either 0 or ssn in terminal digit order |
|
| ENDP | ||
| FFMT | ;
|
|
| FORMAT(GRP,CP) | ;calculate spacing format for clinic CPT list
|
|
| ENDFMT | ||
| FPO | ;
|
|
| PO(DA,X) | ;check that the print order entered has not already been used for the group/sub-header
|
|
| ENDPO |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(350.7 - [#350.7] | FORMAT+13 |
| ^IBE(350.71 - [#350.71] | FORMAT+12, PO+6, PO+7, PO+8, PO+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CD | FORMAT+9~, FORMAT+11*, FORMAT+14*, FORMAT+15 |
| CHK | FORMAT+9~, FORMAT+11*, FORMAT+14*, FORMAT+15 |
| COL | FORMAT+9~, FORMAT+13*, FORMAT+14, FORMAT+15 |
| CP | FORMAT~, FORMAT+10*, FORMAT+12 |
| CPT | CPTSTAT~, CPTSTAT+13*, CPTSTAT+14, CPTSTAT+15, CPTSTAT+16, CPTSTAT+18 |
| DA | FPO+1, PO~, PO+6, PO+7 |
| DATE | CPTSTAT~, CPTSTAT+13*, CPTSTAT+15, CPTSTAT+16, CPTSTAT+18 |
| DCHG | FORMAT+9~, FORMAT+11*, FORMAT+14*, FORMAT+15 |
| DESC | MODLST~, MODLST+13 |
| DT | CPTSTAT+13, CPTSTAT+15 |
| GRP | FORMAT~, FORMAT+10*, FORMAT+12*, FORMAT+13 |
| H | FORMAT+9~, FORMAT+15*, ENDFMT |
| I | TDG+2~* |
| >> IBCPX | FFMT+1 |
| IBDATE | MODLST~, MODLST+12 |
| >> IBGRPX | FFMT+1 |
| >> IBLNGX | FFMT+1* |
| IBMOD | MODLST~, MODLST+10*, MODLST+13, MODLST+14*, MODLST+15 |
| IBMOD(1 | MODLST+10*, MODLST+13* |
| IBP | MODLST+9~, MODLST+11*, MODLST+12 |
| IC | FORMAT+9~, FORMAT+11*, FORMAT+15, ENDFMT |
| M | FORMAT+9~, FORMAT+11*, FORMAT+15 |
| MODS | MODLST~, MODLST+11 |
| PN | FORMAT+9~, FORMAT+15*, ENDFMT |
| POST | CPTSTAT+12~, CPTSTAT+14*, CPTSTAT+17*, CPTSTAT+18, CEND |
| SSN | TDG~, TDG+2 |
| U | MODLST+13, MODLST+14 |
| X | CPTSTAT+12~, CPTSTAT+16*, CPTSTAT+17, TDG+2~*, FORMAT+9~, FORMAT+10*, FORMAT+13*, FORMAT+14, FORMAT+15, ENDFMT , FPO+1*, PO~, PO+6*, PO+8*, PO+9*, ENDPO |
| X1 | CPTSTAT+12~, CPTSTAT+16* |
| Y | CPTSTAT+12~, CPTSTAT+14*, CPTSTAT+15*, CPTSTAT+17*, CPTSTAT+18*, CEND, TDG+2~*, TDG+3*, ENDP, PO+7~* , PO+8, PO+9 |
| Z | MODLST+9~, MODLST+11* |
| Z0 | MODLST+9~, MODLST+12*, MODLST+13, MODLST+14 |