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

Package: IHS Accounts Receivable

Routine: BARMAWO2


Information

BARMAWO2 ; IHS/SD/LSL - Automatic Write-Off 2000 - Reversal ;

Source Information

Source file <BARMAWO2.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 DD^%DT  NOW^%DTC  ^DIE  $$GET1^DIQ  ^DIR  
IHS Accounts Receivable 3 EOP^BARUTL  $$EN^BARVDF  ^BARVKL0  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BAR AWO REVERSAL (2000)  

Entry Points

Name Comments DBIA/ICR reference
EN ; EP - IHS/DIT/CPC 1.8*28 CR 8349 START
REVERSE ;
ISITAWO ;
; Check to see if trans is AWO 2000
ROLLBILL ;
NOTE ;
XIT ;
BILLED ;
; Mark bill in 3PB Bill file as BILLED
TRANS ;
; Loop transactions after 12/18/2000 @ 7:00 for each DUZ(2)
; 12/18/2000 @ 7:00 used because this is when first AWO coding was
; completed. Code 501 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 EN+10
EOP^BARUTL CHECK+13
$$EN^BARVDF NOTE+2, NOTE+8
^BARVKL0 XIT+1
^DIE BILLED+5
$$GET1^DIQ REVERSE+19
^DIR NOTE+20

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: !!!,BARCNT," Bills with Auto Write off 2000 (501) reversed."
  • Line Location: EN+13
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 501 (Auto Write-off 2000)"
  • 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,BARDASH
  • Line Location: CHECK+9
Function Call: WRITE
  • Prompt: !?14,"* This option was already executed on ",BARDONDT,". *"
  • 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,BARDASH
  • Line Location: CHECK+12
Function Call: WRITE
  • Prompt: !,BARBILL,?25," for ",$J($FN(-$P(BARTR(0),U,2),",",2),10)," written off (reversed)."
  • Line Location: REVERSE+20
Routine Call
  • DIE
  • Line Location:
    • BILLED+5
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)
^BARTMP("AWO-REVERSE" CHECK+3, CHECK+4, LOOP+2*
^BARTR( LOOP+6, TRANS+5, ISITAWO+2, ISITAWO+3

Label References

Name Line Occurrences
CHECK NOTE+10
ISITAWO TRANS+5
LOOP EN+12
NOTE EN+8
REVERSE ISITAWO+5
ROLLBILL ISITAWO+6
TRANS LOOP+6
XIT EN+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+11
>> ABMP("BDFN" BILLED+3
>> BARBILL REVERSE+19*, REVERSE+20
BARBL REVERSE+17!
>> BARCNT EN+13, LOOP+3*, REVERSE+18*
>> BARCONT EN+9, NOTE+1*, NOTE+22*
>> BARDASH CHECK+8*, CHECK+9, CHECK+12
>> BARDONDT CHECK+6*, CHECK+10
>> BARDONE NOTE+11, CHECK+2*, CHECK+7*
>> BARDTTR TRANS+4*, TRANS+5*, ISITAWO+2, ISITAWO+3
>> BARHOLD LOOP+4*, LOOP+7
>> BARNOW EN+11*, TRANS+5
>> BARTR(0 ISITAWO+2*, REVERSE+19, REVERSE+20
>> BARTR(1 ISITAWO+3*, ISITAWO+4
DA REVERSE+16!, BILLED+3*
DIDEL REVERSE+15*, REVERSE+16!
DIE REVERSE+1*, REVERSE+16!, BILLED+2*
DIR NOTE+16!, NOTE+21!
DIR("A" NOTE+18*
DIR("B" NOTE+19*
DIR(0 NOTE+17*
DR REVERSE+2*, REVERSE+3*, REVERSE+4*, REVERSE+5*, REVERSE+6*, REVERSE+7*, REVERSE+8*, REVERSE+9*, REVERSE+10*, REVERSE+11*
, REVERSE+12*, REVERSE+13*, REVERSE+14*, REVERSE+16!, BILLED+4*, BILLED+6!
DT LOOP+2
DUZ(2 LOOP+4, LOOP+5*, LOOP+6*, LOOP+7*, TRANS+5, ISITAWO+2, ISITAWO+3
U ISITAWO+4, REVERSE+19, REVERSE+20
>> Y NOTE+22, CHECK+4*, CHECK+6
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