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

Package: IHS Accounts Receivable

Routine: BARMAWO3


Information

BARMAWO3 ; IHS/SD/LSL - Automatic Write-Off UFMS NON-BEN IN ERROR 2007 - Reversal ;

Source Information

Source file <BARMAWO3.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS Accounts Receivable 6 TR^BARTDO  $$NEW^BARTR  ($$FIND3PB,EOP)^BARUTL  $$EN^BARVDF  ^BARVKL0  $$VALI^BARVPM  
VA Fileman 5 DD^%DT  NOW^%DTC  ^DIE  $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BAR AWO NON-BEN REV (2007)  

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 AUTO WRITE-OFF 2007
ARBILL ;
NOTE ;
XIT ;
BILLED ;
TRANS ;
; Loop transactions after APR 12,2007 @ 7:00 for each DUZ(2)
; APR 12,2007 @ 7:00 used because this is just before the release (4/13)
; of UFMS AWO coding. Code 916 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
TR^BARTDO REVERSE+20
$$NEW^BARTR REVERSE+1
$$FIND3PB^BARUTL BILLED+2
EOP^BARUTL CHECK+13
$$EN^BARVDF NOTE+2, NOTE+9
^BARVKL0 XIT+1
$$VALI^BARVPM ISITAWO+21
^DIE ARBILL+5, REVERSE+18, BILLED+7
$$GET1^DIQ ISITAWO+9, ISITAWO+10, ISITAWO+13, ISITAWO+14, REVERSE+23
^DIR NOTE+21

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 2007 (916) 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 916 (AUTO WRITE-OFF 2007)"
  • 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. Only the Non-Ben entries mistakenly written"
  • Line Location: NOTE+7
Function Call: WRITE
  • Prompt: !?7,"off during the UFMS AUTO WRITE-OFF of 2007 in Patch 1 will be reversed"
  • Line Location: NOTE+8
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+9
Function Call: WRITE
  • Prompt: !!,"The bill number and amount written off will scroll by on the screen"
  • Line Location: NOTE+14
Function Call: WRITE
  • Prompt: !,"if you wish to capture this information.",!
  • Line Location: NOTE+15
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+24
Routine Call
  • DIE
  • Line Location:
    • ARBILL+5
    • REVERSE+18
    • BILLED+7
Routine Call
  • DIR
  • Line Location:
    • NOTE+21

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BARTMP("AWO-NON-BEN-REVERSE" CHECK+3, CHECK+4, LOOP+2*
^BARTR( LOOP+6, TRANS+5, ISITAWO+2, ISITAWO+3, ISITAWO+7, ISITAWO+11

Label References

Name Line Occurrences
ARBILL ISITAWO+33
BILLED ISITAWO+32
CHECK NOTE+11
ISITAWO TRANS+5
LOOP EN+12
NOTE EN+8
REVERSE ISITAWO+31
TRANS LOOP+6
XIT EN+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+11
>> ABMBIL BILLED+2*, BILLED+5
>> BARACT ISITAWO+18*, ISITAWO+19, ISITAWO+20
>> BARBILL REVERSE+23*, REVERSE+24
BARBL ISITAWO+5*, ISITAWO+6, ISITAWO+7, ISITAWO+11, REVERSE+21!
>> BARBLDA BILLED+1*, BILLED+2
>> BARCNT EN+13, LOOP+3*, REVERSE+22*
>> BARCONT EN+9, NOTE+1*, NOTE+23*
>> BARDASH CHECK+8*, CHECK+9, CHECK+12
>> BARDONDT CHECK+6*, CHECK+10
>> BARDONE NOTE+12, CHECK+2*, CHECK+7*
>> BARDTTR TRANS+4*, TRANS+5*, ISITAWO+2, ISITAWO+3, ISITAWO+7, ISITAWO+11
>> BARHOLD LOOP+4*, LOOP+7
>> BARITYP ISITAWO+21*, ISITAWO+22
>> BARNOW EN+11*, TRANS+5
>> BARTR(0 ISITAWO+2*, ISITAWO+5, ISITAWO+18, ARBILL+2, REVERSE+23, REVERSE+24, BILLED+1
>> BARTR(1 ISITAWO+3*, ISITAWO+26
>> BARTRIEN REVERSE+1*, REVERSE+2, REVERSE+20
D0 ISITAWO+20*, ISITAWO+23!
DA ARBILL+1!, ARBILL+2*, REVERSE+2*, REVERSE+19!, BILLED+5*
DIC ARBILL+1!
DIDEL REVERSE+17*, REVERSE+19!
DIE ARBILL+1!, ARBILL+3*, REVERSE+3*, REVERSE+19!, BILLED+4*
DIR NOTE+17!, NOTE+22!, ARBILL+1!
DIR("A" NOTE+19*
DIR("B" NOTE+20*
DIR(0 NOTE+18*
DR ARBILL+1!, ARBILL+4*, 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+6*, BILLED+8!
DT LOOP+2
DUZ(2 LOOP+4, LOOP+5*, LOOP+6*, LOOP+7*, TRANS+5, ISITAWO+2, ISITAWO+3, ISITAWO+7, ISITAWO+11, BILLED+2
>> POSTAWO ISITAWO+9*, ISITAWO+29
>> POSTDEB ISITAWO+10*
>> POSTTRAN ISITAWO+7*, ISITAWO+8, ISITAWO+9, ISITAWO+10, ISITAWO+29
>> PREAWO ISITAWO+13*, ISITAWO+30
>> PRECRED ISITAWO+14*
>> PRETRAN ISITAWO+11*, ISITAWO+12, ISITAWO+13, ISITAWO+14, ISITAWO+30
U ISITAWO+5, ISITAWO+18, ISITAWO+26, ARBILL+2, REVERSE+23, REVERSE+24, BILLED+1
>> Y NOTE+23, 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