Routine: DDSPRNT2

Information

DDSPRNT2 ;SFISC/MKO-PRINT A FORM ;29JAN2004

Name	Comments	DBIA/ICR reference
BLOCK	;Print Block properties from Block file
FIELD	;Print Block properties
WR(DDSLAB,DDSVAL,DDSFLG)	;Write label and value
PCOL(DDSVAL,DDSCOL)	;Print DDSVAL starting in column DDSCOL
W(DDSSTR,DDSCOL)	;Write DDSSTR preceded by !?DDSCOL

Name	Line Occurrences
Function Call: WRITE	Prompt: !?DDSCOL2,"Field Field" Line Location: BLOCK+16
Function Call: WRITE	Prompt: !?DDSCOL2,"Order Properties" Line Location: BLOCK+17
Function Call: WRITE	Prompt: !?DDSCOL2,"----- ----------" Line Location: BLOCK+18
Function Call: WRITE	Prompt: ?DDSCOL2,"FIELD TYPE:" Line Location: FIELD+6
Function Call: WRITE	Prompt: ?DDSCOL3,$$EXTERNAL^DILFD(.4044,2,"",$P(DDSFD(0),U,3)) Line Location: FIELD+7
Function Call: WRITE	Prompt: ?DDSCOL2,DDSLAB Line Location: WR+4
Function Call: WRITE	Prompt: ?DDSCOL,$E(DDSVAL,DDSIND,DDSIND+DDSWIDTH-1) Line Location: PCOL+5
Function Call: WRITE	Prompt: !?+$G(DDSCOL),$G(DDSSTR) Line Location: W+2