Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DIVR1

Package: VA Fileman

Routine: DIVR1


Information

DIVR1 ;SFISC/DCM-VERIFY FIELDS API ;9:16 AM 1 Jul 1999 [ 04/02/2003 8:25 AM ]

Source Information

Source file <DIVR1.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA Fileman 11 (,DD)^%DT  $$GET1^DID  $$VENTRY^DIEFU  ($$VFIELD,$$VFILE)^DILFD  $$FNO^DILIBF  ^DIM  GET^DIOU  ^DIR  
$$IENCHK^DIT3  DIVROUT^DIV  (DE,DIBT,IJ)^DIVU  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
VA Fileman 1 DIV  

Entry Points

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

External References

Name Field # of Occurrence
^%DT D+1
DD^%DT DQ+4
^%ZIS EN+3
^%ZISC Q
^%ZTLOAD EN+4
$$GET1^DID DIVRFILE+2
$$VENTRY^DIEFU DIVRREC+4, ONE+1
$$VFIELD^DILFD DIVRDR+9
$$VFILE^DILFD DIVRFILE+1
$$FNO^DILIBF DIVRFILE+2
^DIM K
GET^DIOU DE99+2
^DIR FF
$$IENCHK^DIT3 ONE
DIVROUT^DIV DQ+8
DE^DIVU XDE+2
DIBT^DIVU DIVRREC+3
IJ^DIVU DIVRREC+1, DIVRREC+4, DIVRREC+6, DIVRREC+8, MULT+3

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
Routine Call
  • DIR
  • Line Location:
    • FF
Routine Call
  • %ZIS
  • Line Location:
    • EN+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( DIVRDR+4, DIVRDR+7, DIVRDR+8, SET+1, SET+5, SET+7, SET+8, MULT+1, MULT+4, V+2
, IEN+6
^DD("KEY" - [#.31] SET+9
^DIBT( DIVRREC+4
^TMP("DIERR" DQ+1!
^TMP("DIVR1" DQ+1!, DQ+7, X*

Label References

Name Line Occurrences
@( R+4
DE99 XDE+3
DIVRDR DIVRREC+1, DIVRREC+4, ONE+5
DIVRFILE DQ+5
DIVRREC DQ+6
F P, V+4, D+2, N+1
FF SET+7, MULT, IEN
H1 DIVRREC+1
H2 DIVRREC+4, DIVRREC+6, DIVRREC+8, FF+1
MULT SET+6
ONE DIVRREC+7
Q DQ+7, DQ+8
SET DIVRDR+4, DIVRDR+8, DIVRDR+9, MULT+4
X R+3, P+1, V, V+2, V+3, S, S+1, D+1, N, K
, F
XDE SET+10

Naked Globals

Name Field # of Occurrence
^( IEN+2, IEN+3, IEN+5, IEN+6
^(0 V+1, IEN+3, IEN+6
^(12.1 SET+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ONE+2~, ONE+4*
%DT D~
%Y IT+1~*
%ZIS EN+2~, EN+3*
D ONE+2~, ONE+4*~
D0 DIVRREC+3~, DIVRREC+4*
DA DQ~, MULT+2~, X
DA( X
DATE DQ~, DQ+4*, H1, H2
DE DQ~, DIVRREC+4*, XDE+1*, XDE+2*, XDE+4, MULT+2~
DE(99 DE99+3*
DEPTH ONE+2~, ONE+3*, ONE+4, ONE+5
>> DIC("S" SET+8
>> DIERR DQ+5, DQ+7
DIR FF~
DIR(0 FF*
DIRUT DQ~, DIVRREC+4, DIVRDR+4, DIVRDR+5, DIVRDR+8, SET+7, MULT, MULT+4, IEN, FF
DIUTIL DQ~, DQ+3*
>> DIVRDR DIVRDR+2*, DIVRDR+3, DIVRDR+5
DIVRFI0 DQ~, DIVRFILE+2*, DIVRREC+3, DIVRREC+4, H1, H2
DIVRFIIN DQ~, DIVRFILE*, DIVRREC+1, DIVRREC+6, DIVRREC+8, ONE, ONE+1, XDE+1
DIVRFILE DIVRFILE*, DIVRFILE+1, DIVRFILE+2, DIVRDR+4, DIVRDR+7, DIVRDR+8, DIVRDR+9, SET+1, SET+7, SET+8
, SET+9, XDE+1, XDE+2, XDE+3, MULT+1, MULT+2~, MULT+3*, MULT+4, V+2, IEN+6
DIVRFINM DQ~, DIVRFILE+2*, H1, H2
>> DIVROUT X
>> DIVRREC EN+1*, EN+4, DIVRREC, DIVRREC+1, DIVRREC+2, DIVRREC+3, DIVRREC+5, DIVRREC+7*, ONE, ONE+1
, ONE+3, ONE+4, X
>> DIVRREC( DIVRREC+7
DS DIVRREC+3~, DIVRREC+4*, ONE+2~, ONE+5*, XDE+2
DT DQ+4
END DIVRDR~, DIVRDR+7*, DIVRDR+8
F DIVRDR~, DIVRDR+1*, XDE, XDE+2*, MULT+2~, MULT+3*
FD DE99~, DE99+2
FI DE99~, DE99+2
FLD DIVRDR~, DIVRDR+1*, DIVRDR+4*, DIVRDR+7*, DIVRDR+8*, DIVRDR+9*, SET+1, SET+7, SET+8, SET+9
, XDE+3, MULT+1, MULT+2~, MULT+3*, MULT+4*, V+2, IEN+6
I DQ~, DIVRREC+6~*, DIVRREC+7*, MULT+2~
I( IEN+2, IEN+5
I(0 X+1
IO DQ+3
IO("Q" EN+4
IOF H1, H2
IOM H1, H1+3, H2, H2+3
IOSL SET+7, MULT, IEN
IOST FF
IT SET~, SET+1*, SET+8*, S, D*, D+1, IT+1
IT(1 SET+8*
J DQ~, MULT+2~
K DQ~, MULT+2~
K( IEN+5, IEN+6
KEY SET~, SET+9*, R, R+1
L H1+3~*, H2+3~*
M SET~, R+1*, R+2*, P+1*, V*, V+1*, V+2*, V+3*, S*, S+1*
, D+1*, N*, K*, F*, IT*, IEN+3, IEN+6
NP DE99~
OUT DIVRDR~
PC DIVRDR~, DIVRDR+5*, DIVRDR+7, DIVRDR+9
PC3 SET~, SET+1*, P, S+1
PG DQ~, DQ+3*, H1, H1+4*, H2, H2+4*
POP EN+2~, EN+3
Q DIVRDR~, DIVRDR+1*, V, S, S+1, IT
R DQ~, DIVRREC*, DIVRREC+1*, SET+7, XDE+1, MULT+1, X, IEN+1, IEN+4, FF+1
REC DQ~, DQ+3*
S DIVRDR~, DIVRDR+1*, DIVRDR+5, V, V+1, V+3, S+1
SUB EN+2~, EN+4*
T SET~, SET+2*, SET+3, R+4
TAB DQ~, DQ+3*, SET+7, MULT+1, MULT+3*, MULT+5*
TYP SET~, SET+1*, SET+2, SET+4, SET+5, SET+6, SET+8, MULT+3, R, S
, D+1, N, IT
U SET+1, SET+5, SET+7, XDE+2, MULT+1, V+1, V+2, V+3, IEN+2, IEN+3
, IEN+5, IEN+6
V DQ~, MULT+2~, MULT+5, X, IEN+2, IEN+3, IEN+5, IEN+6
W SET~, SET+3*, SET+7, IEN+6
X R, R+1, P+1, V, V+1, V+3, S, S+1, N, K
, F, IT, X*, IEN+2*, IEN+5*, FF~
Y DQ~, DQ+4*, DIVRREC+3~, DIVRREC+4, DIVRDR~, SET~, SET+1*, S*, D~*, D+1
, F~*, IT, IT+1*, DE99+1~, DE99+2, DE99+3, FF~
Y(0 SET+1*
Z DIVRDR~, DIVRDR+5*, DIVRDR+6~, X*, IEN+2*, IEN+3, IEN+5*, IEN+6
>> ZTQUEUED DQ+2
>> ZTREQ DQ+2*
ZTRTN EN+2~, EN+4*
ZTSAVE EN+2~
ZTSAVE( EN+4*
ZTSAVE("DIVRDR" EN+4*
ZTSAVE("DIVRFILE" EN+4*
ZTSAVE("DIVROUT" EN+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All