42 lines
1.9 KiB
Mathematica
42 lines
1.9 KiB
Mathematica
|
XBHEDD7 ;402,DJB,10/23/91,EDD - Count fields, Printing
|
||
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
||
|
|
;;David Bolduc - Togus, ME
|
||
|
|
;;This is run each time EDD is run, right after you select a File.
|
||
|
|
;;It sets up multiples in ^UTILITY($J,"TMP")
|
||
|
|
MULT ;
|
||
|
|
D MULTBLD K CNT,TMP Q
|
||
|
|
MULTBLD ;
|
||
|
|
K ^UTILITY($J)
|
||
|
|
S CNT=1,^UTILITY($J,"TMP",ZNUM)=$P(^DD(ZNUM,0),U,4)_"^"_CNT,^UTILITY($J,"TOT")=$P(^DD(ZNUM,0),U,4)
|
||
|
|
Q:'$D(^DD(ZNUM,"SB")) S TMP(1)=ZNUM,CNT=2,TMP(CNT)=""
|
||
|
|
F S TMP(CNT)=$O(^DD(TMP(CNT-1),"SB",TMP(CNT))) D MULTBLD1 Q:CNT=1
|
||
|
|
Q
|
||
|
|
MULTBLD1 ;
|
||
|
|
I TMP(CNT)="" S CNT=CNT-1 Q
|
||
|
|
I '$D(^DD(TMP(CNT),0)) Q
|
||
|
|
S ^UTILITY($J,"TMP",TMP(CNT))=$P(^DD(TMP(CNT),0),U,4)_"^"_CNT_"^"_$O(^DD(TMP(CNT-1),"SB",TMP(CNT),""))
|
||
|
|
S ^UTILITY($J,"TOT")=^UTILITY($J,"TOT")+$P(^DD(TMP(CNT),0),U,4)
|
||
|
|
I $D(^DD(TMP(CNT),"SB")) S CNT=CNT+1,TMP(CNT)=""
|
||
|
|
Q
|
||
|
|
PRINTM ;Option 11 in Main Menu
|
||
|
|
S FLAGP1=1 ;Redraws Main Menu. See MENU+2^XBHEDD.
|
||
|
|
PRINT ;
|
||
|
|
I FLAGS W *27,"[?4l" S FLAGS=0 ;Reset scroll to normal
|
||
|
|
S FLAGP=FLAGP=0 I FLAGP=0 W:IO'=IO(0)&('FLAGM) @IOF D ^%ZISC S SIZE=(IOSL-5) Q ;If FLAGM user hit <RETURN> at Main Menu pompt.
|
||
|
|
S %ZIS("A")=" DEVICE: " D ^%ZIS K %ZIS("A") I POP S FLAGP=0 Q
|
||
|
|
S SIZE=(IOSL-5) Q
|
||
|
|
TXT ;
|
||
|
|
W @IOF Q:'FLAGP W:IO'=IO(0) !!!
|
||
|
|
I '$D(EDDDATE) S X="NOW",%DT="T" D ^%DT K %DT S EDDDATE=$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3)
|
||
|
|
W !,$E(ZLINE1,1,IOM),!?2,"File:---- ",ZNAM,!?2,"Global:-- ",ZGL,?(IOM-17),"Date: ",EDDDATE,!,$E(ZLINE1,1,IOM),!
|
||
|
|
Q
|
||
|
|
SCROLL ;Adjust scroll rate
|
||
|
|
W !!?8,"SCROLLING: [N]ormal [S]mooth . . . . ","Select: N//"
|
||
|
|
R SCROLL:DTIME S:'$T SCROLL="^" S SCROLL=$E(SCROLL) I SCROLL="^" S FLAGQ=1 Q
|
||
|
|
I SCROLL="?" W !?8,"Since you're printing to your CRT and you've asked for a page",!?8,"length greater than 25, you may now adjust the scroll rate.",!?8,"For DEC VT-100 compatible devices only." G SCROLL
|
||
|
|
S:SCROLL="" SCROLL="N" Q:"S,s"'[SCROLL S FLAGS=1 W *27,"[?4h" Q
|
||
|
|
INIT ;
|
||
|
|
I FLAGP,IO=IO(0),IOSL>25 D SCROLL Q:FLAGQ
|
||
|
|
I FLAGP W:IO'=IO(0) " Printing.." U IO
|
||
|
|
D TXT Q
|