DDSPRNT1 ;SFISC/MKO-PRINT A FORM ;11:49 AM 17 Nov 1994 ;;22.0;VA FileMan;;Mar 30, 1999 ;Per VHA Directive 10-93-142, this routine should not be modified. ; PAGE ;Print page properties I $Y+7'DDSCOL3 N DDSCOL3 S DDSCOL3=$X+1 D PCOL(DDSVAL,DDSCOL3) Q ; PCOL(DDSVAL,DDSCOL) ;Print DDSVAL starting in column DDSCOL N DDSWIDTH,DDSIND S DDSWIDTH=IOM-DDSCOL-1 F DDSIND=1:DDSWIDTH:$L(DDSVAL) D Q:$D(DIRUT) . I DDSIND>1 D W() Q:$D(DIRUT) . W ?DDSCOL,$E(DDSVAL,DDSIND,DDSIND+DDSWIDTH-1) Q ; W(DDSSTR,DDSCOL) ;Write DDSSTR preceded by !?DDSCOL I $Y+3'