Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: KMPUGV

KMPUGV.m

Go to the documentation of this file.
  1. KMPUGV ;SFISC/RAK - Capacity Management Graphics (Vertical Graphs);23 Oct 1998
  1.  ;;1.0;CAPACITY MANAGEMENT;;Oct 27, 1998
  1. EN ;-- entry point.
  1.  D DRAW,TITLES,DATA W IOG0
  1.  I $D(KMPUTAR) D  Q
  1.  .D WP^KMPU11(KMPUTAR,5,24,(RIGHT+5),IOM,1)
  1.  D CONT^KMPUG
  1.  Q
  1.  ;
  1. DATA ;-- display data in graph.
  1.  W IOG0 S DX=$S(KMPUOPT["D":9,1:10),BAR=0,I=0
  1.  F  S I=$O(@KMPUAR@(I)) Q:I=""  I $D(@KMPUAR@(I,0)) S DATA=@KMPUAR@(I,0) D 
  1.  .S XCOORD=$P(DATA,U,2),END=(XCOORD-KMPUSTRT) ;-STEP)
  1.  .S DY=14,DX=DX+$S(KMPUOPT["D":2,1:1)
  1.  .; if no data quit
  1.  .Q:$P(@KMPUAR@(I,0),U,2)']""
  1.  .F I1=0:STEP:END X IOXY W @BAR(BAR),! S DY=DY-1 Q:DY=5
  1.  .S BAR=$S(BAR=1:0,1:1)
  1.  Q
  1.  ;
  1. DRAW ;-- draw graph.
  1.  S RIGHT=$S(KMPUOPT["D":(YNUM*2),1:(YNUM+1))+10
  1.  W @IOF,!,IOG1 S DX=10
  1.  ; draw left line
  1.  F I=1:1:6 S DY=4+I X IOXY W IOVL S DY=15-I X IOXY W IOVL
  1.  ; draw left top corner ;and bottom corners
  1.  ;S DY=4 X IOXY W IOTLC ;S DY=15 X IOXY W IOBLC,!
  1.  ; draw top and bottom lines
  1.  ;F DX=(DX+1):1:(RIGHT-1) S DY=5 X IOXY W IOHL,! S DY=15 X IOXY W "s",!
  1.  F DX=(DX+1):1:(RIGHT-1) S DY=14 X IOXY W "s",!
  1.  ; draw right top corner ;and bottom corners
  1.  ;S DX=RIGHT,DY=5 X IOXY W IOTRC ;S DY=15 X IOXY W IOBRC,!
  1.  ; draw right line
  1.  S DX=RIGHT F I=1:1:6 S DY=4+I X IOXY W IOVL S DY=16-I X IOXY W IOVL
  1.  ; draw 'hash marks' on left line for relative values
  1.  S DX=9,DY=14 X IOXY W "s",! ;W IOLT,!
  1.  F DY=13:-1:4 X IOXY W "s",! ;W IOMT,!
  1.  ; print grid
  1.  I KMPUOPT["G" F DY=14:-1:4 F DX=11:1:(RIGHT-1) X IOXY W "s",!
  1.  W IOG0
  1.  Q
  1.  ;
  1. TITLES ;-- print graph titles.
  1.  W IOG0
  1.  ; print first and second line of title
  1.  S DX=(IOM-$L($P(TITLE,U))\2+1),DY=0 X IOXY W $P(TITLE,U),!
  1.  S DX=(IOM-$L($P(TITLE,U,2))\2+1),DY=1 X IOXY W $P(TITLE,U,2),!
  1.  ; print x title at bottom
  1.  S DX=(10-$L(XTITLE)),DY=3 X IOXY W IOUON,XTITLE,IOUOFF
  1.  ; if div>1 write (x div)
  1.  W:DIV>1 " <x",DIVT,">"
  1.  W !
  1.  ; print y title
  1.  S DY=15,DX=$S(KMPUOPT["A":1,1:2)
  1.  F I=1:1:8 D 
  1.  .X IOXY W IOUON,$E(YTITLE,I),IOUOFF,! S DY=DY+1
  1.  .I KMPUOPT["A" S DX=DX+1
  1.  ; print relative values next to hash marks
  1.  S NUM=(SCALE+KMPUSTRT)
  1.  S DY=14,DX=9-$L($FN((KMPUSTRT/DIV),"",DEC1))
  1.  X IOXY W $FN((KMPUSTRT/DIV),"",DEC1),!
  1.  F DY=13:-1:4 D 
  1.  .S DX=(9-$L($FN((NUM/DIV),"",DEC1)))
  1.  .X IOXY W $FN((NUM/DIV),"",DEC1),! S NUM=NUM+SCALE
  1.  ; print data titles
  1.  S ZDX=11,I=0
  1.  F  S I=$O(@KMPUAR@(I)) Q:'I  I $D(@KMPUAR@(I,0)) D 
  1.  .S YTITLE=$E($P(@KMPUAR@(I,0),U),1,14),DX=ZDX
  1.  .I KMPUOPT["A" F I1=1:1:8 S DY=14+I1 X IOXY W $E(YTITLE,I1),! S DX=DX+1
  1.  .I KMPUOPT'["A" F I1=1:1:8 S DY=14+I1 X IOXY W $E(YTITLE,I1),!
  1.  .S ZDX=ZDX+$S(KMPUOPT["D":2,1:1)
  1.  Q