Changeset 764 for ccr


Ignore:
Timestamp:
May 18, 2010, 3:43:43 PM (14 years ago)
Author:
George Lilly
Message:

includes C0CPROC AND C0CCPT

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0C_1_0_0_T22.KID

    r763 r764  
    1 KIDS Distribution saved on May 18, 2010@15:37:09
    2 includes de-identification mode for testing
     1KIDS Distribution saved on May 18, 2010@16:32:54
     2includes C0CPROC AND C0CCPT
    33**KIDS**:C0C 1.0^
    44
     
    7676
    7777"BLD",6967,6.3)
    78 34
     7835
    7979"BLD",6967,"INI")
    8080PRE^C0CENV
     
    1301309.8
    131131"BLD",6967,"KRN",9.8,"NM",0)
    132 ^9.68A^74^43
     132^9.68A^76^45
    133133"BLD",6967,"KRN",9.8,"NM",22,0)
    134134C0CRXN^^0^B103277157
     
    217217"BLD",6967,"KRN",9.8,"NM",74,0)
    218218C0CIM2^^0^B20157375
     219"BLD",6967,"KRN",9.8,"NM",75,0)
     220C0CPROC^^0^B21479864
     221"BLD",6967,"KRN",9.8,"NM",76,0)
     222C0CCPT^^0^B13565934
    219223"BLD",6967,"KRN",9.8,"NM","B","C0CACTOR",47)
    220224
     
    230234
    231235"BLD",6967,"KRN",9.8,"NM","B","C0CCCR0",42)
     236
     237"BLD",6967,"KRN",9.8,"NM","B","C0CCPT",76)
    232238
    233239"BLD",6967,"KRN",9.8,"NM","B","C0CDPT",53)
     
    268274
    269275"BLD",6967,"KRN",9.8,"NM","B","C0CPROBS",39)
     276
     277"BLD",6967,"KRN",9.8,"NM","B","C0CPROC",75)
    270278
    271279"BLD",6967,"KRN",9.8,"NM","B","C0CQRY1",66)
     
    8642486432D XPZ2^XPDIQ
    8642586433"RTN")
    86426 44
     8643446
    8642786435"RTN","C0CACTOR")
    86428864360^47^B98962571
     
    8643086438C0CACTOR  ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
    8643186439"RTN","C0CACTOR",2,0)
    86432  ;;1.0;C0C;;May 19, 2009;Build 34
     86440 ;;1.0;C0C;;May 19, 2009;Build 35
    8643386441"RTN","C0CACTOR",3,0)
    8643486442 ;Copyright 2008,2009 George Lilly, University of Minnesota.
     
    8697686984C0CALERT  ; CCDCCR/CKU/GPL - CCR/CCD PROCESSING FOR ALERTS ; 09/11/08
    8697786985"RTN","C0CALERT",2,0)
    86978  ;;1.0;C0C;;May 19, 2009;Build 34
     86986 ;;1.0;C0C;;May 19, 2009;Build 35
    8697986987"RTN","C0CALERT",3,0)
    8698086988 ;Copyright 2008,2009 George Lilly, University of Minnesota and others.
     
    8722687234C0CBAT   ; CCDCCR/GPL - CCR Batch utilities; 4/21/09
    8722787235"RTN","C0CBAT",2,0)
    87228  ;;1.0;C0C;;May 19, 2009;Build 34
     87236 ;;1.0;C0C;;May 19, 2009;Build 35
    8722987237"RTN","C0CBAT",3,0)
    8723087238 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
     
    8769687704C0CCCD   ; CCDCCR/GPL - CCD MAIN PROCESSING; 6/6/08
    8769787705"RTN","C0CCCD",2,0)
    87698  ;;1.0;C0C;;May 19, 2009;Build 34
     87706 ;;1.0;C0C;;May 19, 2009;Build 35
    8769987707"RTN","C0CCCD",3,0)
    8770087708 ;Copyright 2008,2009 George Lilly, University of Minnesota.
     
    8824288250C0CCCD1 ; CCDCCR/GPL - CCD TEMPLATE AND ACCESS ROUTINES; 6/7/08
    8824388251"RTN","C0CCCD1",2,0)
    88244  ;;1.0;C0C;;May 19, 2009;Build 34
     88252 ;;1.0;C0C;;May 19, 2009;Build 35
    8824588253"RTN","C0CCCD1",3,0)
    8824688254 ;Copyright 2008,2009 George Lilly, University of Minnesota.
     
    8878088788C0CCCR   ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
    8878188789"RTN","C0CCCR",2,0)
    88782  ;;1.0;C0C;;May 19, 2009;Build 34
     88790 ;;1.0;C0C;;May 19, 2009;Build 35
    8878388791"RTN","C0CCCR",3,0)
    8878488792 ;Copyright 2008,2009 George Lilly, University of Minnesota.
     
    8931289320C0CCCR0 ; CCDCCR/GPL - CCR TEMPLATE AND ACCESS ROUTINES; 5/31/08
    8931389321"RTN","C0CCCR0",2,0)
    89314  ;;1.0;C0C;;May 19, 2009;Build 34
     89322 ;;1.0;C0C;;May 19, 2009;Build 35
    8931589323"RTN","C0CCCR0",3,0)
    8931689324 ;Copyright 2008,2009 George Lilly, University of Minnesota.
     
    9107591083"RTN","C0CCCR0",883,0)
    9107691084 ;</TEMPLATE>
     91085"RTN","C0CCPT")
     910860^76^B13565934
     91087"RTN","C0CCPT",1,0)
     91088C0CCPT ;;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)
     91096ENTRY(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)
     91148VISIT   ;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)
     91254GETNOTE(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
    9107791267"RTN","C0CDPT")
    91078912680^53^B45566634
     
    9108091270C0CDPT ;WV/CCRCCD/SMH - Routines to Extract Patient Data for CCDCCR; 6/15/08
    9108191271"RTN","C0CDPT",2,0)
    91082  ;;1.0;C0C;;May 19, 2009;Build 34
     91272 ;;1.0;C0C;;May 19, 2009;Build 35
    9108391273"RTN","C0CDPT",3,0)
    9108491274 ;
     
    9162091810C0CENV ;WV/JMC - CCD/CCR Environment Check/Install Routine ; Aug 16, 2009
    9162191811"RTN","C0CENV",2,0)
    91622  ;;1.0;C0C;;May 19, 2009;Build 34
     91812 ;;1.0;C0C;;May 19, 2009;Build 35
    9162391813"RTN","C0CENV",3,0)
    9162491814 ;
     
    9201292202C0CFM1   ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
    9201392203"RTN","C0CFM1",2,0)
    92014  ;;1.0;C0C;;May 19, 2009;Build 34
     92204 ;;1.0;C0C;;May 19, 2009;Build 35
    9201592205"RTN","C0CFM1",3,0)
    9201692206 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
     
    9236892558C0CFM2   ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
    9236992559"RTN","C0CFM2",2,0)
    92370  ;;1.0;C0C;;May 19, 2009;Build 34
     92560 ;;1.0;C0C;;May 19, 2009;Build 35
    9237192561"RTN","C0CFM2",3,0)
    9237292562 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
     
    9309493284C0CIM2  ; CCDCCR/GPL/CJE - CCR/CCD PROCESSING FOR IMMUNIZATIONS ; 01/27/10
    9309593285"RTN","C0CIM2",2,0)
    93096  ;;1.0;C0C;;Feb 16, 2010;Build 34
     93286 ;;1.0;C0C;;Feb 16, 2010;Build 35
    9309793287"RTN","C0CIM2",3,0)
    9309893288 ;Copyright 2010 George Lilly, University of Minnesota and others.
     
    9336293552C0CIMMU ; CCDCCR/GPL - CCR/CCD PROCESSING FOR IMMUNIZATIONS ; 2/2/09
    9336393553"RTN","C0CIMMU",2,0)
    93364  ;;1.0;C0C;;May 19, 2009;Build 34
     93554 ;;1.0;C0C;;May 19, 2009;Build 35
    9336593555"RTN","C0CIMMU",3,0)
    9336693556 ;Copyright 2008,2009 George Lilly, University of Minnesota.
     
    9357893768C0CIN   ; CCDCCR/GPL - CCR IMPORT utilities; 9/20/08
    9357993769"RTN","C0CIN",2,0)
    93580  ;;1.0;C0C;;Sep 20, 2009;Build 34
     93770 ;;1.0;C0C;;Sep 20, 2009;Build 35
    9358193771"RTN","C0CIN",3,0)
    9358293772 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
     
    9396694156C0CLA7DD ;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine ; Aug 31, 2009
    9396794157"RTN","C0CLA7DD",2,0)
    93968  ;;1.0;C0C;;May 19, 2009;Build 34
     94158 ;;1.0;C0C;;May 19, 2009;Build 35
    9396994159"RTN","C0CLA7DD",3,0)
    9397094160 ;
     
    9448694676C0CLA7Q ;WV/JMC - CCD/CCR Lab HL7 Query Utility ;Jul 6, 2009
    9448794677"RTN","C0CLA7Q",2,0)
    94488  ;;1.0;C0C;;May 19, 2009;Build 34
     94678 ;;1.0;C0C;;May 19, 2009;Build 35
    9448994679"RTN","C0CLA7Q",3,0)
    9449094680 ;
     
    9482695016C0CALABS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR LAB RESULTS ; 10/01/08
    9482795017"RTN","C0CLABS",2,0)
    94828  ;;1.0;C0C;;May 19, 2009;Build 34
     95018 ;;1.0;C0C;;May 19, 2009;Build 35
    9482995019"RTN","C0CLABS",3,0)
    9483095020 ;Copyright 2008,2009 George Lilly, University of Minnesota.
     
    9560895798C0CMCCD   ; GPL - MXML based CCD utilities;12/04/09  17:05
    9560995799"RTN","C0CMCCD",2,0)
    95610  ;;0.1;C0C;nopatch;noreleasedate;Build 34
     95800 ;;0.1;C0C;nopatch;noreleasedate;Build 35
    9561195801"RTN","C0CMCCD",3,0)
    9561295802 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
     
    9619096380C0CMED ; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009
    9619196381"RTN","C0CMED",2,0)
    96192  ;;1.0;C0C;;May 19, 2009;Build 34
     96382 ;;1.0;C0C;;May 19, 2009;Build 35
    9619396383"RTN","C0CMED",3,0)
    9619496384 ; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel.
     
    9638496574C0CMED1 ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;01/10/09
    9638596575"RTN","C0CMED1",2,0)
    96386  ;;1.0;C0C;;May 19, 2009;Build 34
     96576 ;;1.0;C0C;;May 19, 2009;Build 35
    9638796577"RTN","C0CMED1",3,0)
    9638896578 ;;Last modified Sat Jan 10 21:42:27 PST 2009
     
    9686297052C0CMED2 ; WV/CCDCCR/SMH - CCR/CCD Meds - Pending for Vista
    9686397053"RTN","C0CMED2",2,0)
    96864  ;;1.0;C0C;;May 19, 2009;Build 34
     97054 ;;1.0;C0C;;May 19, 2009;Build 35
    9686597055"RTN","C0CMED2",3,0)
    9686697056 ;;Last Modified Sat Jan 10 21:41:14 PST 2009
     
    9739897588C0CMED3 ; WV/CCDCCR/SMH - Meds: Non-VA/Outside Meds for Vista
    9739997589"RTN","C0CMED3",2,0)
    97400  ;;1.0;C0C;;May 19, 2009;Build 34
     97590 ;;1.0;C0C;;May 19, 2009;Build 35
    9740197591"RTN","C0CMED3",3,0)
    9740297592 ;;Last Modified: Sun Jan 11 05:45:03 UTC 2009
     
    9792498114C0CMED6 ; WV/CCDCCR/SMH - Meds from RPMS: Outpatient Meds;01/10/09
    9792598115"RTN","C0CMED6",2,0)
    97926  ;;1.0;C0C;;May 19, 2009;Build 34
     98116 ;;1.0;C0C;;May 19, 2009;Build 35
    9792798117"RTN","C0CMED6",3,0)
    9792898118 ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    9858898778C0CMXML   ; GPL - MXML based XPath utilities;10/13/09  17:05
    9858998779"RTN","C0CMXML",2,0)
    98590  ;;0.1;C0C;nopatch;noreleasedate;Build 34
     98780 ;;0.1;C0C;nopatch;noreleasedate;Build 35
    9859198781"RTN","C0CMXML",3,0)
    9859298782 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
     
    9904099230C0CMXP   ; GPL - MXML based XPath utilities;12/04/09  17:05
    9904199231"RTN","C0CMXP",2,0)
    99042  ;;0.1;C0C;nopatch;noreleasedate;Build 34
     99232 ;;0.1;C0C;nopatch;noreleasedate;Build 35
    9904399233"RTN","C0CMXP",3,0)
    9904499234 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
     
    9962699816C0CPARMS ; CCDCCR/GPL - CCR/CCD PARAMETER PROCESSING ; 1/29/09
    9962799817"RTN","C0CPARMS",2,0)
    99628  ;;1.0;C0C;;May 19, 2009;Build 34
     99818 ;;1.0;C0C;;May 19, 2009;Build 35
    9962999819"RTN","C0CPARMS",3,0)
    9963099820 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    9975299942C0CPROBS ; CCDCCR/GPL/CJE - CCR/CCD PROCESSING FOR PROBLEMS ; 6/6/08
    9975399943"RTN","C0CPROBS",2,0)
    99754  ;;1.0;C0C;;May 19, 2009;Build 34
     99944 ;;1.0;C0C;;May 19, 2009;Build 35
    9975599945"RTN","C0CPROBS",3,0)
    9975699946 ;Copyright 2008,2009 George Lilly, University of Minnesota.
     
    100109100299"RTN","C0CPROBS",180,0)
    100110100300 ;
     100301"RTN","C0CPROC")
     1003020^75^B21479864
     100303"RTN","C0CPROC",1,0)
     100304C0CPROC  ; 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)
     100350EXTRACT(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)
     100370TIUGET(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)
     100468PRV(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)
     100484DATE(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)
     100490CPT(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)
     100518MAP(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 ; 
    100111100561"RTN","C0CQRY1")
    1001121005620^66^B18992765
     
    100114100564LA7QRY1 ;DALOI/JMC - Lab HL7 Query Utility ;01/19/99  13:48
    100115100565"RTN","C0CQRY1",2,0)
    100116         ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61**;Sep 27, 1994;Build 34
     100566        ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61**;Sep 27, 1994;Build 35
    100117100567"RTN","C0CQRY1",3,0)
    100118100568        ;
     
    100362100812LA7QRY2 ;DALOI/JMC - Lab HL7 Query Utility ; 04/13/09
    100363100813"RTN","C0CQRY2",2,0)
    100364  ;;5.2;AUTOMATED LAB INSTRUMENTS;**46**;Sep 27, 1994;Build 34
     100814 ;;5.2;AUTOMATED LAB INSTRUMENTS;**46**;Sep 27, 1994;Build 35
    100365100815"RTN","C0CQRY2",3,0)
    100366100816 ; JMC - mods to check for IHS V LAB file
     
    100732101182C0CRIMA   ; CCDCCR/GPL - RIM REPORT ROUTINES; 6/6/08
    100733101183"RTN","C0CRIMA",2,0)
    100734  ;;1.0;C0C;;May 19, 2009;Build 34
     101184 ;;1.0;C0C;;May 19, 2009;Build 35
    100735101185"RTN","C0CRIMA",3,0)
    100736101186 ;Copyright 2008,2009 George Lilly, University of Minnesota.
     
    101794102244C0CRNF   ; CCDCCR/GPL - Reference Name Format (RNF) utilities; 12/6/08
    101795102245"RTN","C0CRNF",2,0)
    101796  ;;1.0;C0C;;May 19, 2009;Build 34
     102246 ;;1.0;C0C;;May 19, 2009;Build 35
    101797102247"RTN","C0CRNF",3,0)
    101798102248 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
     
    102666103116C0CRXN   ; CCDCCR/GPL - CCR RXN utilities; 12/6/08
    102667103117"RTN","C0CRXN",2,0)
    102668  ;;1.0;C0C;;May 19, 2009;Build 34
     103118 ;;1.0;C0C;;May 19, 2009;Build 35
    102669103119"RTN","C0CRXN",3,0)
    102670103120 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
     
    103248103698C0CSOAP  ; CCDCCR/GPL - SOAP WEB SERVICE utilities; 8/25/09
    103249103699"RTN","C0CSOAP",2,0)
    103250  ;;1.0;C0C;;May 19, 2009;Build 34
     103700 ;;1.0;C0C;;May 19, 2009;Build 35
    103251103701"RTN","C0CSOAP",3,0)
    103252103702 ;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
     
    103796104246C0CSUB1   ; CCDCCR/GPL - CCR SUBSCRIPTION utilities; 12/6/08
    103797104247"RTN","C0CSUB1",2,0)
    103798  ;;1.0;C0C;;May 19, 2009;Build 34
     104248 ;;1.0;C0C;;May 19, 2009;Build 35
    103799104249"RTN","C0CSUB1",3,0)
    103800104250 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
     
    104070104520C0CSYS ;WV/C0C/SMH - Routine to Get EHR System Information;6JUL2008
    104071104521"RTN","C0CSYS",2,0)
    104072  ;;1.0;C0C;;May 19, 2009;Build 34
     104522 ;;1.0;C0C;;May 19, 2009;Build 35
    104073104523"RTN","C0CSYS",3,0)
    104074104524 ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    104190104640C0CUNIT ; CCDCCR/GPL - Unit Testing Library; 5/07/08
    104191104641"RTN","C0CUNIT",2,0)
    104192  ;;1.0;C0C;;May 19, 2009;Build 34
     104642 ;;1.0;C0C;;May 19, 2009;Build 35
    104193104643"RTN","C0CUNIT",3,0)
    104194104644 ;Copyright 2008 George Lilly. Licensed under the terms of the GNU
     
    104564105014C0CUTIL ;WV/C0C/SMH - Various Utilites for generating the CCR/CCD;06/15/08
    104565105015"RTN","C0CUTIL",2,0)
    104566  ;;0.1;C0C;;Jun 15, 2008;Build 34
     105016 ;;0.1;C0C;;Jun 15, 2008;Build 35
    104567105017"RTN","C0CUTIL",3,0)
    104568105018 ;Copyright 2008-2009 Sam Habiel & George Lilly. 
     
    104832105282C0CVA200 ;WV/C0C/SMH - Routine to get Provider Data;07/13/2008
    104833105283"RTN","C0CVA200",2,0)
    104834  ;;1.0;C0C;;May 19, 2009;Build 34
     105284 ;;1.0;C0C;;May 19, 2009;Build 35
    104835105285"RTN","C0CVA200",3,0)
    104836105286 ;Copyright 2008 Sam Habiel.  Licensed under the terms of the GNU
     
    105170105620C0CVIT2 ; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08
    105171105621"RTN","C0CVIT2",2,0)
    105172  ;;1.0;C0C;;Feb 16, 2010;Build 34
     105622 ;;1.0;C0C;;Feb 16, 2010;Build 35
    105173105623"RTN","C0CVIT2",3,0)
    105174105624 ;Copyright 2008,2009 George Lilly, University of Minnesota and others.
     
    106128106578C0CVITAL ; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08
    106129106579"RTN","C0CVITAL",2,0)
    106130  ;;1.0;C0C;;May 19, 2009;Build 34
     106580 ;;1.0;C0C;;May 19, 2009;Build 35
    106131106581"RTN","C0CVITAL",3,0)
    106132106582 ;Copyright 2008,2009 George Lilly, University of Minnesota and others.
     
    106908107358LA7VOBX1 ;DALOI/JMC - LAB OBX Segment message builder (CH subscript) cont'd; 04/21/09
    106909107359"RTN","C0CVOBX1",2,0)
    106910  ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61,63**;Sep 27, 1994;Build 34
     107360 ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61,63**;Sep 27, 1994;Build 35
    106911107361"RTN","C0CVOBX1",3,0)
    106912107362 ; JMC - mods to check for IHS V LAB file
     
    107138107588C0CXEWD   ; C0C/GPL - EWD based XPath utilities; 10/11/09
    107139107589"RTN","C0CXEWD",2,0)
    107140  ;;0.1;C0C;nopatch;noreleasedate;Build 34
     107590 ;;0.1;C0C;nopatch;noreleasedate;Build 35
    107141107591"RTN","C0CXEWD",3,0)
    107142107592 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
     
    107392107842C0CXPAT0   ; CCDCCR/GPL - XPATH TEST CASES ; 6/1/08
    107393107843"RTN","C0CXPAT0",2,0)
    107394  ;;1.0;C0C;;May 19, 2009;Build 34
     107844 ;;1.0;C0C;;May 19, 2009;Build 35
    107395107845"RTN","C0CXPAT0",3,0)
    107396107846 ;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
     
    107818108268C0CXPATH   ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08
    107819108269"RTN","C0CXPATH",2,0)
    107820  ;;1.0;C0C;;May 19, 2009;Build 34
     108270 ;;1.0;C0C;;May 19, 2009;Build 35
    107821108271"RTN","C0CXPATH",3,0)
    107822108272 ;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
Note: See TracChangeset for help on using the changeset viewer.