Changeset 404 for ccr/trunk/p/C0CFM2.m

Timestamp:

Mar 16, 2009, 6:08:55 PM (15 years ago)

Author:

George Lilly

Message:

update copyright notice

File:

• ccr/trunk/p/C0CFM2.m (modified) (9 diffs)

ccr/trunk/p/C0CFM2.m

@@ -1 +1 @@
 C0CFM2   ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
  ;;0.1;CCDCCR;nopatch;noreleasedate
- ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
+ ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
  ;General Public License See attached copy of the License.
  ;
@@ -20 +20 @@
  W "This is the CCR FILEMAN Utility Library ",!
  ; THIS SET OF ROUTINES USE CCR E2 (^C0CE(, FILE 171.101) INSTEAD OF
- ; CCR ELEMENTS (^C0C(179.201, 
- ; E2 IS A SIMPLIFICATION OF CCR ELEMENTS WHERE SUB-ELEMENTS ARE 
+ ; CCR ELEMENTS (^C0C(179.201,
+ ; E2 IS A SIMPLIFICATION OF CCR ELEMENTS WHERE SUB-ELEMENTS ARE
  ; AT THE TOP LEVEL. OCCURANCE, THE 4TH PART OF THE KEY IS NOW FREE TEXT
  ; AND HAS THE FORM X;Y FOR SUB-ELEMENTS
@@ -104 +104 @@
  N ZTYPN S ZTYPN=$O(^C0CDIC(170.101,"B",ZTYPE,"")) ; FIND THE ELE TYPE
  S C0CFDA(C0CFTYP,"?+1,"_ZSRC_","_PATN_",",.01)=ZTYPN
- D UPDIE ; ADD THE ELEMENT TYPE 
+ D UPDIE ; ADD THE ELEMENT TYPE
  S ZTYP=$O(^C0CE(PATN,1,ZSRC,1,"B",ZTYPN,"")) ; IEN OF ELEMENT TYPE
  S C0CFDA(C0CFOCC,"?+1,"_ZTYP_","_ZSRC_","_PATN_",",.01)=" "_ZOCC ; STRING OCC
- ; OCC IS PRECEDED BY " " TO FORCE STRING STORAGE AND PRESERVE 
+ ; OCC IS PRECEDED BY " " TO FORCE STRING STORAGE AND PRESERVE
  ; STRING COLLATION ON THE INDEX
  D UPDIE ; ADD THE OCCURANCE
@@ -134 +134 @@
  . . ;S ZZVALS=$NA(@ZZVALS@(ZT)) ; PAST MULTIPLE TYPE INDICATOR
  . . ;W "MULTIPLE:",ZZVALS,!
- . . ;B 
+ . . ;B
  . . ;F  S ZZC0CI=$O(@ZZVALS@(ZZC0CI)) Q:ZZC0CI=""  D  ; EACH MULTIPLE
  . . ;. S ZZCNT=ZZCNT+1 ;INCREMENT COUNT
@@ -154 +154 @@
  K C0CFDA
  Q
- ; 
+ ;
 PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
  ; 171.101, ^C0CE  DFN IS THE PATIENT IEN PASSED BY VALUE
@@ -165 +165 @@
  S ZSRC=1 ; CCR SOURCE IS ASSUMED TO BE THIS EHR, WHICH IS ALWAYS SOURCE 1
  ; PUT THIS IN PARAMETERS - SO SOURCE NUMBER FOR PROCESSING IN CONFIGURABLE
- N ZF,ZFV S ZF=171.101 S ZFV=171.1011 
+ N ZF,ZFV S ZF=171.101 S ZFV=171.1011
  ;S ZSUBF=171.20122 ;FILE AND SUBFILE NUMBERS
  ;N ZSFV S ZSFV=171.201221 ; SUBFILE VARIABLE FILE NUMBER
@@ -210 +210 @@
  ;
 VARPTR(ZVAR,ZTYP) ;EXTRINSIC WHICH RETURNS THE POINTER TO ZVAR IN THE
- ; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO 
+ ; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO
  ; THE CCR DICTIONARY IF IT IS NOT THERE. ZTYP IS REQUIRED FOR LAYGO
  ;
@@ -230 +230 @@
  . . W "ADDED ",ZVAR," TO CCR DICTIONARY, IEN:",ZVARN,!
  Q ZVARN
- ; 
+ ;
 BLDTYPS ; ROUTINE TO POPULATE THE CCR NODE TYPES FILE (^C0CDIC(170.101,)
  ; THE CCR DICTIONARY (^C0CDIC(170, ) HAS MOST OF WHAT'S NEEDED
- ; 
+ ;
  N C0CDIC,C0CNODE ;
  S C0CDIC=$$FILEREF^C0CRNF(170) ; CLOSED FILE REFERENCE TO THE CCR DICTIONARY
@@ -251 +251 @@
  . . W "SECTION ",C0CI," VAR ",C0CZX
  . . S C0CV=$O(^C0CDIC(170.101,"B",C0CI,""))
- . . W " TYPE: ",C0CV,! 
+ . . W " TYPE: ",C0CV,!
  . . D SETFDA("SECTION",C0CV)
  . . ;ZWR C0CFDA