CLOSE (TEMPLATE)
      IF ZZ1DIV$ EQ 'CA' THEN
         OPEN (TEMPLATE) 'EMLTEMCA.HTM'
        ELSE
         OPEN (TEMPLATE) 'EMLTEMUS.HTM'
      ENDIF
5994  !
      READ (TEMPLATE,0004),EXCP=5998
      IF SUB(TXTLN$,1,3) EQ BYTEORDER$  GOTO 5994
      IF SUB(TXTLN$,1,5) EQ SKIPHTML5$  GOTO 5994
      IF STRIP(TXTLN$) EQ ''            GOTO 5994
      IF POS('Body Message Placeholder',txtln$) NE 0 THEN
      	 FOR J = 1 TO 10
      	 	  TXTLN$ = MSGARY$(J)
      	 	  ! ALL TESTS GO HERE TO DETERMINE IF ANYTHING
      	 	  ! NEEDS TO BE DETECTED FOR REPLACING DATES, SHIP WEEKS,
      	 	  ! DOLLAR AMOUNT, DATES, ETC.
            IF POS('MM/DD/YYYY',TXTLN$) NE 0 THEN
            	 ! SUB IN DELIVERY DATE FOR BACKORDERS, THIS WAS DEFAULT.
            	 ! MODIFY FOR CFA CANCELLATION DATE BY USING ORESCDTE$
            	 IF TYPE$ EQ 'C' OR TYPE$ EQ 'R' _
            	 	  DELDTE$ = ORESCDTE$
            	 BIGDESC$ = TXTLN$
            	 GOSUB 8500
            	 TXTLN$ = BIGDESC$
            ENDIF
      	 	  PRINT (LP) (Text = TXTLN$)
      	 NEXT J
      	ELSE
         PRINT (LP) (Text = TXTLN$)
      ENDIF
      GOTO 5994
!
5998  ! Close (LP) and send email