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

310.1 Files compared

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

310.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 284
Changed 1 2
Inserted 0 0
Removed 0 0

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

310.4 Active regular expressions

No regular expressions were active.

310.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   YSCLSERV^I NT^1^63910 ,74846^0
  4   YSCLSERV ; DALOI/RLM- Clozapine  data serve r ;24 APR  1990
  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 ^%ZO SF support ed by IA # 10096
  7    ; Referen ce to ^DPT  supported  by IA #10 035
  8    ; Referen ce to ^DD( "DD" suppo rted by IA  #10017
  9    ; Referen ce to ^PS( 55 support ed by IA # 787
  10    ; Referen ce to ^PSD RUG suppor ted by IA  #25
  11    ; Referen ce to ^PSR X supporte d by IA #7 80
  12    ; Referen ce to ^VA( 200 suppor ted by IA  #10060
  13    ; Referen ce to $$SI TE^VASITE  supported  by IA #101 12
  14    ; Referen ce to $$FM TE^XLFDT()  supported  by IA #10 103
  15    ; Referen ce to ^PSD RUG suppor ted by IA  #221
  16    ; Referen ce to ^XMD  supported  by IA #10 070
  17   START ;
  18    K ^TMP($J ,"YSCLDATA ")
  19    S YSDEBUG =$P(^YSCL( 603.03,1,0 ),"^",3)
  20    S YSCLST= $P($$SITE^ VASITE,"^" ,3)
  21    S YSCLSTN =$P($$SITE ^VASITE,"^ ",2)
  22    ;Determin e station  number
  23    S X=XQSUB  X ^%ZOSF( "UPPERCASE ") S YSCLS UB=Y
  24    S ^TMP($J ,"YSCLDATA ",1)=$S(YS DEBUG:"DEB UG ",1:"") _YSCLSUB_"  triggered  at "_YSCL ST_" by "_ XMFROM_" o n "_XQDATE
  25    ;The firs t line of  the messag e tells wh o requeste d the acti on and whe n
  26    D
  27     . S YSAC TION=$S(YS CLSUB["REM OVE"!(YSCL SUB["DELET E"):"data  deleted",Y SCLSUB["RE PORT":"rep ort genera ted",YSCLS UB["REBUIL D":"data v erified",Y SCLSUB["UP DATE":"dat a updated" ,YSCLSUB[" DATESET":" date set", 1:"CONT")
  28     . I YSAC TION="CONT " S YSACTI ON=$S(YSCL SUB["DEMOG  RESET":"D emographic s Flag Res et",YSCLSU B["DEBUG": "Debug Mod e set",YSC LSUB["AUTH ":"Authori zation",YS CLSUB["LOC K":"Lock", 1:"Site Lo ck")
  29     . S ^TMP ($J,"YSCLD ATA",2)="N o "_$S(YSD EBUG:"DEBU G ",1:"")_ YSACTION_"  at "_YSCL ST
  30    ;The seco nd line te lls when t he server  is activat ed and no  data can b e
  31    ;gathered  from the  MailMan me ssage.  Th is line ge ts replace d if the
  32    ;server f inds somet hing to do .
  33    S YSCLLNT =1 I YSCLS UB["REMOVE "!(YSCLSUB ["DELETE")  G DELETE
  34    ;If the s ubject con tains the  word REMOV E or DELET E delete t hose entri es from th e list.
  35    I YSCLSUB ["REPORT"  G REPORT
  36    ;If the s ubject con tains "REP ORT" send  a report o f the curr ently regi stered pat ients to t he Clozapi ne group o n Forum
  37    ;I YSCLSU B["REBUILD " G REBUIL D
  38    I YSCLSUB ["RESEND"  G RESEND
  39    I YSCLSUB ["UPDATE"  G UPDATE
  40    ;I YSCLSU B["CHECKSU M" G CSUM^ YSCLSRV1
  41    I YSCLSUB ["DATESET"  G DSET
  42    I YSCLSUB ["DEBUG" G  DEBUG
  43    I YSCLSUB ["PATIENT"  G ^YSCLSR V3
  44    I YSCLSUB ["LOCKOUT"  G LOCK^YS CLSRV3
  45    I YSCLSUB ="DEMOG RE SET" G DEM OG^YSCLSRV 3
  46    I YSCLSUB ["AUTHORIZ E" G AUTH^ YSCLSRV3
  47    I YSCLSUB ="OVERRIDE " G OVRRID ^YSCLSRV2
  48    I YSCLSUB ="CLAPI" G  CLAPI^YSC LSRV2
  49    I YSCLSUB ="CL1API"  G CL1API^Y SCLSRV2
  50    I YSCLSUB ["DISCON"  G DCON^YSC LSRV2
  51    F  X XMRE C Q:XMER<0   S XMRG=$ TR(XMRG,"-  ","") D
  52     . ;Verif y that + o f site num ber matche s local si te number
  53     . I XMRG '?2U5N1"," 9N1","1U S  YSCLER="  is in erro r and was  not added  at " D OUT  Q
  54     . I $P(X MRG,",")'? 2U5N S YSC LER=" is n ot a valid  Clozapine  number "  D OUT Q
  55     . I $P(X MRG,",",2) '?9N S YSC LER=" An S SN must be  9 numbers  " D OUT Q
  56     . I $P(X MRG,",",3) '="B",$P(X MRG,",",3) '="W",$P(X MRG,",",3) '="M" S YS CLER=" You  must spec ify Weekly , Biweekly , or Month ly " D OUT  Q
  57     . ;Valid ate the fo rmat of th e data in  the messag e and repo rt the err or.
  58     . S DIC= "^DPT(",DI C(0)="X",D ="SSN",X=$ P(XMRG,"," ,2) I '$D( ^DPT("SSN" ,X)) S YSC LER=" SSN  does not e xist at "  D OUT Q
  59     . ;Do no t add data  for recor ds where t he SSN sen t is not i n the loca l database
  60     . I $D(^ YSCL(603.0 1,"B",$P(X MRG,",")))  S YSCLX=$ O(^YSCL(60 3.01,"B",$ P(XMRG,"," ),"")) S:Y SCLX]"" YS CLX=$P(^YS CL(603.01, YSCLX,0)," ^",2),YSCL ER=" Cloza pine # is  in use by  "_$P($G(^D PT(YSCLX,0 )),"^")_"  at " D OUT  Q
  61     . D MIX^ DIC1 S YSC LPT=+Y I Y =-1 S YSCL ER=" could  not be ad ded at " D  OUT Q
  62     . ;Add t he data an d report a ny errors  to the Rol l-Up group  at Forum.
  63     . K DD S  DIC="^YSC L(603.01," ,X=$P(XMRG ,","),DIC( "DR")="1// //"_YSCLPT _";2////"_ $P(XMRG,", ",3) K DO  D FILE^DIC N
  64     . S YSCL X=$O(^YSCL (603.01,"B ",$P(XMRG, ","),""))  S:YSCLX]""  YSCLX=$P( ^YSCL(603. 01,YSCLX,0 ),"^",2),Y SCLER=" as signed to  "_$P($G(^D PT(YSCLX,0 )),"^")_"  at " D OUT
  65   EXIT ;If a ll went we ll, report  that too.
  66    S YSDEBUG =$P(^YSCL( 603.03,1,0 ),"^",3)
  67    S %H=$H D  YMD^%DTC  S XMDUN="N CCC LOGGER ",XMDUZ=". 5",XMSUB=$ S(YSDEBUG: "DEBUG ",Y SCLSUB["DE BUG":"DEBU G ",1:"")_ YSCLST_" N CCC ENROLL ER ("_X_%_ ")",XMTEXT ="^TMP($J, ""YSCLDATA "","
  68    K XMY S X MY("G.CLOZ APINE ROLL -UP@FORUM. VA.GOV")=" "
  69    I YSDEBUG !(YSCLSUB[ "DEBUG") S  XMY("G.CL OZAPINE DE BUG@FO-DAL LAS URL          ")=""
  70    D ^XMD
  71    ;Mail the  errors an d successe s back to  the Roll-U p group at  Forum.
  72    K ^TMP($J ,"YSCLDATA ")
  73    K %,%DT,% H,D,DA,DD, DIC,DIE,DI K,RET,X,XM DUN,XMDUZ, XMER,XMFRO M
  74    K XMREC,X MRG,XMSUB, XMTEXT,XMY ,XMZ,XQDAT E,XQSUB,Y, YSA,YSACTI ON,YSCLTYP E
  75    K YSCL28, YSCLA,YSCL AA,YSCLB,Y SCLC,YSCLD A,YSCLDA1, YSCLDATA,Y SCLDEA1
  76    K YSCLDFN ,YSCLDM,YS CLDOC,YSCL DOM,YSCLDR ,YSCLDRA,Y SCLDRB,YSC LDTA,YSCLE RR
  77    K YSCLDUZ ,YSCLED,YS CLER,YSCLF DA,YSCLFRQ ,YSCLLNT,Y SCLNM,YSCL OVR,YSCLSI TE
  78    K YSCLPT, YSCLRPT,YS CLSD1,YSCL SDT,YSCLSS N,YSCLST,Y SCLSTN,YSC LSUB,YSCLT C
  79    K YSCLRX, YSCLSAND,Y SCLWB,YSCL X,YSCLYN,Y SDEBUG,YSI ,YSOFF,YSP R,ZTQUEUED ,ZTSK
  80    Q
  81   DELETE ;Al low the NC CC users t o delete c lozapine r egistratio n at the i ndividual  sites
  82    S YSCLLNT =1 F  X XM REC Q:XMER <0  S XMRG =$TR(XMRG, "- ","") D
  83     . I XMRG ="**++**DE LETEALL**+ +**" D DEL ALL Q
  84     . I '$D( ^YSCL(603. 01,"B",$P( XMRG,",")) ) S YSCLER =" "_$P(XM RG,",")_"  is not reg istered at  " D OUT Q
  85     . S YSCL DFN=$O(^DP T("SSN",$P (XMRG,",", 2),"")) I  YSCLDFN=""  S YSCLER= " "_$P(XMR G,",")_" i s not a va lid SSN at  " D OUT Q
  86     . I '$D( ^YSCL(603. 01,"C",YSC LDFN)) S Y SCLER=" "_ $P(XMRG,", ",2)_" is  not regist ered at "  D OUT Q
  87     . S YSCL A=$O(^YSCL (603.01,"B ",$P(XMRG, ","),""))  I YSCLA=""  S YSCLER= " "_$P(XMR G,",")_" i s not a va lid entry  at " D OUT  Q
  88     . K ^YSC L(603.01,Y SCLA),^YSC L(603.01," B",$P(XMRG ,","),YSCL A),^YSCL(6 03.01,"C", YSCLDFN,YS CLA)
  89     . S YSCL ER=" remov ed at " D  OUT
  90     . ;I $D( ^YSCL(603. 01,"C",+Y) ) K ^YSCL( 603.01,YSC LA),^YSCL( 603.01,"B" ,$P(XMRG," ,"),YSCLA) ,^YSCL(603 .01,"C",YS CLDFN,YSCL A) S YSCLE R=" remove d at " D O UT Q  ;RLM  9-29-99 A DDED QUIT
  91    G EXIT
  92   DELALL ;De lete all p atients in  file 603. 01
  93    S YSCLA=0  F  S YSCL A=$O(^YSCL (603.01,YS CLA)) Q:YS CLA=""  D
  94     . I YSCL A S YSCLER =$P(^YSCL( 603.01,YSC LA,0),"^", 1)_", "_$P (^DPT($P(^ YSCL(603.0 1,YSCLA,0) ,"^",2),0) ,"^",9)_",  ("_$P(^YS CL(603.01, YSCLA,0)," ^",3)_") g deleted at  " D OUT
  95     . K ^YSC L(603.01,Y SCLA)
  96    Q
  97   REPORT ;se nd report  of current  registrat ions to th e Clozapin e group on  Forum
  98    D REPORT^ YSCLSRV2 G  EXIT
  99   OUT S YSCL LNT=$G(YSC LLNT)+1,^T MP($J,"YSC LDATA",YSC LLNT)=XMRG _YSCLER_YS CLST Q
  100    ;Build th e text for  the retur n message  here.
  101   REBUILD ;
  102    D REBUILD ^YSCLSRV2  G EXIT
  103   UPDATE ;Up date recor d with Mon thly, Week ly or Bi-w eekly stat us
  104    F  X XMRE C Q:XMER<0   S XMRG=$ TR(XMRG,"-  ","") D
  105     . I XMRG '?2U5N1"," 9N1","1U S  YSCLER="  is in erro r and was  not added  at " D OUT  Q
  106     . I $P(X MRG,",")'? 2U5N S YSC LER=" is n ot a valid  Clozapine  number fo rmat " D O UT Q
  107     . I $P(X MRG,",",2) '?9N S YSC LER=" An S SN must be  9 numbers  " D OUT Q
  108     . I $P(X MRG,",",3) '="B",$P(X MRG,",",3) '="W",$P(X MRG,",",3) '="M" S YS CLER=" You  must spec ify Monthl y, Weekly  or Biweekl y " D OUT  Q  ;RLM 06 /15/05
  109     . S YSCL NM=$P(XMRG ,","),YSCL SSN=$P(XMR G,",",2),Y SCLWB=$P(X MRG,",",3)
  110     . I '$D( ^YSCL(603. 01,"B",YSC LNM)) S YS CLER=" doe s not exis t at " D O UT Q
  111     . S YSCL DA=$O(^DPT ("SSN",YSC LSSN,0))
  112     . I YSCL DA="" S YS CLER=" SSN  does not  exist at "  D OUT Q
  113     . I $O(^ YSCL(603.0 1,"B",YSCL NM,0))=""  S YSCLER="  SSN not i n Clozapin e file " D  OUT Q
  114     . I $O(^ DPT("SSN", YSCLSSN,YS CLDA)) S Y SCLER=" SS N has more  than one  owner " D  OUT Q
  115     . I $O(^ YSCL(603.0 1,"B",YSCL NM,0))'=$O (^YSCL(603 .01,"C",YS CLDA,0)) S  YSCLER="  SSN ("_YSC LSSN_","_$ P(^DPT(YSC LDA,0),"^" )_") has m ultiple Cl ozapine Nu mbers at "  D OUT
  116     . I $O(^ YSCL(603.0 1,"B",YSCL NM,0))=$O( ^YSCL(603. 01,"C",YSC LDA,0)) D
  117     . . S YS CLDA1=$O(^ YSCL(603.0 1,"B",YSCL NM,0)) S $ P(^YSCL(60 3.01,YSCLD A1,0),"^", 3)=YSCLWB
  118     . . S YS CLER=" "_Y SCLNM_" (" _$P(^DPT(Y SCLDA,0)," ^")_") upd ated to "_ $S(YSCLWB= "M":"Month ly",YSCLWB ="W":"Week ly",YSCLWB ="B":"Bi-w eekly",1:" Unknown")_ " at " D O UT ;06/15/ 05
  119    G EXIT
  120   RESEND ;Tr igger retr ansmission  of Clozap ine data
  121    X XMREC
  122    K %DT S X =XMRG,%DT= "P" D ^%DT  I Y=-1 S  YSCLER=" i s an inval id date, R ESEND not  triggered  at " D OUT  G EXIT
  123    S YSCLED= Y,(YSCLSDT ,X)=Y D H^ %DTC I %H# 7'=5 S YSC LER=" is n ot a Tuesd ay, RESEND  not trigg ered at "  D OUT G EX IT
  124    D SERV^YS CLTST2
  125    S Y=YSCLS DT X ^DD(" DD") S YSC LER=" - Re send trigg ered (loca l task #"_ $G(ZTSK)_" ) by "_XMF ROM_" for  "_Y_" at "  D OUT
  126    G EXIT
  127   DSET ;Set  the day of  the week  for the ro ll-up to r un.
  128    X XMREC Q :XMER<0  S  X=$TR(XMR G,"- ","")
  129    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)
  130    I YSOFF>6  S YSCLLNT =$G(YSCLLN T)+1,^TMP( $J,"YSCLDA TA",YSCLLN T)=X_" isn 't a valid  day of th e week." G  EXIT
  131    S $P(^YSC L(603.03,1 ,0),"^",2) =X
  132    S YSCLLNT =$G(YSCLLN T)+1,^TMP( $J,"YSCLDA TA",YSCLLN T)="Run da y set to " _X
  133    G EXIT
  134    Q
  135   DEBUG ;Tur n debug mo de on and  off.
  136    I YSCLSUB ["DEBUG ON " D
  137     . S YSCL LNT=$G(YSC LLNT)+1,^T MP($J,"YSC LDATA",YSC LLNT)="Deb ug Mode is  "_$S(YSDE BUG:"alrea dy",1:"now ")_" ON at  "_YSCLSTN
  138     . S $P(^ YSCL(603.0 3,1,0),"^" ,3)=1
  139    I YSCLSUB ["DEBUG OF F" D
  140     . S YSCL LNT=$G(YSC LLNT)+1,^T MP($J,"YSC LDATA",YSC LLNT)="Deb ug Mode is  "_$S('YSD EBUG:"alre ady",1:"no w")_" OFF  at "_YSCLS TN
  141     . S $P(^ YSCL(603.0 3,1,0),"^" ,3)=0
  142    G EXIT
  143   ZEOR ;YSCL SERV