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

Package: VA FileMan

Routine: DIG


Information

DIG ;SFISC/GFT SUBTOTALS & SCATTERGRAM ;31MAY2012

Source Information

Source file <DIG.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 H^%DTC  CLOSE^DIO4  $$SET^DIQ  ^DIR  $$DATE^DIUTL  
Kernel 2 ^%ZIS  ^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
VA FileMan 1 DIXC  

Entry Points

Name Comments DBIA/ICR reference
DQ
NUMNUM
DYI
LOOP
I2
I3
O
END
Q
X
S(C)
I
STATS(NA,DELIM) ;CROSS-TABS
1
2
3
ALL2
RUN(RUN,DIGTYPE)
EOP ;
PAR(DIGB,RUN,DIGTYPE)
TOP(H)
SHD
SUBTOP
CAPT(N)
TAB(N)
J(VALUE,SPACE)
DIGC
E(VALUE,XY) ;2=Y,1=X
EE()
P
PP
QUE ;

External References

Name Field # of Occurrence
H^%DTC I2+1, I3, S
^%ZIS DIG+8
^%ZTLOAD QUE+3
CLOSE^DIO4 Q
$$SET^DIQ EE+4
^DIR EOP+3
$$DATE^DIUTL EE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "NO SUB-SUB TOTALS WERE RUN"
  • Line Location: DIG+7
Function Call: WRITE
  • Prompt: !?5,"(TOTAL = "_B_")",!
  • Line Location: I2+0
Function Call: WRITE
  • Prompt: !?12,"."
  • Line Location: O+0
Function Call: WRITE
  • Prompt: !
  • Line Location: O+1
Function Call: WRITE
  • Prompt: ?12-$L(Y(Y)),Y(Y),"+"
  • Line Location: O+2
Function Call: WRITE
  • Prompt: ?12,"|"
  • Line Location: O+3
Function Call: WRITE
  • Prompt: ?X+13,$S(I>9:"*",I:I,1:"")
  • Line Location: O+4
Function Call: WRITE
  • Prompt: "+",Y(Y)
  • Line Location: O+5
Function Call: WRITE
  • Prompt: !
  • Line Location: O+7
Function Call: WRITE
  • Prompt: !?22,"X-AXIS: ",$P(DIGC(2),U,3)," Y-AXIS: ",$P(DIGC(1),U,3)
  • Line Location: O+7
Function Call: WRITE
  • Prompt: ?B-DXMIN\DXSC-($L(Y)\2)+13,Y
  • Line Location: X+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: $$CAPT(1),!
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: $$E(Y,1)
  • Line Location: 1+8
Function Call: WRITE
  • Prompt: $$J(X,L)
  • Line Location: 1+8
Function Call: WRITE
  • Prompt: "TOTAL"
  • Line Location: 1+9
Function Call: WRITE
  • Prompt: $$J(%T,L)
  • Line Location: 1+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: RUN+9
Function Call: WRITE
  • Prompt: $$E(Y,2)
  • Line Location: RUN+9
Function Call: WRITE
  • Prompt: $$J(+%T,L)
  • Line Location: RUN+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: RUN+13
Function Call: WRITE
  • Prompt: $E(X,1,L)
  • Line Location: RUN+13
Function Call: WRITE
  • Prompt: $E(X,1,L)
  • Line Location: RUN+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: RUN+14
Function Call: WRITE
  • Prompt: "TOTALS"
  • Line Location: RUN+14
Function Call: WRITE
  • Prompt: "TOTALS"
  • Line Location: RUN+14
Function Call: WRITE
  • Prompt: $$J(%T,LT)
  • Line Location: RUN+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: EOP+1
Function Call: WRITE
  • Prompt: !,"MARGIN WIDTH OF ",IOM," IS TOO SMALL FOR DISPLAY",!,"USE WIDTH OF AT LEAST ",Y
  • Line Location: PAR+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: TOP+3
Function Call: WRITE
  • Prompt: " OF '",$P(X,U,3),"'"
  • Line Location: TOP+8
Function Call: WRITE
  • Prompt: !,?IOM-$L(^("SHD"))\2,^("SHD")
  • Line Location: SHD+0
Function Call: WRITE
  • Prompt: !!?1,$$CAPT(3),": ",$$E(DIG3,3),!
  • Line Location: SUBTOP+1
Function Call: WRITE
  • Prompt: !?2,$P(Y," ",X)
  • Line Location: SUBTOP+2
Function Call: WRITE
  • Prompt: ?(IOM-I-LT-$L(Y)\2+I+4),Y,!
  • Line Location: SUBTOP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBTOP+4
Function Call: WRITE
  • Prompt: $$J($G(DIGSUB(Y,X)),L)
  • Line Location: SUBTOP+4
Function Call: WRITE
  • Prompt: $$J($$E(X,1),L)
  • Line Location: SUBTOP+5
Function Call: WRITE
  • Prompt: $$J("TOTAL",LT)
  • Line Location: SUBTOP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBTOP+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SUBTOP+7
Function Call: WRITE
  • Prompt: ?N
  • Line Location: TAB+1
Function Call: WRITE
  • Prompt: "+"
  • Line Location: PP+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PP+1
Routine Call
  • DIR
  • Line Location:
    • EOP+3
Routine Call
  • %ZIS
  • Line Location:
    • DIG+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZTSK - [#14.4] DIG+8
^DD( TOP+6, DIGC+3
^DD("DD" TOP+9
^DOSV(0 DIG+7, DQ+1, END+1!
^TMP("DIG" 3+1!*, 3+7
^UTILITY($J LOOP!, I3+1, O+4

Label References

Name Line Occurrences
$$CAPT 1+4, SUBTOP+1, SUBTOP+2, SUBTOP+3
$$E O, X, 1+2, 1+8, RUN+9, PAR+8, PAR+10, SUBTOP+1
$$EE E+2
$$J 1+8, 1+9, RUN+10, RUN+11, RUN+14, RUN+15, SUBTOP+4, SUBTOP+6
$$PAR 3+4, RUN+2
ALL2 2, 3+6, 3+7
DIGC NUMNUM+1, STATS+2
DYI DYI
END LOOP+1, 1, 2, 3+4, 3+6, 3+8, QUE+3
EOP O+8, 1+7, 1+9, RUN+8
I I
I2 I3
I3 I3+2
LOOP LOOP+3
O I2
P O, O+7
PP PP+2
Q 1, RUN+6
QUE DIG+9
RUN ALL2
S NUMNUM+3, DYI+2
STATS DQ+4
SUBTOP RUN+3, RUN+7
TAB 1+4, 1+8, 1+9, RUN+9, RUN+13, RUN+14, SUBTOP+4
TOP LOOP+2, 1+4, 1+7, RUN+3, RUN+7
X O, O+7

Naked Globals

Name Field # of Occurrence
^( DQ+2, DQ+3, I3+1*, O+4, 1+1, 1+2, 1+6, 3+3*, PAR+9, DIGC+2
^("" DQ+3
^("HD" TOP+3
^("N" I3+1
^("SHD" SHD
^(0 DIGC+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PAR+5~, PAR+10*
%D NUMNUM~, RUN~
%DT EE~
%H NUMNUM~, I2+1, I3, S, RUN~
%T NUMNUM~, STATS+1~, 1+5*, 1+8*, 1+9, RUN+10*, RUN+14*, RUN+15
%Y NUMNUM~, RUN~
>> %ZIS DIG+8*
A 3~, 3+1*, 3+2*
B NUMNUM~, NUMNUM+4, DYI, DYI+3, LOOP+3*, I2, I3+1*, O*, X*, S*
, S+1*, S+2, S+3*, I, I+1, 3~, 3+2*, 3+3
C I3*, I3+1*, S~, S+1*, S+2*, 3~, 3+2*, 3+3, RUN~, PAR+7*
, PAR+10*, PAR+11, PAR+13, PAR+15, DIGC~, DIGC+1*, DIGC+2*, DIGC+3
D 3~, 3+2*, 3+3
DC TOP~, TOP+2*
DELIM STATS~, RUN+13, PAR+14, SUBTOP+7, TAB, J, E+2
DIG3 STATS+1~, 3+6*, 3+7*, RUN+1, SUBTOP+1
DIG3( 3+5*, RUN+1
DIGB STATS+1~, 2*, 3+6*, 3+7*, RUN+2, RUN+4, RUN+6, RUN+10, PAR~, PAR+8
, PAR+9
DIGC NUMNUM~, STATS+1~
DIGC( S, CAPT, DIGC+2*, DIGC+3*, EE+1, EE+2, EE+3, EE+4
DIGC(1 I3, O+7
DIGC(2 I2+1, O+7
DIGCOL STATS+1~, RUN~, PAR+6!
DIGCOL( RUN+10, RUN+14, PAR+9, PAR+10*, PAR+12, SUBTOP+4
DIGPG NUMNUM~, STATS+1~, STATS+2*, TOP+2, TOP+10, SHD+1*
DIGSUB STATS+1~, PAR+6!
DIGSUB( PAR+10*, PAR+12*!, SUBTOP+4
DIGSUB("" PAR+12
DIGTYPE NUMNUM~, LOOP+1*, STATS+1~, 1+1*, 1+2, 1+6, 1+8, 3+4*, 3+5, ALL2*
, RUN~, RUN+1, RUN+2, RUN+10, PAR~, PAR+9, TOP+7
DIR EOP+2~
DIR(0 EOP+3*
DT TOP+9
DUOUT STATS+1~, 1, 1+1, 1+6, 1+7, 3+4, 3+6, ALL2, RUN+6, RUN+7
, PAR+14*
DX NUMNUM~, LOOP+3*, I2*, I3, RUN~, PAR+5~, PAR+10*
DX( RUN+10*, RUN+14
DXI DQ~, DYI+3*, O+7, X
DXMAX DQ~, DQ+2*, DQ+3*, DQ+4, DYI+1, DYI+3*, X
DXMIN DQ~, DQ+2*, DQ+4, DYI+1, DYI+3*, I2+2, X
DXS NUMNUM~, DYI+1*, DYI+3, O+5, RUN~, PP+2
DXSC NUMNUM~, DYI+3*, I2+2, X, RUN~
DY DQ+3*, NUMNUM~, LOOP+3*, I3*, I3+1, PAR+5~, PAR+8*
DYI DQ~, NUMNUM+4*, DYI*, O
DYMAX DQ~, DQ+2*, DQ+3*, DQ+4, NUMNUM+2, NUMNUM+4*, O
DYMIN DQ~, DQ+2*, DQ+3*, DQ+4, NUMNUM+2, NUMNUM+4*, I3+1, O
DYS NUMNUM~, NUMNUM+2*, DYI, O, O+1, RUN~
DYSC NUMNUM~, NUMNUM+4*, I3+1, RUN~
E 3~, 3+2*, 3+3
F CAPT~*
H NUMNUM~, NUMNUM+2*, DYI+1*, DYI+4*, LOOP+1*, LOOP+2, I3+1, S+1, S+4, STATS+1~
, 1+1*, 1+2, 1+4, 1+6, 1+7, 1+8, TOP~, TOP+5
I NUMNUM~, NUMNUM+4, DYI+3, O+4*, S+2*, S+3*, S+4*, I*, I+1*, STATS+1~
, 1+2*, 1+3, 1+8, 1+9, RUN+9, RUN+13, RUN+14, PAR+7*, PAR+8*, PAR+13
, PAR+16*, SUBTOP+3, SUBTOP+4
IO TOP+1
IO("Q" DIG+9
IO(0 DIG+7, DQ+1, END+1
IOF END, TOP+1
IOM DYI+1, RUN+12, PAR+14, PAR+15, PAR+16, TOP+11, SHD, SUBTOP+3, SUBTOP+7, QUE+2
ION QUE+2
IOP DIG+8~
IOSL NUMNUM+2, 1+7, RUN+7, QUE+2
IOST END, EOP+1, QUE+2
L NUMNUM~, NUMNUM+2*, DYI+1*, O*, S+1, S+3, STATS+1~, 1+2*, 1+3, 1+8
, 1+9, RUN+10, RUN+13, RUN+14, PAR+7*, PAR+9*, PAR+10*, PAR+13, PAR+15*, SUBTOP+4
, P*, PP*
LT STATS+1~, RUN+11, RUN+13, RUN+15, PAR+15*, SUBTOP+3, SUBTOP+6
N DQ~, NUMNUM+2*, DYI+1*, I, I+1, RUN+10*, RUN+13*, RUN+14*, CAPT~*, CAPT+1
, TAB~, TAB+1
NA DQ~, DQ+1*, DQ+2, DQ+3, DQ+4, LOOP+1, I2, I3, STATS~, 1
, 1+1, 1+2, 1+6, 1+8, 2, 3+1, 3+2, 3+4, 3+6, 3+7*
, ALL2, TOP+2, TOP+5, SHD, DIGC+1
NAT 3~, 3+1*, 3+3, 3+4, 3+7
POP DIG+8~
RUN STATS+1~, 3+4*, 3+5, ALL2*, RUN~, RUN+1, RUN+2, RUN+3, RUN+7, RUN+10
, PAR~, PAR+9
S PAR+5~, PAR+10*
SPACE J~, J+1
T NUMNUM~, NUMNUM+4, DYI, DYI+3*, S+4*, I, I+1, RUN~, RUN+9~, RUN+10*
, RUN+11, PP
U LOOP+3, O+7, 1+1, ALL2, TOP+8, CAPT, CAPT+1, DIGC+3, EE+1, EE+4
VALUE J~, J+1, E~, E+1*, EE+1*, EE+2, EE+3, EE+4, EE+5
X DQ+2*, DQ+3*, NUMNUM~, NUMNUM+4, DYI+3, LOOP+3, I2*, I2+1*, I2+2*, I3*
, I3+1, O*, O+4*, O+7*, X, S*, S+1*, S+2*, S+3, S+4
, I*, I+1*, 1+8*, 3+5*, RUN~, RUN+1*, RUN+9*, RUN+10*, RUN+12*, RUN+13
, RUN+14*, EOP+2~, PAR+8*, PAR+9*, PAR+10, PAR+12*, TOP~, TOP+5*, TOP+6, TOP+8
, SUBTOP+2*, SUBTOP+4*, DIGC~, DIGC+1*, DIGC+2, P*, PP, PP+2*
XY E~, E+1, EE+1, EE+2, EE+3, EE+4
Y DQ+3*, NUMNUM~, I3*, I3+1*, O!, O+1*, O+2, O+4, O+5, X*
, 1+2*, 1+5*, 1+6*, 1+8, RUN~, RUN+5*, RUN+6*, RUN+9, RUN+10, EOP+2~
, PAR+5~, PAR+7*, PAR+8*, PAR+9, PAR+12*, PAR+13*, PAR+14, PAR+15*, PAR+16, TOP~
, TOP+9*, TOP+10*, TOP+11, SUBTOP~, SUBTOP+2*, SUBTOP+3*, SUBTOP+4*, SUBTOP+7*, EE~, EE+4*
Y( O*, O+2, O+5
>> ZTIO QUE+2*
>> ZTRTN QUE+2*
>> ZTSAVE("^DOSV(0,$I," QUE+1*
ZTSK DIG+8~, END+1, QUE+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All