| 1 | YSCLTEST ;DALOI/LB/RLM-COLLECT RX AND LAB DATA FOR CLOZAPINE ;18 Feb 93
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**18,22,26,47,61,69,74,90**;Dec 30, 1994;Build 18
|
|---|
| 3 | ; Reference to ^DPT supported by IA #10035
|
|---|
| 4 | ; Reference to ^DIC(5 supported by IA #10056
|
|---|
| 5 | ; Reference to ^PS(55 supported by IA #787
|
|---|
| 6 | ; Reference to ^PSDRUG supported by IA #25
|
|---|
| 7 | ; Reference to ^PSRX supported by IA #780
|
|---|
| 8 | ; Reference to ^XMD supported by IA #10070
|
|---|
| 9 | BKGRD ;Normal entry for weekly background job - dates from T-10 to T-3
|
|---|
| 10 | S X=DT D DW^%DTC Q:X'=$P(^YSCL(603.03,1,0),"^",2) ;Make the day to run a parameter settable by the server.
|
|---|
| 11 | S YSOFF=$S(X="SUNDAY":0,X="MONDAY":1,X="TUESDAY":2,X="WEDNESDAY":3,X="THURSDAY":4,X="FRIDAY":5,X="SATURDAY":6,1:7) Q:YSOFF>6
|
|---|
| 12 | S X="T-"_YSOFF D ^%DT S YSCLED=Y,YSCLRET=""
|
|---|
| 13 | ;S YSCL=$H#7-2 S:YSCL<1 YSCL=YSCL+7 S X="T-"_(YSCL+7) D ^%DT S YSCLED=Y,YSCLRET="" K YSCL ;Make sure it's a Sunday ending date.
|
|---|
| 14 | RUN ; entry from above for normal or below for requeue
|
|---|
| 15 | S YSDEBUG=$P(^YSCL(603.03,1,0),"^",3)
|
|---|
| 16 | ;I $G(^YSCL(603.02,1,0))'?1.N1"^"1.N G FLERR^YSCLTST3 ;Check for entry in file 603.02, report an error if either entry is missing.
|
|---|
| 17 | D DMG^YSCLTST3
|
|---|
| 18 | S YSCLSITE=$P($$SITE^VASITE,"^",2)
|
|---|
| 19 | K XMY
|
|---|
| 20 | S XMY("G.CLOZAPINE ROLL-UP@FORUM.VA.GOV")=""
|
|---|
| 21 | I YSDEBUG K XMY S XMY("G.CLOZAPINE DEBUG@FO-DALLAS.MED.VA.GOV")=""
|
|---|
| 22 | S %DT="T",X="NOW" D ^%DT S YSCLNOW=$P(Y,".",2)
|
|---|
| 23 | S XMSUB=$S(YSDEBUG:"DEBUG ",1:"")_"Clozapine lab data started at "_YSCLSITE_" on "_DT_" at "_YSCLNOW,^TMP("YSCL",$J,1,0)=" ",^TMP("YSCL",$J,2,0)="+++ Clozapine data collection started at "_YSCLSITE_" on "_DT_" +++",^TMP("YSCL",$J,3,0)=" "
|
|---|
| 24 | S XMTEXT="^TMP(""YSCL"",$J,",XMDUZ="Clozapine MONITOR" D ^XMD
|
|---|
| 25 | S $P(^YSCL(603.03,1,0),"^",4)=$$NOW^XLFDT
|
|---|
| 26 | ;send MM message when routine started.
|
|---|
| 27 | S YSCLLN=0,YSCLLLN=3,X1=$P(YSCLED,"."),X2=-60 D C^%DTC S YSCLM28=X,X1=$P(YSCLED,"."),X2=-28 D C^%DTC S YSCLM7=X,YSCLED=YSCLED+.5 ;28 TO 60 and 14 to 28 6/15/05
|
|---|
| 28 | S X1=$P(YSCLED,"."),X2=-180 D C^%DTC S YSCLM180=X
|
|---|
| 29 | S X1=$P(YSCLED,"."),X2=-56 D C^%DTC S YSCLM56=X
|
|---|
| 30 | S YSCLIF=+$$SITE^VASITE_","
|
|---|
| 31 | D GETS^DIQ(4,YSCLIF,"1.01;1.02;1.03;.02;1.04","I","YSCLFF")
|
|---|
| 32 | S $P(YSCLDEMO,"^",1)=YSCLFF(4,YSCLIF,1.01,"I")
|
|---|
| 33 | S $P(YSCLDEMO,"^",2)=YSCLFF(4,YSCLIF,1.02,"I")
|
|---|
| 34 | S $P(YSCLDEMO,"^",3)=YSCLFF(4,YSCLIF,1.03,"I")
|
|---|
| 35 | S $P(YSCLDEMO,"^",4)=$P(^DIC(5,YSCLFF(4,YSCLIF,.02,"I"),0),"^",2)
|
|---|
| 36 | S $P(YSCLDEMO,"^",5)=YSCLFF(4,YSCLIF,1.04,"I")
|
|---|
| 37 | S $P(YSCLDEMO,"^",6)=""
|
|---|
| 38 | K J,YSCLF,YSCLFF,YSCLIF,X
|
|---|
| 39 | ;YSCLDEMO=street1^street2^city^state(2 letter)^ZIP^phone
|
|---|
| 40 | K ^TMP($J),^TMP("YSCL",$J) S (DFN,YSCLIEN)=0
|
|---|
| 41 | F K YSCLA S YSCLIEN=$O(^YSCL(603.01,YSCLIEN)),YSCLLD=0 Q:'YSCLIEN S DFN=$P($G(^YSCL(603.01,YSCLIEN,0)),"^",2) S $P(YSSTOP,",",1)=1 Q:$$S^%ZTLOAD D:DFN
|
|---|
| 42 | . I $D(^DPT(DFN,0)),$D(^YSCL(603.01,YSCLIEN,0)) S YSCLSAND=$P($G(^YSCL(603.01,YSCLIEN,0)),"^",2),YSCL=^DPT(DFN,0),YSCLX=$E($P($P(YSCL,"^"),",",2))_$E(YSCL)_"^"_$P(YSCL,"^",9) D
|
|---|
| 43 | . . S YSCLLAB="" D GET I YSCLLAB]"" D CHECK^YSCLTST1 I YSCLT D LOAD^YSCLTST1
|
|---|
| 44 | G TRANSMIT^YSCLTST2
|
|---|
| 45 | GET ;prescriptions
|
|---|
| 46 | Q:$$S^%ZTLOAD
|
|---|
| 47 | S YSCLPHY="",$P(YSCLX,"^",6)=$P(YSCLDEMO,"^",5),$P(YSCLX,"^",11)=$P($P($G(^YSCL(603.01,YSCLIEN,0)),"^"),"^"),$P(YSCLX,"^",16)=DT
|
|---|
| 48 | ;site zip(p6),registration number (p11), today (p16)
|
|---|
| 49 | F YSCL=0:0 S YSCL=$O(^PS(55,DFN,"P",YSCL)) Q:'YSCL I $D(^(YSCL,0)) S YSCL1=^(0) I $D(^PSRX(YSCL1,0)) S YSCLRX=^(0) D ACTIVE I YSACT=0,$P($G(^PSDRUG(+$P(YSCLRX,"^",6),"CLOZ1")),"^")="PSOCLO1" D
|
|---|
| 50 | . S YSCLZ2=0 F S YSCLZ2=$O(^PSDRUG(+$P(YSCLRX,"^",6),"CLOZ2",YSCLZ2)) Q:'YSCLZ2 I $P($G(^PSDRUG(+$P(YSCLRX,"^",6),"CLOZ2",YSCLZ2,0)),"^")]"",$P($G(^PSDRUG(+$P(YSCLRX,"^",6),"CLOZ2",YSCLZ2,0)),"^",4)=1 D Q
|
|---|
| 51 | . . S YSCLLAB=^(0)
|
|---|
| 52 | . . S YSCLID=$P(YSCLRX,"^",13) S:YSCLID>YSCLLD YSCLLD=YSCLID I YSCLID'>DT,YSCLID'<YSCLM28 S YSCLA(-YSCLID,-YSCL1)="" ;Changed YSCLED to DT RLM
|
|---|
| 53 | Q
|
|---|
| 54 | ACTIVE ;Test for Active prescriptions
|
|---|
| 55 | S YSACT=$$GET1^DIQ(52,YSCL1_",",100,"I")
|
|---|
| 56 | Q
|
|---|
| 57 | REXMIT ;Resend Clozapine data
|
|---|
| 58 | S X1=YSCLED,X2=-3 D C^%DTC S YSCLED=X,YSCLRET=1,ZTREQ="@" G RUN
|
|---|
| 59 | Q
|
|---|
| 60 | ABORT ;
|
|---|
| 61 | K XMY
|
|---|
| 62 | S XMY("G.CLOZAPINE ROLL-UP@FORUM.VA.GOV")=""
|
|---|
| 63 | I YSDEBUG K XMY S XMY("G.CLOZAPINE DEBUG@FO-DALLAS.MED.VA.GOV")=""
|
|---|
| 64 | S %DT="T",X="NOW" D ^%DT S YSCLNOW=$P(Y,".",2)
|
|---|
| 65 | S YSCLSITE=$P($$SITE^VASITE,"^",2)
|
|---|
| 66 | S XMSUB="Clozapine Roll-Up aborted ["_$G(YSSTOP)_"] at "_YSCLSITE_" on "_DT
|
|---|
| 67 | S YSTEXT(1,0)=" "
|
|---|
| 68 | S YSTEXT(2,0)=$S(YSDEBUG:"DEBUG ",1:"")_"Clozapine Roll-Up aborted ["_$G(YSSTOP)_"] at "_YSCLSITE_" on "_DT_" at "_YSCLNOW,^TMP("YSCL",$J,1,0)=" "
|
|---|
| 69 | S XMTEXT="YSTEXT(",XMDUZ="Clozapine MONITOR" D ^XMD
|
|---|
| 70 | S ZTSTOP=1 Q
|
|---|
| 71 | ZEOR ;YSCLTEST
|
|---|
