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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BAR50MCH

Package: IHS Accounts Receivable

Routine: BAR50MCH


Information

BAR50MCH ; IHS/SD/SDR - ERA User-defined matching logic ;

Source Information

Source file <BAR50MCH.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 ^DIC  ^DIE  $$GET1^DIQ  ^DIR  
IHS VA Utilities 2 $$DIC^XBDIQ1  ^XBFMK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BAR50P4A  

Entry Points

Name Comments DBIA/ICR reference
EN ;
DISPLAY ;EP

External References

Name Field # of Occurrence
^DIC EN+9
^DIE EN+26, EN+33, EN+39, EN+45, EN+52, EN+59
$$GET1^DIQ EN+28, EN+38, EN+47, DISPLAY+1, DISPLAY+2, DISPLAY+3, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+7
, DISPLAY+8, DISPLAY+9, DISPLAY+10, DISPLAY+11
^DIR EN+20
$$DIC^XBDIQ1 EN+6, EN+23, EN+30, EN+35, EN+42, EN+49, EN+56
^XBFMK EN+5, EN+15, EN+22, EN+29, EN+34, EN+41, EN+48, EN+55

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option allows you to create the matching logic for matching bills from"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"the 835 to the RPMS A/R Bills. The system will ask you to match based upon"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"certain questions. Let's begin."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+54
Function Call: WRITE
  • Prompt: !!?1,"Entry already exists for "_$$GET1^DIQ(90056.24,BARIEN,".01")
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: !?3,"Match on Bill Number: ",?55,$$GET1^DIQ(90056.24,BARIEN,".02")
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !?3,"Match DATE OF SERVICE of the A/R Bill: ",?55,$$GET1^DIQ(90056.24,BARIEN,".06")
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !?3,"Match on A/R Account (Insurer) of the A/R Bill: ",?55,$$GET1^DIQ(90056.24,BARIEN,".07")
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !?3,"Match on AMOUNT BILLED of the A/R Bill: ",?55,$$GET1^DIQ(90056.24,BARIEN,".08")
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: !?3,"Continue to post if sum of transactions is",!?10,"less than or equal to CURRENT BILL AMOUNT: ",?55,$$GET1^DIQ(90056.24,BARIEN,".09")
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: !?3,"CANCELLED BILLS: ",?55,$$GET1^DIQ(90056.24,BARIEN,".11")
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISPLAY+13
Routine Call
  • DIE
  • Line Location:
    • EN+26
    • EN+33
    • EN+39
    • EN+45
    • EN+52
    • EN+59
Routine Call
  • DIC
  • Line Location:
    • EN+9
Routine Call
  • DIR
  • Line Location:
    • EN+20

Label References

Name Line Occurrences
DISPLAY EN+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BARIEN EN+12*, EN+24, EN+28, EN+31, EN+36, EN+38, EN+43, EN+47, EN+50, EN+57
, DISPLAY+1, DISPLAY+2, DISPLAY+3, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+7, DISPLAY+8, DISPLAY+9, DISPLAY+10
, DISPLAY+11
>> DA EN+24*, EN+31*, EN+36*, EN+43*, EN+50*, EN+57*
>> DIC EN+6*
>> DIC("A" EN+7*
>> DIC(0 EN+8*
>> DIE EN+23*, EN+30*, EN+35*, EN+42*, EN+49*, EN+56*
DIR EN+16!
DIR("A" EN+18*
DIR("B" EN+19*
DIR(0 EN+17*
>> DR EN+25*, EN+32*, EN+37*, EN+38*, EN+44*, EN+51*, EN+58*
>> DTOUT EN+10
>> DUOUT EN+10
U EN+13
>> X EN+27, EN+28, EN+46, EN+47, EN+53
>> Y EN+11, EN+12, EN+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All