Routine: XMUT6

Information

XMUT6 ;(WASH ISC)/CAP-Check delivery queue ;04/17/2002 12:07

Source file <XMUT6.m>

Package	Total	Call Graph
MailMan	2	^XMUT5 GO^XMUT5B
VA FileMan	1	YX^%DTC

Name	Comments	DBIA/ICR reference
GO	;Go through the queues and see if the data in them is correct
Q
COUNT
A
B
C
FWD
MOVE	;Move queue 1 to queue 3
MA
KILL	;Kill off X-ref of Responses
KA

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Checking Delivery Queue: " Line Location: XMUT6+2
Function Call: WRITE	Prompt: Y Line Location: XMUT6+2
Function Call: WRITE	Prompt: !!,"NOTHING IS IN THE DELIVERY QUEUE !!" Line Location: XMUT6+3
Function Call: WRITE	Prompt: !!,"Total items Waiting to be delivered: ",T Line Location: GO+4
Function Call: WRITE	Prompt: !,"Messages: "_M," Responses: "_R Line Location: GO+5
Function Call: WRITE	Prompt: !,"Message Deliveries: "_M("D")_" Response Deliveries: "_R("D") Line Location: GO+6
Function Call: WRITE	Prompt: !!,"Message Group # Messages # Deliveries" Line Location: GO+7
Function Call: WRITE	Prompt: !,?5,I,?25,M(I),?40,M("D",I),?53 Line Location: GO+8
Function Call: WRITE	Prompt: !!,"Response Group # Responses # Deliveries" Line Location: GO+9
Function Call: WRITE	Prompt: !,?5,I,?25,R(I),?40,R("D",I),?53 Line Location: GO+10
Function Call: WRITE	Prompt: A," " Line Location: KA+0

Name	Line Occurrences (* Changed, ! Killed)
^XMBPOST(	A, B, C
^XMBPOST("FWD"	FWD
^XMBPOST("R"	KA

Name	Field # of Occurrence
^(	B+5, C, FWD, KA!

Name	Field # of Occurrence
>> %	B+5, B+6, C, C+1, FWD*
>> %H	XMUT6+2*
>> A	COUNT, A, B, C, FWD, MOVE+1, MA, MA+1, KILL+1, KA
>> B	COUNT, A, B, B+4, B+5, C, FWD, MOVE+1, MA+1*
>> C	COUNT, B+3, C, MA+1
>> D	MA+1*
>> I	GO+2, GO+3, GO+8, GO+10, A, B, B+3, C
>> J	GO+3*, A, B, B+6, C, C+1
>> K	FWD*
M	GO+1!, GO+2, GO+5, GO+7, B+6
M(	GO+2, GO+8, B+6
M("D"	GO+2, GO+6, GO+8, B+6
M("T"	XMUT6+3
R	GO+1!, GO+2, GO+5, GO+9, C+1
R(	GO+2, GO+10, C+1
R("D"	GO+2, GO+6, GO+10, C+1
R("T"	XMUT6+3
T	GO+1!, GO+2, GO+4, B+6, C+1*
T("D"	GO+2, B+6, C+1*
U	B+4, FWD
>> Y	XMUT6+2