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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BARMAWO7

Package: IHS Accounts Receivable

Routine: BARMAWO7


Information

BARMAWO7 ; IHS/SD/LSL - Automatic Write-off (con't) ;

Source Information

Source file <BARMAWO7.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS Accounts Receivable 6 (SETBLRL,SETVAR)^BARROLL  TR^BARTDO  ($$NEW,MSG)^BARTR  $$CURSTAT^BARUFUT  $$FIND3PB^BARUTL  $$VALI^BARVPM  
VA Fileman 2 ^DIE  ^DIR  
IHS VA Utilities 1 ($$DIC,$$VAL)^XBDIQ1  
Third Party Billing 1 FILE^ABMAROLL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BARMAWO6  

Entry Points

Name Comments DBIA/ICR reference
ROLLTPB ;
; File A/R data in payment mult of 3PB
BEN
WRITEOFF
ROLLBILL ;
; For bills written off, update Payment multiple in 3P and mark bill
; complete in 3PB. Also mark bill as rolled in A/R
LOOPDT ;
; Loop A/R Bill File by date of service
LOOPBIL ;
; Loop bills for date of service
CONTINUE ;
LOOPDUZ ; EP
; Loop A/R Bill File by DUZ(2)
ROLL ;EP
; Changed code NHA-0601-180049 V1.6 Patch 4
; Roll A/R vars to 3PB

External References

Name Field # of Occurrence
FILE^ABMAROLL ROLLTPB+9
SETBLRL^BARROLL ROLLBILL+8
SETVAR^BARROLL ROLLBILL+4
TR^BARTDO BEN+30
$$NEW^BARTR BEN+8
MSG^BARTR BEN+9
$$CURSTAT^BARUFUT CONTINUE+38
$$FIND3PB^BARUTL ROLL+4
$$VALI^BARVPM WRITEOFF+21
^DIE BEN+28
^DIR CONTINUE+48
$$DIC^XBDIQ1 ROLL+13
$$VAL^XBDIQ1 CONTINUE+27

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(BAR(0),U),?25," for ",$J($FN(BARBAL,",",2),10)," with trans ",BARTRIEN
  • Line Location: BEN+34
Function Call: WRITE
  • Prompt: !!!!!
  • Line Location: CONTINUE+4
Function Call: WRITE
  • Prompt: !,"Quitting - no date entered"
  • Line Location: CONTINUE+5
Function Call: WRITE
  • Prompt: "You have chosen to write off bills meeting the following criteria:",!
  • Line Location: CONTINUE+7
Function Call: WRITE
  • Prompt: !,"for "_$S(BAR("DTYP")="AG":"Approval Dates",1:"Dates of Service")_": ",?25,BARDOS1("E")," to ",BARDOS2("E")
  • Line Location: CONTINUE+9
Function Call: WRITE
  • Prompt: !,"for Locations: "
  • Line Location: CONTINUE+11
Function Call: WRITE
  • Prompt: ?40,"ALL"
  • Line Location: CONTINUE+12
Function Call: WRITE
  • Prompt: ?25,"ALL"
  • Line Location: CONTINUE+13
Function Call: WRITE
  • Prompt: !,"for A/R accounts: "
  • Line Location: CONTINUE+20
Function Call: WRITE
  • Prompt: " BENEFICIARY"
  • Line Location: CONTINUE+21
Function Call: WRITE
  • Prompt: " BENEFICIARY"
  • Line Location: CONTINUE+22
Function Call: WRITE
  • Prompt: !
  • Line Location: CONTINUE+28
Function Call: WRITE
  • Prompt: !?3,"Transaction Type: Adjustment (43)"
  • Line Location: CONTINUE+34
Function Call: WRITE
  • Prompt: !,"Adjustment Category: ",BARY("ADJ CAT",BARCAT)," (",(BARCAT),")"
  • Line Location: CONTINUE+35
Function Call: WRITE
  • Prompt: !?4,"Adjustment Type: ",BARY("ADJ TYP",ADJTYPE)," (",(ADJTYPE),")"
  • Line Location: CONTINUE+36
Function Call: WRITE
  • Prompt: !!,"The bill number and amount written off will scroll by on the screen."
  • Line Location: CONTINUE+41
Function Call: WRITE
  • Prompt: !,"If you wish to capture this information, please turn on Screen Capture.",!
  • Line Location: CONTINUE+42
Routine Call
  • DIE
  • Line Location:
    • BEN+28
Routine Call
  • DIR
  • Line Location:
    • CONTINUE+48

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL( ROLLTPB+6
^BARBL( LOOPDUZ+3, LOOPDT+4, LOOPBIL+4, WRITEOFF+2, WRITEOFF+3, WRITEOFF+4
^BARTMP("BARAWO" WRITEOFF+12*, WRITEOFF+15*, WRITEOFF+18*, WRITEOFF+25*, BEN+3*, BEN+35*
^DIC(4 - [#4] CONTINUE+18

Label References

Name Line Occurrences
LOOPBIL LOOPDT+4
LOOPDT LOOPDUZ+3
ROLL ROLLBILL+6
ROLLBILL BEN+37
ROLLTPB ROLL+15
WRITEOFF LOOPBIL+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ABM ROLLTPB+2*
>> ABMP("BDFN" ROLLTPB+5*, ROLLTPB+6, ROLLTPB+7
>> ABMP("BILL" ROLLTPB+6*
>> ADJTYPE CONTINUE+36
>> BAR("3P BILL LOC" , ROLL+4*, ROLL+6, ROLL+7
>> BAR("ACCT" WRITEOFF+18, CONTINUE+22, CONTINUE+23, CONTINUE+25
>> BAR("DTYP" LOOPDT+4, LOOPBIL+4, CONTINUE+9
>> BAR("LOC" WRITEOFF+15, CONTINUE+13, CONTINUE+14, CONTINUE+16
>> BAR(0 WRITEOFF+3*, WRITEOFF+5, WRITEOFF+6, WRITEOFF+12, WRITEOFF+15, WRITEOFF+18, WRITEOFF+19, WRITEOFF+25, BEN+3, BEN+34
, BEN+35
>> BAR(1 WRITEOFF+4*, WRITEOFF+7, WRITEOFF+8
>> BARACT WRITEOFF+19*, WRITEOFF+20
>> BARAMT WRITEOFF+6*
>> BARBAL WRITEOFF+5*, BEN+1, BEN+34
BARBL BEN+31!
>> BARBL2 LOOPBIL+2*, LOOPBIL+4*, WRITEOFF+2, WRITEOFF+3, WRITEOFF+4, WRITEOFF+12, WRITEOFF+15, WRITEOFF+18, WRITEOFF+25, BEN+3
, BEN+9, BEN+35, ROLLBILL+3
>> BARBLDA ROLLBILL+3*, ROLL+4
>> BARCAT CONTINUE+35
>> BARCNT BEN+32*
>> BARCONT CONTINUE+50*
>> BARDOS("E" CONTINUE+5
>> BARDOS1 LOOPDT+2
>> BARDOS1("E" CONTINUE+9
>> BARDOS2 LOOPDT+4
>> BARDOS2("E" CONTINUE+9
>> BARDOSE WRITEOFF+8*
>> BARDUZ LOOPDUZ+2*, LOOPDUZ+3*, LOOPDT+4, LOOPBIL+4, WRITEOFF+2, WRITEOFF+3, WRITEOFF+4, WRITEOFF+12, WRITEOFF+15, WRITEOFF+18
, WRITEOFF+25, BEN+3, BEN+7, BEN+35
>> BARGBL ROLL+14*, ROLL+15
>> BARITYP WRITEOFF+21*, WRITEOFF+25
>> BARRBACK BEN+37, CONTINUE+37
>> BARSUM ROLLTPB+2
>> BARTMP CONTINUE+15*, CONTINUE+16*, CONTINUE+18, CONTINUE+24*, CONTINUE+25*, CONTINUE+27
>> BARTRIEN BEN+8*, BEN+9, BEN+10, BEN+30, BEN+34
>> BARUXMIT BEN+26, CONTINUE+39
>> BARVISIT LOOPDT+2*, LOOPDT+4*, LOOPBIL+4
>> BARVSTL WRITEOFF+7*, WRITEOFF+15
>> BARY("ADJ CAT " , CONTINUE+35
>> BARY("ADJ TYP " , CONTINUE+36
>> BENPLUS WRITEOFF+25, CONTINUE+22
>> D0 WRITEOFF+20*
DA BEN+10*, BEN+29!, ROLL+3!
>> DIC ROLL+13*, ROLL+14
DIDEL BEN+27*, BEN+29!
DIE BEN+11*, BEN+29!, ROLL+3!
DIR CONTINUE+44!, CONTINUE+49!
DIR("A" CONTINUE+46*
DIR("B" CONTINUE+47*
DIR(0 CONTINUE+45*
DR BEN+12*, BEN+13*, BEN+14*, BEN+15*, BEN+16*, BEN+18*, BEN+19*, BEN+20*, BEN+21*, BEN+22*
, BEN+24*, BEN+25*, BEN+26*, BEN+29!, ROLL+3!
DT WRITEOFF+12, WRITEOFF+15, WRITEOFF+18, WRITEOFF+25, BEN+3, BEN+35
DUZ WRITEOFF+12, WRITEOFF+15, WRITEOFF+18, WRITEOFF+25, BEN+3, BEN+35
DUZ(2 BEN+7*, ROLL+4, ROLL+5, ROLL+6*, ROLL+9*, ROLL+12, ROLL+16*, ROLLTPB+6
>> DUZO2 ROLL+5*, ROLL+9, ROLL+16
>> NEWDUZ CONTINUE+38
>> NEWSESS CONTINUE+38
>> NEWUSRNM CONTINUE+38
>> ROLL ROLLBILL+5*, ROLLBILL+7, ROLL+9*, ROLL+10*
U WRITEOFF+5, WRITEOFF+6, WRITEOFF+7, WRITEOFF+8, WRITEOFF+12, WRITEOFF+15, WRITEOFF+18, WRITEOFF+19, WRITEOFF+25, BEN+3
, BEN+34, BEN+35, CONTINUE+18
>> UFMSESID CONTINUE+38
>> X ROLLTPB+3*, ROLLTPB+5
>> Y ROLL+7*, ROLL+9, ROLL+12*, ROLL+14, ROLLTPB+3, CONTINUE+50
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All