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 ---[H[J[2J[HYSCLSRV1 1456 printed Dec 13, 2024@02:13:49 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 ;
