- DIX ;SFISC/GFT,NHRC/DRH-STATISTICS ;4/18/91 9:40 AM
- ;;22.0;VA FileMan;;Mar 30, 1999
- ;Per VHA Directive 10-93-142, this routine should not be modified.
- S DIK="^DOPT(""DIX"","
- G F:$D(^DOPT("DIX",3)) S ^(0)="STATISTICAL ROUTINE^1.01^" F I=1:1:3 S ^DOPT("DIX",I,0)=$E($T(F+I),4,99)
- D IXALL^DIK
- F S DIC=DIK,DIC(0)="AEQZ" D ^DIC Q:Y<0 D @($P(Y(0),U,2,3)) W !! G DIX
- ;;DESCRIPTIVE STATISTICS^D^DIXC
- ;;SCATTERGRAM^^DIG
- ;;HISTOGRAM^^DIH
- ;;ESTIMATED LINEAR CORRELATION COEFFICIENTS^C^DIX2
- ;;COEFFICIENTS OF DETERMINATION^D^DIX2
- ;;RANDOM SAMPLE - DESCRIPTIVE STATISTICS^RS^DIX3
- ;;GENERATE RANDOM NUMBERS (WITH REPLACEMENT)^R^DIX3
- DHDR ;
- S:$D(^%ZTSK) %ZIS="Q" D ^%ZIS Q:POP!$D(IO("Q"))
- DQ U IO S:+DHDR'=0 DIXMM=+DHDR S:'$D(DHDR) DHDR="" I DHDR="" G HDR
- I $E(IOST)="C" S DIFF=1
- SITE W:$D(DIFF)&($Y) @IOF S DIFF=1 W:$D(^DD("SITE"))&(DHDR["S") !,"(",^("SITE"),")"
- I $D(DIC) I DHDR["F",@("$D("_DIC_"0))") W " ",$P(^(0),U,1)," FILE"
- I $D(DUZ)#2,DHDR["U",$S($D(^VA(200,+DUZ,0)):1,1:$D(^DIC(3,+DUZ,0))) W " USER: ",$P(^(0),U,1)," "
- W ?(DIXMM-(DHDR["T"*10)-($D(PG)*10)-8) I DHDR["T" D INT W %TIM W " " K %TIM
- I '$D(DT) S X="T" D ^%DT S DT=Y
- W $E(DT,4,5),"/",DT#100,"/",$E(DT,2,3) I $D(PG) W " PAGE ",PG S PG=PG+1
- HDR F J=1:1 Q:'$D(DHDR(J)) W !?(DHDR["C"*(DIXMM-$L(DHDR(J))\2)),$E(DHDR(J),1,DIXMM)
- W ! Q:DHDR'["L"
- LINE F %=1:1:DIXMM W "-"
- W ! Q
- INT S %M=$P($H,",",2)\60
- 20 S %N=" AM" S:%M'<720 %M=%M-720,%N=" PM" S:%M<60 %M=%M+720
- 25 S %I=%M\600 S:'%I %I=" " S %TIM=%I_(%M\60#10)_":"_(%M#60\10)_(%M#10)_%N
- 30 K %M,%N,%I
- DIX ;SFISC/GFT,NHRC/DRH-STATISTICS ;4/18/91 9:40 AM
- +1 ;;22.0;VA FileMan;;Mar 30, 1999
- +2 ;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 SET DIK="^DOPT(""DIX"","
- +4 IF $DATA(^DOPT("DIX",3))
- GOTO F
- SET ^(0)="STATISTICAL ROUTINE^1.01^"
- FOR I=1:1:3
- SET ^DOPT("DIX",I,0)=$EXTRACT($TEXT(F+I),4,99)
- +5 DO IXALL^DIK
- F SET DIC=DIK
- SET DIC(0)="AEQZ"
- DO ^DIC
- IF Y<0
- QUIT
- DO @($PIECE(Y(0),U,2,3))
- WRITE !!
- GOTO DIX
- +1 ;;DESCRIPTIVE STATISTICS^D^DIXC
- +2 ;;SCATTERGRAM^^DIG
- +3 ;;HISTOGRAM^^DIH
- +4 ;;ESTIMATED LINEAR CORRELATION COEFFICIENTS^C^DIX2
- +5 ;;COEFFICIENTS OF DETERMINATION^D^DIX2
- +6 ;;RANDOM SAMPLE - DESCRIPTIVE STATISTICS^RS^DIX3
- +7 ;;GENERATE RANDOM NUMBERS (WITH REPLACEMENT)^R^DIX3
- DHDR ;
- +1 IF $DATA(^%ZTSK)
- SET %ZIS="Q"
- DO ^%ZIS
- IF POP!$DATA(IO("Q"))
- QUIT
- DQ USE IO
- IF +DHDR'=0
- SET DIXMM=+DHDR
- IF '$DATA(DHDR)
- SET DHDR=""
- IF DHDR=""
- GOTO HDR
- +1 IF $EXTRACT(IOST)="C"
- SET DIFF=1
- SITE IF $DATA(DIFF)&($Y)
- WRITE @IOF
- SET DIFF=1
- IF $DATA(^DD("SITE"))&(DHDR["S")
- WRITE !,"(",^("SITE"),")"
- +1 IF $DATA(DIC)
- IF DHDR["F"
- IF @("$D("_DIC_"0))")
- WRITE " ",$PIECE(^(0),U,1)," FILE"
- +2 IF $DATA(DUZ)#2
- IF DHDR["U"
- IF $SELECT($DATA(^VA(200,+DUZ,0)):1,1:$DATA(^DIC(3,+DUZ,0)))
- WRITE " USER: ",$PIECE(^(0),U,1)," "
- +3 WRITE ?(DIXMM-(DHDR["T"*10)-($DATA(PG)*10)-8)
- IF DHDR["T"
- DO INT
- WRITE %TIM
- WRITE " "
- KILL %TIM
- +4 IF '$DATA(DT)
- SET X="T"
- DO ^%DT
- SET DT=Y
- +5 WRITE $EXTRACT(DT,4,5),"/",DT#100,"/",$EXTRACT(DT,2,3)
- IF $DATA(PG)
- WRITE " PAGE ",PG
- SET PG=PG+1
- HDR FOR J=1:1
- IF '$DATA(DHDR(J))
- QUIT
- WRITE !?(DHDR["C"*(DIXMM-$LENGTH(DHDR(J))\2)),$EXTRACT(DHDR(J),1,DIXMM)
- +1 WRITE !
- IF DHDR'["L"
- QUIT
- LINE FOR %=1:1:DIXMM
- WRITE "-"
- +1 WRITE !
- QUIT
- INT SET %M=$PIECE($HOROLOG,",",2)\60
- 20 SET %N=" AM"
- IF %M'<720
- SET %M=%M-720
- SET %N=" PM"
- IF %M<60
- SET %M=%M+720
- 25 SET %I=%M\600
- IF '%I
- SET %I=" "
- SET %TIM=%I_(%M\60#10)_":"_(%M#60\10)_(%M#10)_%N
- 30 KILL %M,%N,%I
