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

Package: VA FileMan

Routine: DIDG


Information

DIDG ;SFISC/RWF-GLOBAL MAP ;10JAN2006

Source Information

Source file <DIDG.m>

Entry Points

Name Comments DBIA/ICR reference
UP
L
A
B
PUSH
POP
END ;
T1
Q
TEMPL
WL
W
HD
HDR ;
H1
FORM ;
BLOCK ;
BLOCKQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: S
  • Line Location: DIDG+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DIDG+8
Function Call: WRITE
  • Prompt: W
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !,DID(Z)_"0)=^"_$P(Y,U,2)_"^^ (#",N,") "_$P(Y,U,1)
  • Line Location: PUSH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: POP+0
Function Call: WRITE
  • Prompt: !!,$S(S<4:$P("INPU^PRIN^SOR",U,S)_"T TEMPLATE(S):",1:"FORM(S)/BLOCK(S):")
  • Line Location: T1+1
Function Call: WRITE
  • Prompt: !,DFF,"("_DUB_")= ",$P(%1,U)_" "_%
  • Line Location: TEMPL+3
Function Call: WRITE
  • Prompt: !,?$L(DID(Z)),"==>"
  • Condition for execution: $X+$L(Y)+2>IOM
  • Line Location: WL+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: WL+1
Function Call: WRITE
  • Prompt: W:$X+$L(W)+3>IOM
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,?$S(IOM-$L(W)-5<M:IOM-5-$L(W),1:M),S
  • Condition for execution: $X+$L(W)+3>IOM
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $E(W,1,IOM-$X-1),S
  • Line Location: W+0
Function Call: WRITE
  • Prompt: G
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,DID(Z),")= "
  • Line Location: HD+0
Function Call: READ
  • Variable: M
  • Timeout: DTIME
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(DIFF)&($Y)
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: "TEMPLATE LIST -- FILE #"_DIB,?(IOM-20),$$OUT^DIALOGU(DT,"FMTE","2D")_" "_$$EZBLD^DIALOG(7095,DC)
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,M
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !,"^DIST(.403,"_DUB_")= ",$P(%1,U)_" "_%
  • Line Location: FORM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FORM+8
Function Call: WRITE
  • Prompt: !?2,"^DIST(.404,"_B_")= ",$P(%1,U)
  • Line Location: BLOCK+7
Info |  Source |  Entry Points |  Interaction Calls