Produced by Araxis Merge on 9/25/2018 2:13:29 PM Central 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 | build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN | YSCLTEST.RTN | Thu Sep 6 11:30:06 2018 UTC |
2 | build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN | YSCLTEST.RTN | Wed Sep 12 18:10:02 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 144 |
Changed | 2 | 4 |
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("G. CLOZAPINE ROLL-UP@FO RUM.VA.GOV ")="" | |
24 | I YSDEBUG K XMY S X MY("G.CLOZ APINE DEBU G@FO-DALLA S URL ")="" | |
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("G. CLOZAPINE ROLL-UP@FO RUM.VA.GOV ")="" | |
66 | I YSDEBUG K XMY S X MY("G.CLOZ APINE DEBU G@FO-DALLA S URL ")="" | |
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.