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

Timestamp:

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

Author:

George Lilly

Message:

update copyright notice

File:

• ccr/trunk/p/C0CFM3.m (modified) (8 diffs)

ccr/trunk/p/C0CFM3.m

@@ -1 +1 @@
 C0CFM3   ; 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
@@ -121 +121 @@
  . . ;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
@@ -141 +141 @@
  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
@@ -152 +152 @@
  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
@@ -197 +197 @@
  ;
 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
  ;
@@ -217 +217 @@
  . . 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
@@ -238 +238 @@
  . . 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