Produced by Araxis Merge on 9/24/2019 1:38:08 PM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\MUMPS\RTN | YSCLTEST.RTN | Wed Jul 31 17:35:31 2019 UTC |
| 2 | PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\MUMPS\RTN | YSCLTEST.RTN | Mon Sep 23 17:30:26 2019 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 3 | 140 |
| Changed | 2 | 8 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| Whitespace | |
|---|---|
| Character case | Differences in character case are significant |
| Line endings | Differences in line endings (CR and LF characters) are ignored |
| CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
| 1 | Cache for UNIX^INT^L oad Initia l Release MH VistA S ource^~For mat=Cache. S~^RAW | |
| 2 | %RO on 14 Mar 2017 6:10 PM | |
| 3 | YSCLTEST^I NT^1^63910 ,74846^0 | |
| 4 | YSCLTEST ; DALOI/LB/R LM-COLLECT RX AND LA B DATA FOR CLOZAPINE ;18 Feb 9 3 | |
| 5 | ;;5.01;ME NTAL HEALT H;**18,22, 26,47,61,6 9,74,90**; Dec 30, 19 94;Build 1 8 | |
| 6 | ; Referen ce to ^DPT supported by IA #10 035 | |
| 7 | ; Referen ce to ^DIC (5 support ed by IA # 10056 | |
| 8 | ; Referen ce to ^PS( 55 support ed by IA # 787 | |
| 9 | ; Referen ce to ^PSD RUG suppor ted by IA #25 | |
| 10 | ; Referen ce to ^PSR X supporte d by IA #7 80 | |
| 11 | ; Referen ce to ^XMD supported by IA #10 070 | |
| 12 | BKGRD ;Nor mal entry for weekly backgroun d job - da tes from T -10 to T-3 | |
| 13 | S X=DT D DW^%DTC Q: X'=$P(^YSC L(603.03,1 ,0),"^",2) ;Make th e day to r un a param eter setta ble by the server. | |
| 14 | S YSOFF=$ S(X="SUNDA Y":0,X="MO NDAY":1,X= "TUESDAY": 2,X="WEDNE SDAY":3,X= "THURSDAY" :4,X="FRID AY":5,X="S ATURDAY":6 ,1:7) Q:YS OFF>6 | |
| 15 | S X="T-"_ YSOFF D ^% DT S YSCLE D=Y,YSCLRE T="" | |
| 16 | ;S YSCL=$ H#7-2 S:YS CL<1 YSCL= YSCL+7 S X ="T-"_(YSC L+7) D ^%D T S YSCLED =Y,YSCLRET ="" K YSCL ;Make sur e it's a S unday endi ng date. | |
| 17 | RUN ; entr y from abo ve for nor mal or bel ow for req ueue | |
| 18 | S YSDEBUG =$P(^YSCL( 603.03,1,0 ),"^",3) | |
| 19 | ;I $G(^YS CL(603.02, 1,0))'?1.N 1"^"1.N G FLERR^YSCL TST3 ;Chec k for entr y in file 603.02, re port an er ror if eit her entry is missing . | |
| 20 | D DMG^YSC LTST3 | |
| 21 | S YSCLSIT E=$P($$SIT E^VASITE," ^",2) | |
| 22 | K XMY | |
| 23 | S XMY("PI I")="" | |
| 24 | I YSDEBUG K XMY S X MY("
|
|
| 25 | S %DT="T" ,X="NOW" D ^%DT S YS CLNOW=$P(Y ,".",2) | |
| 26 | S XMSUB=$ S(YSDEBUG: "DEBUG ",1 :"")_"Cloz apine lab data start ed at "_YS CLSITE_" o n "_DT_" a t "_YSCLNO W,^TMP("YS CL",$J,1,0 )=" ",^TMP ("YSCL",$J ,2,0)="+++ Clozapine data coll ection sta rted at "_ YSCLSITE_" on "_DT_" +++",^TMP ("YSCL",$J ,3,0)=" " | |
| 27 | S XMTEXT= "^TMP(""YS CL"",$J,", XMDUZ="Clo zapine MON ITOR" D ^X MD | |
| 28 | S $P(^YSC L(603.03,1 ,0),"^",4) =$$NOW^XLF DT | |
| 29 | ;send MM message wh en routine started. | |
| 30 | S YSCLLN= 0,YSCLLLN= 3,X1=$P(YS CLED,"."), X2=-60 D C ^%DTC S YS CLM28=X,X1 =$P(YSCLED ,"."),X2=- 28 D C^%DT C S YSCLM7 =X,YSCLED= YSCLED+.5 ;28 TO 60 and 14 to 28 6/15/05 | |
| 31 | S X1=$P(Y SCLED,".") ,X2=-180 D C^%DTC S YSCLM180=X | |
| 32 | S X1=$P(Y SCLED,".") ,X2=-56 D C^%DTC S Y SCLM56=X | |
| 33 | S YSCLIF= +$$SITE^VA SITE_"," | |
| 34 | D GETS^DI Q(4,YSCLIF ,"1.01;1.0 2;1.03;.02 ;1.04","I" ,"YSCLFF") | |
| 35 | S $P(YSCL DEMO,"^",1 )=YSCLFF(4 ,YSCLIF,1. 01,"I") | |
| 36 | S $P(YSCL DEMO,"^",2 )=YSCLFF(4 ,YSCLIF,1. 02,"I") | |
| 37 | S $P(YSCL DEMO,"^",3 )=YSCLFF(4 ,YSCLIF,1. 03,"I") | |
| 38 | S $P(YSCL DEMO,"^",4 )=$P(^DIC( 5,YSCLFF(4 ,YSCLIF,.0 2,"I"),0), "^",2) | |
| 39 | S $P(YSCL DEMO,"^",5 )=YSCLFF(4 ,YSCLIF,1. 04,"I") | |
| 40 | S $P(YSCL DEMO,"^",6 )="" | |
| 41 | K J,YSCLF ,YSCLFF,YS CLIF,X | |
| 42 | ;YSCLDEMO =street1^s treet2^cit y^state(2 letter)^ZI P^phone | |
| 43 | K ^TMP($J ),^TMP("YS CL",$J) S (DFN,YSCLI EN)=0 | |
| 44 | F K YSCL A S YSCLIE N=$O(^YSCL (603.01,YS CLIEN)),YS CLLD=0 Q:' YSCLIEN S DFN=$P($G (^YSCL(603 .01,YSCLIE N,0)),"^", 2) S $P(YS STOP,",",1 )=1 Q:$$S^ %ZTLOAD D :DFN | |
| 45 | . I $D(^ DPT(DFN,0) ),$D(^YSCL (603.01,YS CLIEN,0)) S YSCLSAND =$P($G(^YS CL(603.01, YSCLIEN,0) ),"^",2),Y SCL=^DPT(D FN,0),YSCL X=$E($P($P (YSCL,"^") ,",",2))_$ E(YSCL)_"^ "_$P(YSCL, "^",9) D | |
| 46 | . . S YS CLLAB="" D GET I YSC LLAB]"" D CHECK^YSCL TST1 I YSC LT D LOAD^ YSCLTST1 | |
| 47 | G TRANSMI T^YSCLTST2 | |
| 48 | GET ;presc riptions | |
| 49 | Q:$$S^%ZT LOAD | |
| 50 | S YSCLPHY ="",$P(YSC LX,"^",6)= $P(YSCLDEM O,"^",5),$ P(YSCLX,"^ ",11)=$P($ P($G(^YSCL (603.01,YS CLIEN,0)), "^"),"^"), $P(YSCLX," ^",16)=DT | |
| 51 | ;site zip (p6),regis tration nu mber (p11) , today (p 16) | |
| 52 | F YSCL=0: 0 S YSCL=$ O(^PS(55,D FN,"P",YSC L)) Q:'YSC L I $D(^( YSCL,0)) S YSCL1=^(0 ) I $D(^PS RX(YSCL1,0 )) S YSCLR X=^(0) D A CTIVE I YS ACT=0,$P($ G(^PSDRUG( +$P(YSCLRX ,"^",6),"C LOZ1")),"^ ")="PSOCLO 1" D | |
| 53 | . S YSCL Z2=0 F S YSCLZ2=$O( ^PSDRUG(+$ P(YSCLRX," ^",6),"CLO Z2",YSCLZ2 )) Q:'YSCL Z2 I $P($ G(^PSDRUG( +$P(YSCLRX ,"^",6),"C LOZ2",YSCL Z2,0)),"^" )]"",$P($G (^PSDRUG(+ $P(YSCLRX, "^",6),"CL OZ2",YSCLZ 2,0)),"^", 4)=1 D Q | |
| 54 | . . S YS CLLAB=^(0) | |
| 55 | . . S YS CLID=$P(YS CLRX,"^",1 3) S:YSCLI D>YSCLLD Y SCLLD=YSCL ID I YSCLI D'>DT,YSCL ID'<YSCLM2 8 S YSCLA( -YSCLID,-Y SCL1)="" ; Changed YS CLED to DT RLM | |
| 56 | Q | |
| 57 | ACTIVE ;Te st for Act ive prescr iptions | |
| 58 | S YSACT=$ $GET1^DIQ( 52,YSCL1_" ,",100,"I" ) | |
| 59 | Q | |
| 60 | REXMIT ;Re send Cloza pine data | |
| 61 | S X1=YSCL ED,X2=-3 D C^%DTC S YSCLED=X,Y SCLRET=1,Z TREQ="@" G RUN | |
| 62 | Q | |
| 63 | ABORT ; | |
| 64 | K XMY | |
| 65 | S XMY("PI I")="" | |
| 66 | I YSDEBUG K XMY S X MY("
|
|
| 67 | S %DT="T" ,X="NOW" D ^%DT S YS CLNOW=$P(Y ,".",2) | |
| 68 | S YSCLSIT E=$P($$SIT E^VASITE," ^",2) | |
| 69 | S XMSUB=" Clozapine Roll-Up ab orted ["_$ G(YSSTOP)_ "] at "_YS CLSITE_" o n "_DT | |
| 70 | S YSTEXT( 1,0)=" " | |
| 71 | S YSTEXT( 2,0)=$S(YS DEBUG:"DEB UG ",1:"") _"Clozapin e Roll-Up aborted [" _$G(YSSTOP )_"] at "_ YSCLSITE_" on "_DT_" at "_YSCL NOW,^TMP(" YSCL",$J,1 ,0)=" " | |
| 72 | S XMTEXT= "YSTEXT(", XMDUZ="Clo zapine MON ITOR" D ^X MD | |
| 73 | S ZTSTOP= 1 Q | |
| 74 | ZEOR ;YSCL TEST |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.