- Timestamp:
- May 18, 2010, 3:43:43 PM (15 years ago)
- File:
-
- 1 edited
-
ccr/trunk/p/C0C_1_0_0_T22.KID (modified) (53 diffs)
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0C_1_0_0_T22.KID
r763 r764 1 KIDS Distribution saved on May 18, 2010@1 5:37:092 includes de-identification mode for testing1 KIDS Distribution saved on May 18, 2010@16:32:54 2 includes C0CPROC AND C0CCPT 3 3 **KIDS**:C0C 1.0^ 4 4 … … 76 76 77 77 "BLD",6967,6.3) 78 3 478 35 79 79 "BLD",6967,"INI") 80 80 PRE^C0CENV … … 130 130 9.8 131 131 "BLD",6967,"KRN",9.8,"NM",0) 132 ^9.68A^7 4^43132 ^9.68A^76^45 133 133 "BLD",6967,"KRN",9.8,"NM",22,0) 134 134 C0CRXN^^0^B103277157 … … 217 217 "BLD",6967,"KRN",9.8,"NM",74,0) 218 218 C0CIM2^^0^B20157375 219 "BLD",6967,"KRN",9.8,"NM",75,0) 220 C0CPROC^^0^B21479864 221 "BLD",6967,"KRN",9.8,"NM",76,0) 222 C0CCPT^^0^B13565934 219 223 "BLD",6967,"KRN",9.8,"NM","B","C0CACTOR",47) 220 224 … … 230 234 231 235 "BLD",6967,"KRN",9.8,"NM","B","C0CCCR0",42) 236 237 "BLD",6967,"KRN",9.8,"NM","B","C0CCPT",76) 232 238 233 239 "BLD",6967,"KRN",9.8,"NM","B","C0CDPT",53) … … 268 274 269 275 "BLD",6967,"KRN",9.8,"NM","B","C0CPROBS",39) 276 277 "BLD",6967,"KRN",9.8,"NM","B","C0CPROC",75) 270 278 271 279 "BLD",6967,"KRN",9.8,"NM","B","C0CQRY1",66) … … 86424 86432 D XPZ2^XPDIQ 86425 86433 "RTN") 86426 4 486434 46 86427 86435 "RTN","C0CACTOR") 86428 86436 0^47^B98962571 … … 86430 86438 C0CACTOR ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08 86431 86439 "RTN","C0CACTOR",2,0) 86432 ;;1.0;C0C;;May 19, 2009;Build 3 486440 ;;1.0;C0C;;May 19, 2009;Build 35 86433 86441 "RTN","C0CACTOR",3,0) 86434 86442 ;Copyright 2008,2009 George Lilly, University of Minnesota. … … 86976 86984 C0CALERT ; CCDCCR/CKU/GPL - CCR/CCD PROCESSING FOR ALERTS ; 09/11/08 86977 86985 "RTN","C0CALERT",2,0) 86978 ;;1.0;C0C;;May 19, 2009;Build 3 486986 ;;1.0;C0C;;May 19, 2009;Build 35 86979 86987 "RTN","C0CALERT",3,0) 86980 86988 ;Copyright 2008,2009 George Lilly, University of Minnesota and others. … … 87226 87234 C0CBAT ; CCDCCR/GPL - CCR Batch utilities; 4/21/09 87227 87235 "RTN","C0CBAT",2,0) 87228 ;;1.0;C0C;;May 19, 2009;Build 3 487236 ;;1.0;C0C;;May 19, 2009;Build 35 87229 87237 "RTN","C0CBAT",3,0) 87230 87238 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU … … 87696 87704 C0CCCD ; CCDCCR/GPL - CCD MAIN PROCESSING; 6/6/08 87697 87705 "RTN","C0CCCD",2,0) 87698 ;;1.0;C0C;;May 19, 2009;Build 3 487706 ;;1.0;C0C;;May 19, 2009;Build 35 87699 87707 "RTN","C0CCCD",3,0) 87700 87708 ;Copyright 2008,2009 George Lilly, University of Minnesota. … … 88242 88250 C0CCCD1 ; CCDCCR/GPL - CCD TEMPLATE AND ACCESS ROUTINES; 6/7/08 88243 88251 "RTN","C0CCCD1",2,0) 88244 ;;1.0;C0C;;May 19, 2009;Build 3 488252 ;;1.0;C0C;;May 19, 2009;Build 35 88245 88253 "RTN","C0CCCD1",3,0) 88246 88254 ;Copyright 2008,2009 George Lilly, University of Minnesota. … … 88780 88788 C0CCCR ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08 88781 88789 "RTN","C0CCCR",2,0) 88782 ;;1.0;C0C;;May 19, 2009;Build 3 488790 ;;1.0;C0C;;May 19, 2009;Build 35 88783 88791 "RTN","C0CCCR",3,0) 88784 88792 ;Copyright 2008,2009 George Lilly, University of Minnesota. … … 89312 89320 C0CCCR0 ; CCDCCR/GPL - CCR TEMPLATE AND ACCESS ROUTINES; 5/31/08 89313 89321 "RTN","C0CCCR0",2,0) 89314 ;;1.0;C0C;;May 19, 2009;Build 3 489322 ;;1.0;C0C;;May 19, 2009;Build 35 89315 89323 "RTN","C0CCCR0",3,0) 89316 89324 ;Copyright 2008,2009 George Lilly, University of Minnesota. … … 91075 91083 "RTN","C0CCCR0",883,0) 91076 91084 ;</TEMPLATE> 91085 "RTN","C0CCPT") 91086 0^76^B13565934 91087 "RTN","C0CCPT",1,0) 91088 C0CCPT ;;BSL;RETURN CPT DATA; 91089 "RTN","C0CCPT",2,0) 91090 ;Sequence Managers Software GPL;;;;;Build 35 91091 "RTN","C0CCPT",3,0) 91092 ;Copied into C0C namespace from SQMCPT with permission from 91093 "RTN","C0CCPT",4,0) 91094 ;Brian Lord - and with our thanks. gpl 01/20/2010 91095 "RTN","C0CCPT",5,0) 91096 ENTRY(DFN,STDT,ENDDT,TXT) ;BUILD TOTAL ARRAY OF ALL IEN'S FOR TIU NOTES 91097 "RTN","C0CCPT",6,0) 91098 ;DFN=PATIENT IEN 91099 "RTN","C0CCPT",7,0) 91100 ;STDT=START DATE IN 3100101 FORMAT (VA YEAR YYYMMDD) 91101 "RTN","C0CCPT",8,0) 91102 ;ENDDT=END DATE IN 3100101 FORMAT 91103 "RTN","C0CCPT",9,0) 91104 ;TXT=INCLUDE TEXT FROM ENCOUNTER NOTE 91105 "RTN","C0CCPT",10,0) 91106 ;THAT FALL INSIDE DATA RANGE. IF NO STDT OR ENDDT ASSUME 91107 "RTN","C0CCPT",11,0) 91108 ;ALL INCLUSIVE IN THAT DIRECTION 91109 "RTN","C0CCPT",12,0) 91110 ;LIST OF TIU DOCS IN ^TIU(8925,"ACLPT",3,DFN) 91111 "RTN","C0CCPT",13,0) 91112 ;BUILD INTO NOTE(Y)="" 91113 "RTN","C0CCPT",14,0) 91114 S U="^",X="" 91115 "RTN","C0CCPT",15,0) 91116 F S X=$O(^TIU(8925,"ACLPT",3,DFN,X)) Q:X="" D 91117 "RTN","C0CCPT",16,0) 91118 . S Y="" 91119 "RTN","C0CCPT",17,0) 91120 . F S Y=$O(^TIU(8925,"ACLPT",3,DFN,X,Y)) Q:Y="" D 91121 "RTN","C0CCPT",18,0) 91122 .. S NOTE(Y)="" 91123 "RTN","C0CCPT",19,0) 91124 ;NOW DELETE ANY NOTES THAT DON'T FALL INTO DATE RANGE 91125 "RTN","C0CCPT",20,0) 91126 ;GET DATE OF NOTE 91127 "RTN","C0CCPT",21,0) 91128 S Z="" 91129 "RTN","C0CCPT",22,0) 91130 F S Z=$O(NOTE(Z)) Q:Z="" D 91131 "RTN","C0CCPT",23,0) 91132 . S DT=$P(^TIU(8925,Z,0),U,7) 91133 "RTN","C0CCPT",24,0) 91134 . I $G(STDT)]"" D 91135 "RTN","C0CCPT",25,0) 91136 .. I STDT>DT S NOTE(Z)="D" ;SET NOTE TO BE DELETED 91137 "RTN","C0CCPT",26,0) 91138 . I $G(ENDDT)]"" D 91139 "RTN","C0CCPT",27,0) 91140 .. I ENDDT<DT S NOTE(Z)="D" 91141 "RTN","C0CCPT",28,0) 91142 . I NOTE(Z)="D" K NOTE(Z) 91143 "RTN","C0CCPT",29,0) 91144 D VISIT 91145 "RTN","C0CCPT",30,0) 91146 Q 91147 "RTN","C0CCPT",31,0) 91148 VISIT ;GET VISIT INFO FOR A GIVEN NOTE. BUILD INTO RETURN ARRAY .VISIT 91149 "RTN","C0CCPT",32,0) 91150 S ILST=1,X0="",X12="",VISIT="",LST="",X811="" 91151 "RTN","C0CCPT",33,0) 91152 S IEN="" F S IEN=$O(NOTE(IEN)) Q:IEN="" D 91153 "RTN","C0CCPT",34,0) 91154 . S X0=^TIU(8925,IEN,0),X12=$G(^(12)) 91155 "RTN","C0CCPT",35,0) 91156 . S VISIT=$P(X12,U,7) 91157 "RTN","C0CCPT",36,0) 91158 . I 'VISIT S VISIT=$P(X0,U,3) 91159 "RTN","C0CCPT",37,0) 91160 . K ^TMP("PXKENC",$J) 91161 "RTN","C0CCPT",38,0) 91162 . Q:VISIT=""!(VISIT'>0) 91163 "RTN","C0CCPT",39,0) 91164 . D ENCEVENT^PXKENC(VISIT,1) 91165 "RTN","C0CCPT",40,0) 91166 . I '$D(^TMP("PXKENC",$J,VISIT,"VST",VISIT,0)) Q 91167 "RTN","C0CCPT",41,0) 91168 . S IPRV=0 F S IPRV=$O(^TMP("PXKENC",$J,VISIT,"PRV",IPRV)) Q:'IPRV D 91169 "RTN","C0CCPT",42,0) 91170 .. S X0=^TMP("PXKENC",$J,VISIT,"PRV",IPRV,0) 91171 "RTN","C0CCPT",43,0) 91172 .. ;Q:$P(X0,U,4)'="P" 91173 "RTN","C0CCPT",44,0) 91174 .. S CODE=$P(X0,U),NARR=$P($G(^VA(200,CODE,0)),U) 91175 "RTN","C0CCPT",45,0) 91176 .. S PRIM=($P(X0,U,4)="P") 91177 "RTN","C0CCPT",46,0) 91178 .. S ILST=ILST+1 91179 "RTN","C0CCPT",47,0) 91180 .. S LST(ILST)="PRV"_U_CODE_"^^^"_NARR_"^"_PRIM 91181 "RTN","C0CCPT",48,0) 91182 .. S VISIT(IEN,"PRV",ILST)=CODE_"^^^"_NARR_"^"_PRIM 91183 "RTN","C0CCPT",49,0) 91184 . S IPOV=0 F S IPOV=$O(^TMP("PXKENC",$J,VISIT,"POV",IPOV)) Q:'IPOV D 91185 "RTN","C0CCPT",50,0) 91186 .. S X0=^TMP("PXKENC",$J,VISIT,"POV",IPOV,0),X802=$G(^(802)),X811=$G(^(811)) 91187 "RTN","C0CCPT",51,0) 91188 .. S CODE=$P(X0,U) 91189 "RTN","C0CCPT",52,0) 91190 .. S:CODE CODE=$P(^ICD9(CODE,0),U) 91191 "RTN","C0CCPT",53,0) 91192 .. S CAT=$P(X802,U) 91193 "RTN","C0CCPT",54,0) 91194 .. S:CAT CAT=$P(^AUTNPOV(CAT,0),U) 91195 "RTN","C0CCPT",55,0) 91196 .. S NARR=$P(X0,U,4) 91197 "RTN","C0CCPT",56,0) 91198 .. S:NARR NARR=$P(^AUTNPOV(NARR,0),U) 91199 "RTN","C0CCPT",57,0) 91200 .. S PRIM=($P(X0,U,12)="P") 91201 "RTN","C0CCPT",58,0) 91202 .. S PRV=$P(X12,U,4) 91203 "RTN","C0CCPT",59,0) 91204 .. S ILST=ILST+1 91205 "RTN","C0CCPT",60,0) 91206 .. S LST(ILST)="POV"_U_CODE_U_CAT_U_NARR_U_PRIM_U_PRV 91207 "RTN","C0CCPT",61,0) 91208 .. S VISIT(IEN,"POV",ILST)=CODE_U_CAT_U_NARR_U_PRIM_U_PRV 91209 "RTN","C0CCPT",62,0) 91210 . S ICPT=0 F S ICPT=$O(^TMP("PXKENC",$J,VISIT,"CPT",ICPT)) Q:'ICPT D 91211 "RTN","C0CCPT",63,0) 91212 .. S X0=^TMP("PXKENC",$J,VISIT,"CPT",ICPT,0),X802=$G(^(802)),X12=$G(^(12)),X811=$G(^(811)) 91213 "RTN","C0CCPT",64,0) 91214 .. ;S CODE=$P(X0,U) 91215 "RTN","C0CCPT",65,0) 91216 .. S CODE=$O(^ICPT("B",$P(X0,U),0)) 91217 "RTN","C0CCPT",66,0) 91218 .. S:CODE CODE=$P(^ICPT(CODE,0),U) 91219 "RTN","C0CCPT",67,0) 91220 .. S CAT=$P(X802,U) 91221 "RTN","C0CCPT",68,0) 91222 .. S:CAT CAT=$P(^AUTNPOV(CAT,0),U) 91223 "RTN","C0CCPT",69,0) 91224 .. S NARR=$P(X0,U,4) 91225 "RTN","C0CCPT",70,0) 91226 .. S:NARR NARR=$P(^AUTNPOV(NARR,0),U) 91227 "RTN","C0CCPT",71,0) 91228 .. S QTY=$P(X0,U,16) 91229 "RTN","C0CCPT",72,0) 91230 .. S PRV=$P(X12,U,4) 91231 "RTN","C0CCPT",73,0) 91232 .. S MCNT=0,MIDX=0,MODS="" 91233 "RTN","C0CCPT",74,0) 91234 .. F S MIDX=$O(^TMP("PXKENC",$J,VISIT,"CPT",ICPT,1,MIDX)) Q:'MIDX D 91235 "RTN","C0CCPT",75,0) 91236 ... S MIEN=$G(^TMP("PXKENC",$J,VISIT,"CPT",ICPT,1,MIDX,0)) 91237 "RTN","C0CCPT",76,0) 91238 ... I +MIEN S MCNT=MCNT+1,MODS=MODS_";/"_MIEN 91239 "RTN","C0CCPT",77,0) 91240 .. I +MCNT S MODS=MCNT_MODS 91241 "RTN","C0CCPT",78,0) 91242 .. S ILST=ILST+1 91243 "RTN","C0CCPT",79,0) 91244 .. S LST(ILST)="CPT"_U_CODE_U_CAT_U_NARR_U_QTY_U_PRV_U_U_U_MODS 91245 "RTN","C0CCPT",80,0) 91246 .. S VISIT(IEN,"CPT",ILST)=CODE_U_CAT_U_NARR_U_QTY_U_PRV_U_U_U_MODS 91247 "RTN","C0CCPT",81,0) 91248 . S VISIT(IEN,"DATE",0)=$P($P(^TIU(8925,IEN,0),U,7),".") 91249 "RTN","C0CCPT",82,0) 91250 . I $G(TXT)=1 D GETNOTE(IEN) 91251 "RTN","C0CCPT",83,0) 91252 Q 91253 "RTN","C0CCPT",84,0) 91254 GETNOTE(IEN) ;GET THE TEXT THAT GOES WITH VISIT 91255 "RTN","C0CCPT",85,0) 91256 ;EXTRACT NOTE TEXT FROM ^TIU(8925,IEN,"TEXT" 91257 "RTN","C0CCPT",86,0) 91258 Q:'$D(VISIT(IEN,"CPT")) 91259 "RTN","C0CCPT",87,0) 91260 S TXTCNT=0 91261 "RTN","C0CCPT",88,0) 91262 F S TXTCNT=TXTCNT+1 Q:'$D(^TIU(8925,IEN,"TEXT",TXTCNT,0)) D 91263 "RTN","C0CCPT",89,0) 91264 . S VISIT(IEN,"TEXT",TXTCNT)=^TIU(8925,IEN,"TEXT",TXTCNT,0) 91265 "RTN","C0CCPT",90,0) 91266 Q 91077 91267 "RTN","C0CDPT") 91078 91268 0^53^B45566634 … … 91080 91270 C0CDPT ;WV/CCRCCD/SMH - Routines to Extract Patient Data for CCDCCR; 6/15/08 91081 91271 "RTN","C0CDPT",2,0) 91082 ;;1.0;C0C;;May 19, 2009;Build 3 491272 ;;1.0;C0C;;May 19, 2009;Build 35 91083 91273 "RTN","C0CDPT",3,0) 91084 91274 ; … … 91620 91810 C0CENV ;WV/JMC - CCD/CCR Environment Check/Install Routine ; Aug 16, 2009 91621 91811 "RTN","C0CENV",2,0) 91622 ;;1.0;C0C;;May 19, 2009;Build 3 491812 ;;1.0;C0C;;May 19, 2009;Build 35 91623 91813 "RTN","C0CENV",3,0) 91624 91814 ; … … 92012 92202 C0CFM1 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08 92013 92203 "RTN","C0CFM1",2,0) 92014 ;;1.0;C0C;;May 19, 2009;Build 3 492204 ;;1.0;C0C;;May 19, 2009;Build 35 92015 92205 "RTN","C0CFM1",3,0) 92016 92206 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU … … 92368 92558 C0CFM2 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08 92369 92559 "RTN","C0CFM2",2,0) 92370 ;;1.0;C0C;;May 19, 2009;Build 3 492560 ;;1.0;C0C;;May 19, 2009;Build 35 92371 92561 "RTN","C0CFM2",3,0) 92372 92562 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU … … 93094 93284 C0CIM2 ; CCDCCR/GPL/CJE - CCR/CCD PROCESSING FOR IMMUNIZATIONS ; 01/27/10 93095 93285 "RTN","C0CIM2",2,0) 93096 ;;1.0;C0C;;Feb 16, 2010;Build 3 493286 ;;1.0;C0C;;Feb 16, 2010;Build 35 93097 93287 "RTN","C0CIM2",3,0) 93098 93288 ;Copyright 2010 George Lilly, University of Minnesota and others. … … 93362 93552 C0CIMMU ; CCDCCR/GPL - CCR/CCD PROCESSING FOR IMMUNIZATIONS ; 2/2/09 93363 93553 "RTN","C0CIMMU",2,0) 93364 ;;1.0;C0C;;May 19, 2009;Build 3 493554 ;;1.0;C0C;;May 19, 2009;Build 35 93365 93555 "RTN","C0CIMMU",3,0) 93366 93556 ;Copyright 2008,2009 George Lilly, University of Minnesota. … … 93578 93768 C0CIN ; CCDCCR/GPL - CCR IMPORT utilities; 9/20/08 93579 93769 "RTN","C0CIN",2,0) 93580 ;;1.0;C0C;;Sep 20, 2009;Build 3 493770 ;;1.0;C0C;;Sep 20, 2009;Build 35 93581 93771 "RTN","C0CIN",3,0) 93582 93772 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU … … 93966 94156 C0CLA7DD ;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine ; Aug 31, 2009 93967 94157 "RTN","C0CLA7DD",2,0) 93968 ;;1.0;C0C;;May 19, 2009;Build 3 494158 ;;1.0;C0C;;May 19, 2009;Build 35 93969 94159 "RTN","C0CLA7DD",3,0) 93970 94160 ; … … 94486 94676 C0CLA7Q ;WV/JMC - CCD/CCR Lab HL7 Query Utility ;Jul 6, 2009 94487 94677 "RTN","C0CLA7Q",2,0) 94488 ;;1.0;C0C;;May 19, 2009;Build 3 494678 ;;1.0;C0C;;May 19, 2009;Build 35 94489 94679 "RTN","C0CLA7Q",3,0) 94490 94680 ; … … 94826 95016 C0CALABS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR LAB RESULTS ; 10/01/08 94827 95017 "RTN","C0CLABS",2,0) 94828 ;;1.0;C0C;;May 19, 2009;Build 3 495018 ;;1.0;C0C;;May 19, 2009;Build 35 94829 95019 "RTN","C0CLABS",3,0) 94830 95020 ;Copyright 2008,2009 George Lilly, University of Minnesota. … … 95608 95798 C0CMCCD ; GPL - MXML based CCD utilities;12/04/09 17:05 95609 95799 "RTN","C0CMCCD",2,0) 95610 ;;0.1;C0C;nopatch;noreleasedate;Build 3 495800 ;;0.1;C0C;nopatch;noreleasedate;Build 35 95611 95801 "RTN","C0CMCCD",3,0) 95612 95802 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU … … 96190 96380 C0CMED ; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009 96191 96381 "RTN","C0CMED",2,0) 96192 ;;1.0;C0C;;May 19, 2009;Build 3 496382 ;;1.0;C0C;;May 19, 2009;Build 35 96193 96383 "RTN","C0CMED",3,0) 96194 96384 ; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel. … … 96384 96574 C0CMED1 ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;01/10/09 96385 96575 "RTN","C0CMED1",2,0) 96386 ;;1.0;C0C;;May 19, 2009;Build 3 496576 ;;1.0;C0C;;May 19, 2009;Build 35 96387 96577 "RTN","C0CMED1",3,0) 96388 96578 ;;Last modified Sat Jan 10 21:42:27 PST 2009 … … 96862 97052 C0CMED2 ; WV/CCDCCR/SMH - CCR/CCD Meds - Pending for Vista 96863 97053 "RTN","C0CMED2",2,0) 96864 ;;1.0;C0C;;May 19, 2009;Build 3 497054 ;;1.0;C0C;;May 19, 2009;Build 35 96865 97055 "RTN","C0CMED2",3,0) 96866 97056 ;;Last Modified Sat Jan 10 21:41:14 PST 2009 … … 97398 97588 C0CMED3 ; WV/CCDCCR/SMH - Meds: Non-VA/Outside Meds for Vista 97399 97589 "RTN","C0CMED3",2,0) 97400 ;;1.0;C0C;;May 19, 2009;Build 3 497590 ;;1.0;C0C;;May 19, 2009;Build 35 97401 97591 "RTN","C0CMED3",3,0) 97402 97592 ;;Last Modified: Sun Jan 11 05:45:03 UTC 2009 … … 97924 98114 C0CMED6 ; WV/CCDCCR/SMH - Meds from RPMS: Outpatient Meds;01/10/09 97925 98115 "RTN","C0CMED6",2,0) 97926 ;;1.0;C0C;;May 19, 2009;Build 3 498116 ;;1.0;C0C;;May 19, 2009;Build 35 97927 98117 "RTN","C0CMED6",3,0) 97928 98118 ; Copyright 2008 WorldVistA. Licensed under the terms of the GNU … … 98588 98778 C0CMXML ; GPL - MXML based XPath utilities;10/13/09 17:05 98589 98779 "RTN","C0CMXML",2,0) 98590 ;;0.1;C0C;nopatch;noreleasedate;Build 3 498780 ;;0.1;C0C;nopatch;noreleasedate;Build 35 98591 98781 "RTN","C0CMXML",3,0) 98592 98782 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU … … 99040 99230 C0CMXP ; GPL - MXML based XPath utilities;12/04/09 17:05 99041 99231 "RTN","C0CMXP",2,0) 99042 ;;0.1;C0C;nopatch;noreleasedate;Build 3 499232 ;;0.1;C0C;nopatch;noreleasedate;Build 35 99043 99233 "RTN","C0CMXP",3,0) 99044 99234 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU … … 99626 99816 C0CPARMS ; CCDCCR/GPL - CCR/CCD PARAMETER PROCESSING ; 1/29/09 99627 99817 "RTN","C0CPARMS",2,0) 99628 ;;1.0;C0C;;May 19, 2009;Build 3 499818 ;;1.0;C0C;;May 19, 2009;Build 35 99629 99819 "RTN","C0CPARMS",3,0) 99630 99820 ;Copyright 2008 WorldVistA. Licensed under the terms of the GNU … … 99752 99942 C0CPROBS ; CCDCCR/GPL/CJE - CCR/CCD PROCESSING FOR PROBLEMS ; 6/6/08 99753 99943 "RTN","C0CPROBS",2,0) 99754 ;;1.0;C0C;;May 19, 2009;Build 3 499944 ;;1.0;C0C;;May 19, 2009;Build 35 99755 99945 "RTN","C0CPROBS",3,0) 99756 99946 ;Copyright 2008,2009 George Lilly, University of Minnesota. … … 100109 100299 "RTN","C0CPROBS",180,0) 100110 100300 ; 100301 "RTN","C0CPROC") 100302 0^75^B21479864 100303 "RTN","C0CPROC",1,0) 100304 C0CPROC ; CCDCCR/GPL - CCR/CCD PROCESSING FOR PROCEDURES ; 01/21/10 100305 "RTN","C0CPROC",2,0) 100306 ;;1.0;C0C;;Jan 21, 2010;Build 35 100307 "RTN","C0CPROC",3,0) 100308 ;Copyright 2010 George Lilly, University of Minnesota and others. 100309 "RTN","C0CPROC",4,0) 100310 ;Licensed under the terms of the GNU General Public License. 100311 "RTN","C0CPROC",5,0) 100312 ;See attached copy of the License. 100313 "RTN","C0CPROC",6,0) 100314 ; 100315 "RTN","C0CPROC",7,0) 100316 ;This program is free software; you can redistribute it and/or modify 100317 "RTN","C0CPROC",8,0) 100318 ;it under the terms of the GNU General Public License as published by 100319 "RTN","C0CPROC",9,0) 100320 ;the Free Software Foundation; either version 2 of the License, or 100321 "RTN","C0CPROC",10,0) 100322 ;(at your option) any later version. 100323 "RTN","C0CPROC",11,0) 100324 ; 100325 "RTN","C0CPROC",12,0) 100326 ;This program is distributed in the hope that it will be useful, 100327 "RTN","C0CPROC",13,0) 100328 ;but WITHOUT ANY WARRANTY; without even the implied warranty of 100329 "RTN","C0CPROC",14,0) 100330 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 100331 "RTN","C0CPROC",15,0) 100332 ;GNU General Public License for more details. 100333 "RTN","C0CPROC",16,0) 100334 ; 100335 "RTN","C0CPROC",17,0) 100336 ;You should have received a copy of the GNU General Public License along 100337 "RTN","C0CPROC",18,0) 100338 ;with this program; if not, write to the Free Software Foundation, Inc., 100339 "RTN","C0CPROC",19,0) 100340 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. 100341 "RTN","C0CPROC",20,0) 100342 ; 100343 "RTN","C0CPROC",21,0) 100344 W "NO ENTRY FROM TOP",! 100345 "RTN","C0CPROC",22,0) 100346 Q 100347 "RTN","C0CPROC",23,0) 100348 ; 100349 "RTN","C0CPROC",24,0) 100350 EXTRACT(PROCXML,DFN,PROCOUT) ; EXTRACT PROCEDURES INTO XML TEMPLATE 100351 "RTN","C0CPROC",25,0) 100352 ; PROCXML AND PROCOUT ARE PASSED BY NAME SO GLOBALS CAN BE USED 100353 "RTN","C0CPROC",26,0) 100354 ; 100355 "RTN","C0CPROC",27,0) 100356 S C0CENC=$NA(^TMP("C0CENC",$J,DFN)) 100357 "RTN","C0CPROC",28,0) 100358 S C0CPRC=$NA(^TMP("C0CPRC",$J,DFN)) 100359 "RTN","C0CPROC",29,0) 100360 S C0CNTE=$NA(^TMP("C0CNTE",$J,DFN)) 100361 "RTN","C0CPROC",30,0) 100362 I '$D(@C0CPRC) D TIUGET(DFN,C0CENC,C0CPRC,C0CNTE) ; GET VARS IF NOT THERE 100363 "RTN","C0CPROC",31,0) 100364 D MAP(PROCXML,C0CPRC,PROCOUT) ;MAP RESULTS FOR PROCEDURES 100365 "RTN","C0CPROC",32,0) 100366 Q 100367 "RTN","C0CPROC",33,0) 100368 ; 100369 "RTN","C0CPROC",34,0) 100370 TIUGET(DFN,C0CENC,C0CPRC,C0CNTE) ; CALLS ENTRY^C0CCPT TO GET PROCEDURES, 100371 "RTN","C0CPROC",35,0) 100372 ; ENCOUNTERS AND NOTES. RETURNS THEM IN RNF2 ARRAYS PASSED BY NAME 100373 "RTN","C0CPROC",36,0) 100374 ; C0CENC: ENCOUNTERS, C0CPRC: PROCEDURES, C0CNTE: NOTES 100375 "RTN","C0CPROC",37,0) 100376 ; READY TO BE MAPPED TO XML BY MAP^C0CENC, MAP^C0CPROC, AND MAP^C0CCMT 100377 "RTN","C0CPROC",38,0) 100378 ; THESE RETURN ARRAYS ARE NOT INITIALIZED, BUT ARE ADDED TO IF THEY 100379 "RTN","C0CPROC",39,0) 100380 ; EXIST. THIS IS SO THAT ADDITIONAL PROCEDURES CAN BE OBTAINED FROM 100381 "RTN","C0CPROC",40,0) 100382 ; THE SURGERY PACKGE AND ADDITIONAL COMMENTS FROM OTHER CCR SECTIONS 100383 "RTN","C0CPROC",41,0) 100384 ; 100385 "RTN","C0CPROC",42,0) 100386 K VISIT,LST,NOTE 100387 "RTN","C0CPROC",43,0) 100388 D ENTRY^C0CCPT(DFN,,,1) ; RETURNS ALL RESULTS IN VISIT LOCAL VARIABLE 100389 "RTN","C0CPROC",44,0) 100390 ; NEED TO ADD START AND END DATES FROM PARAMETERS 100391 "RTN","C0CPROC",45,0) 100392 N ZI S ZI="" 100393 "RTN","C0CPROC",46,0) 100394 N PREVCPT,PREVDT S (PREVCPT,PREVDT)="" 100395 "RTN","C0CPROC",47,0) 100396 F S ZI=$O(VISIT(ZI),-1) Q:ZI="" D ; REVERSE TIME ORDER - MOST RECENT FIRST 100397 "RTN","C0CPROC",48,0) 100398 . N ZDATE 100399 "RTN","C0CPROC",49,0) 100400 . S ZDATE=$$DATE(VISIT(ZI,"DATE",0)) 100401 "RTN","C0CPROC",50,0) 100402 . S ZPRVARY=$NA(VISIT(ZI,"PRV")) 100403 "RTN","C0CPROC",51,0) 100404 . N ZPRV 100405 "RTN","C0CPROC",52,0) 100406 . S ZPRV=$$PRV(ZPRVARY) ; THE PRIMARY PROVIDER OBJECT IN THE FORM 100407 "RTN","C0CPROC",53,0) 100408 . ; ACTORPROVIDER_IEN WHERE IEN IS THE PROVIDER IEN IN NEW PERSON 100409 "RTN","C0CPROC",54,0) 100410 . N ZJ S ZJ="" 100411 "RTN","C0CPROC",55,0) 100412 . F S ZJ=$O(VISIT(ZI,"CPT",ZJ)) Q:ZJ="" D ;FOR EACH CPT SEG 100413 "RTN","C0CPROC",56,0) 100414 . . N ZRNF 100415 "RTN","C0CPROC",57,0) 100416 . . N ZCPT S ZCPT=$$CPT(VISIT(ZI,"CPT",ZJ)) ;GET CPT CODE AND TEXT 100417 "RTN","C0CPROC",58,0) 100418 . . I ZCPT'="" D ;IF CPT CODE IS PRESENT 100419 "RTN","C0CPROC",59,0) 100420 . . . I (ZCPT=PREVCPT)&(ZDATE=PREVDT) Q ; NO DUPS ALLOWED 100421 "RTN","C0CPROC",60,0) 100422 . . . W !,ZCPT," ",ZDATE," ",ZPRV 100423 "RTN","C0CPROC",61,0) 100424 . . . S ZRNF("PROCACTOROBJID")=ZPRV 100425 "RTN","C0CPROC",62,0) 100426 . . . S ZRNF("PROCCODE")=$P(ZCPT,U,1) 100427 "RTN","C0CPROC",63,0) 100428 . . . S ZRNF("PROCCODESYS")="CPT-4" 100429 "RTN","C0CPROC",64,0) 100430 . . . S ZRNF("PROCDATETEXT")="Procedure Date" 100431 "RTN","C0CPROC",65,0) 100432 . . . S ZRNF("PROCDATETIME")=ZDATE 100433 "RTN","C0CPROC",66,0) 100434 . . . S ZRNF("PROCDESCOBJATTRCODE")="" ;NO PROC ATTRIBUTES YET 100435 "RTN","C0CPROC",67,0) 100436 . . . S ZRNF("PROCDESCOBJATTR")="" 100437 "RTN","C0CPROC",68,0) 100438 . . . S ZRNF("PROCDESCOBJATTRCODESYS")="" ;WE DON'T HAVE PROC ATTRIBUTES 100439 "RTN","C0CPROC",69,0) 100440 . . . S ZRNF("PROCDESCOBJATTRVAL")="" 100441 "RTN","C0CPROC",70,0) 100442 . . . S ZRNF("PROCDESCTEXT")=$P(ZCPT,U,3) 100443 "RTN","C0CPROC",71,0) 100444 . . . S ZRNF("PROCLINKID")="" ; NO LINKS YET 100445 "RTN","C0CPROC",72,0) 100446 . . . S ZRNF("PROCLINKREL")="" ; NO LINKS YET 100447 "RTN","C0CPROC",73,0) 100448 . . . S ZRNF("PROCOBJECTID")="PROCEDURE_"_ZI 100449 "RTN","C0CPROC",74,0) 100450 . . . S ZRNF("PROCSTATUS")="Completed" ; Is this right? 100451 "RTN","C0CPROC",75,0) 100452 . . . S ZRNF("PROCTYPE")=$P(ZCPT,U,2) ; NEED TO ADD THIS TO TEMPLATE 100453 "RTN","C0CPROC",76,0) 100454 . . . D RNF1TO2^C0CRNF(C0CPRC,"ZRNF") ; ADD THIS ROW TO THE ARRAY 100455 "RTN","C0CPROC",77,0) 100456 . . . S PREVCPT=ZCPT 100457 "RTN","C0CPROC",78,0) 100458 . . . S PREVDT=ZDATE 100459 "RTN","C0CPROC",79,0) 100460 N ZRIM S ZRIM=$NA(^TMP("C0CRIM","VARS",DFN,"PROCEDURES")) 100461 "RTN","C0CPROC",80,0) 100462 M @ZRIM=@C0CPRC@("V") 100463 "RTN","C0CPROC",81,0) 100464 Q 100465 "RTN","C0CPROC",82,0) 100466 ; 100467 "RTN","C0CPROC",83,0) 100468 PRV(IARY) ; RETURNS THE PRIMARY PROVIDER FROM THE "PRV" ARRAY PASSED BY NAME 100469 "RTN","C0CPROC",84,0) 100470 N ZI,ZR,ZRTN S ZI="" S ZR="" S ZRTN="" 100471 "RTN","C0CPROC",85,0) 100472 F S ZI=$O(@IARY@(ZI)) Q:ZI="" D ; FOR EACH PRV SEG 100473 "RTN","C0CPROC",86,0) 100474 . I ZR'="" Q ;ONLY WANT THE FIRST PRIMARY PROVIDER 100475 "RTN","C0CPROC",87,0) 100476 . I $P(@IARY@(ZI),U,5)=1 S ZR=$P(@IARY@(ZI),U,1) 100477 "RTN","C0CPROC",88,0) 100478 I ZR'="" S ZRTN="ACTORPROVIDER_"_ZR 100479 "RTN","C0CPROC",89,0) 100480 Q ZRTN 100481 "RTN","C0CPROC",90,0) 100482 ; 100483 "RTN","C0CPROC",91,0) 100484 DATE(ISTR) ; EXTRINSIC TO RETURN THE DATE IN CCR FORMAT 100485 "RTN","C0CPROC",92,0) 100486 Q $$FMDTOUTC^C0CUTIL(ISTR,"DT") 100487 "RTN","C0CPROC",93,0) 100488 ; 100489 "RTN","C0CPROC",94,0) 100490 CPT(ISTR) ; EXTRINSIC THAT SEARCHES FOR CPT CODES AND RETURNS 100491 "RTN","C0CPROC",95,0) 100492 ; CPT^CATEGORY^TEXT 100493 "RTN","C0CPROC",96,0) 100494 N Z1,Z2,Z3,ZRTN 100495 "RTN","C0CPROC",97,0) 100496 S Z1=$P(ISTR,U,1) 100497 "RTN","C0CPROC",98,0) 100498 I Z1="" D ; 100499 "RTN","C0CPROC",99,0) 100500 . I ISTR["(CPT-4 " S Z1=$P($P(ISTR,"(CPT-4 ",2),")",1) 100501 "RTN","C0CPROC",100,0) 100502 I Z1'="" D ; IF THERE IS A CPT CODE IN THERE 100503 "RTN","C0CPROC",101,0) 100504 . ;S Z1=$P(ISTR,U,1) 100505 "RTN","C0CPROC",102,0) 100506 . S Z2=$P(ISTR,U,2) 100507 "RTN","C0CPROC",103,0) 100508 . S Z3=$P(ISTR,U,3) 100509 "RTN","C0CPROC",104,0) 100510 . S ZRTN=Z1_U_Z2_U_Z3 100511 "RTN","C0CPROC",105,0) 100512 E S ZRTN="" 100513 "RTN","C0CPROC",106,0) 100514 Q ZRTN 100515 "RTN","C0CPROC",107,0) 100516 ; 100517 "RTN","C0CPROC",108,0) 100518 MAP(PROCXML,C0CPRC,PROCOUT) ; MAP PROCEDURES XML 100519 "RTN","C0CPROC",109,0) 100520 ; 100521 "RTN","C0CPROC",110,0) 100522 N ZTEMP S ZTEMP=$NA(^TMP("C0CCCR",$J,DFN,"PROCTEMP")) ;WORK AREA FOR TEMPLATE 100523 "RTN","C0CPROC",111,0) 100524 K @ZTEMP 100525 "RTN","C0CPROC",112,0) 100526 N ZBLD 100527 "RTN","C0CPROC",113,0) 100528 S ZBLD=$NA(^TMP("C0CCCR",$J,DFN,"PROCBLD")) ; BUILD LIST AREA 100529 "RTN","C0CPROC",114,0) 100530 D QUEUE^C0CXPATH(ZBLD,PROCXML,1,1) ; FIRST LINE 100531 "RTN","C0CPROC",115,0) 100532 N ZINNER 100533 "RTN","C0CPROC",116,0) 100534 D QUERY^C0CXPATH(PROCXML,"//Procedures/Procedure","ZINNER") ;ONE PROC 100535 "RTN","C0CPROC",117,0) 100536 N ZTMP,ZVAR,ZI 100537 "RTN","C0CPROC",118,0) 100538 S ZI="" 100539 "RTN","C0CPROC",119,0) 100540 F S ZI=$O(@C0CPRC@("V",ZI)) Q:ZI="" D ;FOR EACH PROCEDURE 100541 "RTN","C0CPROC",120,0) 100542 . S ZTMP=$NA(@ZTEMP@(ZI)) ;THIS PROCEDURE XML 100543 "RTN","C0CPROC",121,0) 100544 . S ZVAR=$NA(@C0CPRC@("V",ZI)) ;THIS PROCEDURE VARIABLES 100545 "RTN","C0CPROC",122,0) 100546 . D MAP^C0CXPATH("ZINNER",ZVAR,ZTMP) ; MAP THE PROCEDURE 100547 "RTN","C0CPROC",123,0) 100548 . D QUEUE^C0CXPATH(ZBLD,ZTMP,1,@ZTMP@(0)) ;QUE FOR BUILD 100549 "RTN","C0CPROC",124,0) 100550 D QUEUE^C0CXPATH(ZBLD,PROCXML,@PROCXML@(0),@PROCXML@(0)) 100551 "RTN","C0CPROC",125,0) 100552 N ZZTMP 100553 "RTN","C0CPROC",126,0) 100554 D BUILD^C0CXPATH(ZBLD,PROCOUT) ;BUILD FINAL XML 100555 "RTN","C0CPROC",127,0) 100556 K @ZTEMP,@ZBLD,@C0CPRC 100557 "RTN","C0CPROC",128,0) 100558 Q 100559 "RTN","C0CPROC",129,0) 100560 ; 100111 100561 "RTN","C0CQRY1") 100112 100562 0^66^B18992765 … … 100114 100564 LA7QRY1 ;DALOI/JMC - Lab HL7 Query Utility ;01/19/99 13:48 100115 100565 "RTN","C0CQRY1",2,0) 100116 ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61**;Sep 27, 1994;Build 3 4100566 ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61**;Sep 27, 1994;Build 35 100117 100567 "RTN","C0CQRY1",3,0) 100118 100568 ; … … 100362 100812 LA7QRY2 ;DALOI/JMC - Lab HL7 Query Utility ; 04/13/09 100363 100813 "RTN","C0CQRY2",2,0) 100364 ;;5.2;AUTOMATED LAB INSTRUMENTS;**46**;Sep 27, 1994;Build 3 4100814 ;;5.2;AUTOMATED LAB INSTRUMENTS;**46**;Sep 27, 1994;Build 35 100365 100815 "RTN","C0CQRY2",3,0) 100366 100816 ; JMC - mods to check for IHS V LAB file … … 100732 101182 C0CRIMA ; CCDCCR/GPL - RIM REPORT ROUTINES; 6/6/08 100733 101183 "RTN","C0CRIMA",2,0) 100734 ;;1.0;C0C;;May 19, 2009;Build 3 4101184 ;;1.0;C0C;;May 19, 2009;Build 35 100735 101185 "RTN","C0CRIMA",3,0) 100736 101186 ;Copyright 2008,2009 George Lilly, University of Minnesota. … … 101794 102244 C0CRNF ; CCDCCR/GPL - Reference Name Format (RNF) utilities; 12/6/08 101795 102245 "RTN","C0CRNF",2,0) 101796 ;;1.0;C0C;;May 19, 2009;Build 3 4102246 ;;1.0;C0C;;May 19, 2009;Build 35 101797 102247 "RTN","C0CRNF",3,0) 101798 102248 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU … … 102666 103116 C0CRXN ; CCDCCR/GPL - CCR RXN utilities; 12/6/08 102667 103117 "RTN","C0CRXN",2,0) 102668 ;;1.0;C0C;;May 19, 2009;Build 3 4103118 ;;1.0;C0C;;May 19, 2009;Build 35 102669 103119 "RTN","C0CRXN",3,0) 102670 103120 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU … … 103248 103698 C0CSOAP ; CCDCCR/GPL - SOAP WEB SERVICE utilities; 8/25/09 103249 103699 "RTN","C0CSOAP",2,0) 103250 ;;1.0;C0C;;May 19, 2009;Build 3 4103700 ;;1.0;C0C;;May 19, 2009;Build 35 103251 103701 "RTN","C0CSOAP",3,0) 103252 103702 ;Copyright 2008 George Lilly. Licensed under the terms of the GNU … … 103796 104246 C0CSUB1 ; CCDCCR/GPL - CCR SUBSCRIPTION utilities; 12/6/08 103797 104247 "RTN","C0CSUB1",2,0) 103798 ;;1.0;C0C;;May 19, 2009;Build 3 4104248 ;;1.0;C0C;;May 19, 2009;Build 35 103799 104249 "RTN","C0CSUB1",3,0) 103800 104250 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU … … 104070 104520 C0CSYS ;WV/C0C/SMH - Routine to Get EHR System Information;6JUL2008 104071 104521 "RTN","C0CSYS",2,0) 104072 ;;1.0;C0C;;May 19, 2009;Build 3 4104522 ;;1.0;C0C;;May 19, 2009;Build 35 104073 104523 "RTN","C0CSYS",3,0) 104074 104524 ; Copyright 2008 WorldVistA. Licensed under the terms of the GNU … … 104190 104640 C0CUNIT ; CCDCCR/GPL - Unit Testing Library; 5/07/08 104191 104641 "RTN","C0CUNIT",2,0) 104192 ;;1.0;C0C;;May 19, 2009;Build 3 4104642 ;;1.0;C0C;;May 19, 2009;Build 35 104193 104643 "RTN","C0CUNIT",3,0) 104194 104644 ;Copyright 2008 George Lilly. Licensed under the terms of the GNU … … 104564 105014 C0CUTIL ;WV/C0C/SMH - Various Utilites for generating the CCR/CCD;06/15/08 104565 105015 "RTN","C0CUTIL",2,0) 104566 ;;0.1;C0C;;Jun 15, 2008;Build 3 4105016 ;;0.1;C0C;;Jun 15, 2008;Build 35 104567 105017 "RTN","C0CUTIL",3,0) 104568 105018 ;Copyright 2008-2009 Sam Habiel & George Lilly. … … 104832 105282 C0CVA200 ;WV/C0C/SMH - Routine to get Provider Data;07/13/2008 104833 105283 "RTN","C0CVA200",2,0) 104834 ;;1.0;C0C;;May 19, 2009;Build 3 4105284 ;;1.0;C0C;;May 19, 2009;Build 35 104835 105285 "RTN","C0CVA200",3,0) 104836 105286 ;Copyright 2008 Sam Habiel. Licensed under the terms of the GNU … … 105170 105620 C0CVIT2 ; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08 105171 105621 "RTN","C0CVIT2",2,0) 105172 ;;1.0;C0C;;Feb 16, 2010;Build 3 4105622 ;;1.0;C0C;;Feb 16, 2010;Build 35 105173 105623 "RTN","C0CVIT2",3,0) 105174 105624 ;Copyright 2008,2009 George Lilly, University of Minnesota and others. … … 106128 106578 C0CVITAL ; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08 106129 106579 "RTN","C0CVITAL",2,0) 106130 ;;1.0;C0C;;May 19, 2009;Build 3 4106580 ;;1.0;C0C;;May 19, 2009;Build 35 106131 106581 "RTN","C0CVITAL",3,0) 106132 106582 ;Copyright 2008,2009 George Lilly, University of Minnesota and others. … … 106908 107358 LA7VOBX1 ;DALOI/JMC - LAB OBX Segment message builder (CH subscript) cont'd; 04/21/09 106909 107359 "RTN","C0CVOBX1",2,0) 106910 ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61,63**;Sep 27, 1994;Build 3 4107360 ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61,63**;Sep 27, 1994;Build 35 106911 107361 "RTN","C0CVOBX1",3,0) 106912 107362 ; JMC - mods to check for IHS V LAB file … … 107138 107588 C0CXEWD ; C0C/GPL - EWD based XPath utilities; 10/11/09 107139 107589 "RTN","C0CXEWD",2,0) 107140 ;;0.1;C0C;nopatch;noreleasedate;Build 3 4107590 ;;0.1;C0C;nopatch;noreleasedate;Build 35 107141 107591 "RTN","C0CXEWD",3,0) 107142 107592 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU … … 107392 107842 C0CXPAT0 ; CCDCCR/GPL - XPATH TEST CASES ; 6/1/08 107393 107843 "RTN","C0CXPAT0",2,0) 107394 ;;1.0;C0C;;May 19, 2009;Build 3 4107844 ;;1.0;C0C;;May 19, 2009;Build 35 107395 107845 "RTN","C0CXPAT0",3,0) 107396 107846 ;Copyright 2008 George Lilly. Licensed under the terms of the GNU … … 107818 108268 C0CXPATH ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08 107819 108269 "RTN","C0CXPATH",2,0) 107820 ;;1.0;C0C;;May 19, 2009;Build 3 4108270 ;;1.0;C0C;;May 19, 2009;Build 35 107821 108271 "RTN","C0CXPATH",3,0) 107822 108272 ;Copyright 2008 George Lilly. Licensed under the terms of the GNU
Note:
See TracChangeset
for help on using the changeset viewer.
