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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: FBPAID3A

Package: Fee Basis

Routine: FBPAID3A


Information

FBPAID3A ;DSS/SCR - Utilities to support FEE BASIS PAID TO IB Process ;3/28/1012

Source Information

Source file <FBPAID3A.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Fee Basis 1 $$SETFB2IB^FBPAID3  
Integrated Billing 1 EPFBAPI^IBCEP8C  
Kernel 1 $$CHKDGT^XUSNPI  
VA FileMan 1 ($$GET1,GETS)^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: 1

Package Total Caller Graph
Fee Basis 1 FBPAID3  

Entry Points

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Label References

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All