Routine: RGJCSUB

Information

RGJCSUB ;SF/JC-MPI/PD SUBSCRIPTION GENERATOR ;04/30/97

Source file <RGJCSUB.m>

Name	Comments	DBIA/ICR reference
EQ(RGEV,RGSTUB,RGERR,RGEP)	;Entry point for Event Queue Processor
BM(FLL,TLL,ICN,PN,TP,AD,TD)	;Build Subscription Request Message
MFI	;MFI-master file identifier segment
MFE	;MFE-master file entry segment
DATA	;Record level data in 'ZSD' SEGMENT
SEND	;SEND TO HL7 PACKAGE
ROUTE	;routing logic-parse A04 and put new message on event queue
R1	;A04