Return to DIX.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIX.m, revision 1.1

1.1     ! snw         1: DIX    ;SFISC/GFT,NHRC/DRH-STATISTICS ;4/18/91  9:40 AM
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             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