DIFGGSB ;SFISC/XAK,EDE(OHPRD)-FILEGRAM SPECIAL BLOCK ;Jan 05, 2015
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIFGGSB 900 printed Dec 13, 2024@02:47:51 Page 2
DIFGGSB ;SFISC/XAK,EDE(OHPRD)-FILEGRAM SPECIAL BLOCK ;Jan 05, 2015
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 ;EDE/OHPRD/IHS changed BEGEN/END line to match BNF
+8 ;
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
