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

314.1 Files compared

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

314.2 Comparison summary

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

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

314.4 Active regular expressions

No regular expressions were active.

314.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   YSCLTST3^I NT^1^63910 ,74846^0
  4   YSCLTST3 ; DALOI/LB/R LM-TRANSMI SSION FOR  CLOZAPINE  REPORTING  SYSTEM ;26  June 91
  5    ;;5.01;ME NTAL HEALT H;**18,22, 25,26,47,6 1,69,74,90 **;Dec 30,  1994;Buil d 18
  6    ; Referen ce to ^DPT  supported  by IA #10 035
  7    ; Referen ce to ^PS( 55 support ed by IA # 787
  8    ; Referen ce to ^PS( 59 support ed by IA # 783
  9    ; Referen ce to ^VA( 200 suppor ted by IA  #10060
  10    ; Referen ce to ^LAB (60 suppor ted by IA  #333
  11    ; Referen ce to ^XMD  supported  by IA #10 070
  12   DEMOG ; Ol d entry po int to sen d demograp hic data f or patient s from tas k. Obsolet e
  13    Q
  14   DMG ; Call ed by YSCL TEST
  15    S YSDEBUG =$P(^YSCL( 603.03,1,0 ),"^",3)
  16    K ^TMP($J ),^TMP("YS CL",$J),^T MP("YSCLL" ,$J) S YSC LLN=0,YSCL NO=20,DFN= 0,YSCLIEN= 0
  17    F  K YSCL A S YSCLIE N=$O(^YSCL (603.01,YS CLIEN)) Q: 'YSCLIEN   S DFN=$P($ G(^YSCL(60 3.01,YSCLI EN,0)),"^" ,2) S $P(Y SSTOP,",", 8)=8 Q:$$S ^%ZTLOAD   D:DFN
  18     . I $D(^ DPT(DFN,0) ),$D(^YSCL (603.01,YS CLIEN,0))  S YSCLC=$P ($G(^YSCL( 603.01,YSC LIEN,0))," ^",1) D GE T
  19    D TRANSMI T:YSCLLN G  END
  20    ;
  21   GET ;
  22    S $P(YSST OP,",",9)= 9 Q:$$S^%Z TLOAD
  23    Q:'$D(^PS (55,DFN,"S AND"))  ;D on't try t o transmit  if no pha rmacy reco rd
  24    Q:$P(^PS( 55,DFN,"SA ND"),"^",4 )  ;Don't  retransmit  demograph ics.
  25    Q:$D(^TMP ("YSCLL",$ J,DFN))
  26    S ^TMP("Y SCLL",$J,D FN)=1
  27    S YSCLP=+ $P($G(^PS( 55,DFN,"SA ND")),"^", 5),YSCLDEA =$P($G(^VA (200,YSCLP ,"PS")),"^ ",2),YSCLP =$P($G(^VA (200,YSCLP ,0)),"^")
  28    D DEM^VAD PT,ADD^VAD PT S YSCL= YSCLC_"^"_ $E($P(VADM (1),",",2) )_$E(VADM( 1))_"^"_$P (VADM(3)," ^")_"^"_$P (VADM(2)," ^")_"^"_$P (VADM(5)," ^")_"^"_VA PA(6)_"^"_ DT
  29    D
  30     . S YSRA CE="*"
  31     . S YSRC =0 F  S YS RC=$O(VADM (11,YSRC))  Q:'YSRC   S YSRACE=Y SRACE_+VAD M(11,YSRC) _"-"_+VADM (11,YSRC,1 )_","
  32     . S YSRA CE=YSRACE_ "~"
  33     . S YSRC =0 F  S YS RC=$O(VADM (12,YSRC))  Q:'YSRC   S YSRACE=Y SRACE_+VAD M(12,YSRC) _"-"_+VADM (12,YSRC,1 )_","
  34    S YSCL=YS CL_"^"_YSR ACE_"^"_YS CLP_"^"_YS CLDEA
  35    S YSCLGL= $S($D(^PS( 59)):"^PS" ,1:"^DIC")
  36    ;YSCLGL i s used to  indirectly  hold the  global ref erence for  file 59.  This is ne cessary du e to chang es in the  file locat ion. The $ select may  be expand ed to cove r future m oves. DBIA  273-B
  37    F YSCLJ=0 :0 S YSCLJ =$O(@YSCLG L@(59,YSCL J)) Q:'YSC LJ  I $D(^ (YSCLJ,"SA ND")) S YS CLJ=$P(^(0 ),"^",5) Q
  38    S YSCL=YS CL_"^"_YSC LJ
  39    ;registra tion numbe r^initials ^dob^ssn^s ex^zip^tod ay^race^ph ysician^de a^zip code  (hosp)
  40    S YSCLLN= YSCLLN+1,^ TMP($J,YSC LLN,0)=YSC L
  41    I VADM(5) =""!(VAPA( 6)="")!('V ADM(11))!( 'VADM(12))  D  ;RLM R ACETEST
  42     . S ^TMP ("YSCL",$J ,YSCLNO,0) =$P(VADM(2 ),"^",1)_"    "_VADM( 1)
  43     . S:VADM (5)="" ^TM P("YSCL",$ J,YSCLNO,0 )=^TMP("YS CL",$J,YSC LNO,0)_" ( SEX)"
  44     . S:VAPA (6)="" ^TM P("YSCL",$ J,YSCLNO,0 )=^TMP("YS CL",$J,YSC LNO,0)_" ( ZIP)"
  45     . S:'VAD M(12) ^TMP ("YSCL",$J ,YSCLNO,0) =^TMP("YSC L",$J,YSCL NO,0)_" (R ACE, NEW F ORMAT)"
  46     . S:'VAD M(11) ^TMP ("YSCL",$J ,YSCLNO,0) =^TMP("YSC L",$J,YSCL NO,0)_" (E THNICITY)"
  47     . S YSCL NO=YSCLNO+ 1
  48     . S ^TMP ("YSCLL",$ J,DFN)=0 ;  leave unm arked pend ing demogr aphic data
  49     . I ('VA DM(11))!(' VADM(12))  D
  50     . . S ^T MP("YSCL", $J,YSCLNO, 0)="NOTE:  Race and E thnicity m ay be ente red if per mission is  obtained  in the inf ormed cons ent",YSCLN O=YSCLNO+1
  51     . . S ^T MP("YSCL", $J,YSCLNO, 0)="docume nt. See VH A Directiv e 99-035." ,YSCLNO=YS CLNO+1
  52    ;
  53    Q
  54    ;
  55   TRANSMIT ;  remote an d local me ssages
  56    S $P(YSST OP,",",10) =10 Q:$$S^ %ZTLOAD
  57    S XMY("S. RUCLDEM@FO -HINES URL          ")=""
  58    I YSDEBUG  K XMY S X MY("G.CLOZ APINE DEBU G@FO-DALLA S URL          ")="",XMY( "G.RUCLDEM @FO-DALLAS URL          ")=""
  59    S XMDUZ=" CLOZAPINE  MONITOR",X MTEXT="^TM P($J,",XMS UB=$S(YSDE BUG:"DEBUG  ",1:"")_" Clozapine  demographi cs" D ^XMD  S $P(^YSC L(603.03,1 ,0),"^",6) =$$NOW^XLF DT
  60    K XMY S X MY("G.PSOC LOZ")=""
  61    I YSDEBUG  K XMY S X MY("G.CLOZ APINE DEBU G@FO-DALLA S URL          ")=""
  62    S XMSUB=$ S(YSDEBUG: "DEBUG ",1 :"")_"Cloz apine demo graphics", ^TMP("YSCL ",$J,2,0)= " ",XMDUZ= "CLOZAPINE  MONITOR", ^TMP("YSCL ",$J,1,0)= "Clozapine  demograph ic data wa s transmit ted, "_YSC LLN_" reco rds were s ent.",XMTE XT="^TMP(" "YSCL"",$J ,"
  63    I $O(^TMP ("YSCL",$J ,10)) S ^T MP("YSCL", $J,3,0)="F or the fol lowing pat ients, one  or more o f the requ ired data" ,^TMP("YSC L",$J,4,0) ="elements  (race, se x, ZIP cod e) were mi ssing.",^T MP("YSCL", $J,5,0)="  "
  64    I  S ^TMP ("YSCL",$J ,6,0)="Ple ase have t his inform ation ente red.",^TMP ("YSCL",$J ,7,0)="The  available  data was  transmitte d.",^TMP(" YSCL",$J,8 ,0)=" "
  65    D ^XMD
  66    ; set tra nsmitted f ield in 55  from ^TMP ("YSCLL",$ J)
  67    F DFN=0:0  S DFN=$O( ^TMP("YSCL L",$J,DFN) ) Q:'DFN   I ^TMP("YS CLL",$J,DF N) S $P(^P S(55,DFN," SAND"),"^" ,4)=1
  68    Q
  69    ;
  70   FLERR ;
  71    K XMY
  72    S XMY("G. CLOZAPINE  ROLL-UP@FO RUM.VA.GOV ")=""
  73    I YSDEBUG  K XMY S X MY("G.CLOZ APINE DEBU G@FO-DALLA S URL          ")=""
  74    S %DT="T" ,X="NOW" D  ^%DT S YS CLNOW=$P(Y ,".",2)
  75    S YSCLSIT E=$P($$SIT E^VASITE," ^",2)
  76    S XMSUB=$ S(YSDEBUG: "DEBUG ",1 :"")_"Cloz apine lab  data error  at "_YSCL SITE_" on  "_DT_" at  "_YSCLNOW, ^TMP("YSCL ",$J,1,0)= " "
  77    S ^TMP("Y SCL",$J,2, 0)="### Cl ozapine da ta error a t "_YSCLSI TE_" on "_ DT_" +++"
  78    S ^TMP("Y SCL",$J,3, 0)=" Cloza pine Lab T est file n ot properl y defined. "
  79    S ^TMP("Y SCL",$J,4, 0)=" Data  cannot be  transmitte d!"
  80    S XMTEXT= "^TMP(""YS CL"",$J,", XMDUZ="Clo zapine MON ITOR" D ^X MD
  81    G END^YSC LTST2
  82    Q
  83   TLIST ;
  84    I '$D(^YS CL(603.04) ) W !,"Pat ch YS*5.01 *90 not pr operly ins talled.  C ontact IRM " S DIR(0) ="E" D ^DI R Q
  85    W !,"Curr ently link ed Tests:"  I '$O(^YS CL(603.04, 1,1,0)) W  !,"No test s linked", !
  86    S YSCLA=0
  87    F  S YSCL A=$O(^YSCL (603.04,1, 1,YSCLA))  Q:'YSCLA   S YSCLB=^Y SCL(603.04 ,1,1,YSCLA ,0) D
  88     . W !,$P (^LAB(60,$ P(YSCLB,"^ "),0),"^") ," represe nts " S YS CLB=$P(YSC LB,"^",2)
  89     . W $S(Y SCLB="W":" WHITE BLOO D COUNT",Y SCLB="A":" ABSOLUTE N EUTROPHIL  COUNT",YSC LB="N":"NE UTROPHIL P ERCENT",YS CLB="S":"S EGS %",YSC LB="B":"BA NDS %",YSC LB="T":"BA NDS ABSOLU TE",YSCLB= "C":"SEGS  ABSOLUTE", 1:"Bad Rec ord")
  90    F  K DIR  S DIR(0)=" PA^60:EMZ" ,DIR("A")= "Enter the  name of t he test fo r Clozapin e: " W ! D  ^DIR Q:Y= "^"!($D(DT OUT))!($D( DUOUT))  S  YSCLTST=+ Y D  Q:Y=" ^"!($D(DTO UT))!($D(D UOUT))
  91     . I $D(^ YSCL(603.0 4,1,1,"B", YSCLTST))  G TEXIST
  92     . K DIR  S DIR(0)=" SA^W:WHITE  BLOOD COU NT;A:ABSOL UTE NEUTRO PHIL COUNT ;N:NEUTROP HIL PERCEN T;S:SEGS % ;B:BANDS % ;T:BANDS A BSOLUTE;C: SEGS ABSOL UTE"
  93     . S DIR( "A")="Ente r the type  of the te st for Clo zapine: "   D ^DIR Q: Y["^"!($D( DTOUT))!($ D(DUOUT))   S YSCLTS1 =Y
  94     . K DIR  S DIR(0)=" SA^0:uL;1: K/uL;2:Per cent"
  95     . S DIR( "A")="Ente r the repo rting meth od of the  test for C lozapine:  "  D ^DIR  Q:Y["^"!($ D(DTOUT))! ($D(DUOUT) )  S YSCLT S2=Y
  96     . K YSCL ERR
  97     . D VAL^ DIE(603.41 ,"+1,1,",. 01,"F","`" _YSCLTST,. YSCLRES,"F DA","YSCLE RR")
  98     . I $D(Y SCLERR) W  !,"There w as a probl em with th e data, pl ease re-en ter it" Q
  99     . D VAL^ DIE(603.41 ,"+1,1,",1 ,"F",YSCLT S1,.YSCLRE S,"FDA","Y SCLERR")
  100     . I $D(Y SCLERR) W  !,"There w as a probl em with th e data, pl ease re-en ter it" Q
  101     . D VAL^ DIE(603.41 ,"+1,1,",2 ,"F",YSCLT S2,.YSCLRE S,"FDA","Y SCLERR")
  102     . I $D(Y SCLERR) W  !,"There w as a probl em with th e data, pl ease re-en ter it" Q
  103     . D UPDA TE^DIE(,"F DA",,"ERRO R")
  104     . I $D(Y SCLERR) W  !,"There w as a probl em with th e data, pl ease re-en ter it" Q
  105    Q
  106   TEXIST ;
  107    W !,"This  entry alr eady exist s.  Do you  wish to d elete it?"  K DIR S D IR(0)="Y"  D ^DIR Q:' Y!($D(DTOU T))!($D(DU OUT))
  108    S DA(1)=1 ,DA=$O(^YS CL(603.04, 1,1,"B",YS CLTST,"")) ,DIE="^YSC L(603.04,1 ,1,",DR=". 01////@" D  ^DIE W !, "Deleted"  S Y="" Q
  109    Q
  110   END K %,C, D,DA,DFN,D ISYS,DR,I, R,VADM,VAP A,VAERR,Y, YSCL,YSCL1 ,YSCL2,YSC LC,YSCLDEA ,YSCLJ,YSC LLN,YSCLNA ME,YSCLNO, YSCLP,^TMP ($J),^TMP( "YSCL",$J) ,^TMP("YSC LL",$J) Q
  111    Q
  112   END1 ;
  113    K ^TMP($J ),^TMP("YS CL",$J)
  114    K %,%DT,% H,%T,AGE,C ,CNT,D,DA, DFN,DIE,DI K,DIR,DIRO UT,DIRUT,D ISYS,DOB,D R
  115    K DRG,DTO UT,DUOUT,I ,IOF,J,K,L AB,LABT,PN M,POP,R,RE SULTS1,SEX ,SSN,VADM, VAERR,VAPA
  116    K X,X1,X2 ,XMDUZ,XMS UB,XMTEXT, XMY,XMZ,Y, YSACT,YSCL ,YSCL1,YSC L2,YSCL28, YSCLA,YSCL A1,YSCLAB
  117    K YSCLAB1 ,YSCLAB2,Y SCLAB3,YSC LAB4,YSCLC ,YSCLD,YSC LD0,YSCLD1 ,YSCLDAT1
  118    K YSCLDAT A,YSCLDEA, YSCLDEMO,Y SCLED,YSCL F,YSCLFF,Y SCLFRQ,YSC LGL,YSCLGR N,YSCLI
  119    K YSCLID, YSCLIED,YS CLIEN,YSCL IF,YSCLJ,Y SCLLAB,YSC LLD,YSCLLD FN,YSCLLDN
  120    K YSCLLDT ,YSCLLK,YS CLLLN,YSCL LN,YSCLLO, YSCLM180,Y SCLM28,YSC LM56,YSCLM 7,YSCLMTCH ,YSCLNAME
  121    K YSCLNO, YSCLNOW,YS CLNST1,YSC LNSTE,YSCL OVR,YSCLP, YSCLPHY,YS CLR,YSCLRE S,YSCLRET, YSCLRWBC,Y SCLRX
  122    K YSCLRX2 ,YSCLSAND, YSCLSB1,YS CLSD,YSCLS GS,YSCLSIT E,YSCLSN,Y SCLSP,YSCL T,YSCLTA,Y SCLTDT,YSC LTEST
  123    K YSCLTL, YSCLTPT,YS CLTLS,YSCL TLS1,YSCLT S1,YSCLTST ,YSCLTYPE, YSCLWBC,YS CLWBCC
  124    K YSCLWBC T,YSCLX,YS CLZ2,YSDEB UG,YSOFF,Y SRACE,YSRC ,YSSTOP,YS TEXT,ZTDES C
  125    K ZTDTH,Z TIO,ZTREQ, ZTRTN,ZTSA VE,ZTSTOP
  126    Q
  127   ZEOR ;YSCL TST3