- 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