BGURTNFL.m

BGURTNFL ; IHS/OIT/MJL - SILENT ROUTINE FIRST LINE ; 

 ;;1.5;BGU;**1**;SEP 26, 2005

EN(BGUARRAY,BGUTBUF) ;PEP FROM REMOTE PROCEDURE BGU ROUTINE FILER

CTL ;

 S BGURTN=$P(BGUMSG,U,2),BGUMSG=$P(BGUMSG,U,3,$L(BGUMSG,U)),BGUMSGL=$L(BGUMSG)

 S:$E(BGUMSG,BGUMSGL-1,BGUMSGL)=$C(13,10) BGUMSG=$E(BGUMSG,1,BGUMSGL-2)

 F BGUNN=1:1:$L(BGUMSG,$C(13,10)) S ^TMP("BGURTN",$J,BGUNN,0)=$P(BGUMSG,$C(13,10),BGUNN)

 S X=BGURTN,XCN=0,DIE="^TMP(""BGURTN"",$J," X ^%ZOSF("SAVE")

 K BGUMSGL,BGUNN,BGUXA,^TMP("BGURTN",$J)

 S BGUARRAY(1)=1,BGUARRAY(2)="OK"

 Q

BGURTNFL  ; IHS/OIT/MJL - SILENT ROUTINE FIRST LINE ; 

 +1       ;;1.5;BGU;**1**;SEP 26, 2005

EN(BGUARRAY,BGUTBUF) ;PEP FROM REMOTE PROCEDURE BGU ROUTINE FILER

CTL       ;

 +1        SET BGURTN=$PIECE(BGUMSG,U,2)

           SET BGUMSG=$PIECE(BGUMSG,U,3,$LENGTH(BGUMSG,U))

           SET BGUMSGL=$LENGTH(BGUMSG)

 +2        IF $EXTRACT(BGUMSG,BGUMSGL-1,BGUMSGL)=$CHAR(13,10)

               SET BGUMSG=$EXTRACT(BGUMSG,1,BGUMSGL-2)

 +3        FOR BGUNN=1:1:$LENGTH(BGUMSG,$CHAR(13,10))

               SET ^TMP("BGURTN",$JOB,BGUNN,0)=$PIECE(BGUMSG,$CHAR(13,10),BGUNN)

 +4        SET X=BGURTN

           SET XCN=0

           SET DIE="^TMP(""BGURTN"",$J,"

           XECUTE ^%ZOSF("SAVE")

 +5        KILL BGUMSGL,BGUNN,BGUXA,^TMP("BGURTN",$JOB)

 +6        SET BGUARRAY(1)=1

           SET BGUARRAY(2)="OK"

 +7        QUIT