source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIFGGSB.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 651 bytes
Line 
1DIFGGSB ;SFISC/XAK,EDE(OHPRD)-FILEGRAM SPECIAL BLOCK ;
2 ;;22.0;VA FileMan;;Mar 30, 1999
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 ;
6START ; (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 ;
15BEGIN ; 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 ;
22END ; END LINE
23 S V="END:"_DIFG(DILL,"FNAME")_"^"_$S(DIFG("PARM")["N":DIFG(DILL,"FILE"),1:"")
24 D INCSET^DIFGGU
25 Q
26 ;
27EOJ ;
28 K DIFGSB(DILL)
29 K %,C,D0,J,S,V,X,Y,Z
30 Q
Note: See TracBrowser for help on using the repository browser.