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

Package: IHS Accounts Receivable

Routine: BAR50P11


Information

BAR50P11 ; IHS/SD/LSL - NEW REPORT ERA CLAIMS (2) ;

Source Information

Source file <BAR50P11.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS Accounts Receivable 3 WHD^BARRHD  PAZ^BARRUTL  $$EN^BARVDF  
IHS VA Utilities 1 ENP^XBDIQ1  
Kernel 1 $$CJ^XLFSTR  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
INDEX ; EP
COMPUTE ;EP
; Compute line tag required by BARDBQUE but all processing
; is done under PRINT so just quit here
SUMPRINT ;
SUMDATA ;
CLAIM ; EP
; WORK THE CLAIM
ADJ2 ;
;
DETAIL ;
; Print report in brief and detail format
SUMMARY ;
SUMDATA3 ;
CLEANUP ;
PAD ;
; Standard Adj Description must be 47 characters
HDB ; EP
PRINT ; EP
; PRINT the report (Browse or Print)
SUMDATA2 ;
ADJ ;
; Loop adjustment data on claim
HD ; EP
SUMDATA4 ;

External References

Name Field # of Occurrence
WHD^BARRHD HDB+3
PAZ^BARRUTL PRINT+7, HD+1, SUMMARY+5
$$EN^BARVDF DETAIL+6, DETAIL+7, INDEX+2, INDEX+3
$$GET1^DIQ CLAIM+9, CLAIM+37, CLAIM+38, CLAIM+41, SUMPRINT+27, SUMPRINT+35
ENP^XBDIQ1 CLAIM+5, ADJ2+3, SUMDATA3+4
$$CJ^XLFSTR PRINT+6, DETAIL+6, DETAIL+12, INDEX+2, INDEX+10, SUMMARY+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("* * E N D O F R E P O R T * *",IOM)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,BARDASH,!
  • Line Location: HDB+6
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("* * * NO DATA TO PRINT * * *",IOM),!
  • Line Location: DETAIL+12
Function Call: WRITE
  • Prompt: !!,$$EN^BARVDF("RVN"),$$CJ^XLFSTR(BARZ(IND,"HDR"),IOM),!
  • Line Location: INDEX+2
Function Call: WRITE
  • Prompt: $$EN^BARVDF("RVF")
  • Line Location: INDEX+3
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("* * * NO DATA TO PRINT * * *",IOM),!
  • Line Location: INDEX+10
Function Call: WRITE
  • Prompt: !,BARSTAR
  • Line Location: INDEX+12
Function Call: WRITE
  • Prompt: !,"TOTALS FOR ",BARZ(IND)
  • Line Location: INDEX+13
Function Call: WRITE
  • Prompt: !?2,"AMOUNT BILLED.........."
  • Line Location: INDEX+14
Function Call: WRITE
  • Prompt: $J($FN(BARXBLC,","),6)," BILLS(S)"
  • Line Location: INDEX+15
Function Call: WRITE
  • Prompt: " $",$J($FN(BARXBLT,",",2),15)
  • Line Location: INDEX+16
Function Call: WRITE
  • Prompt: !?2,"PAYMENTS..............."
  • Line Location: INDEX+17
Function Call: WRITE
  • Prompt: $J($FN(BARXPYC,","),6)," BILLS(S)"
  • Line Location: INDEX+18
Function Call: WRITE
  • Prompt: " $",$J($FN(BARXPYT,",",2),15)
  • Line Location: INDEX+19
Function Call: WRITE
  • Prompt: !?2,"ADJUSTMENTS............"
  • Line Location: INDEX+20
Function Call: WRITE
  • Prompt: $J($FN(BARXADJC,","),6)," BILLS(S)"
  • Line Location: INDEX+21
Function Call: WRITE
  • Prompt: ?58,"$",$J($FN(BARXADJT,",",2),15)
  • Line Location: INDEX+22
Function Call: WRITE
  • Prompt: !
  • Line Location: INDEX+23
Function Call: WRITE
  • Prompt: !,BARDASH
  • Line Location: CLAIM+20
Function Call: WRITE
  • Prompt: !,$E(CLM(.01),1,18)
  • Line Location: CLAIM+23
Function Call: WRITE
  • Prompt: ?19,$E(CLM(.06),1,29)
  • Line Location: CLAIM+24
Function Call: WRITE
  • Prompt: ?49,CLM(.08)
  • Line Location: CLAIM+25
Function Call: WRITE
  • Prompt: ?62,"- ",$E($P(CLM(.07)," ",3,999),1,15)
  • Line Location: CLAIM+26
Function Call: WRITE
  • Prompt: !,"- Matched: "_$$GET1^DIQ(90056.0205,BARMIEN,"1.01","E")
  • Line Location: CLAIM+41
Function Call: WRITE
  • Prompt: !!,"AMOUNT BILLED.............................................$",$J($FN(CLM(.05),",",2),15)
  • Line Location: CLAIM+44
Function Call: WRITE
  • Prompt: !,"PAYMENT...................................................$",$J($FN(CLM(.04),",",2),15)
  • Line Location: CLAIM+46
Function Call: WRITE
  • Prompt: !,"ADJUSTMENTS"
  • Line Location: ADJ+7
Function Call: WRITE
  • Prompt: !?2,$J($P(ADJ(.01)," "),2)
  • Line Location: ADJ2+8
Function Call: WRITE
  • Prompt: ?6,ADJ(.03)
  • Line Location: ADJ2+10
Function Call: WRITE
  • Prompt: ?53,"$",$J($FN(ADJ(.02),",",2),10)
  • Line Location: ADJ2+11
Function Call: WRITE
  • Prompt: !?6,$J($P(BARADJ(0),U,4),3)
  • Line Location: ADJ2+13
Function Call: WRITE
  • Prompt: ?10,$E(ADJ(.04),1,19)
  • Line Location: ADJ2+14
Function Call: WRITE
  • Prompt: ?30,"/"
  • Line Location: ADJ2+15
Function Call: WRITE
  • Prompt: ?32,$J($P(BARADJ(0),U,5),3)
  • Line Location: ADJ2+16
Function Call: WRITE
  • Prompt: ?36,$E(ADJ(.05),1,30)
  • Line Location: ADJ2+17
Function Call: WRITE
  • Prompt: !!!,$$CJ^XLFSTR("* * * NO DATA TO PRINT * * *",IOM)
  • Line Location: SUMMARY+4
Function Call: WRITE
  • Prompt: !,BARZ(IND)
  • Line Location: SUMPRINT+6
Function Call: WRITE
  • Prompt: ?26,$J($P(BARX(IND),U),6)
  • Line Location: SUMPRINT+7
Function Call: WRITE
  • Prompt: ?35,$J($FN($P(BARX(IND),U,2),",",2),12)
  • Line Location: SUMPRINT+8
Function Call: WRITE
  • Prompt: ?50,$J($FN($P(BARX(IND),U,3),",",2),12)
  • Line Location: SUMPRINT+9
Function Call: WRITE
  • Prompt: ?65,$J($FN($P(BARX(IND),U,4),",",2),12)
  • Line Location: SUMPRINT+10
Function Call: WRITE
  • Prompt: !?26,"------",?35,"------------",?50,"------------",?65,"------------"
  • Line Location: SUMPRINT+12
Function Call: WRITE
  • Prompt: !?3,"GRAND TOTALS"
  • Line Location: SUMPRINT+14
Function Call: WRITE
  • Prompt: ?26,$J($P(BARX,U),6)
  • Line Location: SUMPRINT+15
Function Call: WRITE
  • Prompt: ?35,$J($FN($P(BARX,U,2),",",2),12)
  • Line Location: SUMPRINT+16
Function Call: WRITE
  • Prompt: ?50,$J($FN($P(BARX,U,3),",",2),12)
  • Line Location: SUMPRINT+17
Function Call: WRITE
  • Prompt: ?65,$J($FN($P(BARX,U,4),",",2),12)
  • Line Location: SUMPRINT+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUMPRINT+19
Function Call: WRITE
  • Prompt: !!?10,"ADJUSTMENT Totals:",!
  • Line Location: SUMPRINT+22
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMPRINT+23
Function Call: WRITE
  • Prompt: ?15,$$GET1^DIQ(90052.01,I,.01)
  • Line Location: SUMPRINT+27
Function Call: WRITE
  • Prompt: ?50,$J($FN(BARA(I),",",2),12)
  • Line Location: SUMPRINT+28
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMPRINT+29
Function Call: WRITE
  • Prompt: ?15,$$GET1^DIQ(90052.01,I,.01)
  • Line Location: SUMPRINT+35
Function Call: WRITE
  • Prompt: ?50,$J($FN(BARA(I),",",2),12)
  • Line Location: SUMPRINT+36
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMPRINT+37
Function Call: WRITE
  • Prompt: ?50,"============",!
  • Line Location: SUMPRINT+39
Function Call: WRITE
  • Prompt: ?50,$J($FN(BARA,",",2),12),!
  • Line Location: SUMPRINT+41

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BAR(90052.01 - [#90052.01] GET1^DIQ
90056.0205 GET1^DIQ
90056.0205401 GET1^DIQ
^BARERR - [#90056.21] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BAREDI("I" INDEX+8, CLAIM+3, CLAIM+4, CLAIM+7, CLAIM+32, CLAIM+35, ADJ+3, ADJ+9, ADJ2+2, ADJ2+4
, SUMDATA2+3, SUMDATA3+2, SUMDATA3+3, SUMDATA3+10, SUMDATA4+2, SUMDATA4+3
^XTMP("BAR-ERARPT" DETAIL+5, DETAIL+9, DETAIL+11!, CLAIM+4*

Label References

Name Line Occurrences
ADJ CLAIM+47
ADJ2 ADJ+9
CLAIM DETAIL+9, INDEX+8
CLEANUP PRINT+8
DETAIL PRINT+3
HD DETAIL+13, INDEX+1, INDEX+11, CLAIM+19, CLAIM+22, CLAIM+27, CLAIM+43, CLAIM+45, ADJ+6, ADJ2+7
, ADJ2+12, SUMPRINT+5, SUMPRINT+11, SUMPRINT+13, SUMPRINT+21, SUMPRINT+23, SUMPRINT+31, SUMPRINT+38, SUMPRINT+40
HDB DETAIL+2, SUMMARY+3, SUMPRINT+2
INDEX DETAIL+4
PAD ADJ2+9
SUMDATA SUMMARY+1
SUMDATA2 SUMDATA+6
SUMDATA3 SUMDATA2+3
SUMDATA4 SUMDATA3+10
SUMMARY PRINT+4
SUMPRINT SUMMARY+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADJ ADJ+2!, CLEANUP+1!
ADJ( ADJ2+5, ADJ2+8, ADJ2+10, ADJ2+11, ADJ2+14, ADJ2+17, PAD+3, PAD+8*
ADJDA ADJ+8*, ADJ+9*, ADJ2+2, ADJ2+4, SUMDATA3+9*, SUMDATA3+10*, SUMDATA4+2, SUMDATA4+3, CLEANUP+1!
>> BAR("COL" HDB+5, SUMDATA+2*
>> BAR("F1" PRINT+5, HD+2*, DETAIL+4, DETAIL+9, DETAIL+10, DETAIL+13, INDEX+1, INDEX+8, INDEX+9, INDEX+11
, CLAIM+19, CLAIM+22, CLAIM+27, CLAIM+42, CLAIM+43, CLAIM+45, ADJ+5, ADJ+6, ADJ+9, ADJ+10
, ADJ2+6, ADJ2+7, ADJ2+12, SUMPRINT+4, SUMPRINT+5, SUMPRINT+11, SUMPRINT+13, SUMPRINT+21, SUMPRINT+23, SUMPRINT+25
, SUMPRINT+26, SUMPRINT+31, SUMPRINT+38, SUMPRINT+40
>> BAR("LVL" HDB+2*
>> BAR("PG" PRINT+2*, HDB+1*, HDB+2
BARA SUMDATA+3!, SUMDATA4+12*, SUMPRINT+19, SUMPRINT+41
BARA( SUMDATA4+11*, SUMPRINT+26, SUMPRINT+28, SUMPRINT+30!, SUMPRINT+34, SUMPRINT+36
>> BARADJ(0 ADJ2+4*, ADJ2+13, ADJ2+16
>> BARADJ0 SUMDATA4+3*, SUMDATA4+4, SUMDATA4+5, SUMDATA4+6, SUMDATA4+8, SUMDATA4+9, SUMDATA4+11, SUMDATA4+12
>> BARCHK CLAIM+3, SUMDATA3+3
>> BARDASH HDB+6, CLAIM+20
>> BARERRC CLAIM+7*, CLAIM+9, CLAIM+28, CLAIM+32, CLAIM+41
>> BARERRCD CLAIM+8*, CLAIM+9*
>> BARFIRST INDEX+6*, CLAIM+20, CLAIM+21*
BARFLG DETAIL+3!, DETAIL+8*, CLAIM+4
>> BARINDX DETAIL+4, SUMDATA+4, SUMDATA+6
>> BARMIEN CLAIM+41*
>> BARSTAR DETAIL+14, INDEX+12
>> BARTYP PRINT+3, PRINT+4, HDB+4, CLAIM+20, CLAIM+42, ADJ+5, ADJ2+6
>> BARX SUMMARY+2, SUMDATA+5*, SUMDATA3+7*, SUMDATA3+8*, SUMDATA4+6*, SUMDATA4+9*, SUMPRINT+15, SUMPRINT+16, SUMPRINT+17, SUMPRINT+18
>> BARX( SUMDATA+4*, SUMDATA3+5*, SUMDATA3+6*, SUMDATA4+5*, SUMDATA4+8*, SUMPRINT+4, SUMPRINT+7, SUMPRINT+8, SUMPRINT+9, SUMPRINT+10
>> BARXADJC DETAIL+23, INDEX+5*, INDEX+21, ADJ+4*
>> BARXADJT DETAIL+8*, DETAIL+24, INDEX+4*, INDEX+22, ADJ2+5*
>> BARXBLC DETAIL+8*, DETAIL+12, DETAIL+17, INDEX+5*, INDEX+10, INDEX+15, CLAIM+12*
>> BARXBLT DETAIL+8*, DETAIL+18, INDEX+4*, INDEX+16, CLAIM+13*
>> BARXPYC DETAIL+20, INDEX+5*, INDEX+18, CLAIM+16*
>> BARXPYT DETAIL+8*, DETAIL+21, INDEX+4*, INDEX+19, CLAIM+17*
>> BARZ( INDEX+2, INDEX+13, SUMPRINT+6
>> BARZ("W" DETAIL+6, DETAIL+15
CLM CLAIM+2!, SUMDATA3+1!, CLEANUP+1!
CLM( CLAIM+11, CLAIM+13, CLAIM+15, CLAIM+17, CLAIM+23, CLAIM+24, CLAIM+25, CLAIM+26, CLAIM+44, CLAIM+46
, SUMDATA3+6, SUMDATA3+8
CLMDA DETAIL+8*, DETAIL+9*, INDEX+7*, INDEX+8*, CLAIM+3, CLAIM+4, CLAIM+7, CLAIM+32, CLAIM+35, CLAIM+36
, CLAIM+41, ADJ+3, ADJ+9, ADJ2+2, ADJ2+4, SUMDATA2+2*, SUMDATA2+3*, SUMDATA3+2, SUMDATA3+3, SUMDATA3+10
, SUMDATA4+2, SUMDATA4+3, CLEANUP+1!
DA CLEANUP+1!
DIC CLEANUP+1!
DIE CLEANUP+1!
>> DIROUT HD+2
DR CLEANUP+1!
>> DTOUT HD+2
>> DUOUT HD+2
DUZ(2 DETAIL+5, DETAIL+9, INDEX+8, CLAIM+3, CLAIM+4, CLAIM+7, CLAIM+32, CLAIM+35, ADJ+3, ADJ+9
, ADJ2+2, ADJ2+4, SUMDATA2+3, SUMDATA3+2, SUMDATA3+3, SUMDATA3+10, SUMDATA4+2, SUMDATA4+3
I PAD+2!, PAD+7*, PAD+9!, SUMPRINT+25*, SUMPRINT+26, SUMPRINT+27, SUMPRINT+28, SUMPRINT+30, SUMPRINT+33*, SUMPRINT+34*
, SUMPRINT+35, SUMPRINT+36, CLEANUP+1!
IMPDA INDEX+8, CLAIM+3, CLAIM+4, CLAIM+7, CLAIM+32, CLAIM+35, CLAIM+36, CLAIM+41, ADJ+3, ADJ+9
, ADJ2+2, ADJ2+4, SUMDATA2+3, SUMDATA3+2, SUMDATA3+3, SUMDATA3+10, SUMDATA4+2, SUMDATA4+3, CLEANUP+1!
>> IND DETAIL+4*, INDEX+2, INDEX+8, INDEX+13, INDEX+24*, CLAIM+4, SUMDATA+6*, SUMDATA2+3, SUMDATA3+5, SUMDATA3+6
, SUMDATA4+5, SUMDATA4+8, SUMPRINT+3*, SUMPRINT+4*, SUMPRINT+6, SUMPRINT+7, SUMPRINT+8, SUMPRINT+9, SUMPRINT+10
INDSAVE INDEX+24!
IOM PRINT+6, DETAIL+6, DETAIL+12, INDEX+2, INDEX+10, SUMMARY+4
IOSL DETAIL+13, INDEX+1, INDEX+11, CLAIM+19, CLAIM+22, CLAIM+27, CLAIM+43, CLAIM+45, ADJ+6, ADJ2+7
, ADJ2+12, SUMPRINT+5, SUMPRINT+11, SUMPRINT+13, SUMPRINT+21, SUMPRINT+23, SUMPRINT+31, SUMPRINT+38, SUMPRINT+40
J CLEANUP+1!
K PAD+2!, PAD+3*, PAD+4, PAD+5*, PAD+7*, PAD+8, PAD+9!, CLEANUP+1!
L PAD+2!, PAD+4*, PAD+5, PAD+6, PAD+7, PAD+9!
REASDA CLAIM+30~, CLAIM+34*, CLAIM+35*, CLAIM+36, CLAIM+40!
REASIENS CLAIM+30~, CLAIM+36*, CLAIM+37, CLAIM+40!
REASON CLAIM+30~, CLAIM+37*, CLAIM+38*, CLAIM+39, CLAIM+40!
TRDA CLEANUP+1!
U CLAIM+3, CLAIM+7, ADJ2+13, ADJ2+16, SUMDATA3+3, SUMDATA3+5, SUMDATA3+6, SUMDATA3+7, SUMDATA3+8, SUMDATA4+4
, SUMDATA4+5, SUMDATA4+6, SUMDATA4+8, SUMDATA4+9, SUMDATA4+11, SUMDATA4+12, SUMPRINT+7, SUMPRINT+8, SUMPRINT+9, SUMPRINT+10
, SUMPRINT+15, SUMPRINT+16, SUMPRINT+17, SUMPRINT+18
>> XI DETAIL+4*, SUMDATA+4*, SUMDATA+6*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All