Changeset 404


Ignore:
Timestamp:
Mar 16, 2009, 6:08:55 PM (16 years ago)
Author:
George Lilly
Message:

update copyright notice

Location:
ccr/trunk/p
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CEWD1.m

    r393 r404  
    11C0CEWD1   ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
    22 ;;0.1;CCDCCR;nopatch;noreleasedate
    3  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     3 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
    55 ;
    … …  
    3333 ;s ok=$$gtmImportFile^%zewdHTMLParser(zfilepath)
    3434 s ok=$$LOAD(zfilepath) ;load the XML file to the EWD global
    35  s ok=$$parseDocument^%zewdHTMLParser("DerekDOM",0) 
     35 s ok=$$parseDocument^%zewdHTMLParser("DerekDOM",0)
    3636 ;s ok=$$parseXMLFile^%zewdAPI(zfilepath,"fourthDOM")
    3737 w ok,!
    … …  
    3939 ;
    4040LOAD(filepath) ; load an xml file into the EWD global for DOM processing
    41  ; need to call s error=$$parseDocument^%zewdHTMLParser(docName,isHTML) 
     41 ; need to call s error=$$parseDocument^%zewdHTMLParser(docName,isHTML)
    4242 ; after to process it to the DOM - isHTML=0 for XML files
    4343 n i

  • ccr/trunk/p/C0CFM1.m

    r364 r404  
    11C0CFM1   ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
    22 ;;0.1;CCDCCR;nopatch;noreleasedate
    3  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     3 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
    55 ;
    … …  
    5656 S ZSRC=1 ; CCR SOURCE IS ASSUMED TO BE THIS EHR, WHICH IS ALWAYS SOURCE 1
    5757 ; PUT THIS IN PARAMETERS - SO SOURCE NUMBER FOR PROCESSING IN CONFIGURABLE
    58  N ZF,ZFV S ZF=171.201 S ZFV=171.2012 
     58 N ZF,ZFV S ZF=171.201 S ZFV=171.2012
    5959 S ZSUBF=171.20122 ;FILE AND SUBFILE NUMBERS
    6060 N ZSFV S ZSFV=171.201221 ; SUBFILE VARIABLE FILE NUMBER
    … …  
    9494 ;
    9595VARPTR(ZVAR,ZTYP) ;EXTRINSIC WHICH RETURNS THE POINTER TO ZVAR IN THE
    96  ; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO 
     96 ; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO
    9797 ; THE CCR DICTIONARY IF IT IS NOT THERE. ZTYP IS REQUIRED FOR LAYGO
    9898 ;
    … …  
    114114 . . W "ADDED ",ZVAR," TO CCR DICTIONARY, IEN:",ZVARN,!
    115115 Q ZVARN
    116  ; 
     116 ;
    117117BLDTYPS ; ROUTINE TO POPULATE THE CCR NODE TYPES FILE (^C0CDIC(170.101,)
    118118 ; THE CCR DICTIONARY (^C0CDIC(170, ) HAS MOST OF WHAT'S NEEDED
    119  ; 
     119 ;
    120120 N C0CDIC,C0CNODE ;
    121121 S C0CDIC=$$FILEREF^C0CRNF(170) ; CLOSED FILE REFERENCE TO THE CCR DICTIONARY
    … …  
    135135 . . W "SECTION ",C0CI," VAR ",C0CZX
    136136 . . S C0CV=$O(^C0CDIC(170.101,"B",C0CI,""))
    137  . . W " TYPE: ",C0CV,! 
     137 . . W " TYPE: ",C0CV,!
    138138 . . D SETFDA("SECTION",C0CV)
    139139 . . ;ZWR C0CFDA

  • ccr/trunk/p/C0CFM2.m

    r370 r404  
    11C0CFM2   ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
    22 ;;0.1;CCDCCR;nopatch;noreleasedate
    3  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     3 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
    55 ;
    … …  
    2020 W "This is the CCR FILEMAN Utility Library ",!
    2121 ; THIS SET OF ROUTINES USE CCR E2 (^C0CE(, FILE 171.101) INSTEAD OF
    22  ; CCR ELEMENTS (^C0C(179.201, 
    23  ; E2 IS A SIMPLIFICATION OF CCR ELEMENTS WHERE SUB-ELEMENTS ARE 
     22 ; CCR ELEMENTS (^C0C(179.201,
     23 ; E2 IS A SIMPLIFICATION OF CCR ELEMENTS WHERE SUB-ELEMENTS ARE
    2424 ; AT THE TOP LEVEL. OCCURANCE, THE 4TH PART OF THE KEY IS NOW FREE TEXT
    2525 ; AND HAS THE FORM X;Y FOR SUB-ELEMENTS
    … …  
    104104 N ZTYPN S ZTYPN=$O(^C0CDIC(170.101,"B",ZTYPE,"")) ; FIND THE ELE TYPE
    105105 S C0CFDA(C0CFTYP,"?+1,"_ZSRC_","_PATN_",",.01)=ZTYPN
    106  D UPDIE ; ADD THE ELEMENT TYPE 
     106 D UPDIE ; ADD THE ELEMENT TYPE
    107107 S ZTYP=$O(^C0CE(PATN,1,ZSRC,1,"B",ZTYPN,"")) ; IEN OF ELEMENT TYPE
    108108 S C0CFDA(C0CFOCC,"?+1,"_ZTYP_","_ZSRC_","_PATN_",",.01)=" "_ZOCC ; STRING OCC
    109  ; OCC IS PRECEDED BY " " TO FORCE STRING STORAGE AND PRESERVE 
     109 ; OCC IS PRECEDED BY " " TO FORCE STRING STORAGE AND PRESERVE
    110110 ; STRING COLLATION ON THE INDEX
    111111 D UPDIE ; ADD THE OCCURANCE
    … …  
    134134 . . ;S ZZVALS=$NA(@ZZVALS@(ZT)) ; PAST MULTIPLE TYPE INDICATOR
    135135 . . ;W "MULTIPLE:",ZZVALS,!
    136  . . ;B 
     136 . . ;B
    137137 . . ;F  S ZZC0CI=$O(@ZZVALS@(ZZC0CI)) Q:ZZC0CI=""  D  ; EACH MULTIPLE
    138138 . . ;. S ZZCNT=ZZCNT+1 ;INCREMENT COUNT
    … …  
    154154 K C0CFDA
    155155 Q
    156  ; 
     156 ;
    157157PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
    158158 ; 171.101, ^C0CE  DFN IS THE PATIENT IEN PASSED BY VALUE
    … …  
    165165 S ZSRC=1 ; CCR SOURCE IS ASSUMED TO BE THIS EHR, WHICH IS ALWAYS SOURCE 1
    166166 ; PUT THIS IN PARAMETERS - SO SOURCE NUMBER FOR PROCESSING IN CONFIGURABLE
    167  N ZF,ZFV S ZF=171.101 S ZFV=171.1011 
     167 N ZF,ZFV S ZF=171.101 S ZFV=171.1011
    168168 ;S ZSUBF=171.20122 ;FILE AND SUBFILE NUMBERS
    169169 ;N ZSFV S ZSFV=171.201221 ; SUBFILE VARIABLE FILE NUMBER
    … …  
    210210 ;
    211211VARPTR(ZVAR,ZTYP) ;EXTRINSIC WHICH RETURNS THE POINTER TO ZVAR IN THE
    212  ; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO 
     212 ; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO
    213213 ; THE CCR DICTIONARY IF IT IS NOT THERE. ZTYP IS REQUIRED FOR LAYGO
    214214 ;
    … …  
    230230 . . W "ADDED ",ZVAR," TO CCR DICTIONARY, IEN:",ZVARN,!
    231231 Q ZVARN
    232  ; 
     232 ;
    233233BLDTYPS ; ROUTINE TO POPULATE THE CCR NODE TYPES FILE (^C0CDIC(170.101,)
    234234 ; THE CCR DICTIONARY (^C0CDIC(170, ) HAS MOST OF WHAT'S NEEDED
    235  ; 
     235 ;
    236236 N C0CDIC,C0CNODE ;
    237237 S C0CDIC=$$FILEREF^C0CRNF(170) ; CLOSED FILE REFERENCE TO THE CCR DICTIONARY
    … …  
    251251 . . W "SECTION ",C0CI," VAR ",C0CZX
    252252 . . S C0CV=$O(^C0CDIC(170.101,"B",C0CI,""))
    253  . . W " TYPE: ",C0CV,! 
     253 . . W " TYPE: ",C0CV,!
    254254 . . D SETFDA("SECTION",C0CV)
    255255 . . ;ZWR C0CFDA

  • ccr/trunk/p/C0CFM3.m

    r388 r404  
    11C0CFM3   ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
    22 ;;0.1;CCDCCR;nopatch;noreleasedate
    3  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     3 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
    55 ;
    … …  
    2020 W "This is the CCR FILEMAN Utility Library ",!
    2121 ; THIS SET OF ROUTINES USE CCR E2 (^C0CE(, FILE 171.101) INSTEAD OF
    22  ; CCR ELEMENTS (^C0C(179.201, 
    23  ; E2 IS A SIMPLIFICATION OF CCR ELEMENTS WHERE SUB-ELEMENTS ARE 
     22 ; CCR ELEMENTS (^C0C(179.201,
     23 ; E2 IS A SIMPLIFICATION OF CCR ELEMENTS WHERE SUB-ELEMENTS ARE
    2424 ; AT THE TOP LEVEL. OCCURANCE, THE 4TH PART OF THE KEY IS NOW FREE TEXT
    2525 ; AND HAS THE FORM X;Y FOR SUB-ELEMENTS
    … …  
    121121 . . ;S ZZVALS=$NA(@ZZVALS@(ZT)) ; PAST MULTIPLE TYPE INDICATOR
    122122 . . ;W "MULTIPLE:",ZZVALS,!
    123  . . ;B 
     123 . . ;B
    124124 . . ;F  S ZZC0CI=$O(@ZZVALS@(ZZC0CI)) Q:ZZC0CI=""  D  ; EACH MULTIPLE
    125125 . . ;. S ZZCNT=ZZCNT+1 ;INCREMENT COUNT
    … …  
    141141 K C0CFDA
    142142 Q
    143  ; 
     143 ;
    144144PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
    145145 ; 171.101, ^C0CE  DFN IS THE PATIENT IEN PASSED BY VALUE
    … …  
    152152 S ZSRC=1 ; CCR SOURCE IS ASSUMED TO BE THIS EHR, WHICH IS ALWAYS SOURCE 1
    153153 ; PUT THIS IN PARAMETERS - SO SOURCE NUMBER FOR PROCESSING IN CONFIGURABLE
    154  N ZF,ZFV S ZF=171.101 S ZFV=171.1011 
     154 N ZF,ZFV S ZF=171.101 S ZFV=171.1011
    155155 ;S ZSUBF=171.20122 ;FILE AND SUBFILE NUMBERS
    156156 ;N ZSFV S ZSFV=171.201221 ; SUBFILE VARIABLE FILE NUMBER
    … …  
    197197 ;
    198198VARPTR(ZVAR,ZTYP) ;EXTRINSIC WHICH RETURNS THE POINTER TO ZVAR IN THE
    199  ; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO 
     199 ; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO
    200200 ; THE CCR DICTIONARY IF IT IS NOT THERE. ZTYP IS REQUIRED FOR LAYGO
    201201 ;
    … …  
    217217 . . W "ADDED ",ZVAR," TO CCR DICTIONARY, IEN:",ZVARN,!
    218218 Q ZVARN
    219  ; 
     219 ;
    220220BLDTYPS ; ROUTINE TO POPULATE THE CCR NODE TYPES FILE (^C0CDIC(170.101,)
    221221 ; THE CCR DICTIONARY (^C0CDIC(170, ) HAS MOST OF WHAT'S NEEDED
    222  ; 
     222 ;
    223223 N C0CDIC,C0CNODE ;
    224224 S C0CDIC=$$FILEREF^C0CRNF(170) ; CLOSED FILE REFERENCE TO THE CCR DICTIONARY
    … …  
    238238 . . W "SECTION ",C0CI," VAR ",C0CZX
    239239 . . S C0CV=$O(^C0CDIC(170.101,"B",C0CI,""))
    240  . . W " TYPE: ",C0CV,! 
     240 . . W " TYPE: ",C0CV,!
    241241 . . D SETFDA("SECTION",C0CV)
    242242 . . ;ZWR C0CFDA

  • ccr/trunk/p/C0CRNF.m

    r351 r404  
    11C0CRNF   ; CCDCCR/GPL - Reference Name Format (RNF) utilities; 12/6/08
    22 ;;0.1;CCDCCR;nopatch;noreleasedate
    3  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     3 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
    55 ;
    … …  
    9999 . . . S GIEN=$QS(ZG,4) ; PULL OUT THE IEN
    100100 . . E  S GIEN="" ; NOT FOUND IN INDEX
    101  . E  S GIEN="" ; 
     101 . E  S GIEN="" ;
    102102 ;W "IEN: ",GIEN,!
    103103 ;N C0CTMP,C0CI,C0CJ,C0CREF,C0CNAME
    … …  
    163163 . . . S GIEN=$QS(ZG,4) ; PULL OUT THE IEN
    164164 . . E  S GIEN="" ; NOT FOUND IN INDEX
    165  . E  S GIEN="" ; 
     165 . E  S GIEN="" ;
    166166 ;W "IEN: ",GIEN,!
    167167 ;N C0CTMP,C0CI,C0CJ,C0CREF,C0CNAME

  • ccr/trunk/p/C0CRPMS.m

    r396 r404  
    1 C0CRPMS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR RPMS ;1/14/09  14:33
     1C0CRPMS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR RPMS ;1/14/09  14:33
    22 ;;0.1;CCDCCR;;JUL 16,2008;Build 7
    3  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     3 ;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
    55 ;
    … …  
    3737 F  S G=$O(^AUPNVSIT("AA",C0CDFN,G)) Q:(G="")!(GN>C0CCNT)  D  ;
    3838 . S GN=GN+1
    39  . W $$FMDTOUTC^C0CUTIL(9999999-G),! 
     39 . W $$FMDTOUTC^C0CUTIL(9999999-G),!
    4040 Q
    4141 ;
    42 VISITS2(C0CDFN,C0CCNT) ;SECOND VERSION USING NEXTV 
     42VISITS2(C0CDFN,C0CCNT) ;SECOND VERSION USING NEXTV
    4343 ;
    4444 N C0CG,GN
    … …  
    5555 ; RECENT VISIT
    5656 N G
    57  S G=C0CVDT 
     57 S G=C0CVDT
    5858 I G'="" S G=9999999-C0CVDT ;INVERT FOR INDEX
    5959 S G=$O(^AUPNVSIT("AA",C0CDFN,G))

  • ccr/trunk/p/C0CRXN.m

    r309 r404  
    11C0CRXN   ; CCDCCR/GPL - CCR RXN utilities; 12/6/08
    22 ;;0.1;CCDCCR;nopatch;noreleasedate
    3  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     3 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
    55 ;
    … …  
    135135 . . D SETFDA("VAMAP","N") ;MARK AS MISSING FROM VA MAPPING FILE
    136136 . ; NATIONAL DRUG FILE TESTS
    137  . I ($$ZVALUE("VUID","C0CD")=C0CZX)!($$ZVALUE("VUID","C0CE")=C0CZX) D  ; 
     137 . I ($$ZVALUE("VUID","C0CD")=C0CZX)!($$ZVALUE("VUID","C0CE")=C0CZX) D  ;
    138138 . . ;FOUND IN NATIONAL DRUG FILE OR DRUG INGREDIENT FILE
    139139 . . S NDFVCNT=NDFVCNT+1 ;INCREMENT VUID FOUND COUNT
Note: See TracChangeset for help on using the changeset viewer.