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

Package: VA FileMan

Routine: DIG


Information

DIG ;SFISC/GFT SUBTOTALS & SCATTERGRAM ;31MAY2012

Source Information

Source file <DIG.m>

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls