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

Package: VA FileMan

Routine: DICRW


Information

DICRW ;SFISC/XAK-SELECT A FILE ;17SEP2010

Source Information

Source file <DICRW.m>

Entry Points

Name Comments DBIA/ICR reference
R
R2
AU
A
SUB
R1
DT ;
DTNOLF ; DT entry point without doing a line feed.
0
1
W ;
W1
DIC
GOT
WW
D
DIAR ;
T ; COMP/MERGE
WW1 ;;W:$X>53 !?9 I Y-1.1,Y-.6,$D(^DIC(+Y,0,"GL")),^("GL")'["[",$D(@(^("GL")_"0)")) S %=+$P(^(0),U,4) W ?40,$$EZBLD^DIALOG(%=1+8300,%) ;**CCO/NI NUMBER OF ENTRIES

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," No DD AUDIT entries!"
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DIC+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DIC+3
Function Call: WRITE
  • Prompt: D
  • Line Location: DIC+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DIC+3
Function Call: WRITE
  • Prompt: " There are no selectable files."
  • Line Location: DIC+4
Function Call: WRITE
  • Prompt: ?40,$$EZBLD^DIALOG(%=1+8300,%)
  • Line Location: WW1+0
Info |  Source |  Entry Points |  Interaction Calls