Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: IBCEF31

Package: Integrated Billing

Routine: IBCEF31


Information

IBCEF31 ;ALB/ESG - FORMATTER SPECIFIC BILL FLD FUNCTIONS - CONT ;14-NOV-03

Source Information

Source file <IBCEF31.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Billing 7 $$ICD9^IBACSV  ($$COBN,$$FT,$$POLICY,F)^IBCEF  OUTPT^IBCEF11  $$FORMAT^IBCEF3  SETGBL^IBCEFG  $$DT^IBCEFG1  ($$MCRWNR,$$WNRBILL)^IBEFUNC  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IBCBB13  IBCEF3  IBCU75  IBJPS8  

Entry Points

Name Comments DBIA/ICR reference
ALLTYP(IBIFN) ; returns codes to translate to ALL ins types on a bill
; IBIFN = ien of bill
INSTYP(IBIFN,SEQ) ; Returns insurance type code for an ins on a bill
; IBIFN = ien of bill
; SEQ = sequence (1,2,3) of insurance wanted - prim, second, tert
; Default is current insurance co
POLTYP(IBIFN,IBSEQ) ; Returns ins electronic policy type code for one
; ins policy on a bill
; IBIFN = ien of bill
; IBSEQ = sequence (1,2,3) of ins policy wanted - prim, second, tert
; Default is current insurance co
ALLPTYP(IBIFN) ; returns insurance policy type codes for ALL ins on a bill
; IBIFN = ien of bill
PGDX(DXCNT,IBX0,IBXDA,IBXLN,IBXCOL,IBXSIZE,IBXSAVE) ; Subroutine - Checks for Diagnosis Codes (Dx) beyond
; the first four, that relate to the current Dx position passed in DXCNT.
; This subroutine stores the Diagnosis Codes in output global using display parameters (IBXLN,IBXCOL)
; THE PAGE IS ALWAYS 1 NOW SO WE DON'T NEED 4 LINES BELOW BAA *488*
; If DXCNT is 1, check for Dx's 5,9,...etc & display on pages 2,3,...etc
; If DXCNT is 2, check for Dx's 6,10,...etc & display on pages 2,3,...etc
; If DXCNT is 3, check for Dx's 7,11,...etc & display on pages 2,3,...etc
; If DXCNT is 4, check for Dx's 8,12,...etc & display on pages 2,3,...etc
DXSV(IB,IBXSAVE) ; output formatter subroutine
; save off DX codes in IBXSAVE("DX")
AUTRF(IBXIEN,IBL,Z) ; returns auth # and referral# if room for both, separated by a space - IB*2.0*432
; IBXIEN= claim ien
; IBL = field length-1 to allow for 1 blank space between numbers (28 for CMS 1500, 30 for UB-04)
; Z = 1 for PRIMARY, 2 for SECONDARY, 3 for TERTIARY
;
GRPNAME(IBIEN,IBXDATA) ; Populate IBXDATA with the Group Name(s).
; MRD;IB*2.0*516 - Created this procedure as extract code for
; ^IBA(364.5,199), N-ALL INSURANCE GROUP NAME.
GRPNUM(IBXIEN,IBXDATA) ; Populate IBXDATA with the Group Number(s).
; MRD;IB*2.0*516 - Created this procedure as extract code for
; ^IBA(364.5,200), N-ALL INSURANCE GROUP NUMBER.
CMNDATA(IBXIEN,IBPROC,FLD,INT) ;JRA;IB*2.0*608 Return data for specified Certificate of Medical Necessity (CMN) field.
CMNDEX(IBXIEN,IBXSAVE) ;JRA;IB*2.0*608 Data Extract for LQ, CMN and MEA segments
FRM(IBXIEN,IBXSAVE) ;JRA;IB*2.0*608 Data Extract for FRM segment
PTWT(IBXIEN) ;JRA;IB*2.0*608 Return CMN Patient Weight from 1st Service Line # that has it (or NULL if none)
CMN484 ;;24.1^1A^3~24.102^1B^5~24.103^1C^4~24.107^2^3^I~24.108^3^3^I~24.109^4^2^I~24.11^5^3~24.111^6A^3~24.113^6B^5~24.114^6C^4~24.104^7^2~24.105^8^2~24.106^9^2~24.115^C^3
CMN10126 ;;24.201^1^2~24.202^2^2~24.204^3A^3~24.219^3B^3~24.203^4A^3~24.218^4B^3~24.205^5^3^I~24.206^6^3~24.207^7^2~24.208^8A^3~24.209^8B^5~24.21^8C^3~24.211^8D^3~24.212^8E^5~24.213^8F^3~24.215^8G^3~24.216^8H^5~24.214^9^3^I

External References

Name Field # of Occurrence
$$GET1^DIQ CMNDATA+15, CMNDEX+12, FRM+11, FRM+17, FRM+30
$$ICD9^IBACSV PGDX+22
$$COBN^IBCEF INSTYP+7, POLTYP+8, AUTRF+8
$$FT^IBCEF POLTYP+16
$$POLICY^IBCEF GRPNAME+5, GRPNAME+6, GRPNUM+4
F^IBCEF AUTRF+12, AUTRF+13
OUTPT^IBCEF11 CMNDEX+5, FRM+5
$$FORMAT^IBCEF3 PGDX+23
SETGBL^IBCEFG PGDX+24
$$DT^IBCEFG1 FRM+43
$$MCRWNR^IBEFUNC INSTYP+12
$$WNRBILL^IBEFUNC POLTYP+17, POLTYP+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
399.0304 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] INSTYP+8, POLTYP+9, ALLPTYP+3, GRPNAME+4, GRPNUM+4
^DIC(36 - [#36] INSTYP+11, GRPNAME+7
^IBA(355.3 - [#355.3] POLTYP+9

Label References

Name Line Occurrences
$$CMNDATA PTWT+6
$$INSTYP ALLTYP+3
$$POLTYP ALLPTYP+3
CMNDEX PTWT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A GRPNAME+3~, GRPNAME+6*, GRPNAME+7
CMNREQ CMNDEX+3~, CMNDEX+12*, CMNDEX+13*, CMNDEX+14, FRM+3~, FRM+11*, FRM+12*, FRM+13
CNT CMNDEX+6~, CMNDEX+8*, CMNDEX+16, FRM+3~, FRM+8*, FRM+47
DATA FRM+16~, FRM+30*, FRM+35, FRM+39, FRM+41*, FRM+42*, FRM+43*, FRM+46
DEL FRM+3~
DEL( FRM+50*, FRM+51
DXCNT PGDX~, PGDX+21, PGDX+22
FLD CMNDATA~, CMNDATA+11, CMNDATA+15, FRM+16~, FRM+25*, FRM+30
FLDS FRM+16~, FRM+20*, FRM+24
FORM FRM+16~, FRM+17*, FRM+18, FRM+34
FOUND PTWT+2~, PTWT+4*, PTWT+6*
FT POLTYP+16~*, POLTYP+17, POLTYP+18
IB DXSV~
IB( DXSV+4
IBA INSTYP+5~, INSTYP+11*, INSTYP+12*, INSTYP+13*, INSTYP+15
IBCT DXSV+2~, DXSV+3*, DXSV+4*
IBIEN GRPNAME~, GRPNAME+4, GRPNAME+5, GRPNAME+6
IBIFN ALLTYP~, ALLTYP+3, INSTYP~, INSTYP+7, INSTYP+8, POLTYP~, POLTYP+8, POLTYP+9, POLTYP+16, POLTYP+17
, POLTYP+18, ALLPTYP~, ALLPTYP+3
IBL AUTRF~, AUTRF+8, AUTRF+11*, AUTRF+15
IBPG PGDX+19~, PGDX+20*, PGDX+24
IBPLAN POLTYP+6~, POLTYP+9*, POLTYP+10, POLTYP+22
IBPLTYP POLTYP+6~, POLTYP+10*, POLTYP+17*, POLTYP+18*, POLTYP+20*, POLTYP+21, POLTYP+22*, POLTYP+23*, POLTYP+24
IBPROC CMNDATA~, CMNDATA+11, CMNDATA+14, PTWT+2~, PTWT+5*, PTWT+6
IBSEQ POLTYP~, POLTYP+8*, POLTYP+9, POLTYP+17, POLTYP+18
IBX ALLTYP+2~, ALLTYP+3*, ALLTYP+5, ALLPTYP+2~*, ALLPTYP+3*, ALLPTYP+5
IBX0 PGDX~, PGDX+23
IBXCOL PGDX~, PGDX+24
IBXDA PGDX~, PGDX+23
IBXDATA AUTRF+5~, AUTRF+15, GRPNAME~, GRPNUM~, CMNDEX+3~, CMNDEX+5, FRM+3~, FRM+5
IBXDATA( GRPNAME+5*, GRPNAME+7*, GRPNUM+4*, CMNDEX+7, CMNDEX+9, CMNDEX+10, CMNDEX+16, FRM+6, FRM+7, FRM+9
IBXIEN AUTRF~, AUTRF+6, AUTRF+8, AUTRF+12, AUTRF+13, GRPNUM~, GRPNUM+4, CMNDATA~, CMNDATA+11, CMNDATA+14
, CMNDEX~, CMNDEX+1, CMNDEX+5, CMNDEX+11, FRM~, FRM+1, FRM+5, FRM+10, PTWT~, PTWT+1
, PTWT+3, PTWT+6
IBXLN PGDX~, PGDX+24
IBXSAVE PGDX~, DXSV~, CMNDEX~, FRM~, PTWT+2~, PTWT+3
IBXSAVE("CMNDEX" CMNDEX+16*, PTWT+4, PTWT+5
IBXSAVE("DX" PGDX+21, PGDX+22, DXSV+4*
IBXSAVE("FRM" FRM+45*, FRM+46*, FRM+47*, FRM+50*, FRM+51!
IBXSIZE PGDX~, PGDX+24
IBZ AUTRF+5~, AUTRF+15
INT CMNDATA~, CMNDATA+12*, CMNDATA+15
INTEXT FRM+16~, FRM+28*, FRM+29*, FRM+30
LP CMNDEX+6~, CMNDEX+7*, CMNDEX+9, CMNDEX+10, CMNDEX+16, FRM+3~, FRM+6*, FRM+7, FRM+9
ND CMNDATA+13~, CMNDATA+14*, CMNDATA+15, CMNDEX+3~, CMNDEX+10*, CMNDEX+11*, CMNDEX+12, FRM+3~, FRM+9*, FRM+10*
, FRM+11, FRM+17, FRM+30
PAIREDQA FRM+22~
PAIREDQA( FRM+35*
PAIREDQA("3A" FRM+36
PAIREDQA("3B" FRM+37
PAIRQ FRM+3~, FRM+34*, FRM+36*, FRM+37*
PTWT PTWT+2~, PTWT+4*, PTWT+6*, PTWT+7
QUES FRM+16~, FRM+24*, FRM+25, FRM+26, FRM+27, FRM+29
QUESNUM FRM+16~, FRM+26*, FRM+34, FRM+35, FRM+36, FRM+37, FRM+42, FRM+45
QUIT FRM+3~
RESPTYP FRM+3~, FRM+27*, FRM+28, FRM+41, FRM+43, FRM+46
SEQ INSTYP~, INSTYP+7*, INSTYP+8
U ALLTYP+3, INSTYP+11, POLTYP+9, POLTYP+10, POLTYP+22, ALLPTYP+3, PGDX+22, AUTRF+12, AUTRF+13, GRPNAME+7
, CMNDEX+16, FRM+25, FRM+26, FRM+27, FRM+29, FRM+45, FRM+46, FRM+47
VAL PGDX+19~, PGDX+22*, PGDX+23*, PGDX+24, CMNDATA+13~, CMNDATA+15*, CMNDATA+16
X CMNDATA+13~, CMNDEX+3~, FRM+3~, FRM+16~, FRM+24*, FRM+45, FRM+46, FRM+47
Z ALLTYP+2~, ALLTYP+3*, INSTYP+5~, INSTYP+8*, INSTYP+10, INSTYP+11, INSTYP+12, ALLPTYP+2~, ALLPTYP+3*, DXSV+2~
, DXSV+3*, DXSV+4*, AUTRF~, AUTRF+8*, AUTRF+9, AUTRF+12, AUTRF+13, GRPNAME+3~, GRPNAME+4*, GRPNAME+5
, GRPNAME+6, GRPNAME+7, GRPNUM+3~, GRPNUM+4*, CMNDEX+6~, CMNDEX+15*, CMNDEX+16, FRM+3~, FRM+14*, FRM+45
, FRM+46, FRM+47, FRM+50*, FRM+51*, PTWT+4*, PTWT+5
Z1 FRM+3~, FRM+50*

Marked Items

Name Field # of Occurrence
$T(@FORM FRM+20
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All