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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: FBPAID1

Package: Fee Basis

Routine: FBPAID1


Information

FBPAID1 ;WOIFO/SAB - SERVER ROUTINE TO UPDATE PAYMENTS CON'T ;1/11/2012

Source Information

Source file <FBPAID1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Fee Basis 2 $$EXTRL^FBMRASVR  $$DATE4^FBPAID1  
VA FileMan 2 ^%DT  $$GET1^DIQ  
Kernel 1 $$TRIM^XLFSTR  

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
Fee Basis 4 FBPAID  FBPAID1  FBSVBR  FBSVPR  

Entry Points

Name Comments DBIA/ICR reference
PARSE ;set-up variables for payment record called from FBPAID
; FBPROG = 3 for Outpatient (file 162)
; = T for Travel (file 162)
; = 5 for Pharmacy (file 162.1)
; = 9 for Inpatient (file 162.5)
; = $E(XMRG,7) fee program and effected file
; FBACT = $E(XMRG,8) type of activity
; FBIEN(x)=$E(XMRG,9,38) IEN for payment record to update
; FBCKNUM= $E(XMRG,39,46) check number
; old format (when total length = 77)
; FBCKDT = $E(XMRG,47,52) check date
; FBINAMT= $E(XMRG,53,60) interest amount
; FBXDT = $E(XMRG,61,66) cancel date
; FBRCOD = $E(XMRG,67) reason code
; FBXCOD = $E(XMRG,68) cancel code
; FBDAMT = $E(XMRG,69,76) disbursed amount
; new format (when total length = 82)
; FBCKDT = $E(XMRG,47,54) check date
; FBINAMT= $E(XMRG,55,62) interest amount
; FBXDT = $E(XMRG,63,70) cancel date
; FBRCOD = $E(XMRG,71) reason code
; FBXCOD = $E(XMRG,72) cancel code
; FBDAMT = $E(XMRG,73,81) disbursed amount
; FBBRTG = $E(XMRG,82,90) bank routing number ;HIPAA 5010 P121
; FBBACC = $E(XMRG,91,107) bank account number ;HIPAA 5010 P121
; FBBNAM = $E(XMRG,108,138)bank name ;HIPAA 5010 P121
; FBAMT = Amount paid out of payment record
BUL ;create server bulletin message
DATE(X) ;pass in 'X'=date in yymmdd format and return date in
DATE4(X) ;pass in 'X'=date in yyyymmdd format and return date in
CHKMOVE ;check if payment line item was moved by patient merge process
; input
; FBPROG - fee program (3 or "T")
; FBIEN - ien of payment (from austin)
; FBIEN() - ien(s) of higher level entries (1 for next higher, etc.)
; output
; FBIEN may be changed to reflect current value
; FBIEN() may be changed to reflect current value
IPACCHK(FBPROG,FBIEN) ; check if payment is an IPAC payment (FB*3.5*123)
; Function value is 1 if the payment is an IPAC payment, 0 otherwise
; This is determined by the existence of a pointer value to file 161.95.
IPACKX ;

External References

Name Field # of Occurrence
^%DT DATE+3, DATE4+3
$$GET1^DIQ IPACCHK+13
$$EXTRL^FBMRASVR PARSE+50
$$DATE4^FBPAID1 PARSE+52, PARSE+55
$$TRIM^XLFSTR PARSE+61, PARSE+62, PARSE+63

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FB(162.95 - [#162.95] PARSE+57
^FBAA(161.45 - [#161.45] CHKMOVE+24, CHKMOVE+26
^FBAA(162.1 - [#162.1] PARSE+38
^FBAAC - [#162] PARSE+33, PARSE+34, PARSE+45, PARSE+46
^FBAAI - [#162.5] PARSE+41
^TMP("FBERR" PARSE+34*, PARSE+38*, PARSE+41*, PARSE+46*
^TMP("FBPAID" BUL+1*

Label References

Name Line Occurrences
$$IPACCHK PARSE+50
CHKMOVE PARSE+33, PARSE+45
IPACKX IPACCHK+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+3*!, DATE4+3*!
>> FBACT PARSE+29*
>> FBBACC PARSE+62*
>> FBBNAM PARSE+63*
>> FBBRTG PARSE+61*
FBCIENS CHKMOVE+8~, CHKMOVE+19*, CHKMOVE+24, CHKMOVE+30*, CHKMOVE+33, CHKMOVE+35, CHKMOVE+36, CHKMOVE+37, CHKMOVE+38, CHKMOVE+40
, CHKMOVE+41
>> FBCKDT PARSE+52*
>> FBCKNUM PARSE+49*, PARSE+50*
FBDA CHKMOVE+8~, CHKMOVE+24*, CHKMOVE+25, CHKMOVE+26
>> FBDAMT PARSE+58*, PARSE+59*
>> FBERR PARSE+27, PARSE+28*, PARSE+29*, PARSE+30, PARSE+31, PARSE+34*, PARSE+36, PARSE+38*, PARSE+40, PARSE+41*
, PARSE+43, PARSE+46*
FBFIELD IPACCHK+4~, IPACCHK+9*, IPACCHK+10*, IPACCHK+11*, IPACCHK+13
FBFILE CHKMOVE+8~, CHKMOVE+11*, CHKMOVE+12, CHKMOVE+24, IPACCHK+4~, IPACCHK+9*, IPACCHK+10*, IPACCHK+11*, IPACCHK+13
FBIEN PARSE+30*, PARSE+32*, PARSE+33, PARSE+34, PARSE+37*, PARSE+38, PARSE+41*, PARSE+44*, PARSE+45, PARSE+46
, PARSE+50, CHKMOVE+15, CHKMOVE+16, CHKMOVE+35*, CHKMOVE+40*, IPACCHK~, IPACCHK+9, IPACCHK+11
FBIEN(1 PARSE+32*, PARSE+33, PARSE+34, PARSE+37*, PARSE+38, PARSE+44*, PARSE+45, PARSE+46, CHKMOVE+15, CHKMOVE+16
, CHKMOVE+36*, CHKMOVE+41*, IPACCHK+9, IPACCHK+10
FBIEN(2 PARSE+32*, PARSE+33, PARSE+34, CHKMOVE+15, CHKMOVE+37*, IPACCHK+9
FBIEN(3 PARSE+32*, PARSE+33, PARSE+34, CHKMOVE+15, CHKMOVE+38*, IPACCHK+9
>> FBINAMT PARSE+53*, PARSE+54*
>> FBMCNT BUL+1
FBNIENS CHKMOVE+8~, CHKMOVE+22, CHKMOVE+23*, CHKMOVE+26*, CHKMOVE+28*, CHKMOVE+30
FBPROG PARSE+28*, PARSE+31, PARSE+36, PARSE+40, PARSE+43, PARSE+50, CHKMOVE+11, CHKMOVE+15, CHKMOVE+16, CHKMOVE+34
, CHKMOVE+39, IPACCHK~, IPACCHK+6, IPACCHK+9, IPACCHK+10, IPACCHK+11
>> FBRCOD PARSE+56*, PARSE+57*
FBSIENS CHKMOVE+8~, CHKMOVE+15*, CHKMOVE+16*, CHKMOVE+17, CHKMOVE+19, CHKMOVE+28, CHKMOVE+33, IPACCHK+4~, IPACCHK+9*, IPACCHK+10*
, IPACCHK+11*, IPACCHK+13
>> FBXCOD PARSE+56*
>> FBXDT PARSE+55*
>> I PARSE+34, PARSE+38, PARSE+41, PARSE+46
RES IPACCHK+4~, IPACCHK+5*, IPACCHK+13*, IPACKX+1
U PARSE+32, PARSE+37, PARSE+44, CHKMOVE+26
X DATE~, DATE+2, DATE+3*, DATE4~, DATE4+2, DATE4+3*
>> XMRG PARSE+28, PARSE+29, PARSE+30, PARSE+49, PARSE+52, PARSE+53, PARSE+55, PARSE+56, PARSE+58, PARSE+60
, PARSE+61, PARSE+62, PARSE+63
Y DATE+2~, DATE+4, DATE4+2~, DATE4+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All