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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BARFPST3

Package: IHS Accounts Receivable

Routine: BARFPST3


Information

BARFPST3 ; IHS/SD/LSL - A/R FLAT RATE POSTING #3 ; 01/09/2009

Source Information

Source file <BARFPST3.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
IHS Accounts Receivable 8 $$SDT^BARDUTL  ($$GETBIL,HIT,SELFRBIL)^BARFPST3  STOP^BARFPST5  $$EN^BARPST2  (ASKPAT,GETBIL,SELBILL)^BARPUTL  ($$IHS,$$NOTOPEN)^BARUFUT  EOP^BARUTL  $$EN^BARVDF  
VA Fileman 5 ^DIC  FILE^DICN  ^DIK  $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
IHS Accounts Receivable 12 BARACSI  BARBAD3  BARFPST  BARFPST3  BARFPST5  BARNCPDP  BARPNP3  BARPPY01  
BARPRF3  BARPRMKP  BARPST3  BARPUC3  

Entry Points

Name Comments DBIA/ICR reference
DISP ; EP
; Display Accumulated posted amount and posting balance from
; A/R FLAT RATE POSTING File before making entries
; BARBIEN = IEN to A/R BILLS mult in VISIT LOCATION mult in FRP File
; J = Bill Counter
SELFRBIL ; EP
; EP - look up into A/R FLAT RATE POSTING File if EDIT
CONT ; Remarks entry: BARPRMKP
; End 1.8*21
SAVEBIL ;
; Save Bill to A/R FLAT RATE POSTING File
FINDBIL ; EP
PAYOR ;
; If payor on bill differs from payor on account, notify user
ASKLIN ; EP
; If entering bills by Patient or DOS, ask user to choose one
GETBIL() ; EP
; EP - Flat Rate Posting - Bill Entry
; If Editing, ask Flat Rate Posting Bill
DELBIL ;
; Ask if user wants to delete bill from A/R FLAT RATE POSTING File
BILEXIST ;
; Check for bill in existing FRP Batch
FRPBILL ; EP
; EP - Continue top-level loop logic
HIT(BARPASS)
NEGBILL ;
; If negative balance on bill
BILLS ;
; Loop through and enter/edit A/R Bills multiple in
; A/R FLAT RATE POSTING File
; BARFPASS = Patient^DOS Start^DOS End^A/R BILL IEN^FRP BILL IEN
CHKLINE(BARHD)
GETBIL2()
SELFRID ;
; Identifier on "Select Flate Rate Post BILL"
; Patient name from A/R bill file

External References

Name Field # of Occurrence
$$SDT^BARDUTL HIT+13, HIT+14, HIT+31
$$GETBIL^BARFPST3 BILLS+6
HIT^BARFPST3 FINDBIL+9
SELFRBIL^BARFPST3 CONT+2
STOP^BARFPST5 NEGBILL+7
$$EN^BARPST2 FINDBIL+2
ASKPAT^BARPUTL CONT+7
GETBIL^BARPUTL CONT+9
SELBILL^BARPUTL CONT+3
$$IHS^BARUFUT BILLS+22, BILLS+30
$$NOTOPEN^BARUFUT GETBIL+4
EOP^BARUTL CHKLINE+6
$$EN^BARVDF HIT+6
^DIC SELFRBIL+10
FILE^DICN SAVEBIL+10
^DIK DELBIL+15
$$GET1^DIQ PAYOR+8, PAYOR+10
^DIR ASKLIN+7, DELBIL+6, PAYOR+14, BILEXIST+14
$$VAL^XBDIQ1 BILLS+17, SELFRID+4, BILEXIST+8, NEGBILL+3
$$VALI^XBDIQ1 FRPBILL+3, SELFRID+3, PAYOR+4, BILEXIST+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Amount To Post: ",BARAPST,?30,"Remaining Balance: ",BARBAL
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !,$$VAL^XBDIQ1(90050.01,BARBLHLD,.01)
  • Line Location: BILLS+17
Function Call: WRITE
  • Prompt: " has already been entered."
  • Line Location: BILLS+18
Function Call: WRITE
  • Prompt: !,"Amount To Post: ",BARAPST,?30,"Remaining Balance: ",BARBAL
  • Line Location: BILLS+27
Function Call: WRITE
  • Prompt: !,"Posting this payment will result in a negative balance."
  • Line Location: BILLS+32
Function Call: WRITE
  • Prompt: ?30,$E(BARID2,1,30)
  • Line Location: SELFRID+5
Function Call: WRITE
  • Prompt: *7
  • Line Location: FINDBIL+4
Function Call: WRITE
  • Prompt: !,"No bills found in this date range!"
  • Line Location: FINDBIL+5
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF"),!
  • Line Location: HIT+6
Function Call: WRITE
  • Prompt: "Claims for "_BARPTNAM
  • Line Location: HIT+12
Function Call: WRITE
  • Prompt: " from "_$$SDT^BARDUTL($P(BARPASS,U,2))
  • Line Location: HIT+13
Function Call: WRITE
  • Prompt: " to "_$$SDT^BARDUTL($P(BARPASS,U,3))
  • Line Location: HIT+14
Function Call: WRITE
  • Prompt: ?(IOM-15),"Page: "_BARPG
  • Line Location: HIT+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: HIT+16
Function Call: WRITE
  • Prompt: "Line #",?8,"DOS",?18,"Claim #",?32,"Amount",?44,"Billed To",?70,"Balance"
  • Line Location: HIT+17
Function Call: WRITE
  • Prompt: !,BARDSH
  • Line Location: HIT+20
Function Call: WRITE
  • Prompt: !,$J(BARLIN,3)
  • Line Location: HIT+30
Function Call: WRITE
  • Prompt: ?6,$$SDT^BARDUTL($P(BARREC,U))
  • Line Location: HIT+31
Function Call: WRITE
  • Prompt: ?18,BARBLO
  • Line Location: HIT+32
Function Call: WRITE
  • Prompt: ?25,BARCMSG
  • Line Location: HIT+33
Function Call: WRITE
  • Prompt: ?32,$J($P(BARREC,U,3),8,2)
  • Line Location: HIT+34
Function Call: WRITE
  • Prompt: ?44,$E($P(BARREC,U,4),1,23)
  • Line Location: HIT+35
Function Call: WRITE
  • Prompt: ?70,$J($P(BARREC,U,5),8,2)
  • Line Location: HIT+36
Function Call: WRITE
  • Prompt: !?(IOM-15),"continued==>"
  • Line Location: CHKLINE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKLIN+2
Function Call: WRITE
  • Prompt: ?20,"Deleted."
  • Line Location: DELBIL+18
Function Call: WRITE
  • Prompt: !,"Amount To Post: ",BARAPST,?30,"Remaining Balance: ",BARBAL
  • Line Location: DELBIL+19
Routine Call
  • DIC
  • Line Location:
    • SELFRBIL+10
Routine Call
  • DIR
  • Line Location:
    • ASKLIN+7
    • DELBIL+6
    • PAYOR+14
    • BILEXIST+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BARAC(2906 - [#90050.02] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BARBL( SELFRBIL+12, SELFRBIL+13, SELFRBIL+14
^BARFRP( DISP+6, BILLS+16, BILEXIST+4, BILEXIST+5
^BARTMP($J FINDBIL+7, FINDBIL+11, HIT+21, HIT+22, HIT+23
^BARTR( HIT+11, HIT+25
^DD(90054.0102 SAVEBIL+7
^DPT - [#2] HIT+9

Label References

Name Line Occurrences
$$CHKLINE HIT+26
ASKLIN FINDBIL+10
BILEXIST BILLS+20
BILLS FRPBILL+4
CONT GETBIL+5
DELBIL BILLS+13
FINDBIL BILLS+10
NEGBILL BILLS+22
PAYOR BILLS+19
SAVEBIL BILLS+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BARADJT NEGBILL+4
>> BARAPST DISP+7*, DISP+8, DISP+9, BILLS+25*, BILLS+26, BILLS+27, BILLS+33*, BILLS+34, DELBIL+16*, DELBIL+17
, DELBIL+19
>> BARASK BILLS+10, FINDBIL+1*, FINDBIL+10, ASKLIN+8*
>> BARBAL DISP+8*, DISP+9, BILLS+26*, BILLS+27, BILLS+30, BILLS+34*, DELBIL+17*, DELBIL+19
>> BARBALH NEGBILL+4*, NEGBILL+5, NEGBILL+7
BARBDA HIT+2~, HIT+3*, HIT+21*, HIT+22, HIT+23
>> BARBIEN DISP+5*, DISP+6*
>> BARBIL FRPBILL+4, BILLS+5*, BILLS+7*, BILLS+35*
>> BARBILB BILLS+22, NEGBILL+2*, NEGBILL+6*
>> BARBILE BILLS+20, BILEXIST+3*, BILEXIST+15*
>> BARBL CONT+5*, CONT+6
>> BARBLBAL NEGBILL+3*, NEGBILL+4
>> BARBLHLD BILLS+14*, BILLS+16, BILLS+17, BILEXIST+4, BILEXIST+5, NEGBILL+3
BARBLO HIT+2~, HIT+24*, HIT+25*, HIT+32
>> BARBTO PAYOR+3*, PAYOR+4*, PAYOR+5, PAYOR+8
>> BARCMSG HIT+28*, HIT+29*, HIT+33
>> BARCNT BILLS+10, FINDBIL+2*, FINDBIL+3, FINDBIL+6, FINDBIL+7, ASKLIN+6
>> BARDSH HIT+18*, HIT+19*, HIT+20
>> BAREND SELFRBIL+14*, SELFRBIL+15*, SELFRBIL+16
>> BARFIEN DISP+6, BILLS+16, SELFRBIL+3, DELBIL+12, SAVEBIL+4
>> BARFLAG FRPBILL+2*
>> BARFPASS BILLS+6*, BILLS+7, BILLS+8, BILLS+10, BILLS+13, BILLS+14, FINDBIL+7*, FINDBIL+11*, DELBIL+13, PAYOR+3
, PAYOR+4, SAVEBIL+8
BARHD CHKLINE~
>> BARID1 SELFRID+3*, SELFRID+4
>> BARID2 SELFRID+4*, SELFRID+5
>> BARIEN DISP+6, BILLS+16, SELFRBIL+4, DELBIL+11, SAVEBIL+3
>> BARIEN2 BILEXIST+5*, BILEXIST+6, BILEXIST+8
BARLIN FINDBIL+11, HIT+2~, HIT+22*, HIT+23, HIT+30, ASKLIN+9*
BARNAME BILEXIST+2~, BILEXIST+8*, BILEXIST+11
>> BARPAMT DISP+8, BILLS+26, BILLS+34, DELBIL+17
BARPASS BILLS+8*, FINDBIL+2, FINDBIL+9, HIT~, HIT+9, HIT+11, HIT+13, HIT+14
BARPAT BILLS+4!, SELFRBIL+12*, SELFRBIL+16
>> BARPAY DISP+7, BILLS+25, BILLS+33, DELBIL+16, NEGBILL+4
>> BARPAYOR BILLS+19, PAYOR+2*, PAYOR+15*
>> BARPDBY FRPBILL+3*, PAYOR+5, PAYOR+10
>> BARPG HIT+3*, HIT+8*, HIT+15
BARPTNAM HIT+7~, HIT+9*, HIT+11*, HIT+12
BARREC HIT+2~, HIT+23*, HIT+24, HIT+29, HIT+31, HIT+34, HIT+35, HIT+36
>> BARRECPQ CONT+2
>> BARSTART SELFRBIL+13*, SELFRBIL+15, SELFRBIL+16
BARSTAT BILEXIST+2~, BILEXIST+6*, BILEXIST+7*, BILEXIST+11
>> BARSTOP HIT+3*, HIT+21, HIT+26*, HIT+27
BARZ BILLS+4!, CONT+2, CONT+4, CONT+6*, CONT+8, CONT+10, SELFRBIL+16*
>> DA DELBIL+13*
>> DA(1 SELFRBIL+3*, DELBIL+12*, SAVEBIL+4*
>> DA(2 SELFRBIL+4*, DELBIL+11*, SAVEBIL+3*
DD SAVEBIL+9!
DIC SELFRBIL+2!, SELFRBIL+5*, SAVEBIL+2!, SAVEBIL+5*, SAVEBIL+11!
DIC("A" SELFRBIL+6*
DIC("P" SAVEBIL+7*
DIC("W" SELFRBIL+9*
DIC(0 SELFRBIL+7*, SAVEBIL+6*
DIK DELBIL+10!, DELBIL+14*
DIR ASKLIN+3!, DELBIL+2!, DELBIL+7!, PAYOR+6!, BILEXIST+9!
DIR("?" ASKLIN+6*
DIR("A" ASKLIN+5*, DELBIL+4*, PAYOR+7*, PAYOR+8*, PAYOR+9*, PAYOR+10*, PAYOR+11*, BILEXIST+11*, BILEXIST+12*
DIR("B" DELBIL+5*, PAYOR+12*, BILEXIST+13*
DIR(0 ASKLIN+4*, DELBIL+3*, PAYOR+13*, BILEXIST+10*
DO SAVEBIL+9!
DUZ GETBIL+4
DUZ(2 DISP+6, BILLS+16, BILLS+22, BILLS+30, SELFRBIL+12, SELFRBIL+13, SELFRBIL+14, HIT+11, HIT+25, BILEXIST+4
, BILEXIST+5
IOM HIT+15, HIT+19, CHKLINE+5
IOSL CHKLINE+4
>> J DISP+5*, DISP+6*, DISP+7
U BILLS+8, BILLS+10, BILLS+13, BILLS+14, CONT+6, SELFRBIL+12, SELFRBIL+13, SELFRBIL+14, SELFRBIL+16, FINDBIL+7
, FINDBIL+11, HIT+9, HIT+13, HIT+14, HIT+24, HIT+29, HIT+31, HIT+34, HIT+35, HIT+36
, DELBIL+13, PAYOR+3, PAYOR+4, SAVEBIL+7, SAVEBIL+8
>> UFMSESID GETBIL+4
X CHKLINE+3~, SAVEBIL+8*
>> Y CONT+5, SELFRBIL+11, SELFRBIL+16, CHKLINE+7, ASKLIN+8, ASKLIN+9, DELBIL+8, PAYOR+5, PAYOR+15, BILEXIST+15
>> Y(0 SELFRBIL+12, SELFRBIL+13, SELFRBIL+14, SELFRBIL+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All