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  | All
Print Page as PDF
Routine: FBPAID3

Package: Fee Basis

Routine: FBPAID3


Information

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

Source Information

Source file <FBPAID3.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 C^%DTC  (FILE,UPDATE)^DIE  ^DIK  ($$GET1,GETS)^DIQ  
Fee Basis 1 PRCFBREC^FBPAID3A  
Integrated Billing 1 $$INSUR^IBBAPI  
Registration 1 ELIG^VADPT  

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: 3

Package Total Caller Graph
Fee Basis 3 FB PAID TO IB  FBPAID  FBPAID3A  

Entry Points

Name Comments DBIA/ICR reference
IBALLWD()
ADDONE(FBPROG,FBIEN,FBPAT,FBDATE) ;EP FROM FBPAID
; INPUT : FBPROG : "3" FOR OUTPATIENT, "9" FOR INPATIENT
; FBIEN : AN ARRAY SET UP FROM THE PARSING ROUTINE IN FBPAID1
; FBPAT : POINTER TO THE PATIENT FILE
; FBDATE : DATE OF MM MESSAGE FROM CENTRAL FEE PROCESSING
EPFBTOIB(FBDATEIN) ;EP FROM FB PAID TO IB OPTION
; INPUT : FBDATEIN - OPTIONAL and not supplied by the OPTION if sent
; this should be 'DATE OF LAST GOOD RUN'
; - all dates after this date will be re-processed in the
; FEE BASIS PAID TO IB file
;
CLEANUP(FBDATE) ;delete entries from 161.9 older than 180 days from FBDATE
; INPUT : FBDATE - Today's date
SCRUB2IB(FBDATE) ; process entries in 161.9 for this process date
SETFB2IB(FBIEN,FBARRY)
GETFB2IB(FBIEN,FBARRY)
DELFB2IB(FBIEN)
FBSC(FBDFN) ; returns 1 if service connection indicated, 0 otherwise (based on VAEL(3))
; INPUT : FBDFN - ien to the PATIENT file
GETFBINV(FBINVIEN,FBINVARY)
GETFBPAY(FBPAYIEN,FBPAYARY)

External References

Name Field # of Occurrence
C^%DTC CLEANUP+10
FILE^DIE SETFB2IB+24
UPDATE^DIE SETFB2IB+17
^DIK DELFB2IB+8
$$GET1^DIQ IBALLWD+9, EPFBTOIB+21
GETS^DIQ GETFB2IB+15, GETFBINV+21, GETFBINV+56, GETFBPAY+11, GETFBPAY+17, GETFBPAY+24
PRCFBREC^FBPAID3A SCRUB2IB+44
$$INSUR^IBBAPI SCRUB2IB+30, SCRUB2IB+37
ELIG^VADPT FBSC+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAA(161.4 - [#161.4] GET1^DIQ
^FB(161.9 - [#161.9] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ
162.01 GETS^DIQ
162.02 GETS^DIQ
162.03 GETS^DIQ
^FBAAI - [#162.5] GETS^DIQ
162.579 GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FB(161.9 - [#161.9] EPFBTOIB+15, EPFBTOIB+20, EPFBTOIB+23, EPFBTOIB+25, EPFBTOIB+30, EPFBTOIB+33, CLEANUP+13, CLEANUP+15
^FBAA(161.4 - [#161.4] IBALLWD+8
^FBAAI - [#162.5] GETFBINV+52
^TMP($J EPFBTOIB+10!, EPFBTOIB+30*, EPFBTOIB+32!, SCRUB2IB+15

Label References

Name Line Occurrences
$$FBSC SCRUB2IB+19
$$GETFB2IB SCRUB2IB+16
$$GETFBINV SCRUB2IB+27
$$GETFBPAY SCRUB2IB+34
$$SETFB2IB ADDONE+19
CLEANUP EPFBTOIB+9
DELFB2IB CLEANUP+15, SCRUB2IB+51, SCRUB2IB+58, SCRUB2IB+64
SCRUB2IB EPFBTOIB+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H CLEANUP+6~
DA CLEANUP+6~, DELFB2IB+5~, DELFB2IB+7*
DFN FBSC+4~, FBSC+6*, FBSC+7
DIE CLEANUP+6~
DIK CLEANUP+6~, DELFB2IB+5~, DELFB2IB+6*
DR CLEANUP+6~
DT EPFBTOIB+7
FBARRY ADDONE+8~, ADDONE+19, SCRUB2IB+6~, SCRUB2IB+16, SCRUB2IB+44, SETFB2IB~, GETFB2IB~, GETFB2IB+35!
FBARRY("FBICN" ADDONE+13*, ADDONE+16*, SCRUB2IB+23, SETFB2IB+14, GETFB2IB+24*
FBARRY("IBICN" SETFB2IB+21, GETFB2IB+29*
FBARRY("LI NU MBER" , ADDONE+14*, SCRUB2IB+24, SETFB2IB+16, SETFB2IB+19, GETFB2IB+27*
FBARRY("NPI A DDED INTERNAL" , GETFB2IB+31*, DDED" , SETFB2IB+22, GETFB2IB+30*
FBARRY("PATIE NT INTERNAL" , SCRUB2IB+17, GETFB2IB+21*
FBARRY("PATIENT" ADDONE+10*, SETFB2IB+12, GETFB2IB+20*
FBARRY("PROCE SS DATE INTERNAL" , GETFB2IB+26*, SS DATE" , ADDONE+18*, SETFB2IB+15, GETFB2IB+25*
FBARRY("PROGR AM INTERNAL" , SCRUB2IB+22, GETFB2IB+23*
FBARRY("PROGRAM" ADDONE+11*, SETFB2IB+13, GETFB2IB+22*
FBARRY("PROVI DER TYPE" , SETFB2IB+20, GETFB2IB+28*
FBARRY("TXY A DDED INTERNAL" , GETFB2IB+33*, DDED" , SETFB2IB+23, GETFB2IB+32*
FBCHECK SCRUB2IB+6~, SCRUB2IB+44
FBCHECK(0 SCRUB2IB+13*
FBDATE ADDONE~, ADDONE+18, EPFBTOIB+6~, EPFBTOIB+14*, EPFBTOIB+15*, EPFBTOIB+17, EPFBTOIB+20, EPFBTOIB+23*, EPFBTOIB+24, EPFBTOIB+25*
, EPFBTOIB+26*, EPFBTOIB+27, EPFBTOIB+28, EPFBTOIB+30, EPFBTOIB+31, EPFBTOIB+32, EPFBTOIB+33*, CLEANUP~, CLEANUP+8, SCRUB2IB~
, SCRUB2IB+15
FBDATE2 SCRUB2IB+6~
FBDATEIN EPFBTOIB~, EPFBTOIB+12, EPFBTOIB+26
FBDFN FBSC~, FBSC+6
FBERR IBALLWD+5~, ADDONE+8~, SETFB2IB+8~, GETFB2IB+7~, GETFBINV+7~
FBERR("DIERR" IBALLWD+10, SETFB2IB+26, SETFB2IB+29, GETFB2IB+16, GETFBINV+22, GETFBINV+57
FBERR1 GETFBPAY+7~
FBERR1("DIERR" GETFBPAY+12, GETFBPAY+18, GETFBPAY+25
FBFDA SETFB2IB+8~
FBFDA( SETFB2IB+12*, SETFB2IB+13*, SETFB2IB+14*, SETFB2IB+15*, SETFB2IB+16*, SETFB2IB+19*, SETFB2IB+20*, SETFB2IB+21*, SETFB2IB+22*, SETFB2IB+23*
FBFLDS GETFB2IB+7~, GETFBINV+7~, GETFBINV+11*, GETFBINV+21, GETFBPAY+7~, GETFBPAY+23*, GETFBPAY+24
FBFLDS2 GETFBINV+7~, GETFBINV+53*, GETFBINV+56
>> FBICN SCRUB2IB+23*, SCRUB2IB+27, SCRUB2IB+34
FBIEN IBALLWD+5~, IBALLWD+8*, IBALLWD+9, ADDONE~, ADDONE+13, ADDONE+14, ADDONE+16, EPFBTOIB+6~, EPFBTOIB+19*, EPFBTOIB+20*
, EPFBTOIB+21, CLEANUP+4~, CLEANUP+14*, CLEANUP+15*, SETFB2IB~, SETFB2IB+11, SETFB2IB+18, SETFB2IB+19, SETFB2IB+20, SETFB2IB+21
, SETFB2IB+22, SETFB2IB+23, SETFB2IB+28, GETFB2IB~, GETFB2IB+15, GETFB2IB+17, GETFB2IB+20, GETFB2IB+21, GETFB2IB+22, GETFB2IB+23
, GETFB2IB+24, GETFB2IB+25, GETFB2IB+26, GETFB2IB+27, GETFB2IB+28, GETFB2IB+29, GETFB2IB+30, GETFB2IB+31, GETFB2IB+32, GETFB2IB+33
, DELFB2IB~, DELFB2IB+7
FBIEN(1 ADDONE+13
FBIEN(2 ADDONE+13
FBIEN(3 ADDONE+13
FBIEN2 SCRUB2IB+6~, SCRUB2IB+11*, SCRUB2IB+15*, SCRUB2IB+16, SCRUB2IB+20, SCRUB2IB+31, SCRUB2IB+38, SCRUB2IB+41, SCRUB2IB+43, SCRUB2IB+44
FBIEN3 EPFBTOIB+6~, EPFBTOIB+29*, EPFBTOIB+30*
FBIENRET SETFB2IB+8~
FBIENRET(1 SETFB2IB+27, SETFB2IB+28
FBIENS GETFB2IB+7~, GETFBPAY+7~, GETFBPAY+10*, GETFBPAY+11, GETFBPAY+14, GETFBPAY+16*, GETFBPAY+17, GETFBPAY+19, GETFBPAY+22*, GETFBPAY+24
, GETFBPAY+27, GETFBPAY+29, GETFBPAY+30, GETFBPAY+31, GETFBPAY+32, GETFBPAY+33, GETFBPAY+34, GETFBPAY+35, GETFBPAY+36, GETFBPAY+37
, GETFBPAY+38, GETFBPAY+39, GETFBPAY+40, GETFBPAY+41, GETFBPAY+42, GETFBPAY+43, GETFBPAY+44, GETFBPAY+45, GETFBPAY+46, GETFBPAY+47
, GETFBPAY+48
FBINSRET SCRUB2IB+6~, SCRUB2IB+30, SCRUB2IB+37
FBINVARY GETFBINV~
FBINVARY("ATT ENDING NAME" , GETFBINV+29*, ENDING NPI" , GETFBINV+30*, ENDING TXY" , GETFBINV+31*
FBINVARY("BAT CH NUMBER" , GETFBINV+27*
FBINVARY("CONTRACT" GETFBINV+28*
FBINVARY("LIN E ITEM NUMBER" , GETFBINV+59*
FBINVARY("LIR ENDER NAME" , GETFBINV+46!, GETFBINV+60*, ENDER NPI" , GETFBINV+47!, GETFBINV+61*, ENDER TXY" , GETFBINV+48!, GETFBINV+62*
FBINVARY("OPE RATING NAME" , GETFBINV+32*, RATING NPI" , GETFBINV+33*
FBINVARY("REF ERRING NAME" , GETFBINV+39*, ERRING NPI" , GETFBINV+40*
FBINVARY("REN DERING NAME" , GETFBINV+34*, DERING NPI" , GETFBINV+35*, DERING TXY" , GETFBINV+36*
FBINVARY("SER VICING ADDRESS" , GETFBINV+41*, VICING CITY" , GETFBINV+42*, VICING NAME" , GETFBINV+37*, VICING NPI" , GETFBINV+38*, VICING STATE INT" , GETFBINV+43*
, VICING ZIP" , GETFBINV+44*
FBINVARY("TRE ATMENT FROM DATE" , GETFBINV+25*, ATMENT TO DATE" , GETFBINV+26*
FBINVARY("VEN DOR INTERNAL" , GETFBINV+24*
FBINVIEN GETFBINV~, GETFBINV+21, GETFBINV+24, GETFBINV+25, GETFBINV+26, GETFBINV+27, GETFBINV+28, GETFBINV+29, GETFBINV+30, GETFBINV+31
, GETFBINV+32, GETFBINV+33, GETFBINV+34, GETFBINV+35, GETFBINV+36, GETFBINV+37, GETFBINV+38, GETFBINV+39, GETFBINV+40, GETFBINV+41
, GETFBINV+42, GETFBINV+43, GETFBINV+44, GETFBINV+52, GETFBINV+56, GETFBINV+59, GETFBINV+60, GETFBINV+61, GETFBINV+62
FBLINUM SCRUB2IB+6~, SCRUB2IB+24*
FBLIPRV GETFBINV+7~, GETFBINV+51*, GETFBINV+52*, GETFBINV+56, GETFBINV+59, GETFBINV+60, GETFBINV+61, GETFBINV+62
FBNXT SCRUB2IB+6~
FBOK ADDONE+8~, ADDONE+19*, ADDONE+20, EPFBTOIB+6~, SCRUB2IB+16*, SCRUB2IB+25*, SCRUB2IB+27*, SCRUB2IB+28, SCRUB2IB+34*, SCRUB2IB+35
, SCRUB2IB+40, SETFB2IB+8~, SETFB2IB+10*, SETFB2IB+27*, SETFB2IB+28*, SETFB2IB+29*, SETFB2IB+30, GETFB2IB+7~, GETFB2IB+9*, GETFB2IB+16*
, GETFB2IB+17*, GETFB2IB+19, GETFB2IB+35, GETFB2IB+37
FBOLDATE CLEANUP+4~, CLEANUP+11*, CLEANUP+13*, CLEANUP+15
FBPAT ADDONE~, ADDONE+10, SCRUB2IB+6~, SCRUB2IB+17*, SCRUB2IB+18, SCRUB2IB+19, SCRUB2IB+20, SCRUB2IB+21, SCRUB2IB+30, SCRUB2IB+31
, SCRUB2IB+37, SCRUB2IB+38, SCRUB2IB+41, SCRUB2IB+43, SCRUB2IB+44, SCRUB2IB+46*, SCRUB2IB+47*, SCRUB2IB+49, SCRUB2IB+51, SCRUB2IB+52
, SCRUB2IB+54, SCRUB2IB+56, SCRUB2IB+57, SCRUB2IB+59, SCRUB2IB+62, SCRUB2IB+63, SCRUB2IB+65
FBPATARY SCRUB2IB+6~
FBPATARY( SCRUB2IB+19*, SCRUB2IB+20*, SCRUB2IB+21, SCRUB2IB+30*, SCRUB2IB+31*, SCRUB2IB+37*, SCRUB2IB+38*, SCRUB2IB+41*, SCRUB2IB+43, SCRUB2IB+44
, SCRUB2IB+47, SCRUB2IB+49, SCRUB2IB+51, SCRUB2IB+52!, SCRUB2IB+54, SCRUB2IB+56, SCRUB2IB+57, SCRUB2IB+59!, SCRUB2IB+62, SCRUB2IB+63
, SCRUB2IB+65!
FBPAYARY GETFBPAY~
FBPAYARY("ATT ENDING NAME" , GETFBPAY+30*, ENDING NPI" , GETFBPAY+31*, ENDING TXY" , GETFBPAY+32*
FBPAYARY("BAT CH NUMBER" , GETFBPAY+27*
FBPAYARY("CONTRACT" GETFBPAY+29*
FBPAYARY("LI NUMBER" , GETFBPAY+28*, RENDERING NAME" , GETFBPAY+42*, RENDERING NPI" , GETFBPAY+43*, RENDERING TXY" , GETFBPAY+44*
FBPAYARY("OPE RATING NAME" , GETFBPAY+33*, RATING NPI" , GETFBPAY+34*
FBPAYARY("REF ERRING NAME" , GETFBPAY+40*, ERRING NPI" , GETFBPAY+41*
FBPAYARY("REN DERING NAME" , GETFBPAY+35*, DERING NPI" , GETFBPAY+36*, DERING TXY" , GETFBPAY+37*
FBPAYARY("SER VICING ADDRESS" , GETFBPAY+45*, VICING CITY" , GETFBPAY+46*, VICING NAME" , GETFBPAY+38*, VICING NPI" , GETFBPAY+39*, VICING STATE INT" , GETFBPAY+47*
, VICING ZIP" , GETFBPAY+48*
FBPAYARY("TRE ATMENT DATE" , GETFBPAY+19*
FBPAYARY("VEN DOR INTERNAL" , GETFBPAY+14*
FBPAYIEN GETFBPAY~, GETFBPAY+10, GETFBPAY+16, GETFBPAY+22, GETFBPAY+28
FBPROG ADDONE~, ADDONE+11, ADDONE+12, ADDONE+15, SCRUB2IB+22*, SCRUB2IB+26, SCRUB2IB+33
FBQUIT EPFBTOIB+6~, EPFBTOIB+13*, EPFBTOIB+17*, EPFBTOIB+18, EPFBTOIB+21*, EPFBTOIB+22, EPFBTOIB+24*, GETFBINV+7~, GETFBINV+9*, GETFBINV+22*
, GETFBINV+23, GETFBINV+57*, GETFBINV+58, GETFBINV+63, GETFBPAY+7~, GETFBPAY+9*, GETFBPAY+12*, GETFBPAY+13, GETFBPAY+18*, GETFBPAY+21
, GETFBPAY+25*, GETFBPAY+26, GETFBPAY+49
FBRECARY SCRUB2IB+6~, SCRUB2IB+27, SCRUB2IB+34, SCRUB2IB+44
FBRECARY("CONTRACT" SCRUB2IB+41, SCRUB2IB+42
FBRECARY("TRE ATMENT DATE" , SCRUB2IB+36, ATMENT FROM DATE" , SCRUB2IB+29
FBRET GETFB2IB+7~, GETFBINV+7~, GETFBPAY+7~
FBRET( GETFB2IB+17, GETFB2IB+20, GETFB2IB+21, GETFB2IB+22, GETFB2IB+23, GETFB2IB+24, GETFB2IB+25, GETFB2IB+26, GETFB2IB+27, GETFB2IB+28
, GETFB2IB+29, GETFB2IB+30, GETFB2IB+31, GETFB2IB+32, GETFB2IB+33, GETFBINV+24, GETFBINV+25, GETFBINV+26, GETFBINV+27, GETFBINV+28
, GETFBINV+29, GETFBINV+30, GETFBINV+31, GETFBINV+32, GETFBINV+33, GETFBINV+34, GETFBINV+35, GETFBINV+36, GETFBINV+37, GETFBINV+38
, GETFBINV+39, GETFBINV+40, GETFBINV+41, GETFBINV+42, GETFBINV+43, GETFBINV+44, GETFBPAY+14, GETFBPAY+19, GETFBPAY+27, GETFBPAY+29
, GETFBPAY+30, GETFBPAY+31, GETFBPAY+32, GETFBPAY+33, GETFBPAY+34, GETFBPAY+35, GETFBPAY+36, GETFBPAY+37, GETFBPAY+38, GETFBPAY+39
, GETFBPAY+40, GETFBPAY+41, GETFBPAY+42, GETFBPAY+43, GETFBPAY+44, GETFBPAY+45, GETFBPAY+46, GETFBPAY+47, GETFBPAY+48
FBRET2 GETFBINV+7~
FBRET2( GETFBINV+59, GETFBINV+60, GETFBINV+61, GETFBINV+62
FBRETRN IBALLWD+5~, IBALLWD+7*, IBALLWD+9*, IBALLWD+10*, IBALLWD+11*, IBALLWD+12
FBTEST EPFBTOIB+6~
FBTODAY EPFBTOIB+6~, EPFBTOIB+7*, EPFBTOIB+9
FBTRTDT SCRUB2IB+6~, SCRUB2IB+29*, SCRUB2IB+30, SCRUB2IB+31, SCRUB2IB+36*, SCRUB2IB+37, SCRUB2IB+38
FBX FBSC+4~, FBSC+5*, FBSC+7*, FBSC+8
FBXIEN SCRUB2IB+6~, SCRUB2IB+50*, SCRUB2IB+51*, SCRUB2IB+55*, SCRUB2IB+56*, SCRUB2IB+57, SCRUB2IB+58, SCRUB2IB+59, SCRUB2IB+60*, SCRUB2IB+62*
, SCRUB2IB+63, SCRUB2IB+64, SCRUB2IB+65
U FBSC+7
VAEL FBSC+4~
VAEL(3 FBSC+7
VAERR FBSC+4~
X CLEANUP+6~, CLEANUP+11
X1 CLEANUP+6~, CLEANUP+8*
X2 CLEANUP+6~, CLEANUP+9*
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  | All