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