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 | 9 | 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 |