DIFGGSB.m

DIFGGSB ;SFISC/XAK,EDE(OHPRD)-FILEGRAM SPECIAL BLOCK ;

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 ;EDE/OHPRD/IHS changed BEGEN/END line to match BNF

 ;

START ; (CALLED RECURSIVELY)

 K DIFGSB(DILL)

 D BEGIN

 S DITAB=DITAB+2

 D BODY^DIFGGSB1

 S DITAB=DITAB-2

 D END,EOJ

 Q

 ;

BEGIN ; BEGIN LINE

 S V="BEGIN:"_DIFG(DILL,"FNAME")_"^"_$S(DIFG("PARM")["N":DIFG(DILL,"FILE"),1:"")

 I $D(Z),Z'="" S V=V_Z,Z=""

 D INCSET^DIFGGU

 Q

 ;

 ;

END ; END LINE

 S V="END:"_DIFG(DILL,"FNAME")_"^"_$S(DIFG("PARM")["N":DIFG(DILL,"FILE"),1:"")

 D INCSET^DIFGGU

 Q

 ;

EOJ ;

 K DIFGSB(DILL)

 K %,C,D0,J,S,V,X,Y,Z

 Q

DIFGGSB   ;SFISC/XAK,EDE(OHPRD)-FILEGRAM SPECIAL BLOCK ;

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;EDE/OHPRD/IHS changed BEGEN/END line to match BNF

 +4       ;

START     ; (CALLED RECURSIVELY)

 +1        KILL DIFGSB(DILL)

 +2        DO BEGIN

 +3        SET DITAB=DITAB+2

 +4        DO BODY^DIFGGSB1

 +5        SET DITAB=DITAB-2

 +6        DO END

           DO EOJ

 +7        QUIT 

 +8       ;

BEGIN     ; BEGIN LINE

 +1        SET V="BEGIN:"_DIFG(DILL,"FNAME")_"^"_$SELECT(DIFG("PARM")["N":DIFG(DILL,"FILE"),1:"")

 +2        IF $DATA(Z)

               IF Z'=""

                   SET V=V_Z

                   SET Z=""

 +3        DO INCSET^DIFGGU

 +4        QUIT 

 +5       ;

 +6       ;

END       ; END LINE

 +1        SET V="END:"_DIFG(DILL,"FNAME")_"^"_$SELECT(DIFG("PARM")["N":DIFG(DILL,"FILE"),1:"")

 +2        DO INCSET^DIFGGU

 +3        QUIT 

 +4       ;

EOJ       ;

 +1        KILL DIFGSB(DILL)

 +2        KILL %,C,D0,J,S,V,X,Y,Z

 +3        QUIT