YSTUSE.m

YSTUSE ;ASF/ALB- PSYCHOLOGICAL TEST USEAGE REPORTING ; 9/1/04 11:02am

 ;;5.01;MENTAL HEALTH;**87**;Dec 30, 1994

 ;called as a server option from YS TEST USAGE

1 N YSB,YSY,DFN,YSTST,YSCOMP,N,N1,A

 K ^TMP($J,"YSTAT")

 S ^TMP($J,"YSTAT",1)=$$SITE^VASITE

 S XMA=1 X XMREC

 I XMRG="" S ^TMP($J,"YSTAT",12)="Dates can not be resolved" D SENDER Q  ;-->out

 S YSB=$P(XMRG,U),YSY=$P(XMRG,U,2)

 S ^TMP($J,"YSTAT",2)="From: "_YSB_" To: "_YSY

 S ^TMP($J,"YSTAT",3)=" "

TT ;test ck

 S N=20,DFN=0

 F  S DFN=$O(^YTD(601.2,DFN)) Q:DFN'>0  D TST

 S YSTST=0 F  S YSTST=$O(A(YSTST)) Q:YSTST'>0  D

 . S N=N+1

 . S ^TMP($J,"YSTAT",N)=$P($G(^YTT(601,YSTST,0)),U)_U_YSTST_U_A(YSTST)

SENDER S XMSUB="MH testing Statistics: "_XQSUB,XMY(XMFROM)="",XMTEXT="^TMP($J,""YSTAT"","

 S XMDUZ="MH automated testing REPLY"

 N XMFROM,XMZ,XMREC,XMCHAN D ^XMD

 Q

TST ;test check

 S YSTST=0 F  S YSTST=$O(^YTD(601.2,DFN,1,YSTST)) Q:YSTST'>0  D COMP

 Q

COMP ;date range

 S YSCOMP=YSB-.01 F  S YSCOMP=$O(^YTD(601.2,DFN,1,YSTST,1,YSCOMP)) Q:YSCOMP'>0!(YSCOMP>YSY)  S A(YSTST)=$G(A(YSTST))+1

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---YSTUSE   1075     printed  Apr 09, 2024@21:21:25                                                                                                                                                                                                      Page 2

YSTUSE    ;ASF/ALB- PSYCHOLOGICAL TEST USEAGE REPORTING ; 9/1/04 11:02am

 +1       ;;5.01;MENTAL HEALTH;**87**;Dec 30, 1994

 +2       ;called as a server option from YS TEST USAGE

1          NEW YSB,YSY,DFN,YSTST,YSCOMP,N,N1,A

 +1        KILL ^TMP($JOB,"YSTAT")

 +2        SET ^TMP($JOB,"YSTAT",1)=$$SITE^VASITE

 +3        SET XMA=1

           XECUTE XMREC

 +4       ;-->out

           IF XMRG=""

               SET ^TMP($JOB,"YSTAT",12)="Dates can not be resolved"

               DO SENDER

               QUIT 

 +5        SET YSB=$PIECE(XMRG,U)

           SET YSY=$PIECE(XMRG,U,2)

 +6        SET ^TMP($JOB,"YSTAT",2)="From: "_YSB_" To: "_YSY

 +7        SET ^TMP($JOB,"YSTAT",3)=" "

TT        ;test ck

 +1        SET N=20

           SET DFN=0

 +2        FOR 

               SET DFN=$ORDER(^YTD(601.2,DFN))

               if DFN'>0

                   QUIT 

               DO TST

 +3        SET YSTST=0

           FOR 

               SET YSTST=$ORDER(A(YSTST))

               if YSTST'>0

                   QUIT 

               Begin DoDot:1

 +4                SET N=N+1

 +5                SET ^TMP($JOB,"YSTAT",N)=$PIECE($GET(^YTT(601,YSTST,0)),U)_U_YSTST_U_A(YSTST)

               End DoDot:1

SENDER     SET XMSUB="MH testing Statistics: "_XQSUB

           SET XMY(XMFROM)=""

           SET XMTEXT="^TMP($J,""YSTAT"","

 +1        SET XMDUZ="MH automated testing REPLY"

 +2        NEW XMFROM,XMZ,XMREC,XMCHAN

           DO ^XMD

 +3        QUIT 

TST       ;test check

 +1        SET YSTST=0

           FOR 

               SET YSTST=$ORDER(^YTD(601.2,DFN,1,YSTST))

               if YSTST'>0

                   QUIT 

               DO COMP

 +2        QUIT 

COMP      ;date range

 +1        SET YSCOMP=YSB-.01

           FOR 

               SET YSCOMP=$ORDER(^YTD(601.2,DFN,1,YSTST,1,YSCOMP))

               if YSCOMP'>0!(YSCOMP>YSY)

                   QUIT 

               SET A(YSTST)=$GET(A(YSTST))+1