Routine: DDSPRNT1

Information

DDSPRNT1 ;SFISC/MKO-PRINT A FORM ;9DEC2003

Name	Comments	DBIA/ICR reference
PAGE	;Print page properties
BLOCK	;Print Block properties
HBLKS	;Header blocks
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: !,"Page Page" Line Location: PAGE+3
Function Call: WRITE	Prompt: !,"Number Properties" Line Location: PAGE+4
Function Call: WRITE	Prompt: !,"------ ----------" Line Location: PAGE+5
Function Call: WRITE	Prompt: ?DDSCOL1,$P(DDSPG(0),U),?DDSCOL2,$P(DDSPG(1),U) Line Location: PAGE+13
Function Call: WRITE	Prompt: !?DDSCOL2,"Block Block" Line Location: PAGE+41
Function Call: WRITE	Prompt: !?DDSCOL2,"Order Properties (Form File)" Line Location: PAGE+42
Function Call: WRITE	Prompt: !?DDSCOL2,"----- ----------------------" Line Location: PAGE+43
Function Call: WRITE	Prompt: ?DDSCOL2,$P($G(^DIST(.404,DDSBK,0)),U)_" (#"_DDSBK_")" Line Location: BLOCK+6
Function Call: WRITE	Prompt: !!?DDSCOL2,"Block Properties (Block File)" Line Location: BLOCK+27
Function Call: WRITE	Prompt: !,?DDSCOL2,"-----------------------------" Line Location: BLOCK+28
Function Call: WRITE	Prompt: !!,"Header Block Properties" Line Location: HBLKS+3
Function Call: WRITE	Prompt: !,"------------------------" Line Location: HBLKS+4
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