Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DDSPRNT

Package: VA FileMan

Routine: DDSPRNT


Information

DDSPRNT ;SFISC/MKO-PRINT A FORM ;02:51 PM 18 Nov 1994

Source Information

Source file <DDSPRNT.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;Entry point for queued reports
FORM ;Form data
WR(DDSLAB,DDSVAL,DDSFLG) ;Write label and value
PCOL(DDSVAL,DDSCOL) ;Print DDSVAL
WP(DDSWP,DIWL,DDSLF) ;Print text in array @DDSWP
W(DDSSTR,DDSCOL) ;Write DDSSTR
HEADER ;All headers except first
HDR1 ;First header for CRTs
HDR2 ;First header for non-CRTs
SELFORM(DDSFORM) ;Select form
PAGEBRK(DDSPBRK) ;Prompt
INIT ;Setup
END ;Finish up

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DDSPRNT+15
Function Call: WRITE
  • Prompt: !,"Report queued!",!,"Task number: "_$G(ZTSK),!
  • Line Location: DDSPRNT+24
Function Call: WRITE
  • Prompt: !,"Report canceled!",!
  • Line Location: DDSPRNT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: FORM+1
Function Call: WRITE
  • Prompt: ?49,"READ ACCESS: "_$P(DDSFORM(0),U,2)
  • Line Location: FORM+8
Function Call: WRITE
  • Prompt: ?48,"WRITE ACCESS: "_$P(DDSFORM(0),U,3)
  • Line Location: FORM+10
Function Call: WRITE
  • Prompt: ?53,"CREATOR: "_$P(DDSFORM(0),U,4)
  • Line Location: FORM+12
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: ?DIWL-1,$G(^UTILITY($J,"W",DIWL,1,0))
  • Line Location: WP+18
Function Call: WRITE
  • Prompt: !?+$G(DDSCOL),$G(DDSSTR)
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: "FORM LISTING - "_$P(DDSFORM,U,2)_" (#"_+DDSFORM_")"
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: !,"FILE: "_DDSFILE
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: ?(IOM-$L(DDSHLIN)-$L(DDSPAGE)-1),DDSHLIN_DDSPAGE
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM-1)," ","-")
  • Line Location: HDR2+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGEBRK+5
Info |  Source |  Entry Points |  Interaction Calls