Routine: FBPAID3A

Package	Total	Call Graph
Fee Basis	1	$$SETFB2IB^FBPAID3
Integrated Billing	1	EPFBAPI^IBCEP8C
Kernel	1	$$CHKDGT^XUSNPI
VA FileMan	1	($$GET1,GETS)^DIQ

Package	Total	Caller Graph
Fee Basis	1	FBPAID3

Name	Comments	DBIA/ICR reference
PRCFBREC(FBIEN,FBRECARY,FBARRY,FBCHECK)	;Processes one Fee Basis record ; ; INPUT : FBIEN - the IEN of the FEE BASIS TO IB file line being processed ; FBRECARY - AN array populated with information about the FEE BASIS INVOICE ; FBARRY - An array used to update the FEE BASIS PAID TO IB file ; FBCHECK - An array passed by reference which holds processed NPIs ; ; OUTPUT: FBARRY populated with line item provider information ; FBCHECK populated with information about each NPI which has been processed ; 'FBQUIT - 1 if no problems stopped processing, 0 if they did
UPDTONE(FBIEN,FBTYP,FBIBICN,FBNPIFLG,FBTXYFLG,FBARRY)
FBTOIB(FBVDRIEN,FBPRVNAM,FBPRVTYP,FBPRVNPI,FBPRVTXY,FBDUZ,FBCHECK,FBSRVINF)
ADD5010(FBPROG,FBICN,FBPAT,FBDATE,FBLINUM)	;EP FROM FBPAID AND FBPAID3A ; INPUT : ; FBPROG : "3" FOR OUTPATIENT, "9" FOR INPATIENT ; FBICN : A FOUR PIECE ';' DELIMITED STRING ; FBPAT : POINTER TO THE PATIENT FILE ; FBDATE : DATE OF MM MESSAGE FROM CENTRAL FEE PROCESSING
TYPETWO(FB5010TYP,FBPRVNAM,FBPRVNPI,FBPRVTXY,FBDUZ,FBARRAY,FBCHECK)
GETFBDUZ(FBBTCH)	;returns an IEN from NEW PERSON file

Name	Field # of Occurrence
$$GET1^DIQ	GETFBDUZ+8
GETS^DIQ	FBTOIB+36
$$SETFB2IB^FBPAID3	UPDTONE+27, ADD5010+19
EPFBAPI^IBCEP8C	FBTOIB+75, FBTOIB+91
$$CHKDGT^XUSNPI	FBTOIB+73, FBTOIB+89, TYPETWO+29

FileNo	Call Tags
^FBAAV - [#161.2]	GETS^DIQ
^FBAA(161.7 - [#161.7]	GET1^DIQ

Name	Line Occurrences
$$ADD5010	PRCFBREC+52, TYPETWO+35
$$FBTOIB	PRCFBREC+32, PRCFBREC+48, TYPETWO+31
$$GETFBDUZ	PRCFBREC+18
$$TYPETWO	PRCFBREC+60, PRCFBREC+64, PRCFBREC+68, PRCFBREC+72, PRCFBREC+78, PRCFBREC+87
$$UPDTONE	PRCFBREC+36, PRCFBREC+54, TYPETWO+37

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
FB5010TYP	TYPETWO~, TYPETWO+37
FBARRAY	PRCFBREC+60, PRCFBREC+64, PRCFBREC+68, PRCFBREC+72, PRCFBREC+78, PRCFBREC+87, TYPETWO~
FBARRY	PRCFBREC~, PRCFBREC+36, PRCFBREC+54, UPDTONE~, UPDTONE+27, ADD5010+9~, ADD5010+19, TYPETWO+37
FBARRY("FBICN"	PRCFBREC+52, ADD5010+14, ADD5010+17, TYPETWO+35
FBARRY("IBICN"	UPDTONE+24*
FBARRY("LI NU	MBER" , PRCFBREC+52, PRCFBREC+86, ADD5010+15, TYPETWO+35
FBARRY("NPI A	DDED" , UPDTONE+25*
FBARRY("PATIE	NT INTERNAL" , PRCFBREC+52, TYPETWO+35
FBARRY("PATIENT"	ADD5010+11*
FBARRY("PROCE	SS DATE INTERNAL" , PRCFBREC+52, TYPETWO+35, SS DATE" , ADD5010+18*
FBARRY("PROGR	AM INTERNAL" , PRCFBREC+52, PRCFBREC+73, PRCFBREC+79, TYPETWO+35
FBARRY("PROGRAM"	ADD5010+12*
FBARRY("PROVI	DER TYPE" , UPDTONE+23*
FBARRY("TXY A	DDED" , UPDTONE+26*
FBATDNAM	PRCFBREC+11~, PRCFBREC+24*, PRCFBREC+57, PRCFBREC+60
FBATDNPI	PRCFBREC+11~, PRCFBREC+58*, PRCFBREC+60
FBATDTXY	PRCFBREC+11~, PRCFBREC+59*, PRCFBREC+60
FBBADNPI	PRCFBREC+14~, FBTOIB+17~, FBTOIB+70, FBTOIB+73, FBTOIB+74, FBTOIB+77, FBTOIB+88, FBTOIB+89, FBTOIB+90, FBTOIB+94 , FBTOIB+95, TYPETWO+17~, TYPETWO+20, TYPETWO+29, TYPETWO+30, TYPETWO+31
FBBTCH	GETFBDUZ~, GETFBDUZ+7, GETFBDUZ+8
FBCHECK	PRCFBREC~, PRCFBREC+32, PRCFBREC+48, PRCFBREC+60, PRCFBREC+64, PRCFBREC+68, PRCFBREC+72, PRCFBREC+78, PRCFBREC+87, FBTOIB~ , TYPETWO~, TYPETWO+31
FBCHECK(	FBTOIB+66, FBTOIB+67, FBTOIB+68, FBTOIB+78, FBTOIB+86, TYPETWO+23, TYPETWO+24, TYPETWO+25, TYPETWO+26, TYPETWO+28 , TYPETWO+30, TYPETWO+31*, TYPETWO+32, TYPETWO+33, TYPETWO+34
FBDATE	ADD5010~, ADD5010+18
FBDUZ	PRCFBREC+11~, PRCFBREC+18, PRCFBREC+32, PRCFBREC+48, PRCFBREC+60, PRCFBREC+64, PRCFBREC+68, PRCFBREC+72, PRCFBREC+78, PRCFBREC+87 , FBTOIB~, FBTOIB+27, TYPETWO~, TYPETWO+31, GETFBDUZ+5~, GETFBDUZ+8, GETFBDUZ+9
FBERR	UPDTONE+21~, ADD5010+9~
FBERR("DIERR"	FBTOIB+37
FBFLDS	FBTOIB+17~, FBTOIB+35*, FBTOIB+36
FBFLGS	FBTOIB+17~
FBIBICN	UPDTONE~, UPDTONE+24
FBIBIEN	PRCFBREC+14~, PRCFBREC+33, PRCFBREC+36, PRCFBREC+49, PRCFBREC+54, FBTOIB+17~, FBTOIB+21*
FBIBIEN2	TYPETWO+17~, TYPETWO+19, TYPETWO+24, TYPETWO+32*, TYPETWO+37
FBICN	ADD5010~, ADD5010+14, ADD5010+17
FBIDNT	FBTOIB+17~
FBIEN	PRCFBREC~, PRCFBREC+36, UPDTONE~, UPDTONE+27
FBIENS	FBTOIB+17~, GETFBDUZ+7*
FBINDX	FBTOIB+17~
FBINFO	PRCFBREC+14~, PRCFBREC+32, PRCFBREC+33, PRCFBREC+34, PRCFBREC+35, PRCFBREC+48, PRCFBREC+49, PRCFBREC+50, PRCFBREC+51, FBTOIB+17~ , FBTOIB+75, FBTOIB+91
FBINFO("FB SU	P DUZ" , FBTOIB+27*
FBINFO("FBADD1"	FBTOIB+42, FBTOIB+54
FBINFO("FBADD2"	FBTOIB+43, FBTOIB+55
FBINFO("FBCITY"	FBTOIB+44, FBTOIB+56
FBINFO("FBFACID"	FBTOIB+41*
FBINFO("FBNPI"	FBTOIB+49, FBTOIB+59, FBTOIB+62, FBTOIB+82*
FBINFO("FBPHONE"	FBTOIB+48*
FBINFO("FBPRVTYP"	FBTOIB+19*
FBINFO("FBSTA	TE INT" , FBTOIB+46, FBTOIB+57
FBINFO("FBSTATE"	FBTOIB+45*
FBINFO("FBTXY"	FBTOIB+50, FBTOIB+60, FBTOIB+63, FBTOIB+83*
FBINFO("FBZIP"	FBTOIB+47, FBTOIB+58
FBINFO("IB TY	PE" , FBTOIB+51, FBTOIB+61, FBTOIB+84*
FBINFO("NAME"	FBTOIB+28, FBTOIB+38, FBTOIB+39, FBTOIB+40, FBTOIB+81
FBLINUM	PRCFBREC+81, PRCFBREC+82, PRCFBREC+83, PRCFBREC+84, PRCFBREC+85, PRCFBREC+86, ADD5010~, ADD5010+15
FBLIRNAM	PRCFBREC+13~, PRCFBREC+75, PRCFBREC+78, PRCFBREC+83, PRCFBREC+87
FBLIRNPI	PRCFBREC+13~, PRCFBREC+76, PRCFBREC+78, PRCFBREC+84, PRCFBREC+87
FBLIRTXY	PRCFBREC+13~, PRCFBREC+77, PRCFBREC+78, PRCFBREC+85, PRCFBREC+87
FBNEW	FBTOIB+17~, FBTOIB+67, FBTOIB+68, FBTOIB+69, FBTOIB+76, FBTOIB+77, FBTOIB+78, FBTOIB+86, FBTOIB+87, FBTOIB+92 , FBTOIB+93, FBTOIB+94, FBTOIB+96*, FBTOIB+97
FBNIEN	PRCFBREC+14~, PRCFBREC+40~, PRCFBREC+52, PRCFBREC+53, PRCFBREC+54, TYPETWO+17~, TYPETWO+35, TYPETWO+36, TYPETWO+37
FBNPIFLG	PRCFBREC+14~, PRCFBREC+34, PRCFBREC+36, PRCFBREC+37, PRCFBREC+50, PRCFBREC+54, UPDTONE~, UPDTONE+25, TYPETWO+17~, TYPETWO+25* , TYPETWO+26, TYPETWO+33, TYPETWO+37
FBOK	PRCFBREC+14~, PRCFBREC+36, PRCFBREC+54, PRCFBREC+60, PRCFBREC+64, PRCFBREC+68, PRCFBREC+72, PRCFBREC+78, PRCFBREC+87, UPDTONE+21~ , UPDTONE+27, UPDTONE+28, ADD5010+9~, ADD5010+19, ADD5010+20, TYPETWO+17~, TYPETWO+21, TYPETWO+36, TYPETWO+37*, TYPETWO+38
FBOPRNAM	PRCFBREC+11~, PRCFBREC+25*, PRCFBREC+61, PRCFBREC+64
FBOPRNPI	PRCFBREC+11~, PRCFBREC+62*, PRCFBREC+64
FBOPRTXY	PRCFBREC+11~, PRCFBREC+63*, PRCFBREC+64
FBPAT	ADD5010~, ADD5010+11
FBPROG	ADD5010~, ADD5010+12, ADD5010+13, ADD5010+16
FBPRVNAM	PRCFBREC+29, PRCFBREC+32, FBTOIB~, FBTOIB+22, FBTOIB+24, FBTOIB+25, FBTOIB+26, FBTOIB+28, FBTOIB+40*, FBTOIB+81 , TYPETWO~, TYPETWO+31
FBPRVNPI	PRCFBREC+30, PRCFBREC+32, FBTOIB~, FBTOIB+59, FBTOIB+62, FBTOIB+65, FBTOIB+66, FBTOIB+67, FBTOIB+68, FBTOIB+71 , FBTOIB+72, FBTOIB+73, FBTOIB+78, FBTOIB+82, FBTOIB+85, FBTOIB+86, FBTOIB+89, TYPETWO~, TYPETWO+22, TYPETWO+23 , TYPETWO+24, TYPETWO+25, TYPETWO+26, TYPETWO+28, TYPETWO+29, TYPETWO+30, TYPETWO+31, TYPETWO+32, TYPETWO+33, TYPETWO+34
FBPRVTXY	PRCFBREC+31, PRCFBREC+32, FBTOIB~, FBTOIB+60, FBTOIB+63, FBTOIB+83, TYPETWO~, TYPETWO+31
FBPRVTYP	PRCFBREC+11~, PRCFBREC+20, PRCFBREC+32, PRCFBREC+48, PRCFBREC+56, FBTOIB~, FBTOIB+19, FBTOIB+23, FBTOIB+26, FBTOIB+29 , FBTOIB+34, FBTOIB+37, FBTOIB+79, FBTOIB+96
FBQUIT	PRCFBREC+14~, PRCFBREC+16, PRCFBREC+22, PRCFBREC+23, PRCFBREC+88, FBTOIB+17~, FBTOIB+20*
FBRECARY	PRCFBREC~
FBRECARY("ATT	ENDING NAME" , PRCFBREC+24, ENDING NPI" , PRCFBREC+58, ENDING TXY" , PRCFBREC+59
FBRECARY("BAT	CH NUMBER" , PRCFBREC+18
FBRECARY("LI	RENDERING NAME" , PRCFBREC+75, RENDERING NPI" , PRCFBREC+76, RENDERING TXY" , PRCFBREC+77
FBRECARY("LIN	E ITEM NUMBER" , PRCFBREC+86
FBRECARY("LIR	ENDER NAME" , PRCFBREC+82, PRCFBREC+83, ENDER NPI" , PRCFBREC+84, ENDER TXY" , PRCFBREC+85
FBRECARY("OPE	RATING NAME" , PRCFBREC+25, RATING NPI" , PRCFBREC+62
FBRECARY("REF	ERRING NAME" , PRCFBREC+28, ERRING NPI" , PRCFBREC+70
FBRECARY("REN	DERING NAME" , PRCFBREC+26, DERING NPI" , PRCFBREC+66, DERING TXY" , PRCFBREC+67
FBRECARY("SER	VICING ADDRESS" , PRCFBREC+44, VICING CITY" , PRCFBREC+45, VICING NAME" , PRCFBREC+27, VICING NPI" , PRCFBREC+41, VICING STATE INT" , PRCFBREC+46 , VICING TXY" , PRCFBREC+42, VICING ZIP" , PRCFBREC+47
FBRECARY("VEN	DOR INTERNAL" , PRCFBREC+21
FBREFNAM	PRCFBREC+12~, PRCFBREC+28*, PRCFBREC+69, PRCFBREC+72
FBREFNPI	PRCFBREC+12~, PRCFBREC+70*, PRCFBREC+72
FBREFTXY	PRCFBREC+12~, PRCFBREC+71*, PRCFBREC+72
FBRETRN	FBTOIB+17~, FBTOIB+75, FBTOIB+91
FBRETRN(1	FBTOIB+76, FBTOIB+92, FBTOIB+93
FBRETRN(2	FBTOIB+76, FBTOIB+92
FBRETRN(3	FBTOIB+76, FBTOIB+92
FBRNDNAM	PRCFBREC+12~, PRCFBREC+26*, PRCFBREC+65, PRCFBREC+68
FBRNDNPI	PRCFBREC+12~, PRCFBREC+66*, PRCFBREC+68
FBRNDTXY	PRCFBREC+12~, PRCFBREC+67*, PRCFBREC+68
FBRTRN	FBTOIB+17~
FBRTRN(	FBTOIB+38, FBTOIB+41, FBTOIB+42, FBTOIB+43, FBTOIB+44, FBTOIB+45, FBTOIB+46, FBTOIB+47, FBTOIB+48, FBTOIB+49 , FBTOIB+50
FBSCRN	FBTOIB+17~
FBSRVINF	PRCFBREC+40~, PRCFBREC+48, FBTOIB~
FBSRVINF("ADDRESS"	PRCFBREC+44*, FBTOIB+54
FBSRVINF("CITY"	PRCFBREC+45*, FBTOIB+56
FBSRVINF("STATE"	PRCFBREC+46*, FBTOIB+57
FBSRVINF("ZIP"	PRCFBREC+47*, FBTOIB+58
FBSRVNAM	PRCFBREC+12~, PRCFBREC+27*, PRCFBREC+39, PRCFBREC+48
FBSRVNPI	PRCFBREC+12~, PRCFBREC+41*, PRCFBREC+48
FBSRVTXY	PRCFBREC+12~, PRCFBREC+42, PRCFBREC+43, PRCFBREC+48
FBTXYFLG	PRCFBREC+14~, PRCFBREC+35, PRCFBREC+36, PRCFBREC+51, PRCFBREC+54, UPDTONE~, UPDTONE+26, TYPETWO+17~, TYPETWO+27, TYPETWO+34 , TYPETWO+37
FBTYP	UPDTONE~, UPDTONE+23
FBVDRIEN	PRCFBREC+11~, PRCFBREC+21*, PRCFBREC+22, PRCFBREC+32, FBTOIB~, FBTOIB+23, FBTOIB+30, FBTOIB+34, FBTOIB+36, FBTOIB+38 , FBTOIB+41, FBTOIB+42, FBTOIB+43, FBTOIB+44, FBTOIB+45, FBTOIB+46, FBTOIB+47, FBTOIB+48, FBTOIB+49, FBTOIB+50 , FBTOIB+52
U	PRCFBREC+33, PRCFBREC+34, PRCFBREC+35, PRCFBREC+49, PRCFBREC+50, PRCFBREC+51, FBTOIB+67, FBTOIB+68, TYPETWO+24, TYPETWO+25 , TYPETWO+26, TYPETWO+32, TYPETWO+33, TYPETWO+34

Customize PDF page

Package: Fee Basis

Routine: FBPAID3A

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: