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: DDGLIBP

Package: VA FileMan

Routine: DDGLIBP


Information

DDGLIBP ;SFISC/MKO - PRINT FROM WITHIN SCREEN TOOLS ;13APR2016

Source Information

Source file <DDGLIBP.m>

Entry Points

Name Comments DBIA/ICR reference
PT(DDGLROOT,DDGLHDR) ;Prompt for device and print
DEVICE ;Device prompt
NONQUEUE ;Non-queued report
PRINT ;Print the document in DDGLREF, Header text in DDGLHDR
PRINTQ ;Delete the queued task and quit
HDR ;Print the header DDGLHDR; increment DDGLPAGE
YNREAD(DDGLPROM,DDGLDEF,DDGLHELP) ;Issue a Yes/No Read
EOPREAD ; Issue an End-of-Page Read
FORMAT(DDGLREF,DDGLZN,DDGLFLAG) ;Use ^DIWP to format the text
FINISH(DDGLMSG) ;Print message and reset terminal characteristics

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P(DDGLVID,DDGLDEL,9)
  • Line Location: PT+11
Function Call: WRITE
  • Prompt: @IOSTBM
  • Line Location: DEVICE+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEVICE+15
Function Call: WRITE
  • Prompt: !,"Report queued!",!,"Task number: "_ZTSK,!
  • Line Location: DEVICE+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NONQUEUE+2
Function Call: WRITE
  • Prompt: @IOSTBM
  • Condition for execution: $D(IOSTBM)#2
  • Line Location: NONQUEUE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !,$S(DDGLZN:$G(@DDGLREF@(DDGLI,0)),1:$G(@DDGLREF@(DDGLI)))
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: DDGLHDR
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?DDGLCOL,DDGLPSTR
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM-1)," ","-")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,DDGLMSG
  • Line Location: FINISH+1
Function Call: WRITE
  • Prompt: $P(DDGLVID,DDGLDEL,8)
  • Line Location: FINISH+6
Info |  Source |  Entry Points |  Interaction Calls