313. 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.

313.1 Files compared

# Location File Last Modified
1 build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN YSCLTST2.RTN Thu Sep 6 11:30:12 2018 UTC
2 build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN YSCLTST2.RTN Wed Sep 12 18:10:03 2018 UTC

313.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 222
Changed 2 6
Inserted 0 0
Removed 0 0

313.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

313.4 Active regular expressions

No regular expressions were active.

313.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   YSCLTST2^I NT^1^63910 ,74846^0
  4   YSCLTST2 ; DALOI/LB/R LM-TRANSMI T RX AND l AB DATA FO R CLOZAPIN E ;19 Feb  93
  5    ;;5.01;ME NTAL HEALT H;**18,22, 26,47,61,6 9,74,90,92 **;Dec 30,  1994;Buil d 7
  6    ; Referen ce to ^LAB (60 suppor ted by IA  #333
  7    ; Referen ce to ^PSD RUG suppor ted by IA  #25
  8    ; Referen ce to ^XMD  supported  by IA #10 070
  9    ; 
  10   TRANSMIT ;  send remo te and loc al, kill a nd quit
  11    K XMZ S % DT="T",X=" NOW" D ^%D T S YSCLNO W=$P(Y,"." ,2),YSCLSI TE=$P($$SI TE^VASITE, "^",2)
  12    S $P(YSST OP,",",7)= 7 I $$S^%Z TLOAD D AB ORT^YSCLTE ST G END
  13    I YSCLLN  D
  14     . K XMY
  15       . S XMY("S .RUCLRXLAB @FO-HINES URL          ")=""
  16       . I YSDEBU G K XMY S  XMY("G.CLO ZAPINE DEB UG@FO-DALL AS URL          ")="",XMY( "G.RUCLRXL AB@FO-DALL AS URL          ")=""
  17     . S XMDU Z="Clozapi ne MONITOR ",XMTEXT=" ^TMP($J,", XMSUB=$S(Y SDEBUG:"DE BUG ",1:"" )_"Clozapi ne lab dat a @ "_YSCL SITE_" on  "_DT_" at  "_YSCLNOW  D ^XMD
  18    K XMY
  19    S XMY("G. CLOZAPINE  ROLL-UP@FO RUM.VA.GOV ")=""
  20    I YSDEBUG  K XMY S X MY("G.CLOZ APINE DEBU G@FO-DALLA S URL          ")=""
  21    S XMY("G. PSOCLOZ")= ""
  22    S XMSUB=$ S(YSDEBUG: "DEBUG ",1 :"")_"Cloz apine lab  data @ "_Y SCLSITE_"  on "_DT_"  at "_YSCLN OW
  23    S ^TMP("Y SCL",$J,2, 0)=" ",^TM P("YSCL",$ J,3,0)="In  message #  "_$S($D(X MZ):XMZ,1: "no data s ent")
  24    K XMZ S X MDUZ="Cloz apine MONI TOR",^TMP( "YSCL",$J, 1,0)="Cloz apine lab  data was t ransmitted , "_(YSCLL LN-3)_" re cords were  sent",XMT EXT="^TMP( ""YSCL"",$ J," D ^XMD
  25    S $P(^YSC L(603.03,1 ,0),"^",5) =$$NOW^XLF DT
  26   END ;
  27    G END1^YS CLTST3
  28    Q
  29   REXMIT ; r etransmit  lab and RX  data
  30    ; must be  a tuesday
  31    S DIR(0)= "Y",DIR("A ")="Are yo u sure you  wish to r etransmit  lab data"
  32    D ^DIR K  DIR I Y'=1  K Y Q
  33   DATE S %DT ="AEXP",%D T(0)=-DT,% DT("A")="E nding date  for data  collection  (must be  a tuesday  )"
  34    D ^%DT K  %DT G END: X="^",END: X="^" I Y= -1 G DATE
  35   SERV S YSC LED=Y,X=Y  D H^%DTC I  %H#7'=5 W  !,"MUST B E A TUESDA Y" G DATE
  36    S ZTDESC= "Server tr iggered re transmissi on"
  37    S ZTSAVE( "YSCLED")= "",ZTIO="" ,ZTRTN="RE XMIT^YSCLT EST",ZTDTH =$H D ^%ZT LOAD G END
  38   FLSET ;Set  up file 6 03.02
  39    W @IOF,"T his option  specifies  the blood  tests ass ociated wi th the Clo zapine"
  40    W !,"repo rting soft ware.  Two  tests mus t be defin ed.  The f irst is th e White"
  41    W !,"Bloo d Count.   The second  is the Gr anulocyte  (or Neutro phil) perc entage."
  42    K DIR W ! ! S DIR(0) ="PA^64:EM Z",DIR("A" ,1)="Enter  the test  that will  be used to  record th e White Bl ood Count  for the",D IR("A")="C lozapine p atients: "  D ^DIR
  43    Q:Y=-1!($ D(DUOUT))! ($D(DTOUT) )!($D(DIRU T))!($D(DI ROUT))
  44    S YSCLWBC =+Y
  45    K DIR W ! ! S DIR(0) ="PA^64:EM Z",DIR("A" ,1)="Enter  the test  that will  be used to  record th e Neutroph il Count ( percentage )",DIR("A" )=" for th e Clozapin e patients : " D ^DIR
  46    Q:Y=-1!($ D(DUOUT))! ($D(DTOUT) )!($D(DIRU T))!($D(DI ROUT))
  47    S YSCLGRN =+Y
  48    I YSCLWBC ,YSCLGRN S  ^YSCL(603 .02,1,0)=Y SCLWBC_"^" _YSCLGRN,$ P(^YSCL(60 3.02,0),"^ ",3,4)="1^ 1"
  49    ;Only one  entry is  allowed.
  50    K DIR,X,Y ,YSCLWBC,Y SCLGRN,ZTD ESC
  51    Q
  52   EN(DRG) ;
  53    K LAB I $ P($G(^PSDR UG(DRG,"CL OZ1")),"^" )'="PSOCLO 1" S LAB(" NOT")=0 Q
  54    I $P($G(^ PSDRUG(DRG ,"CLOZ1")) ,"^")="PSO CLO1" D
  55     . S (CNT ,I)=0 F  S  I=$O(^PSD RUG(DRG,"C LOZ2",I))  Q:'I  S CN T=$G(CNT)+ 1
  56     . I CNT' =2 S LAB(" BAD TEST") =0 K CNT Q
  57     . K CNT  F I=0:0 S  I=$O(^PSDR UG(DRG,"CL OZ2",I)) Q :'I  D
  58     . . S LA BT=$S($P(^ PSDRUG(DRG ,"CLOZ2",I ,0),"^",4) =1:"WBC",1 :"ANC"),LA B(LABT)=$P (^PSDRUG(D RG,"CLOZ2" ,I,0),"^") _"^"_$P(^( 0),"^",3)_ "^"_$P(^(0 ),"^",4)
  59    K LABT,I
  60    Q
  61   CL1(DFN,DA YS) ;The r outine was  split due  to size
  62    G CL1^YSC LTST4
  63    Q
  64    ;
  65   CL(DFN) ;
  66    K ^TMP("L RRR",$J) N  RESULTS,Y SCLYWBC,YS CLRANC,YSC LXWBC,YSCL RWBC,YSCLF RQ
  67    I 'DFN Q  "-1^-1^-1^ -1^-1^-1^- 1"
  68    S YSCLFRQ =$O(^YSCL( 603.01,"C" ,DFN,""))  I YSCLFRQ] ""  S YSCL FRQ=$P(^YS CL(603.01, YSCLFRQ,0) ,"^",3)
  69    I $G(^YSC L(603.03,1 ,1))=1!(YS CLFRQ="")   Q "-1^0^0 ^0^0^0^"_Y SCLFRQ
  70    S X1=DT,X 2="-7" D C ^%DTC S YS CLSD=X
  71    S YSCLA=0  F  S YSCL A=$O(^YSCL (603.04,1, 1,YSCLA))  Q:'YSCLA   S YSCLTLS= ^YSCL(603. 04,1,1,YSC LA,0),YSCL TLS($P(YSC LTLS,"^",2 ),$P(YSCLT LS,"^",1)) =$P(YSCLTL S,"^",3)
  72    S YSCLTL= "" F  S YS CLTL=$O(^Y SCL(603.04 ,1,1,"B",Y SCLTL)) Q: 'YSCLTL  D
  73     . D RR^L R7OR1(DFN, ,YSCLSD,DT ,,YSCLTL," L")
  74     . S YSCL SB1="" F   S YSCLSB1= $O(^TMP("L RRR",$J,DF N,YSCLSB1) ) Q:YSCLSB 1=""  D
  75     . . S YS CLTDT="" F   S YSCLTD T=$O(^TMP( "LRRR",$J, DFN,YSCLSB 1,YSCLTDT) ) Q:YSCLTD T=""  I $P (YSCLTDT," .",2)]"" D
  76     . . . S  YSCLTA=""  F  S YSCLT A=$O(^TMP( "LRRR",$J, DFN,YSCLSB 1,YSCLTDT, YSCLTA)) Q :YSCLTA=""   I YSCLTA  D
  77     . . . .  S RESULTS1 =^TMP("LRR R",$J,DFN, YSCLSB1,YS CLTDT,YSCL TA)
  78     . . . .  S RESULTS( YSCLTL,YSC LTDT)=$P(R ESULTS1,"^ ",2)
  79    ;Find all  entries f or WBC and  sort by i nverse dat e.
  80    S YSCLA=" " F  S YSC LA=$O(YSCL TLS("W",YS CLA)) Q:'Y SCLA  S YS CLXWBC(YSC LA)="" D
  81     . S YSCL A1="" F  S  YSCLA1=$O (RESULTS(Y SCLA,YSCLA 1)) Q:'YSC LA1  S YSC LYWBC(YSCL A1)=RESULT S(YSCLA,YS CLA1)_"^"_ $P($G(^LAB (60,YSCLA, 0)),"^")_" ^"_YSCLTLS ("W",YSCLA )
  82    S YSCLRWB C=$O(YSCLY WBC(0)) I  'YSCLRWBC  D KILL Q " 0^^^^^^"_Y SCLFRQ
  83    S YSCLMUL T=$P(YSCLY WBC(YSCLRW BC),"^",3) ,YSCLMULT= $S(YSCLMUL T:1000,1:1 )
  84    S YSCLRWB C(YSCLRWBC )=($P(YSCL YWBC(YSCLR WBC),"^")* YSCLMULT)_ "^"_$P(YSC LYWBC(YSCL RWBC),"^", 2)
  85    ;Scan for  Neutrophi l count on  same day  and time a s most rec ent WBC
  86    S YSCLMTC H=0 F YSCL A="A","N", "S","T" S  YSCLTPT=""  Q:YSCLMTC H  F  S YS CLTPT=$O(Y SCLTLS(YSC LA,YSCLTPT )) Q:'YSCL TPT  D  Q: YSCLMTCH
  87     . S YSCL MULT=YSCLT LS(YSCLA,Y SCLTPT),YS CLMULT=$S( YSCLMULT:1 000,1:1)
  88     . I $D(R ESULTS(YSC LTPT,YSCLR WBC)),YSCL A="A",RESU LTS(YSCLTP T,YSCLRWBC )'?1A.E S  YSCLMTCH=1 ,YSCLRANC( YSCLRWBC)= RESULTS(YS CLTPT,YSCL RWBC)*YSCL MULT_"^"_$ P(^LAB(60, YSCLTPT,0) ,"^") Q
  89     . I $D(R ESULTS(YSC LTPT,YSCLR WBC)),YSCL A="N",RESU LTS(YSCLTP T,YSCLRWBC )'?1A.E S  YSCLMTCH=1 ,YSCLRANC( YSCLRWBC)= YSCLRWBC(Y SCLRWBC)*( (RESULTS(Y SCLTPT,YSC LRWBC))*.0 1)_"^"_$P( ^LAB(60,YS CLTPT,0)," ^") Q
  90     . I $D(R ESULTS(YSC LTPT,YSCLR WBC)),YSCL A="S",RESU LTS(YSCLTP T,YSCLRWBC )'?1A.E D
  91     . . S YS CLSGS="" F   S YSCLSG S=$O(YSCLT LS("B",YSC LSGS)) D   Q:YSCLMTCH
  92     . . . S: 'YSCLSGS Y SCLSGS="Z"  I '$D(RES ULTS(YSCLS GS,YSCLRWB C)) S RESU LTS(YSCLSG S,YSCLRWBC )=0
  93     . . . S  YSCLMTCH=1 ,YSCLRANC( YSCLRWBC)= YSCLRWBC(Y SCLRWBC)*( (RESULTS(Y SCLTPT,YSC LRWBC)*.01 )+(RESULTS (YSCLSGS,Y SCLRWBC)*. 01))_"^"_$ P(^LAB(60, YSCLTPT,0) ,"^")_"/"_ $P($G(^LAB (60,YSCLSG S,0)),"^")  Q
  94     . I $D(R ESULTS(YSC LTPT,YSCLR WBC)),YSCL A="C",RESU LTS(YSCLTP T,YSCLRWBC )'?1A.E D
  95     . . S YS CLSGS="" F   S YSCLSG S=$O(YSCLT LS("T",YSC LSGS)) D   Q:YSCLMTCH
  96     . . . S: 'YSCLSGS Y SCLSGS="Z"  I '$D(RES ULTS(YSCLS GS,YSCLRWB C)) S RESU LTS(YSCLSG S,YSCLRWBC )=0
  97     . . . S  YSCLMTCH=1 ,YSCLRANC( YSCLRWBC)= ((RESULTS( YSCLTPT,YS CLRWBC)*YS CLMULT)+(R ESULTS(YSC LSGS,YSCLR WBC)*YSCLM ULT))_"^"_ $P(^LAB(60 ,YSCLTPT,0 ),"^")_"/" _$P($G(^LA B(60,YSCLS GS,0)),"^" ) Q
  98    D KILL
  99    I $G(YSCL RWBC(YSCLR WBC))<3000 !($G(YSCLR ANC(YSCLRW BC))<1500)  Q "0^"_$G (YSCLRWBC( YSCLRWBC)) _"^"_$S($G (YSCLRANC( YSCLRWBC)) ="":"^",1: $G(YSCLRAN C(YSCLRWBC )))_"^"_(9 999999-YSC LRWBC)_"^" _YSCLFRQ
  100    I $G(YSCL RWBC(YSCLR WBC))<3500 !($G(YSCLR ANC(YSCLRW BC))<2000)  Q "2^"_$G (YSCLRWBC( YSCLRWBC)) _"^"_$S($G (YSCLRANC( YSCLRWBC)) ="":"^",1: $G(YSCLRAN C(YSCLRWBC )))_"^"_(9 999999-YSC LRWBC)_"^" _YSCLFRQ
  101    Q "1^"_YS CLRWBC(YSC LRWBC)_"^" _YSCLRANC( YSCLRWBC)_ "^"_(99999 99-YSCLRWB C)_"^"_YSC LFRQ
  102    ;
  103   KILL ;
  104    K FDA,YSC LSGS,Y15,R ESULTS,RES ULTS1,YSCL A,YSCLA1,Y SCLMTCH,YS CLSB1,YSCL SD,YSCLTA, YSCLMULT
  105    K YSCLTL, YSCLTLS,X1 ,X2
  106    Q
  107    ;
  108   OVERRIDE(D FN) ;Check  for an ov er-ride.
  109    S YSCLOVR =$O(^YSCL( 603.01,"C" ,DFN,""))
  110    Q:YSCLOVR ="" 0
  111    S YSCLOVR =$P(^YSCL( 603.01,YSC LOVR,0),"^ ",4)
  112    Q YSCLOVR =DT
  113    ;
  114   ZEOR ;YSCL TST2