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

Timestamp:

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

Author:

George Lilly

Message:

update copyright notice

File:

• ccr/trunk/p/C0CFM1.m (modified) (5 diffs)

ccr/trunk/p/C0CFM1.m

@@ -1 +1 @@
 C0CFM1   ; 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.
  ;
@@ -56 +56 @@
  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.201 S ZFV=171.2012 
+ N ZF,ZFV S ZF=171.201 S ZFV=171.2012
  S ZSUBF=171.20122 ;FILE AND SUBFILE NUMBERS
  N ZSFV S ZSFV=171.201221 ; SUBFILE VARIABLE FILE NUMBER
@@ -94 +94 @@
  ;
 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
  ;
@@ -114 +114 @@
  . . 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
@@ -135 +135 @@
  . . 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