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