Routine: BARPT172

Information

BARPT172 ; IHS/SD/LSL - Post init for V1.7 Patch 2 ;

Source file <BARPT172.m>

Package	Total	Caller Graph
IHS Accounts Receivable	2	BARPT175 BARPT18

Name	Comments	DBIA/ICR reference
MAILTXT	;
EN	; EP - Driver
MAILSET	; ; Set Mailman Variables
PATCH1	; ; Patch 1 post init ; Delete A/R Period Summary Data File data
PATCH2	; ; Patch 2 post init
MAILMSG	;
1	;;
MAILIST	; ; Find users who hold the BARZMENU key
PRVPATCH	; ; Check previous patch post inits
EISS	; ; Populate EISS fields in file 90052.06
MAIL	; ; Send a mail message to all holders of the BARZMENU key that a patch ; has been installed on the system.
PATACC	; ; Create PAS x-ref on field 101 of file 90050.02
CURBAL	; ; Rebuild ABAL and APBAL x-refs on field 15 of file 90050.01

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: !!,"Now performing A/R V1.7 Patch 2 post inits..." Line Location: PATCH2+2
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: !!,"Sending MailMan message to users..." Line Location: MAIL+4
Function Call: WRITE	Prompt: " DONE" Line Location: MAIL+8
Routine Call	DIE Line Location: EISS+13

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.06	EISS+5, EISS+8
^BARAC(	PATACC+4, PATACC+5!
^BARBL(	CURBAL+4, CURBAL+6!
^BARPSR(	PATCH1+6
^VA(200 - [#200]	MAILIST+5
^XUSEC("BARZMENU"	MAILIST+4

Name	Field # of Occurrence
>> %H	MAILTXT+8*
>> BARDUZ	PATCH2+3*, PATCH2+7
BARMSG	MAILMSG+2!
BARMSG(	MAILTXT+6*
>> BARNAME	MAILIST+5*, MAILIST+6
BARP1	PRVPATCH+2~, PRVPATCH+3*, PRVPATCH+4
>> BARTXT	MAILTXT+2, MAILTXT+4*, MAILTXT+5, MAILTXT+6
>> BARX	CURBAL+5*, CURBAL+6, CURBAL+8
DA	PATCH1+5, PATCH1+6, PATCH1+7!, EISS+7, EISS+8, EISS+14!
DIE	EISS+6*, EISS+14!
DIK	PATCH1+4, PATCH1+7!, CURBAL+7, PATACC+6*
DIK(1	CURBAL+8, PATACC+7
DIU	PATCH1+10*, PATCH1+13!
DIU(0	PATCH1+11*
DR	EISS+9!, EISS+10, EISS+11, EISS+12*, EISS+14!
DUZ(2	PATCH2+3, PATCH2+7, CURBAL+3, CURBAL+4, CURBAL+6, PATACC+3, PATACC+4, PATACC+5, EISS+4, EISS+5* , EISS+8
>> J	MAILIST+3, MAILIST+4, MAILIST+5
>> K	MAILTXT+1, MAILTXT+3, MAILTXT+6
U	MAILIST+5
>> XMDUZ	MAILSET+4*
>> XMSUB	MAILSET+3*
>> XMTEXT	MAILTXT+7*
XMY	MAILSET+2!
XMY(	MAILIST+6*

Name	Field # of Occurrence
$T(@1+K	MAILTXT+4