source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSCLSRV1.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1YSCLSRV1 ;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
5CSUM ;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
17ROU ;
18 ;;YSCLSERV,25564583
19 ;;YSCLSRV2,24723007
20 ;;YSCLSRV3,24872037
21 ;;YSCLTEST,12378003
22 ;;YSCLTST1,11839450
23 ;;YSCLTST2,32098862
24 ;;YSCLTST3,25645207
25 ;;***
26ZEOR ;YSCLSRV1
Note: See TracBrowser for help on using the repository browser.