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 |  Marked Items |  All
Print Page as PDF
Routine: BARPT174

Package: IHS Accounts Receivable

Routine: BARPT174


Information

BARPT174 ; IHS/SD/LSL - Post init for V1.7 Patch 4 ;

Source Information

Source file <BARPT174.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 7 YX^%DTC  ^DIC  FILE^DICN  ^DIE  (,ENALL)^DIK  $$GET1^DIQ  EN^DIU2  
IHS Accounts Receivable 4 (,CHNGREA,MODIFY)^BARADJR2  ENTRY^BARADJRA  START^BAREDIT  $$INSTALLD^BAREV17  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Accounts Receivable 2 BARPT175  BARPT18  

Entry Points

Name Comments DBIA/ICR reference
MAILTXT ;
; Determine body of e-mail
MAILSETM ;
; Set Mailman Variables
ADDCODE ;
; Add AH entry under Adjustment Reason Code. AH added in Addenda A
; to V4010 of the X12 835.
MAILTXTM ;
; Determine body of e-mail
PRVPATCH ;
; Check previous patch post inits
EISS ;
; Populate EISS fields in file 90052.06
MAILSET ;
; Set Mailman Variables
PATCH1 ;
; Patch 1 post init
; Delete A/R Period Summary Data File data
PATCH2 ;
; Patch 2 post init
PATCH3 ;
; Post init for V1.7 Patch 3
PATCH4 ;
; Post init for V1.7 Patch 4
1 ;;
MAILDUP ;
; Send a mail message to all holders of the BARZMGR key listing
; possible duplicates on their system
MAILMSG ;
EN ; EP - Driver
MAILISTM ;
; Find users who hold the BARZ MANAGER key
FINDUP ;
; Find possible AR Bill Multiples (duplicates)
MAILPAT ;
; Send a mail message to all holders of the BARZMENU key that a patch
; has been installed on the system.
MAILMSGM ;
CURBAL ;
; Rebuild ABAL and APBAL x-refs on field 15 of file 90050.01
2 ;;
MAILIST ;
; Find users who hold the BARZMENU key
PATACC ;
; Create PAS x-ref on field 101 of file 90050.02
POINTER ;
; Correct mapping of standard code 137 from RPMS reason 141 to 730

External References

Name Field # of Occurrence
YX^%DTC MAILMSG+3, MAILMSGM+3
^BARADJR2 PATCH4+9
CHNGREA^BARADJR2 EN+4
MODIFY^BARADJR2 EN+5
ENTRY^BARADJRA PATCH4+6
START^BAREDIT PATCH4+3
$$INSTALLD^BAREV17 PRVPATCH+3, PRVPATCH+4, PRVPATCH+5, PRVPATCH+6
^DIC POINTER+5
FILE^DICN ADDCODE+11
^DIE EISS+13, POINTER+11
^DIK PATCH1+6
ENALL^DIK CURBAL+9, PATACC+8
$$GET1^DIQ MAILTXTM+23, MAILTXTM+37
EN^DIU2 PATCH1+12
^XMD MAILMSG+5, MAILMSGM+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You are missing A/R V1.7 Patch 1...performing POST INITS of that patch"
  • Line Location: PATCH1+3
Function Call: WRITE
  • Prompt: !!,"A/R V1.7 Patch 1 POST INIT complete"
  • Line Location: PATCH1+14
Function Call: WRITE
  • Prompt: !!,"You are missing A/R V1.7 Patch 2...performing POST INITS of that patch"
  • Line Location: PATCH2+2
Function Call: WRITE
  • Prompt: !!,"A/R V1.7 Patch 2 POST INIT complete"
  • Line Location: PATCH2+8
Function Call: WRITE
  • Prompt: !!,"Rebuilding ABAL and APBAL x-refs on Current Balance of A/R Bill File..."
  • Line Location: CURBAL+2
Function Call: WRITE
  • Prompt: "DONE."
  • Line Location: CURBAL+10
Function Call: WRITE
  • Prompt: !!,"Creating PAS x-ref on Pat Acct Stmt of A/R Account File..."
  • Line Location: PATACC+2
Function Call: WRITE
  • Prompt: "DONE."
  • Line Location: PATACC+9
Function Call: WRITE
  • Prompt: !!,"Populating EISS System Address, Username, and Password fields"
  • Line Location: EISS+2
Function Call: WRITE
  • Prompt: !,"in A/R Site Parameter File..."
  • Line Location: EISS+3
Function Call: WRITE
  • Prompt: "DONE."
  • Line Location: EISS+15
Function Call: WRITE
  • Prompt: !!,"Now performing A/R V1.7 Patch 3 post inits..."
  • Line Location: PATCH3+2
Function Call: WRITE
  • Prompt: !!,"Creating A/R EDI Transport for HIPAA 835 v4010..."
  • Line Location: PATCH4+2
Function Call: WRITE
  • Prompt: "...DONE"
  • Line Location: PATCH4+4
Function Call: WRITE
  • Prompt: !,"Updating RPMS Adjustment Reason Descriptions..."
  • Line Location: PATCH4+5
Function Call: WRITE
  • Prompt: "...DONE"
  • Line Location: PATCH4+7
Function Call: WRITE
  • Prompt: !,"Updating EDI Tables for HIPAA 835 v4010 Addenda A..."
  • Line Location: ADDCODE+3
Function Call: WRITE
  • Prompt: "...DONE"
  • Line Location: ADDCODE+12
Function Call: WRITE
  • Prompt: !!,"Sending MailMan message to users..."
  • Line Location: MAILPAT+4
Function Call: WRITE
  • Prompt: " DONE"
  • Line Location: MAILPAT+8
Function Call: WRITE
  • Prompt: !!,"Sending MailMan message to AR Managers..."
  • Line Location: MAILDUP+4
Function Call: WRITE
  • Prompt: " DONE"
  • Line Location: MAILDUP+8
Routine Call
  • DIE
  • Line Location:
    • EISS+13
    • POINTER+11
Routine Call
  • DIC
  • Line Location:
    • POINTER+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^AUPNPAT - [#9000001] GET1^DIQ
^BARADJ - [#90056.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BAR(90052.06 EISS+5, EISS+8
^BARAC( PATACC+4, PATACC+5!
^BARBL( CURBAL+4, CURBAL+6!, FINDUP+5, FINDUP+7, FINDUP+9, MAILTXTM+33, MAILTXTM+36, MAILTXTM+40
^BARPSR( PATCH1+6
^BARTMP("173MSG" MAILTXTM+2!, MAILTXTM+8*, MAILTXTM+13*, MAILTXTM+23*, MAILTXTM+25*, MAILTXTM+43*, MAILTXTM+47*, MAILTXTM+49*, MAILTXTM+51*, MAILTXTM+52*
, MAILTXTM+54*
^BARTMP("DUP" FINDUP+2!, FINDUP+11*, MAILTXTM+12, MAILTXTM+20, MAILTXTM+27
^VA(200 - [#200] MAILIST+5, MAILISTM+5
^XUSEC("BARZ MANAGER" MAILISTM+4
^XUSEC("BARZMENU" MAILIST+4

Label References

Name Line Occurrences
ADDCODE PATCH4+10
CURBAL PATCH2+4, PATCH4+12
EISS PATCH2+6
FINDUP PATCH3+3
MAILDUP PATCH3+4
MAILIST MAILSET+5
MAILISTM MAILSETM+5
MAILMSG MAILPAT+7
MAILMSGM MAILDUP+7
MAILPAT EN+6
MAILSET MAILPAT+5
MAILSETM MAILDUP+5
MAILTXT MAILPAT+6
MAILTXTM MAILDUP+6
PATACC PATCH2+5
PATCH1 PRVPATCH+11
PATCH2 PRVPATCH+10, PRVPATCH+11
PATCH3 PRVPATCH+9
PATCH4 EN+3
POINTER PATCH4+8
PRVPATCH EN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %H MAILMSG+2*, MAILMSGM+2*
>> BARBAMT MAILTXTM+40*, MAILTXTM+41, MAILTXTM+44, MAILTXTM+45
>> BARBAMTO MAILTXTM+41*, MAILTXTM+43
>> BARBIL MAILTXTM+30*, MAILTXTM+31*, MAILTXTM+43
>> BARBL FINDUP+6*, FINDUP+7*, FINDUP+9, FINDUP+11, MAILTXTM+26*, MAILTXTM+27*, MAILTXTM+30, MAILTXTM+33
>> BARCNT FINDUP+8*, FINDUP+10*, FINDUP+11, MAILTXTM+17*, MAILTXTM+29*, MAILTXTM+54
>> BARDASH MAILTXTM+15*, MAILTXTM+47
>> BARDUZ PATCH2+3*, PATCH2+7, FINDUP+3*, FINDUP+12
>> BAREQUAL MAILTXTM+16*, MAILTXTM+52
>> BARFBT MAILTXTM+21*, MAILTXTM+44*, MAILTXTM+49
>> BARFCNT MAILTXTM+21*, MAILTXTM+28*, MAILTXTM+49
>> BARHOLD PATCH4+11*, PATCH4+13
>> BARIEN FINDUP+8*, FINDUP+9*, MAILTXTM+32*, MAILTXTM+33*, MAILTXTM+34, MAILTXTM+36, MAILTXTM+40
>> BARIENO MAILTXTM+34*, MAILTXTM+35*, MAILTXTM+43
>> BARMSG( MAILTXT+7*
>> BARNAME MAILIST+5*, MAILIST+6, MAILISTM+5*, MAILISTM+6
BARP1 PRVPATCH+2~, PRVPATCH+6*, PRVPATCH+10
BARP2 PRVPATCH+2~, PRVPATCH+5*, PRVPATCH+9
BARP3 PRVPATCH+2~, PRVPATCH+4*, PRVPATCH+8
>> BARP4 EN+3, PRVPATCH+3*, PRVPATCH+7
>> BARPAR MAILTXTM+19*, MAILTXTM+20*, MAILTXTM+23, MAILTXTM+27, MAILTXTM+33, MAILTXTM+36, MAILTXTM+40
>> BARPAT MAILTXTM+37*, MAILTXTM+38*, MAILTXTM+39*, MAILTXTM+43
>> BARPIEN MAILTXTM+36*, MAILTXTM+37, MAILTXTM+38
>> BARTOT MAILTXTM+18*, MAILTXTM+45*, MAILTXTM+54
>> BARTXT MAILTXT+3, MAILTXT+5*, MAILTXT+6, MAILTXT+7, MAILTXTM+4, MAILTXTM+6*, MAILTXTM+7, MAILTXTM+8
>> BARX CURBAL+5*, CURBAL+6, CURBAL+8
DA PATCH1+5*, PATCH1+6*, PATCH1+7!, EISS+7*, EISS+8*, EISS+14!, POINTER+7!, POINTER+8*
DA(1 ADDCODE+5*, ADDCODE+6
DD ADDCODE+10!
DIC POINTER+3*, POINTER+7!, ADDCODE+6*
DIC("DR" ADDCODE+9*
DIC(0 POINTER+4*, ADDCODE+7*
DIE EISS+6*, EISS+14!, POINTER+9*
DIFROM MAILMSG+4~, MAILMSGM+4~
DIK PATCH1+4*, PATCH1+7!, CURBAL+7*, PATACC+6*
DIK(1 CURBAL+8*, PATACC+7*
DIU PATCH1+10*, PATCH1+13!
DIU(0 PATCH1+11*
>> DLAYGO ADDCODE+4*
DO ADDCODE+10!
DR EISS+9!, EISS+10*, EISS+11*, EISS+12*, EISS+14!, POINTER+10*
DUZ(2 PATCH2+3, PATCH2+7*, CURBAL+3*, CURBAL+4*, CURBAL+6, PATACC+3*, PATACC+4*, PATACC+5, EISS+4*, EISS+5*
, EISS+8, FINDUP+3, FINDUP+4*, FINDUP+5*, FINDUP+7, FINDUP+9, FINDUP+11, FINDUP+12*, PATCH4+11, PATCH4+13*
>> I MAILTXTM+31*, MAILTXTM+35*, MAILTXTM+39*
>> J MAILIST+3*, MAILIST+4*, MAILIST+5, MAILISTM+3*, MAILISTM+4*, MAILISTM+5
>> K MAILTXT+2*, MAILTXT+4*, MAILTXT+7, MAILTXTM+3*, MAILTXTM+5*, MAILTXTM+8, MAILTXTM+13, MAILTXTM+22*, MAILTXTM+23, MAILTXTM+24*
, MAILTXTM+25, MAILTXTM+42*, MAILTXTM+43, MAILTXTM+46*, MAILTXTM+47, MAILTXTM+48*, MAILTXTM+49, MAILTXTM+50*, MAILTXTM+51, MAILTXTM+52
, MAILTXTM+53*, MAILTXTM+54
U MAILIST+5, MAILISTM+5, MAILTXTM+36, MAILTXTM+40
X POINTER+2*, POINTER+7!, ADDCODE+8*
>> XMDUZ MAILSET+4*, MAILSETM+4*
>> XMSUB MAILSET+3*, MAILSETM+3*
>> XMTEXT MAILMSG+1*, MAILMSGM+1*
XMY MAILSET+2!, MAILSETM+2!
XMY( MAILIST+6*, MAILISTM+6*
>> Y POINTER+6, POINTER+8

Marked Items

Name Field # of Occurrence
$T(@1+K MAILTXT+5
$T(@2+K MAILTXTM+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 |  Marked Items |  All