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

Package: IHS Accounts Receivable

Routine: BARMAWO


Information

BARMAWO ; IHS/SD/LSL - Automatic Write Off ;

Source Information

Source file <BARMAWO.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 DD^%DT  ^DIC  $$GET1^DIQ  ^DIR  
IHS Accounts Receivable 2 LOOPDUZ^BARMAWO1  ^BARVKL0  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BAR AUTOMATIC WRITE-OFF  

Entry Points

Name Comments DBIA/ICR reference
EN ;EP - IHS/DIT/CPC 1.8*28 CR 8349 START
ASKDOS ;
; Ask date of Service
PAZ ;EP to pause report
ASKLOC ;
; Ask list of visit locations
CONTINUE ;
; Display choices to user and ask if they wish to continue.
; Tell them bills written off will scroll on the screen if they wish to
; capture.
XIT ;
; Clean up
ASKACCT ;
; Ask for list of A/R Accounts

External References

Name Field # of Occurrence
DD^%DT EN+40, ASKDOS+12
LOOPDUZ^BARMAWO1 EN+57
^BARVKL0 XIT+3
^DIC ASKLOC+9, ASKACCT+10
$$GET1^DIQ EN+11, ASKACCT+12
^DIR ASKDOS+19, CONTINUE+25, PAZ+3
$$VAL^XBDIQ1 CONTINUE+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "*********************************************************************",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: " STOP!!! STOP!!!! STOP!!!!",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: "This is an old, outdated routine and shouldn't be used. Please ",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: "request assistance from OIT before starting the write-off process.",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: "*********************************************************************",!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!?5,"1. The DOS on the bill is prior to 10/1/2005"
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: !!?5,"1. The DOS on the bill is prior to 10/1/2005"
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: !!?5,"1. The DOS on the bill is at least three (3) years old."
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: !?5,"2. The amount billed is less than 20,000.00"
  • Line Location: EN+32
Function Call: WRITE
  • Prompt: !?5,"3. The A/R Account tied to the bill is in the list specified"
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: !?5," and not NON-BENEFICIARY."
  • Line Location: EN+34
Function Call: WRITE
  • Prompt: !?5,"4. There is a positive balance left on the bill"
  • Line Location: EN+35
Function Call: WRITE
  • Prompt: !?5,"5. The Visit Location tied to the bill is in the list specified"
  • Line Location: EN+36
Function Call: WRITE
  • Prompt: !!,"This menu option expires on ",BAREXPDT,"."
  • Line Location: EN+42
Function Call: WRITE
  • Prompt: !!!?20,"*** This option expired on ",BAREXPDT," *****"
  • Line Location: EN+45
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+48
Function Call: WRITE
  • Prompt: !!!,BARCNT," Bills written off to Auto Write-off 2001."
  • Line Location: EN+62
Function Call: WRITE
  • Prompt: "ALL"
  • Line Location: ASKLOC+14
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKLOC+16
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKACCT+3
Function Call: WRITE
  • Prompt: !,"Cannot use this option on Non-Beneficiaries",!
  • Line Location: ASKACCT+14
Function Call: WRITE
  • Prompt: "ALL"
  • Line Location: ASKACCT+18
Function Call: WRITE
  • Prompt: !!!
  • Line Location: ASKACCT+20
Function Call: WRITE
  • Prompt: "You have chosen to write off bills meeting the above criteria"
  • Line Location: CONTINUE+4
Function Call: WRITE
  • Prompt: !,"for dates of service up to and including ",BARDOS("E")
  • Line Location: CONTINUE+5
Function Call: WRITE
  • Prompt: !!,"for the following Locations: "
  • Line Location: CONTINUE+6
Function Call: WRITE
  • Prompt: ?40,"ALL"
  • Line Location: CONTINUE+7
Function Call: WRITE
  • Prompt: ?40,$P(^DIC(4,BARTMP,0),U),!
  • Line Location: CONTINUE+11
Function Call: WRITE
  • Prompt: !,"for the following A/R accounts: "
  • Line Location: CONTINUE+12
Function Call: WRITE
  • Prompt: ?40,"ALL"
  • Line Location: CONTINUE+13
Function Call: WRITE
  • Prompt: ?40,$$VAL^XBDIQ1(90050.02,BARTMP,.01),!
  • Line Location: CONTINUE+17
Function Call: WRITE
  • Prompt: !!,"The bill number and amount written off will scroll by on the screen"
  • Line Location: CONTINUE+18
Function Call: WRITE
  • Prompt: !,"if you wish to capture this information.",!
  • Line Location: CONTINUE+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PAZ+2
Routine Call
  • DIC
  • Line Location:
    • ASKLOC+9
    • ASKACCT+10
Routine Call
  • DIR
  • Line Location:
    • ASKDOS+19
    • CONTINUE+25
    • PAZ+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BAR(90052.06 EN+13, EN+37
^DIC(4 - [#4] CONTINUE+11

Label References

Name Line Occurrences
ASKACCT EN+53
ASKDOS EN+51
ASKLOC EN+49
CONTINUE EN+55
PAZ EN+46
XIT EN+47, EN+50, EN+54, EN+56, EN+63

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BAR("ACCT" ASKACCT+9, ASKACCT+15*, ASKACCT+16, CONTINUE+13, CONTINUE+14, CONTINUE+16
>> BAR("ACCTTYPE" ASKACCT+12*, ASKACCT+13
>> BAR("LOC" ASKLOC+8, ASKLOC+11*, ASKLOC+12, CONTINUE+7, CONTINUE+8, CONTINUE+10
>> BARACCT EN+54, ASKACCT+4*, ASKACCT+17*
>> BARCNT EN+10*, EN+61, EN+62
>> BARCONT EN+10*, EN+56, CONTINUE+27*
>> BARDOS EN+52, ASKDOS+7*, ASKDOS+21*
>> BARDOS("E" ASKDOS+8*, ASKDOS+22*, CONTINUE+5
>> BARDOS2 ASKDOS+10*, ASKDOS+11, ASKDOS+18
>> BARDOSE ASKDOS+13*, ASKDOS+16
>> BAREXP EN+13*, EN+15, EN+29, EN+37*, EN+38*, EN+39, EN+44, EN+60, ASKDOS+6
>> BAREXPDT EN+41*, EN+42, EN+45
>> BARHOLD EN+9*, XIT+2
>> BARLOC EN+50, ASKLOC+3*, ASKLOC+13*
>> BARSECT EN+11*
>> BARTMP CONTINUE+9*, CONTINUE+10*, CONTINUE+11, CONTINUE+15*, CONTINUE+16*, CONTINUE+17
DIC ASKLOC+2!, ASKLOC+4*, ASKLOC+15!, ASKACCT+2!, ASKACCT+5*, ASKACCT+19!
DIC("A" ASKLOC+6*, ASKLOC+8*, ASKACCT+7*, ASKACCT+9*
DIC(0 ASKLOC+5*, ASKACCT+6*
DIR ASKDOS+14!, CONTINUE+21!, CONTINUE+26!, PAZ+3!
DIR("?" ASKDOS+16*, ASKDOS+17*
DIR("A" ASKDOS+15*, CONTINUE+23*
DIR("B" CONTINUE+24*
DIR(0 ASKDOS+18*, CONTINUE+22*, PAZ+3*
DT EN+44, ASKDOS+10
>> DUOUT ASKLOC+13, ASKACCT+17
DUZ EN+11
DUZ(2 EN+9, EN+13, EN+37, XIT+2*
IO("Q" PAZ+1
IO("S" PAZ+1
IOSL PAZ+2
IOST PAZ+1
U EN+13, EN+37, ASKLOC+11, ASKACCT+15, CONTINUE+11
X ASKLOC+2!, ASKACCT+2!
Y EN+39*, EN+41, ASKLOC+2!, ASKLOC+7, ASKLOC+10, ASKLOC+11, ASKDOS+11*, ASKDOS+13, ASKDOS+20, ASKDOS+21
, ASKACCT+2!, ASKACCT+8, ASKACCT+11, ASKACCT+12, ASKACCT+15, CONTINUE+27
Y(0 ASKDOS+22
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