Routine: PRCFACR1

Package	Total	Call Graph
IFCAP	3	ENCODE^PRCFAES1 ENCODE^PRCFAES2 DUZ^PRCFSITE
VA FileMan	3	NOW^%DTC DT^DICRW EN1^DIP
Kernel	1	KILL^%ZTLOAD
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
SE
XM	;THIS SECTION WILL TAKE THE GLOBALS CREATED BY THE FILE MANAGER AND PASS THEM TO MAILMAN FOR DELIVERY TO AUSTIN.
OUT
TYPE	;PROCESS ALL BATCH TYPE TO MAIL MAN
CREATE	;CREATES MESSAGE FOR INDIVIDUAL BATCH
XMD
BLIST	;PLACE ALL CODE SHEETS IN A BATCH ON TRANSMISSION LIST
SHRINK	;TAKE 4th '-' PIECE OF BATCH NUMBER AND MAKE IT INTO MMCCC ; WHERE MM = MONTH ; CCC = LAST 3 DIGITS OF COUNTER VALUE
HEADER	;DO THE SAME THING TO THE MESSAGE HEADER AS 'SHRINK' DOES TO THE BATCH NUMBER.

FileNo	Call Tags
^PRCF(423 - [#423]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PRCF("LIST"	OUT!
^PRCF(421.2 - [#421.2]	V+4!, CREATE+9, CREATE+10, BLIST+9*
^PRCF(423 - [#423]	XM+2, XM+3!, BLIST+1
^PRCF(423.9 - [#423.9]	XM+1, CREATE+4, CREATE+5, CREATE+6
^TMP("PRCFBTCH"	SE!, XM+1, OUT!, TYPE+1, SHRINK+4*
^TMP($J	V+2!

Name	Field # of Occurrence
^(0	CREATE+4, CREATE+6, CREATE+10*

Name	Field # of Occurrence
%	XM+3!, BLIST+4, BLIST+7
%DT	XM+3!
%H	OUT!
%I	XM+3!
%Y	OUT!
A	OUT!
ADD	OUT!, CREATE+6*
B	OUT!
BATCH	XM+3!
BATTYPE	XM+3!
>> BY	SE+1*
C	OUT!
>> DA	BLIST+3*, BLIST+9, BLIST+12, BLIST+13
DIC	SE+1*, OUT!
DIJ	OUT!
DP	XM+3!
DQTIME	OUT!
DUZ	CREATE+7, BLIST+12, BLIST+13
ER	OUT!
FAIL	OUT!
>> FLDS	SE+1*
>> FR	SE+1*
I	V+4, XM+1, XM+2, XM+3!, XMD~, BLIST+1
IO	SE
ION	SE
>> IOP	SE*
IOX	OUT!
IOY	OUT!
J	XM+3!, TYPE+1*, XMD~
K	XM+3!, CREATE+6*
L	SE+1, XM+3!, CREATE+6
M	XM+3!, TYPE+1*, CREATE+7, CREATE+9, XMD~, SHRINK+4, HEADER+2
M1	HEADER+1~, HEADER+2*
M2	HEADER+1~, HEADER+2*
MESSAGE	BLIST+11*, BLIST+12, BLIST+13, BLIST+14!
>> MM	CREATE+7, HEADER+2*
N	XM+1, XM+2, XM+3!, TYPE+1, CREATE+7, XMD~, BLIST+1*, SHRINK+4
P	BLIST+5, BLIST+15!*
PBAT	V+4*, OUT!, BLIST+1
PBATN	V+4*, OUT!, BLIST+2, BLIST+3
POK	OUT!
POP	OUT!
>> PRC("PER"	BLIST+4, BLIST+8
>> PRCFA("EDI"	CREATE+4!
PRCFKEY	V+4, SE+1, XM+2, XM+3, OUT!, BLIST+1
PRCFRT	OUT!, BLIST+12, BLIST+13
PRCFX	XM+3!
PTR	OUT!
PTRN	OUT!
PTYP	XM+1*, XM+3!, CREATE+4, CREATE+5, CREATE+6
PX	BLIST+5*, BLIST+15!
SHRINK	SHRINK+3~, SHRINK+4*
SHRINK1	SHRINK+3~, SHRINK+4*
SHRINK2	SHRINK+3~, SHRINK+4*
>> TO	SE+1*
U	CREATE+4
X	XM+3!, CREATE+9*, CREATE+10
X1	OUT!, BLIST+8*
XDT	BLIST+7*, BLIST+9, BLIST+10!
XMDT	OUT!
XMDUZ	OUT!, CREATE+7*
XMKK	OUT!
XMLOCK	OUT!
XMM	OUT!
XMR	OUT!
XMSUB	OUT!, CREATE+7*
XMT	OUT!
XMTEXT	OUT!, CREATE+7*
XMY	OUT!
XMY(	CREATE+4, CREATE+6
XMZ	OUT!, CREATE+10
Y	XM+3!
Z1	XM+3!
Z2	XM+3!
>> ZTQUEUED	V+3