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 | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 284 |
Changed | 1 | 2 |
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 | 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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.