| [613] | 1 | DIX ;SFISC/GFT,NHRC/DRH-STATISTICS ;4/18/91 9:40 AM
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | S DIK="^DOPT(""DIX"","
|
|---|
| 5 | 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)
|
|---|
| 6 | D IXALL^DIK
|
|---|
| 7 | F S DIC=DIK,DIC(0)="AEQZ" D ^DIC Q:Y<0 D @($P(Y(0),U,2,3)) W !! G DIX
|
|---|
| 8 | ;;DESCRIPTIVE STATISTICS^D^DIXC
|
|---|
| 9 | ;;SCATTERGRAM^^DIG
|
|---|
| 10 | ;;HISTOGRAM^^DIH
|
|---|
| 11 | ;;ESTIMATED LINEAR CORRELATION COEFFICIENTS^C^DIX2
|
|---|
| 12 | ;;COEFFICIENTS OF DETERMINATION^D^DIX2
|
|---|
| 13 | ;;RANDOM SAMPLE - DESCRIPTIVE STATISTICS^RS^DIX3
|
|---|
| 14 | ;;GENERATE RANDOM NUMBERS (WITH REPLACEMENT)^R^DIX3
|
|---|
| 15 | DHDR ;
|
|---|
| 16 | S:$D(^%ZTSK) %ZIS="Q" D ^%ZIS Q:POP!$D(IO("Q"))
|
|---|
| 17 | DQ U IO S:+DHDR'=0 DIXMM=+DHDR S:'$D(DHDR) DHDR="" I DHDR="" G HDR
|
|---|
| 18 | I $E(IOST)="C" S DIFF=1
|
|---|
| 19 | SITE W:$D(DIFF)&($Y) @IOF S DIFF=1 W:$D(^DD("SITE"))&(DHDR["S") !,"(",^("SITE"),")"
|
|---|
| 20 | I $D(DIC) I DHDR["F",@("$D("_DIC_"0))") W " ",$P(^(0),U,1)," FILE"
|
|---|
| 21 | 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)," "
|
|---|
| 22 | W ?(DIXMM-(DHDR["T"*10)-($D(PG)*10)-8) I DHDR["T" D INT W %TIM W " " K %TIM
|
|---|
| 23 | I '$D(DT) S X="T" D ^%DT S DT=Y
|
|---|
| 24 | W $E(DT,4,5),"/",DT#100,"/",$E(DT,2,3) I $D(PG) W " PAGE ",PG S PG=PG+1
|
|---|
| 25 | HDR F J=1:1 Q:'$D(DHDR(J)) W !?(DHDR["C"*(DIXMM-$L(DHDR(J))\2)),$E(DHDR(J),1,DIXMM)
|
|---|
| 26 | W ! Q:DHDR'["L"
|
|---|
| 27 | LINE F %=1:1:DIXMM W "-"
|
|---|
| 28 | W ! Q
|
|---|
| 29 | INT S %M=$P($H,",",2)\60
|
|---|
| 30 | 20 S %N=" AM" S:%M'<720 %M=%M-720,%N=" PM" S:%M<60 %M=%M+720
|
|---|
| 31 | 25 S %I=%M\600 S:'%I %I=" " S %TIM=%I_(%M\60#10)_":"_(%M#60\10)_(%M#10)_%N
|
|---|
| 32 | 30 K %M,%N,%I
|
|---|
