| [613] | 1 | YSCLSRV1 ;DALOI/RLM-Clozapine data server ;24 APR 1990
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**61,69,74,90**;Dec 30, 1994;Build 18
|
|---|
| 3 | ; Reference to ^%ZOSF supported by IA #10096
|
|---|
| 4 | ; Reference to ^XMD supported by IA #10070
|
|---|
| 5 | CSUM ;Calculate checksum for routines and transmit errors to Forum
|
|---|
| 6 | S X=$T(+0) X ^%ZOSF("RSUM") S ^TMP("YSCL",$J,2,0)="YSCLSRV1 at "_YSCLST_" = "_Y
|
|---|
| 7 | F YSI=1:1 S YSA=$T(ROU+YSI) Q:YSA["***" S X=$P($P(YSA,","),";",3) D
|
|---|
| 8 | . X ^%ZOSF("TEST") I '$T S ^TMP("YSCL",$J,YSI+3,0)=X_" is missing." Q
|
|---|
| 9 | . X ^%ZOSF("RSUM") S ^TMP("YSCL",$J,YSI+3,0)=X_" should be "_$P(YSA,",",2)_" is "_Y
|
|---|
| 10 | K XMY S XMY("G.CLOZAPINE ROLL-UP@FORUM.VA.GOV")=""
|
|---|
| 11 | I YSDEBUG K XMY S XMY("G.CLOZAPINE DEBUG@FO-DALLAS.MED.VA.GOV")=""
|
|---|
| 12 | S XMSUB=$S(YSDEBUG:"DEBUG ",1:"")_"Clozapine Checksum data at "_YSCLST_" run on "_XQDATE
|
|---|
| 13 | S XMTEXT="^TMP(""YSCL"",$J,",XMDUZ="CLOZAPINE MONITOR" D ^XMD
|
|---|
| 14 | K %DT,YSA,YSCLST,YSI,X,XMDUZ,XMSUB,XMTEXT,Y
|
|---|
| 15 | K ^TMP("YSCL",$J)
|
|---|
| 16 | Q
|
|---|
| 17 | ROU ;
|
|---|
| 18 | ;;YSCLSERV,25564583
|
|---|
| 19 | ;;YSCLSRV2,24723007
|
|---|
| 20 | ;;YSCLSRV3,24872037
|
|---|
| 21 | ;;YSCLTEST,12378003
|
|---|
| 22 | ;;YSCLTST1,11839450
|
|---|
| 23 | ;;YSCLTST2,32098862
|
|---|
| 24 | ;;YSCLTST3,25645207
|
|---|
| 25 | ;;***
|
|---|
| 26 | ZEOR ;YSCLSRV1
|
|---|
