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

Package: VA FileMan

Routine: DIVR1


Information

DIVR1 ;SFISC/DCM-VERIFY FIELDS API ;9:16 AM 1 Jul 1999

Source Information

Source file <DIVR1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DQ
DIVRFILE
DIVRREC
ONE
DIVRDR
SET
XDE
MULT
R
P
V
S
D
N
K
F
IT
X
IEN
DE99(FI,FD,NP) ;
Q
FF
H1
H2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,?20,"*** NO ERRORS FOUND ***"
  • Line Location: DQ+7
Function Call: WRITE
  • Prompt: !!?TAB,$P(^DD(DIVRFILE,FLD,0),U)_" (#"_FLD_")",?40,W
  • Line Location: SET+7
Function Call: WRITE
  • Prompt: !?5,@("D"_Z),?15,$P(^(@("D"_Z),0),U)
  • Line Location: IEN+2
Function Call: WRITE
  • Prompt: !,@("D"_Z),?10,$P(^(@("D"_Z),0),U)
  • Line Location: IEN+5
Function Call: WRITE
  • Prompt: " (",K(Z),")"
  • Condition for execution: Z
  • Line Location: IEN+5
Function Call: WRITE
  • Prompt: " (",K(Z),")"
  • Condition for execution: Z
  • Line Location: IEN+6
Function Call: WRITE
  • Prompt: !?5,$P(^DD(DIVRFILE,FLD,0),U)," (#",FLD,")",?35,W,?50,M
  • Line Location: IEN+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: V
  • Line Location: IEN+6
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: "Verify Fields File: ",DIVRFI0_" "_DIVRFINM,?(IOM-25)
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: DATE
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: DATE
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,"Field Name (Field #)",?40,"Type"
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !?5,"Entry #",?15,"Name",?50,"ERROR"
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: H1+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: H1+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: "Verify Fields File: ",DIVRFI0_" "_DIVRFINM,?(IOM-25)
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: DATE
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: DATE
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,"Entry #",?10,"Name"
  • Line Location: H2+1
Function Call: WRITE
  • Prompt: !?5,"Field Name (Field #)",?35,"Type",?50,"ERROR"
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: H2+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: H2+3
Info |  Source |  Entry Points |  Interaction Calls