Routine: IBQLPOST

Information

IBQLPOST ;LEB/MRY - CREATE IBQ ROLLUP MAILGROUP POST INT ;5-JUL-95

Source file <IBQLPOST.m>

Package	Total	Call Graph
VA FileMan	2	DT^DICRW ENALL^DIK
MailMan	1	$$MG^XMBGRP

Name	Comments	DBIA/ICR reference
INDEX	; -- Index field #1.17 ACUTE CARE DISCHARGE DATE of File 356.1.
MAILGRP	; -- Stuff in new mail group
END

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"<<< Post init completed!" Line Location: IBQLPOST+8
Function Call: WRITE	Prompt: !!,"Indexing field #1.17 ACUTE CARE DISCHARGE DATE of File #356.1." Line Location: INDEX+1
Function Call: WRITE	Prompt: !,"working...." Line Location: INDEX+2
Function Call: WRITE	Prompt: !,"<<< Re-indexing complete!" Line Location: INDEX+4
Function Call: WRITE	Prompt: !!,"Creating new Mailgroup IBQ ROLLUP" Line Location: MAILGRP+1
Function Call: WRITE	Prompt: !!,*7,"<<< Please add members to IBQ ROLLUP after install! >>>" Line Location: MAILGRP+2
Function Call: WRITE	Prompt: !!,"<<< Adding mail group "_A,! Line Location: MAILGRP+10

FileNo	Call Tags
^IBT(356.1 - [#356.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	MAILGRP+9
^XMB(3.8 - [#3.8]	MAILGRP+5

Name	Field # of Occurrence
A	MAILGRP+3~, MAILGRP+4*, MAILGRP+5, MAILGRP+10, MAILGRP+11
B	MAILGRP+3~, MAILGRP+4*, MAILGRP+11
C	MAILGRP+3~, MAILGRP+4*, MAILGRP+11
D	MAILGRP+3~, MAILGRP+4*, MAILGRP+11
DA	%~
DIC	%~
DIE	%~
DIFROM	%~
DIK	%~, INDEX+3*
DIK(1	INDEX+3*
DLAYGO	%~, END!
DR	%~
DUZ	MAILGRP+6
E	MAILGRP+3~, MAILGRP+11
E(	MAILGRP+6*
F	MAILGRP+3~, MAILGRP+11
F(1	MAILGRP+7*
F(2	MAILGRP+8*
>> G	MAILGRP+4*, MAILGRP+11
I	%~
IB	%~
>> IBT	MAILGRP+9*, MAILGRP+11, MAILGRP+12
J	%~
X	%~, MAILGRP+9, MAILGRP+11
Y	%~