Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DIFGGSB

DIFGGSB.m

Go to the documentation of this file.
  1. DIFGGSB ;SFISC/XAK,EDE(OHPRD)-FILEGRAM SPECIAL BLOCK ;
  1. ;;22.0;VA FileMan;;Mar 30, 1999
  1. ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;EDE/OHPRD/IHS changed BEGEN/END line to match BNF
  1. ;
  1. START ; (CALLED RECURSIVELY)
  1. K DIFGSB(DILL)
  1. D BEGIN
  1. S DITAB=DITAB+2
  1. D BODY^DIFGGSB1
  1. S DITAB=DITAB-2
  1. D END,EOJ
  1. Q
  1. ;
  1. BEGIN ; BEGIN LINE
  1. S V="BEGIN:"_DIFG(DILL,"FNAME")_"^"_$S(DIFG("PARM")["N":DIFG(DILL,"FILE"),1:"")
  1. I $D(Z),Z'="" S V=V_Z,Z=""
  1. D INCSET^DIFGGU
  1. Q
  1. ;
  1. ;
  1. END ; END LINE
  1. S V="END:"_DIFG(DILL,"FNAME")_"^"_$S(DIFG("PARM")["N":DIFG(DILL,"FILE"),1:"")
  1. D INCSET^DIFGGU
  1. Q
  1. ;
  1. EOJ ;
  1. K DIFGSB(DILL)
  1. K %,C,D0,J,S,V,X,Y,Z
  1. Q