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

Package: IHS Accounts Receivable

Routine: BARACSI


Information

BARACSI ; IHS/SD/LSL - CLAIM STATUS INQUIRY (276) ;

Source Information

Source file <BARACSI.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
IHS Accounts Receivable 6 ($$MDT2,$$SDT)^BARDUTL  ($$GETBIL,ASKLIN,HIT)^BARFPST3  $$EN^BARPST2  (EOP,INIT)^BARUTL  $$EN^BARVDF  ^BARVKL0  
VA Fileman 5 (,IX)^DIC  FILE^DICN  ^DIK  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  $$CJ^XLFSTR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Accounts Receivable 2 BAR ACM 276  BAR277IQ  

Entry Points

Name Comments DBIA/ICR reference
DISP ;
; Get and Display data
EN ; EP
; Electronic Signature test
GIS ; EP
; Verify GIS 3.01 patches 2 and 6 are present
EDIMSG ;
; Check EDI Payer list and Write various EDI messages
EDICHK ;
DOC ;
; IHS/SD/LSL - 09/24/02 - V1.6 Patch 3 - HIPAA
; Created routine. Called by BARM/ACCM/CSI
INSTALLD(BAR) ; EP
; Verify GIS Patch 2 and 6 present
SEND ;
; Create entry in A/R EDI CLAIM STATUS File and call GIS
NOTE ;
ASK ;
; Ask user if they want to send the request
DISPSUM ;
; Display Summary when user is done entering bills
EXIT ; EP
; Exit, kill local variables
ASKDEV ;
; Ask if user wants to print summary
MSG ;
ACCUM ;
; BARSUM(A/R ACCOUNT)=BILL CNT^AMT BILLED
FINDBIL ;
; ^BARPST2 sets ^TMP($J,"B",BARCNT,BILL IEN)=""
LOOP ;
; Find A/R bill, perform checks, populate holding file, send inquiry
; BAREPASS = Patient^DOS Start^DOS End^A/R BILL IEN

External References

Name Field # of Occurrence
^%ZIS ASKDEV+13, ASKDEV+14
^%ZISC ASKDEV+16
$$MDT2^BARDUTL DISPSUM+6
$$SDT^BARDUTL DISP+15, DISP+17, EDICHK+12, EDICHK+15
$$GETBIL^BARFPST3 LOOP+6
ASKLIN^BARFPST3 FINDBIL+11
HIT^BARFPST3 FINDBIL+10
$$EN^BARPST2 FINDBIL+3
EOP^BARUTL EN+10, GIS+13
INIT^BARUTL EN+5
$$EN^BARVDF MSG+6, DISP+10, NOTE+16, NOTE+17, DISPSUM+4
^BARVKL0 EN+4, EXIT+2
^DIC INSTALLD+12, INSTALLD+17
IX^DIC INSTALLD+7
FILE^DICN SEND+15
^DIK SEND+27
$$GET1^DIQ DISP+8, NOTE+6, NOTE+7
GETS^DIQ DISP+4
^DIR ASK+7, ASKDEV+7
$$CJ^XLFSTR GIS+7, GIS+11, GIS+12, SEND+28

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("GIS V3.01 Patches 2 and 6 are required for this option",IOM)
  • Line Location: GIS+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(BARSTRNG,IOM)
  • Line Location: GIS+11
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Please contact you site manager for assistance",IOM)
  • Line Location: GIS+12
Function Call: WRITE
  • Prompt: !!!,BARSTAR
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !,"*",?79,"*"
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !,"* "
  • Line Location: MSG+5
Function Call: WRITE
  • Prompt: ?3,$$EN^BARVDF("RVN"),"NOTE:",$$EN^BARVDF("RVF")
  • Line Location: MSG+6
Function Call: WRITE
  • Prompt: ?9,"Not all insurers may be participating in the Claim Status Inquiry.",?79,"*"
  • Line Location: MSG+7
Function Call: WRITE
  • Prompt: !,"*",?9,"Check your EDI PAYER LIST (SPE) for a complete list of insurers.",?79,"*"
  • Line Location: MSG+8
Function Call: WRITE
  • Prompt: !,"*",?79,"*"
  • Line Location: MSG+9
Function Call: WRITE
  • Prompt: !,BARSTAR,!
  • Line Location: MSG+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: *7
  • Line Location: FINDBIL+5
Function Call: WRITE
  • Prompt: !,"No bills found in this date range!"
  • Line Location: FINDBIL+6
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !!?4,"Patient: ",$E(BARINQ(101,"E"),1,30)," [",BARINQ("HRN"),"]",?54,"Bill: ",$E(BARINQ(.01,"E"),1,20)
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !,"A/R Account: ",$E(BARINQ(3,"E"),1,30),?47,"Bill Status: ",$E(BARINQ(17.2,"E"),1,20)
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !!,"Visit Date",?13,"Visit Type",?35,"Date Billed",?49,"Amount Billed",?65,"Current Balance"
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !,BARDASH
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: !,$$SDT^BARDUTL(BARINQ(102,"I"))
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: ?13,$E(BARINQ(114,"E"),1,20)
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: ?35,$$SDT^BARDUTL(BARINQ(18,"I"))
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: ?49,$J($FN(BARINQ(13,"E"),",",2),13)
  • Line Location: DISP+18
Function Call: WRITE
  • Prompt: ?65,$J($FN(BARINQ(15,"E"),",",2),15)
  • Line Location: DISP+19
Function Call: WRITE
  • Prompt: !!?16,"**UNABLE TO REQUEST CLAIM STATUS FOR THIS BILL**"
  • Line Location: EDIMSG+6
Function Call: WRITE
  • Prompt: !?((80-$L(BARMSG))/2),BARMSG
  • Line Location: EDIMSG+7
Function Call: WRITE
  • Prompt: !?((80-$L(BARMSG2))/2),BARMSG2
  • Line Location: EDIMSG+8
Function Call: WRITE
  • Prompt: !!!
  • Line Location: NOTE+3
Function Call: WRITE
  • Prompt: $$EN^BARVDF("RVN"),"NOTES:",$$EN^BARVDF("RVF")
  • Line Location: NOTE+16
Function Call: WRITE
  • Prompt: $$EN^BARVDF("RVN"),"NOTE:",$$EN^BARVDF("RVF")
  • Line Location: NOTE+17
Function Call: WRITE
  • Prompt: ?8,BARNOTE(BARCNT),!
  • Line Location: NOTE+20
Function Call: WRITE
  • Prompt: !!!,"*****UNABLE TO PROCESS REQUEST FOR ",BARINQ(.01,"E"),"*****"
  • Line Location: SEND+18
Function Call: WRITE
  • Prompt: !,"*****COULD NOT CREATE ENTRY IN A/R EDI CLAIM STATUS FILE*****"
  • Line Location: SEND+19
Function Call: WRITE
  • Prompt: !!!,$$CJ^XLFSTR("*****UNABLE TO PROCESS REQUEST FOR "_BARINQ(.01,"E")_" *****",IOM)
  • Line Location: SEND+28
Function Call: WRITE
  • Prompt: !?((80-$L(BARINHF))/2),BARINHF
  • Line Location: SEND+29
Function Call: WRITE
  • Prompt: ". . . SENT"
  • Line Location: SEND+31
Function Call: WRITE
  • Prompt: !!!?18,"No bills were submitted for a claim status."
  • Line Location: DISPSUM+3
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: DISPSUM+4
Function Call: WRITE
  • Prompt: ?6,"* * * * S U M M A R Y O F S U B M I T T E D B I L L S * * * *"
  • Line Location: DISPSUM+5
Function Call: WRITE
  • Prompt: !!,"ACCEPTED TRANSMISSIONS",?60,$$MDT2^BARDUTL(DT)
  • Line Location: DISPSUM+6
Function Call: WRITE
  • Prompt: !!,"A/R Account",?40,"Bill cnt",?51,"Amount Billed"
  • Line Location: DISPSUM+7
Function Call: WRITE
  • Prompt: !,"-----------",?40,"---------",?50,"---------------",!
  • Line Location: DISPSUM+8
Function Call: WRITE
  • Prompt: !,BARAC
  • Line Location: DISPSUM+11
Function Call: WRITE
  • Prompt: ?40,$J($FN($P(BARSUM(BARAC),U),",",0),9)
  • Line Location: DISPSUM+12
Function Call: WRITE
  • Prompt: ?50,$J($FN($P(BARSUM(BARAC),U,2),",",2),15)
  • Line Location: DISPSUM+13
Function Call: WRITE
  • Prompt: !,?40,"---------",?50,"---------------"
  • Line Location: DISPSUM+14
Function Call: WRITE
  • Prompt: !,"TOTALS"
  • Line Location: DISPSUM+15
Function Call: WRITE
  • Prompt: ?40,$J($FN($P(BARTOT,U),",",0),9)
  • Line Location: DISPSUM+16
Function Call: WRITE
  • Prompt: ?50,$J($FN($P(BARTOT,U,2),",",2),15)
  • Line Location: DISPSUM+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKDEV+2
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+12
    • INSTALLD+17
Routine Call
  • DIR
  • Line Location:
    • ASK+7
    • ASKDEV+7
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+13
    • ASKDEV+14
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] Classic Fileman Calls
9000001.41 GET1^DIQ
^BARBL(2906 - [#90050.01] GETS^DIQ
^BARECLST - [#90056.08] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTNINS - [#9999999.18] SEND+3
^BAR(90052.06 EDICHK+3, EDICHK+6, EDICHK+7
^BARAC( EDICHK+1, SEND+2
^BARECLST("B" SEND+7
^BARECLST("BILL" NOTE+4, NOTE+5
^BARTMP($J FINDBIL+8, FINDBIL+12

Label References

Name Line Occurrences
$$INSTALLD GIS+3, GIS+4
ACCUM LOOP+20
ASK LOOP+16
ASKDEV EN+9
DISP LOOP+12
DISPSUM EN+8, ASKDEV+15
EDICHK EDIMSG+4
EDIMSG LOOP+13
EXIT EN+3, EN+11
FINDBIL LOOP+10
GIS EN+2
LOOP EN+7
MSG EN+6
NOTE LOOP+15
SEND LOOP+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS ASKDEV+11*
>> %ZIS("A" ASKDEV+12*
BAR INSTALLD~, INSTALLD+3, INSTALLD+11, INSTALLD+16
>> BARAC DISPSUM+9*, DISPSUM+10*, DISPSUM+11, DISPSUM+12, DISPSUM+13
>> BARASK FINDBIL+2*, FINDBIL+11
>> BARBIL EN+7, LOOP+5*, LOOP+7*
>> BARBL DISP+3*, DISP+4, DISP+5, NOTE+4, NOTE+5
>> BARCNT FINDBIL+3*, FINDBIL+4, FINDBIL+7, FINDBIL+8, NOTE+2*, NOTE+8, NOTE+9*, NOTE+10, NOTE+11, NOTE+12*
, NOTE+14, NOTE+18*, NOTE+19*, NOTE+20
>> BARDASH MSG+2*, DISP+14
>> BARDFN DISP+2*, DISP+7
>> BARECLST LOOP+19, SEND+16*, SEND+25, SEND+30*
>> BAREDI LOOP+14, EDIMSG+3*, EDIMSG+9*
>> BAREPASS LOOP+6*, LOOP+7, LOOP+8, LOOP+10, LOOP+11, FINDBIL+8*, FINDBIL+12*, DISP+2, DISP+3
>> BARGIS EN+3, GIS+2*, GIS+6*
>> BARGIS2 GIS+3*, GIS+5, GIS+8, GIS+10
>> BARGIS6 GIS+4*, GIS+5, GIS+9, GIS+10
>> BARIENS DISP+7*, DISP+8
>> BARINHF SEND+21*, SEND+22*, SEND+23*, SEND+24, SEND+29
>> BARINQ DISP+5*
>> BARINQ( DISP+11, DISP+12, NOTE+8, NOTE+14, SEND+18, SEND+28
>> BARINQ("EDIPYR" EDICHK+7*, EDICHK+8, EDICHK+11, EDICHK+12, EDICHK+14, EDICHK+15
>> BARINQ("HRN" DISP+8*, DISP+9*, DISP+11
>> BARINQ("PYR" SEND+2*, SEND+3
>> BARINQ("PYRID" SEND+3*
>> BARINQ(101 DISP+11
>> BARINQ(102 DISP+15
>> BARINQ(108 DISP+7
>> BARINQ(114 DISP+16
>> BARINQ(13 DISP+18, ACCUM+3, ACCUM+5
>> BARINQ(15 DISP+19, NOTE+13
>> BARINQ(18 DISP+17
>> BARINQ(3 DISP+12, EDICHK+1, EDICHK+2, EDICHK+3, EDICHK+4, EDICHK+6, EDICHK+7, EDICHK+9, EDICHK+12, EDICHK+15
, ASK+5, SEND+2, ACCUM+2, ACCUM+3
>> BARLIN FINDBIL+12
BARMSG EDIMSG+2!, EDIMSG+5, EDIMSG+7, EDICHK+2*, EDICHK+4*, EDICHK+9*, EDICHK+12*, EDICHK+15*
BARMSG2 EDIMSG+2!, EDIMSG+8, EDICHK+5*, EDICHK+10*, EDICHK+13*, EDICHK+16*
BARNOTE NOTE+1!, NOTE+15
BARNOTE( NOTE+8*, NOTE+10*, NOTE+11*, NOTE+14*, NOTE+19, NOTE+20
BARNOTE("" NOTE+16
>> BARPASS LOOP+8*, FINDBIL+3, FINDBIL+10
BARPAT LOOP+4!
>> BARRPDT NOTE+7*, NOTE+10, NOTE+11
>> BARRQDT NOTE+6*, NOTE+8
>> BARSEND LOOP+17, ASK+2*, ASK+9*
>> BARSTAR MSG+1*, MSG+3, MSG+10
>> BARSTRNG GIS+8*, GIS+9*, GIS+10*, GIS+11
>> BARSUM EN+9, DISPSUM+2
>> BARSUM( ACCUM+2*, ACCUM+3*, DISPSUM+10, DISPSUM+12, DISPSUM+13
>> BARTOT ACCUM+4*, ACCUM+5*, DISPSUM+16, DISPSUM+17
>> BARTRC NOTE+5*, NOTE+6, NOTE+7
>> BARUSR EN+5
BARZ LOOP+4!
>> D INSTALLD+6*
DA SEND+4!, SEND+25*
DD SEND+14!
DIC SEND+4!, SEND+5*, INSTALLD+2~, INSTALLD+4*, INSTALLD+10*, INSTALLD+15*
DIC("DR" SEND+10*, SEND+11*, SEND+12*, SEND+13*
DIC(0 SEND+6*, INSTALLD+5*
>> DIK SEND+26*
>> DINUM SEND+9*
DIR ASK+3!, ASK+8!, ASKDEV+3!, ASKDEV+8!
DIR("A" ASK+5*, ASKDEV+5*
DIR("B" ASK+6*, ASKDEV+6*
DIR(0 ASK+4*, ASKDEV+4*
DO SEND+14!
DT EDICHK+11, EDICHK+14, DISPSUM+6
DUZ(2 EDICHK+1, EDICHK+3, EDICHK+6, EDICHK+7, NOTE+4, NOTE+5, SEND+2
>> INHF SEND+22, SEND+23
IO("S" ASKDEV+14
IOM GIS+7, GIS+11, GIS+12, SEND+28
ION ASKDEV+14
>> IOP ASKDEV+14*
>> POP ASKDEV+13
TMP DISP+6!
TMP( DISP+5
U LOOP+8, LOOP+10, LOOP+11, FINDBIL+8, FINDBIL+12, DISP+2, DISP+3, EDICHK+1, EDICHK+8, EDICHK+11
, EDICHK+12, EDICHK+14, EDICHK+15, SEND+2, SEND+3, ACCUM+2, ACCUM+3, ACCUM+4, ACCUM+5, DISPSUM+12
, DISPSUM+13, DISPSUM+16, DISPSUM+17
X SEND+4!, SEND+7*, SEND+8*, SEND+9, INSTALLD+2~, INSTALLD+3*, INSTALLD+11*, INSTALLD+16*
Y ASK+9, SEND+4!, SEND+16, SEND+17, ASKDEV+9, INSTALLD+2~, INSTALLD+8, INSTALLD+10, INSTALLD+13, INSTALLD+15
, INSTALLD+18
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