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

Package: IHS Accounts Receivable

Routine: BARMPAS2


Information

BARMPAS2 ; IHS/SD/LSL - Patient Account Statement Print ;

Source Information

Source file <BARMPAS2.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS Accounts Receivable 6 ($$SDT,$$SHDT)^BARDUTL  (PG,PGHDR,PRTASK)^BARMPAS3  REINDEX^BARMPAS5  POUT^BARRUTL  ($$FIND3PB,EOP)^BARUTL  $$VAL^BARVPM  
IHS VA Utilities 1 ENP^XBDIQ1  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Accounts Receivable 2 BAR PAS PRNT TSK PAT ACCT STMT  BARMPAS3  

Entry Points

Name Comments DBIA/ICR reference
VISLOC ;
SUM ; EP
; CALCULATE AND PRESENT SUMMARY
STMT
PRTASK ; EP - MOVED TO ^BARMPAS3
PRINT ; EP
; Print Patient Account Statements.
BILLED
BLDA3 ;
; profile this bills transactions
BLDA4 ;
BLDA2 ;
; profile bills from the first bill
AGE2(BARBL) ;
ONEBILL ;
ACCT(BARACDA) ;
; For each patient account in XTMP do...
BLDA ;
AGE(BARACDA) ; EP
; AGE PAST BILLS
GETBIL ;
COMPUTE ;
; computed through tasked option
STMTP
BILEROR ;
; test to eliminate bills with billed in error
PREPAID ;
BILEROR3 ;
BILEROR2 ;
; test transactions for the bill
EXIT ; EP
CXL

External References

Name Field # of Occurrence
$$SDT^BARDUTL SUM+21
$$SHDT^BARDUTL STMTP+19
PG^BARMPAS3 STMTP+16, SUM+2, SUM+27, SUM+36
PGHDR^BARMPAS3 ACCT+8
PRTASK^BARMPAS3 PRTASK+1
REINDEX^BARMPAS5 PRINT+6
POUT^BARRUTL EXIT+2
$$FIND3PB^BARUTL CXL+2
EOP^BARUTL PRINT+8
$$VAL^BARVPM BLDA2+12
$$GET1^DIQ ONEBILL+1, BILEROR2+4, BLDA4+8, BLDA4+10, BLDA4+16
ENP^XBDIQ1 BILEROR3+2, BLDA2+6, BLDA4+2, AGE2+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"THIS BATCH OF STATEMENTS IS NOT COMPATIBLE WITH THE NEW FILE STRUCTURE."
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,"WILL RUN REIDEXING FIRST, THEN TRY AGAIN",!!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!!!!?25,"*** NO DATA TO PRINT ***"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !!?5,"LOCATION: ",VISLOC
  • Line Location: STMT+4
Function Call: WRITE
  • Prompt: !!,"SERVICE DATE: ",$$SHDT^BARDUTL(BAR(102,"I"))
  • Line Location: STMTP+19
Function Call: WRITE
  • Prompt: ?30,"BILL #: ",BARBNUM
  • Line Location: STMTP+20
Function Call: WRITE
  • Prompt: ?50,"PROVIDER: ",$E(BARPRV,1,20)
  • Line Location: STMTP+21
Function Call: WRITE
  • Prompt: !?6,$J($FN(BARBILLD,"p",2),9)
  • Line Location: STMTP+22
Function Call: WRITE
  • Prompt: ?18,$J($FN(BARITOT,"p",2),9),?30,$J($FN(BARPTOT,"p",2),9),?41,$J($FN(BARATOT,"p",2),9)
  • Line Location: STMTP+23
Function Call: WRITE
  • Prompt: ?56,$J($FN(BARINSOW,"p",2),9)
  • Line Location: STMTP+24
Function Call: WRITE
  • Prompt: ?69,$J($FN(BARPRSP,"p",2),9)
  • Line Location: STMTP+26
Function Call: WRITE
  • Prompt: ?74,"**"
  • Line Location: STMTP+27
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: ?TAB,BARTOTL("DASH")
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !,?6,$J($FN(BARTOTL("B"),"p",2),9)
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: ?18,$J($FN(BARTOTL("I"),"p",2),9)
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: ?30,$J($FN(BARTOTL("P"),"p",2),9)
  • Line Location: SUM+8
Function Call: WRITE
  • Prompt: ?41,$J($FN(BARTOTL("A"),"p",2),9)
  • Line Location: SUM+9
Function Call: WRITE
  • Prompt: ?56,$J($FN(BARTOTL("IO"),"p",2),9)
  • Line Location: SUM+10
Function Call: WRITE
  • Prompt: ?69,$J($FN(BARTOTL("PR"),"p",2),9)
  • Line Location: SUM+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUM+13
Function Call: WRITE
  • Prompt: !,BARBAR
  • Line Location: SUM+14
Function Call: WRITE
  • Prompt: !,"Pre-payments:"
  • Line Location: SUM+15
Function Call: WRITE
  • Prompt: !," ",BARCNT1,". Receipt #",$G(^XTMP("BAR",$J,"BARMPAS2",BARPPAY,"RECEIPT"))
  • Line Location: SUM+19
Function Call: WRITE
  • Prompt: ?30,"$",$J($G(^XTMP("BAR",$J,"BARMPAS2",BARPPAY,"CREDIT")),8)," FOR "
  • Line Location: SUM+20
Function Call: WRITE
  • Prompt: ?43,$$SDT^BARDUTL($G(^XTMP("BAR",$J,"BARMPAS2",BARPPAY,"TODOS")))
  • Line Location: SUM+21
Function Call: WRITE
  • Prompt: ?60,$G(^XTMP("BAR",$J,"BARMPAS2",BARPPAY,"PAYTYPE"))
  • Line Location: SUM+22
Function Call: WRITE
  • Prompt: !?40,"POSTED TO BILL# ",^XTMP("BAR",$J,"BARMPAS2",BARPPAY,"BILL")
  • Line Location: SUM+23
Function Call: WRITE
  • Prompt: !,BARBAR
  • Line Location: SUM+25
Function Call: WRITE
  • Prompt: !,BARPTMSG
  • Line Location: SUM+26
Function Call: WRITE
  • Prompt: !,BARLINE,!,"** SUMMARY by days due**",!,BARBAR
  • Line Location: SUM+28
Function Call: WRITE
  • Prompt: !,?1,"0-29 Days",?17,"30-59 Days",?32,"60-89 Days",?47,"90-120+ Days",?66,"TOTAL DUE"
  • Line Location: SUM+29
Function Call: WRITE
  • Prompt: !,?1,"$",$J(BARAGE(0),8,2)
  • Line Location: SUM+30
Function Call: WRITE
  • Prompt: ?17,"$",$J(BARAGE(1),8,2)
  • Line Location: SUM+31
Function Call: WRITE
  • Prompt: ?32,"$",$J(BARAGE(2),8,2)
  • Line Location: SUM+32
Function Call: WRITE
  • Prompt: ?47,"$",$J(BARAGE(3),8,2)
  • Line Location: SUM+33
Function Call: WRITE
  • Prompt: ?66,"$",$J(BARAGE,9,2)
  • Line Location: SUM+34
Function Call: WRITE
  • Prompt: !,BARLINE,!
  • Line Location: SUM+35
Function Call: WRITE
  • Prompt: !,?25,"+++PAYMENT DUE UPON RECEIPT+++",!
  • Line Location: SUM+37
Function Call: WRITE
  • Prompt: !,"** Your Insurance has been billed. You may be responsible for all or "
  • Line Location: SUM+38
Function Call: WRITE
  • Prompt: !,"a portion of the billed amount based on your scheduled benefits."
  • Line Location: SUM+39
Function Call: WRITE
  • Prompt: !,"Statement reflects all transactions up to statement date."
  • Line Location: SUM+40
Function Call: WRITE
  • Prompt: !!,"This statement is intended for the above named patient, if you have"
  • Line Location: SUM+41
Function Call: WRITE
  • Prompt: !,"received this statement in error please notify us immediately.",!
  • Line Location: SUM+42

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL( BLDA2+19, BLDA2+20, CXL+6
^BARBL( STMTP+6, STMTP+13, STMTP+14, STMTP+15, BILEROR+3, BILEROR2+2, BLDA+2, BLDA2+4, AGE2+4
^BARPPAY( PREPAID+4, PREPAID+9, PREPAID+10, PREPAID+11, PREPAID+12, PREPAID+13, PREPAID+16, PREPAID+18, PREPAID+19, PREPAID+21
^BARTR( BILEROR2+6, BLDA3+3
^VA(200 - [#200] BLDA2+23
^XTMP("BAR" SUM+18, SUM+19, SUM+20, SUM+21, SUM+22, PREPAID+1!, PREPAID+10*, PREPAID+11*, PREPAID+12*, PREPAID+15*
, PREPAID+17*, PREPAID+19*, PREPAID+21*
^XTMP("BARPAS" PRINT+2, PRINT+10, PRINT+14, PRINT+15, PRINT+16, ACCT+2, ACCT+11, VISLOC+1, GETBIL+1, AGE+5

Label References

Name Line Occurrences
ACCT PRINT+16
AGE ACCT+14
AGE2 AGE+5
BILEROR STMT
BILEROR2 BILEROR+3
BILEROR3 BILEROR2+6
BLDA STMTP+4
BLDA2 BLDA+2
BLDA3 BILLED+7
BLDA4 BLDA3+3
GETBIL VISLOC+1
ONEBILL GETBIL+1
PREPAID SUM+12
STMT ACCT+12
STMTP STMT+5
SUM ACCT+15
VISLOC ACCT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BAR BLDA2+5!, CXL+2, AGE2+1!
BAR( STMTP+13, BLDA2+7, BILLED+3, BILLED+4, BILLED+5, AGE2+3, AGE2+5
BAR("3P LOC" CXL+2*, CXL+3, CXL+4, CXL+5
BAR(102 STMTP+19
BAR(113 BLDA2+16, BLDA2+22*, BLDA2+23, BLDA2+24, BLDA2+25
BAR(114 BLDA2+25
BAR(13 BILLED+4
BAR(15 BLDA2+13, BLDA2+14, AGE2+7, AGE2+8
BAR(17 BLDA2+18
BAR(22 BLDA2+18
BAR(3 BLDA2+10, BLDA2+11
>> BAR3PDUZ CXL+4*, CXL+6
>> BAR3PIEN CXL+5*, CXL+6
>> BARACBAL ACCT+10*
BARACDA PRINT+16*, ACCT~, ACCT+2, ACCT+11, ACCT+14, VISLOC+1, GETBIL+1, BLDA2+10, BLDA4+13, BLDA4+18
, BLDA4+19, AGE~, AGE+5, AGE2+4
BARAGE AGE+2!, AGE+3*, AGE2+8*, SUM+34
BARAGE( AGE+4*, AGE2+7*
BARAGE(0 SUM+30
BARAGE(1 SUM+31
BARAGE(2 SUM+32
BARAGE(3 SUM+33
BARATOT STMTP+2~, STMTP+3*, STMTP+9, STMTP+10, STMTP+23, STMTP+30, BLDA4+22*
>> BARB3PB0 CXL+6*, CXL+7
>> BARBAR SUM+4*, SUM+14, SUM+25, SUM+28
>> BARBATCH BLDA4+6*, BLDA4+15
>> BARBIENS BLDA4+15*, BLDA4+16
>> BARBILDT BILEROR2+4*, BILEROR2+5
BARBILL ACCT+9!
BARBILL( ONEBILL+2*, STMT
BARBILL("X" STMTP+7, BILEROR2+5*, BLDA2+3, AGE2+3
BARBILL("XTR" BILEROR3+5*, BLDA4+22
BARBILLD STMTP+2~, STMTP+3*, STMTP+10, STMTP+11, STMTP+15*, STMTP+22, STMTP+29, BILLED+5*
BARBILLS ACCT+9!
BARBILLS( ONEBILL+3*, STMT+3, STMT+5, STMTP+1
BARBL GETBIL+1*, ONEBILL+1, ONEBILL+2, ONEBILL+3, BILEROR2+2*, BILEROR2+4, BILEROR2+6, BILEROR3+5, BLDA2+4*, BLDA2+6
, BLDA3+3, BLDA4+22, AGE+2!, AGE+5*, AGE2~, AGE2+2, AGE2+4
>> BARBNUM ONEBILL+1*, ONEBILL+2, ONEBILL+3, STMT*, STMT+1*, STMTP+1*, STMTP+5, STMTP+20, BILEROR+2, BILEROR+3
, BLDA+1, BLDA+2
>> BARBSTAT BLDA2+7*, BLDA2+9, CXL+7*
>> BARCHECK BLDA4+16*, BLDA4+17
>> BARCLIN BLDA4+8*, BLDA4+9*
BARCNT1 SUM+16~, SUM+17*, SUM+19, SUM+24*
>> BARCRD BLDA4+23*
BARCTYPE PREPAID+2~, PREPAID+3*, PREPAID+14*, PREPAID+15
BARCXL STMTP+2~, STMTP+3*, STMTP+9, STMTP+25, BLDA2+2*, BLDA2+9*, BILLED+1
>> BARDBT BLDA4+24*
>> BARDESC BLDA4+13*, BLDA4+17*
>> BARDFN PREPAID+4
>> BARDTE BILEROR2+6, BLDA3+3
>> BARDUMMY PRINT+15*, PRINT+16, ACCT+2, ACCT+11, VISLOC+1, GETBIL+1
BARF1 PRINT+12!, PRINT+14, PRINT+15, PRINT+16, ACCT+11, ACCT+13, VISLOC+1, GETBIL+1, STMT, STMT+3
, STMT+5, STMTP+1, STMTP+17, BLDA+2, BILLED+6, BLDA3+3, BLDA4+26
>> BARHOLD PRINT+13*, PRINT+17
>> BARINSOW STMTP+3*, STMTP+24, STMTP+31, BLDA2+14*
>> BARITM BLDA4+7*, BLDA4+15
BARITOT STMTP+2~, STMTP+3*, STMTP+9, STMTP+10, STMTP+23, STMTP+29, BLDA4+18*
>> BARITYP BLDA4+10*, BLDA4+11, BLDA4+12
>> BARLINE SUM+3*, SUM+28, SUM+35
>> BARLPDA BILEROR2+3*, BLDA3+2*
BARNON STMTP+2~, STMTP+25, BLDA2+11*, BLDA2+13*
>> BARORIG( BILLED+3, BILLED+4*, BILLED+5
>> BARPBNUM STMTP+5*, STMTP+6*, STMTP+7, BILEROR+2*, BILEROR+3*, BILEROR2+2, BILEROR2+5, BILEROR3+5, BLDA+1*, BLDA+2*
, BLDA2+3, BLDA2+4, BLDA4+22
>> BARPG ACCT+7*
BARPPAY SUM+18*, SUM+19, SUM+20, SUM+21, SUM+22, PREPAID+2~, PREPAID+3*, PREPAID+4*, PREPAID+9, PREPAID+10
, PREPAID+11, PREPAID+12, PREPAID+13, PREPAID+15, PREPAID+16, PREPAID+17, PREPAID+18, PREPAID+19, PREPAID+21
BARPRSP STMTP+2~, STMTP+3*, STMTP+25, STMTP+26, BLDA2+13*
BARPRV STMTP+2~, STMTP+18*, STMTP+21, BLDA2+18*, BLDA2+19, BLDA2+23*, BLDA2+24*, BLDA2+25*
BARPTAC STMTP+2~, STMTP+3*, STMTP+25, BLDA2+10*, BLDA2+13
>> BARPTMSG SUM+26
BARPTOT STMTP+2~, STMTP+3*, STMTP+9, STMTP+10, STMTP+23, STMTP+30, BLDA4+19*
BARRUNDT PRINT+2, PRINT+6, PRINT+7!, PRINT+10, PRINT+14, PRINT+15, PRINT+16, ACCT+2, ACCT+11, VISLOC+1
, GETBIL+1, AGE+5
>> BARSRTBY PRINT+2*, PRINT+3
BARTMP PREPAID+2~
BARTOTL ACCT+3!
BARTOTL("A" ACCT+4*, STMTP+30*, SUM+9
BARTOTL("B" ACCT+4*, STMTP+29*, SUM+6
BARTOTL("DASH" ACCT+5*, SUM+5
BARTOTL("I" ACCT+4*, STMTP+29*, SUM+7
BARTOTL("IO" ACCT+4*, STMTP+31*, SUM+10
BARTOTL("P" ACCT+4*, STMTP+30*, SUM+8
BARTOTL("PR" ACCT+4*, STMTP+26*, SUM+11
BARTR BILEROR3+1!, BLDA4+1!
BARTR( BLDA4+18, BLDA4+19, BLDA4+22
BARTR(101 BILEROR3+3, BLDA4+4, BLDA4+13, BLDA4+14, BLDA4+22
BARTR(102 BLDA4+3
BARTR(103 BILEROR3+5
BARTR(14 BLDA4+6
BARTR(15 BLDA4+7
BARTR(2 BLDA4+23
BARTR(3 BLDA4+24
BARTR(4 BLDA4+8
BARTR(6 BLDA4+10, BLDA4+11*, BLDA4+12*, BLDA4+13, BLDA4+18, BLDA4+19
>> BARTRDT BILEROR2+3*, BILEROR2+6*, BILEROR3+2, BILEROR3+5, BLDA3+2*, BLDA3+3*, BLDA4+2, BLDA4+22
>> BARTTYP BILEROR3+3*, BILEROR3+4, BLDA4+4*, BLDA4+5
BARVAR PREPAID+2~, PREPAID+9*, PREPAID+14
>> BARVDT VISLOC+1*, GETBIL+1, ONEBILL+3, STMT+5*, STMTP+1
BLA STMTP+12~, STMTP+13*, STMTP+14
BLIEN STMTP+12~, STMTP+14*, STMTP+15
D0 BLDA2+11~*
DATA BLDA2+17~, BLDA2+20*, BLDA2+21, BLDA2+22
DUZ(2 PRINT+13, PRINT+14*, PRINT+15, PRINT+16, PRINT+17*, ACCT+2, ACCT+11, VISLOC+1, GETBIL+1, STMTP+6
, STMTP+13, STMTP+14, STMTP+15, BILEROR+3, BILEROR2+2, BILEROR2+6, BLDA+2, BLDA2+4, CXL+2, BLDA3+3
, AGE+5, AGE2+4, PREPAID+4, PREPAID+9, PREPAID+10, PREPAID+11, PREPAID+12, PREPAID+13, PREPAID+16, PREPAID+18
, PREPAID+19, PREPAID+21
DUZ2 BLDA2+17~, BLDA2+18*, BLDA2+19, BLDA2+20
>> I AGE+4*
>> II BILEROR+3*, BLDA+2*, BLDA4+5*
IOM SUM+3, SUM+4
PRV BLDA2+17~, BLDA2+18*, BLDA2+19*, BLDA2+20
TAB SUM+5~*
TPBIEN BLDA2+17~
>> TPIEN BLDA2+18*, BLDA2+19, BLDA2+20
U STMTP+15, BLDA2+21, BLDA2+23, CXL+7, PREPAID+9, PREPAID+10, PREPAID+11, PREPAID+12, PREPAID+13, PREPAID+16
, PREPAID+18, PREPAID+19, PREPAID+21
>> VISLOC ACCT+11*, VISLOC+1, GETBIL+1, ONEBILL+3, STMT+3*, STMT+4, STMT+5, STMTP+1
X BLDA2+11~, BLDA2+12*, BLDA2+13, AGE2+5*, AGE2+6*, AGE2+7
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