Routine: IBCEF31

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

Package	Total	Caller Graph
Integrated Billing	6	IBCBB13 IBCEF3 IBCU75 IBJPS8 ^IBA(364.5 ^IBA(364.7

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 - IB2.0432 ; 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;IB2.0516 - 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;IB2.0516 - Created this procedure as extract code for ; ^IBA(364.5,200), N-ALL INSURANCE GROUP NUMBER.
CMNDATA(IBXIEN,IBPROC,FLD,INT)	;JRA;IB2.0608 Return data for specified Certificate of Medical Necessity (CMN) field.
CMNDEX(IBXIEN,IBXSAVE)	;JRA;IB2.0608 Data Extract for LQ, CMN and MEA segments
FRM(IBXIEN,IBXSAVE)	;JRA;IB2.0608 Data Extract for FRM segment
PTWT(IBXIEN)	;JRA;IB2.0608 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

Customize PDF page

Package: Integrated Billing

Routine: IBCEF31

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items