Return to DIFGGSB.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DIFGGSB	;SFISC/XAK,EDE(OHPRD)-FILEGRAM SPECIAL BLOCK ;
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 	;EDE/OHPRD/IHS changed BEGEN/END line to match BNF
    5: 	;
    6: START	; (CALLED RECURSIVELY)
    7: 	K DIFGSB(DILL)
    8: 	D BEGIN
    9: 	S DITAB=DITAB+2
   10: 	D BODY^DIFGGSB1
   11: 	S DITAB=DITAB-2
   12: 	D END,EOJ
   13: 	Q
   14: 	;
   15: BEGIN	; BEGIN LINE
   16: 	S V="BEGIN:"_DIFG(DILL,"FNAME")_"^"_$S(DIFG("PARM")["N":DIFG(DILL,"FILE"),1:"")
   17: 	I $D(Z),Z'="" S V=V_Z,Z=""
   18: 	D INCSET^DIFGGU
   19: 	Q
   20: 	;
   21: 	;
   22: END	; END LINE
   23: 	S V="END:"_DIFG(DILL,"FNAME")_"^"_$S(DIFG("PARM")["N":DIFG(DILL,"FILE"),1:"")
   24: 	D INCSET^DIFGGU
   25: 	Q
   26: 	;
   27: EOJ	;
   28: 	K DIFGSB(DILL)
   29: 	K %,C,D0,J,S,V,X,Y,Z
   30: 	Q