YSCLSRV1.m

YSCLSRV1 ;DALOI/RLM,HEC/hrubovcak - Clozapine data server ;3 Oct 2019 00:08:26

 ;;5.01;MENTAL HEALTH;**61,69,74,90,122,154**;Dec 30, 1994;Build 48

 ; Reference to ^%ZOSF supported by IA #10096

 ; Reference to ^XMD supported by IA #10070

 ; Reference to ^DIQ supported by DBIA #2056

CSUM ;Calculate checksum for routines and transmit errors to Forum

 S X=$T(+0) X ^%ZOSF("RSUM") S ^TMP("YSCL",$J,2,0)="YSCLSRV1 at "_YSCLST_" = "_Y

 F YSI=1:1 S YSA=$T(ROU+YSI) S X=$P($P(YSA,","),";",3) Q:X=""  D

 . X ^%ZOSF("TEST") I '$T S ^TMP("YSCL",$J,YSI+3,0)=X_" is missing." Q

 . X ^%ZOSF("RSUM") S ^TMP("YSCL",$J,YSI+3,0)=X_" should be "_$P(YSA,",",2)_" is "_Y

 ;/RBN - Begin modifications for YS*5.01*122

 K XMY I $$GET1^DIQ(8989.3,1,501,"I") D

 . I 'YSDEBUG S XMY("G.CLOZAPINE ROLL-UP@DOMAIN.EXT")=""

 . E  S XMY("G.CLOZAPINE DEBUG@FO-DALLAS.DOMAIN.EXT")=""

 E  D

 . I 'YSDEBUG S XMY("G.CLOZAPINE ROLL-UP")=""

 . E  S XMY("G.CLOZAPINE DEBUG")=""

 ;/RBN - End modifications for YS*5.01*122

 S XMSUB=$S(YSDEBUG:"DEBUG ",1:"")_"Clozapine Checksum data at "_YSCLST_" run on "_XQDATE

 S XMTEXT="^TMP(""YSCL"",$J,",XMDUZ="CLOZAPINE MONITOR" D ^XMD

 K %DT,YSA,YSCLST,YSI,X,XMDUZ,XMSUB,XMTEXT,Y

 K ^TMP("YSCL",$J)

 Q

ROU ;

 ;;YSCLDIS,62418722

 ;;YSCLSERV,90753877

 ;;YSCLSRV2,24723007

 ;;YSCLSRV3,24872037

 ;;YSCLTEST,21727247

 ;;YSCLTST1,11839450

 ;;YSCLTST2,112458688

 ;;YSCLTST3,69598047

 ;;YSCLTST5,129720110

 ;;YSCLTST6,26876020

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---YSCLSRV1   1456     printed  Apr 09, 2024@21:19:48                                                                                                                                                                                                    Page 2

YSCLSRV1  ;DALOI/RLM,HEC/hrubovcak - Clozapine data server ;3 Oct 2019 00:08:26

 +1       ;;5.01;MENTAL HEALTH;**61,69,74,90,122,154**;Dec 30, 1994;Build 48

 +2       ; Reference to ^%ZOSF supported by IA #10096

 +3       ; Reference to ^XMD supported by IA #10070

 +4       ; Reference to ^DIQ supported by DBIA #2056

CSUM      ;Calculate checksum for routines and transmit errors to Forum

 +1        SET X=$TEXT(+0)

           XECUTE ^%ZOSF("RSUM")

           SET ^TMP("YSCL",$JOB,2,0)="YSCLSRV1 at "_YSCLST_" = "_Y

 +2        FOR YSI=1:1

               SET YSA=$TEXT(ROU+YSI)

               SET X=$PIECE($PIECE(YSA,","),";",3)

               if X=""

                   QUIT 

               Begin DoDot:1

 +3                XECUTE ^%ZOSF("TEST")

                   IF '$TEST

                       SET ^TMP("YSCL",$JOB,YSI+3,0)=X_" is missing."

                       QUIT 

 +4                XECUTE ^%ZOSF("RSUM")

                   SET ^TMP("YSCL",$JOB,YSI+3,0)=X_" should be "_$PIECE(YSA,",",2)_" is "_Y

               End DoDot:1

 +5       ;/RBN - Begin modifications for YS*5.01*122

 +6        KILL XMY

           IF $$GET1^DIQ(8989.3,1,501,"I")

               Begin DoDot:1

 +7                IF 'YSDEBUG

                       SET XMY("G.CLOZAPINE ROLL-UP@DOMAIN.EXT")=""

 +8               IF '$TEST

                       SET XMY("G.CLOZAPINE DEBUG@FO-DALLAS.DOMAIN.EXT")=""

               End DoDot:1

 +9       IF '$TEST

               Begin DoDot:1

 +10               IF 'YSDEBUG

                       SET XMY("G.CLOZAPINE ROLL-UP")=""

 +11              IF '$TEST

                       SET XMY("G.CLOZAPINE DEBUG")=""

               End DoDot:1

 +12      ;/RBN - End modifications for YS*5.01*122

 +13       SET XMSUB=$SELECT(YSDEBUG:"DEBUG ",1:"")_"Clozapine Checksum data at "_YSCLST_" run on "_XQDATE

 +14       SET XMTEXT="^TMP(""YSCL"",$J,"

           SET XMDUZ="CLOZAPINE MONITOR"

           DO ^XMD

 +15       KILL %DT,YSA,YSCLST,YSI,X,XMDUZ,XMSUB,XMTEXT,Y

 +16       KILL ^TMP("YSCL",$JOB)

 +17       QUIT 

ROU       ;

 +1       ;;YSCLDIS,62418722

 +2       ;;YSCLSERV,90753877

 +3       ;;YSCLSRV2,24723007

 +4       ;;YSCLSRV3,24872037

 +5       ;;YSCLTEST,21727247

 +6       ;;YSCLTST1,11839450

 +7       ;;YSCLTST2,112458688

 +8       ;;YSCLTST3,69598047

 +9       ;;YSCLTST5,129720110

 +10      ;;YSCLTST6,26876020

 +11      ;