312. EPMO Open Source Coordination Office Redaction File Detail Report

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.

312.1 Files compared

# 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

312.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 144
Changed 2 4
Inserted 0 0
Removed 0 0

312.3 Comparison options

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

312.4 Active regular expressions

No regular expressions were active.

312.5 Comparison detail

  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