DIX.m

DIX ;SFISC/GFT,NHRC/DRH-STATISTICS ;05:46 PM  16 Dec 1999

 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 ;;Per VA Directive 6402, this routine should not be modified.

 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 ;;Licensed under the terms of the Apache License, Version 2.0.

 ;

 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)-18) ;**CCO/NI ALLOW SPACE AT RIGHT

DT W $$DATE^DIUTL(DT) I $D(PG) W "  ",$$EZBLD^DIALOG(7095,PG) S PG=PG+1 ;**CCO/NI  DATE FORMAT AND PAGE

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DIX   1582     printed  Apr 09, 2024@21:48:04                                                                                                                                                                                                         Page 2

DIX       ;SFISC/GFT,NHRC/DRH-STATISTICS ;05:46 PM  16 Dec 1999

 +1       ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 +4       ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 +5       ;;Licensed under the terms of the Apache License, Version 2.0.

 +6       ;

 +7        SET DIK="^DOPT(""DIX"","

 +8        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)

 +9        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       ;**CCO/NI ALLOW SPACE AT RIGHT

           WRITE ?(DIXMM-(DHDR["T"*10)-($DATA(PG)*10)-18)

DT        ;**CCO/NI  DATE FORMAT AND PAGE

           WRITE $$DATE^DIUTL(DT)

           IF $DATA(PG)

               WRITE "  ",$$EZBLD^DIALOG(7095,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