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

Package: Tucson

Routine: BZSMAWO3


Information

BZSMAWO3 ; IHS/TAO/EDE - WRITE OFF OLD BILLS REVERSAL [ 04/06/2003 9:29 AM ]

Source Information

Source file <BZSMAWO3.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS Accounts Receivable 6 ^BARDIE  SETVAR^BARROLL  TR^BARTDO  $$NEW^BARTR  EOP^BARUTL  $$EN^BARVDF  
VA Fileman 5 DD^%DT  NOW^%DTC  ^DIE  $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 EN^XBVK  
Tucson 1 ROLL^BZSMAWO2  

Entry Points

Name Comments DBIA/ICR reference
REVERSE ; REVERSE THE TAO 1003 WRITE OFF
ISITAWO ; CHECK TO SEE IF TRANS IS TAO AWO 1003
ROLLBILL ; UPDATE PAYMENT MULTIPLE IN 3PB, MARK AS BILLED IN 3PB
; For bills reversed, update the payment multiple in 3PB and mark the
; bill as BILLED in 3PB Bill File.
NOTE ; TELL USER WHAT IS GOING TO HAPPEN
START ;
EOJ ;
BILLED ; MARK BILL IN 3PB BILL FILE AS BILLED
TRANS ; LOOP TRANSACTIONS FOR EACH DUZ(2)
; Loop transactions after 03/01/2003 @ 7:00 for each DUZ(2). This
; date and time used because code 1003 did not exist before then.
CHECK ;
; Check to see if this option has already been run
LOOP ; LOOP ALL DUZ(2) IN TRANSACTION FILE

External References

Name Field # of Occurrence
DD^%DT CHECK+5
NOW^%DTC START+1
^BARDIE REVERSE+18
SETVAR^BARROLL ROLLBILL+4
TR^BARTDO REVERSE+20
$$NEW^BARTR REVERSE+1
EOP^BARUTL CHECK+13
$$EN^BARVDF NOTE+2, NOTE+8
ROLL^BZSMAWO2 ROLLBILL+5
^DIE BILLED+4
$$GET1^DIQ REVERSE+23
^DIR NOTE+20
EN^XBVK EOJ+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,BZSCNT," Bills with Auto Write off (1003) reversed."
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !!,$$EN^BARVDF("RVN"),"NOTE:",$$EN^BARVDF("RVF")
  • Line Location: NOTE+2
Function Call: WRITE
  • Prompt: ?7,"All transactions (at all facilities) of transaction type 43 (Adjustment)"
  • Line Location: NOTE+3
Function Call: WRITE
  • Prompt: !?7,"with Adjustment Category 3 (Write Off)"
  • Line Location: NOTE+4
Function Call: WRITE
  • Prompt: !?7,"and Adjustment Type 1003 (Paid Denied Over Stat Limit)"
  • Line Location: NOTE+5
Function Call: WRITE
  • Prompt: !?7,"will be reversed by creating a new transaction of the same type,"
  • Line Location: NOTE+6
Function Call: WRITE
  • Prompt: !?7,"but negative dollar amount."
  • Line Location: NOTE+7
Function Call: WRITE
  • Prompt: !!?7,$$EN^BARVDF("RVN"),"ALSO,",$$EN^BARVDF("RVF")," the bill will be re-opened in 3PB with a balance due."
  • Line Location: NOTE+8
Function Call: WRITE
  • Prompt: !!,"The bill number and amount written off will scroll by on the screen"
  • Line Location: NOTE+13
Function Call: WRITE
  • Prompt: !,"if you wish to capture this information.",!
  • Line Location: NOTE+14
Function Call: WRITE
  • Prompt: !!?14,BZSDASH
  • Line Location: CHECK+9
Function Call: WRITE
  • Prompt: !?14,"* This routine was already executed on ",BZSDONDT,". *"
  • Line Location: CHECK+10
Function Call: WRITE
  • Prompt: !?14,"*",?24,"It may not be executed again.",?66,"*"
  • Line Location: CHECK+11
Function Call: WRITE
  • Prompt: !?14,BZSDASH
  • Line Location: CHECK+12
Function Call: WRITE
  • Prompt: !,BZSBILL,?25," for ",$J($FN(-$P(BZSTR(0),U,2),",",2),10)," written off (reversed)."
  • Line Location: REVERSE+24
Routine Call
  • DIE
  • Line Location:
    • BILLED+4
Routine Call
  • DIR
  • Line Location:
    • NOTE+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BARBL(2906 - [#90050.01] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BARTR( LOOP+5, TRANS+4, ISITAWO+1, ISITAWO+2
^BZSTMP("AWO-REVERSE" CHECK+3, CHECK+4, LOOP+2*

Label References

Name Line Occurrences
BILLED ROLLBILL+6
CHECK NOTE+10
EOJ START+7
ISITAWO TRANS+4
LOOP START+5
NOTE START+3
REVERSE ISITAWO+4
ROLLBILL ISITAWO+5
TRANS LOOP+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+2
>> ABMP("BDFN" BILLED+2
BARBL REVERSE+21!
>> BARBLDA ROLLBILL+3*
>> BZSBILL REVERSE+23*, REVERSE+24
>> BZSCNT START+6, LOOP+1*, REVERSE+22*
>> BZSCONT START+4, NOTE+1*, NOTE+22*
>> BZSDASH CHECK+8*, CHECK+9, CHECK+12
>> BZSDONDT CHECK+6*, CHECK+10
>> BZSDONE NOTE+11, CHECK+2*, CHECK+7*
>> BZSDTTR TRANS+3*, TRANS+4*, ISITAWO+1, ISITAWO+2
>> BZSHOLD LOOP+3*, LOOP+6
>> BZSNOW START+2*, TRANS+4
>> BZSTR(0 ISITAWO+1*, REVERSE+23, REVERSE+24, ROLLBILL+3
>> BZSTR(1 ISITAWO+2*, ISITAWO+3
>> BZSTRIEN REVERSE+1*, REVERSE+2, REVERSE+20
DA REVERSE+2*, REVERSE+19!, BILLED+2*
DIDEL REVERSE+17*, REVERSE+19!
DIE REVERSE+3*, REVERSE+19!, BILLED+1*
DIR NOTE+16!, NOTE+21!
DIR("A" NOTE+18*
DIR("B" NOTE+19*
DIR(0 NOTE+17*
DR REVERSE+4*, REVERSE+5*, REVERSE+6*, REVERSE+7*, REVERSE+8*, REVERSE+9*, REVERSE+10*, REVERSE+11*, REVERSE+12*, REVERSE+13*
, REVERSE+14*, REVERSE+15*, REVERSE+16*, REVERSE+19!, BILLED+3*, BILLED+5!
DT LOOP+2
DUZ(2 LOOP+3, LOOP+4*, LOOP+5*, LOOP+6*, TRANS+4, ISITAWO+1, ISITAWO+2
U ISITAWO+3, REVERSE+23, REVERSE+24, ROLLBILL+3
>> Y NOTE+22, CHECK+4*, CHECK+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