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 ---[H[J[2J[HDIX 1582 printed Dec 13, 2024@02:55:02 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
