Routine: BARPT18

Information

BARPT18 ; IHS/SD/LSL - Post init for V1.8 ;

Source file <BARPT18.m>

Package	Total	Call Graph
IHS Accounts Receivable	6	START^BAR18DSP EN^BARPT171 EN^BARPT172 EN^BARPT173 EN^BARPT174 EN^BARPT175
VA Fileman	3	YX^%DTC (,IX)^DIC ^DIE
MailMan	1	^XMD

Name	Comments	DBIA/ICR reference
MAILTXT	;
EN	; EP - Driver
MAILSET	; ; Set Mailman Variables
MAILMSG	;
INSTALLD(BAR)	; ; Determine if version and patch of said application has been installed ; where BAR is the name of the INSTALL (BAR1.71) ; 1st look up package
1	;
MAILIST	; ; Find users who hold the BARZMENU key
PRVPATCH	; ; Check previous patch post inits
2	;;
MAIL	; ; Send a mail message to all holders of the BARZMENU key that v1.8 ; has been installed on the system.
ZISH2	;
ZISH	; ; Create entries in ZISH SEND PARAMETERS for EISS and Debt Collection
POST18	; ; Perform 1.8 post inits

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Creating entries in ZISH SEND PARAMETERS FILE for EISS..." Line Location: ZISH+2
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: ZISH2+21
Routine Call	DIC Line Location: INSTALLD+14 INSTALLD+19 ZISH2+10
Routine Call	DIC Line Location: INSTALLD+9

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^%ZIB(9888888.93 - [#9888888.93]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	MAILIST+5
^XUSEC("BARZMENU"	MAILIST+4

Name	Line Occurrences
$$INSTALLD	PRVPATCH+3, PRVPATCH+4, PRVPATCH+5, PRVPATCH+6, PRVPATCH+7
MAIL	EN+3
MAILIST	MAILSET+5
MAILMSG	MAIL+7
MAILSET	MAIL+5
MAILTXT	MAIL+6
POST18	EN+2
PRVPATCH	EN+1
ZISH	POST18+3
ZISH2	ZISH+5

Name	Field # of Occurrence
>> %H	MAILTXT+8*
BAR	INSTALLD~, INSTALLD+5, INSTALLD+13, INSTALLD+18
>> BARCNT	ZISH+4, ZISH2+1
>> BARD	ZISH+3*, ZISH2+2, ZISH2+8, ZISH2+16, ZISH2+17
BARMSG	MAILMSG+2!
BARMSG(	MAILTXT+6*
>> BARNAME	MAILIST+5*, MAILIST+6
BARP1	PRVPATCH+2~, PRVPATCH+7*, PRVPATCH+13
BARP2	PRVPATCH+2~, PRVPATCH+6*, PRVPATCH+12
BARP3	PRVPATCH+2~, PRVPATCH+5*, PRVPATCH+11
BARP4	PRVPATCH+2~, PRVPATCH+4*, PRVPATCH+10
BARP5	PRVPATCH+2~, PRVPATCH+3*, PRVPATCH+8, PRVPATCH+9
>> BARTXT	MAILTXT+2, MAILTXT+4*, MAILTXT+5, MAILTXT+6
>> BARVALUE	ZISH+5, ZISH2+2*, ZISH2+3, ZISH2+8, ZISH2+16, ZISH2+17
>> D	INSTALLD+8*
DA	ZISH2+4!, ZISH2+14*
DD	ZISH2+9!
DIC	INSTALLD+4~, INSTALLD+6, INSTALLD+12, INSTALLD+17, ZISH2+4!, ZISH2+5, ZISH2+13
DIC(0	INSTALLD+7, ZISH2+6
DIE	ZISH2+4!, ZISH2+13*
>> DLAYGO	ZISH2+7*
DO	ZISH2+9!
DR	ZISH2+4!, ZISH2+15, ZISH2+16, ZISH2+17, ZISH2+18, ZISH2+19, ZISH2+20
>> J	MAILIST+3, MAILIST+4, MAILIST+5
>> K	MAILTXT+1, MAILTXT+3, MAILTXT+6
U	ZISH2+12, MAILIST+5
X	INSTALLD+4~, INSTALLD+5, INSTALLD+13, INSTALLD+18, ZISH2+4!, ZISH2+8
>> XMDUZ	MAILSET+4*
>> XMSUB	MAILSET+3*
>> XMTEXT	MAILTXT+7*
XMY	MAILSET+2!
XMY(	MAILIST+6*
Y	INSTALLD+4~, INSTALLD+10, INSTALLD+12, INSTALLD+15, INSTALLD+17, INSTALLD+20, ZISH2+4!, ZISH2+11, ZISH2+12, ZISH2+14

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