Index: /ccr/trunk/p/C0CUTIL.m
===================================================================
--- /ccr/trunk/p/C0CUTIL.m	(revision 558)
+++ /ccr/trunk/p/C0CUTIL.m	(revision 559)
@@ -1,4 +1,4 @@
-C0CUTIL	;WV/C0C/SMH - Various Utilites for generating the CCR/CCD;06/15/08
- ;;1.0;C0C;;May 19, 2009;
+C0CUTIL ;WV/C0C/SMH - Various Utilites for generating the CCR/CCD;06/15/08
+ ;;0.1;C0C;;Jun 15, 2008;Build 29
  ;Copyright 2008-2009 Sam Habiel & George Lilly.  
  ;Licensed under the terms of the GNU
@@ -22,5 +22,5 @@
  Q
  ;
-FMDTOUTC(DATE,FORMAT)	; Convert Fileman Date to UTC Date Format; PUBLIC; Extrinsic
+FMDTOUTC(DATE,FORMAT) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrinsic
  ; FORMAT is Format of Date. Can be either D (Day) or DT (Date and Time)
  ; If not passed, or passed incorrectly, it's assumed that it is D.
@@ -58,5 +58,5 @@
  E  Q $P(UTC,"T")
  ;
-SORTDT(V1,V2,ORDR)	; DATE SORT ARRAY AND RETURN INDEX IN V1 AND COUNT
+SORTDT(V1,V2,ORDR) ; DATE SORT ARRAY AND RETURN INDEX IN V1 AND COUNT
  ; AS EXTRINSIC ORDR IS 1 OR -1 FOR FORWARD OR REVERSE
  ; DATE AND TIME ORDER. DEFAULT IS FORWARD
@@ -79,5 +79,5 @@
  F  D  Q:ZG=""  ;
  . ; W ZG,!
- . D PUSH^GPLXPATH("V1",@ZG)
+ . D PUSH^C0CXPATH("V1",@ZG)
  . S ZG=$Q(@ZG)
  I ORDR=-1 D  ; HAVE TO REVERSE ORDER
@@ -86,8 +86,8 @@
  . . S ZG2(V1(0)-ZI+1)=V1(ZI) ; SET IN REVERSE ORDER
  . S ZG2(0)=V1(0)
- . D CP^GPLXPATH("ZG2","V1") ; COPY OVER THE NEW ARRAY
+ . D CP^C0CXPATH("ZG2","V1") ; COPY OVER THE NEW ARRAY
  Q ZCNT
  ;
-DA2SNO(RTN,DNAME)	; LOOK UP DRUG ALLERGY CODE IN ^LEX
+DA2SNO(RTN,DNAME) ; LOOK UP DRUG ALLERGY CODE IN ^LEX
  ; RETURNS AN ARRAY RTN PASSED BY REFERENCE
  ; THIS ROUTINE CAN BE USED AS AN RPC
@@ -104,5 +104,5 @@
  Q
  ;
-DASNO(DANAME)	; PRINTS THE SNOMED CODE FOR ALLERGY TO DRUG DANAME
+DASNO(DANAME) ; PRINTS THE SNOMED CODE FOR ALLERGY TO DRUG DANAME
  ;
  N DARTN
@@ -113,5 +113,5 @@
  Q
  ;
-DASNALL(WHICH)	; ROUTINE TO EXAMINE THE ADIS INDEX IN LEX AND RETRIEVE ALL
+DASNALL(WHICH) ; ROUTINE TO EXAMINE THE ADIS INDEX IN LEX AND RETRIEVE ALL
  ; ASSOCIATED SNOMED CODES
  N DASTMP,DASIEN,DASNO
@@ -123,10 +123,11 @@
  Q
  ;
-RPMS()	; Are we running on an RPMS system rather than Vista?
+RPMS() ; Are we running on an RPMS system rather than Vista?
  Q $G(DUZ("AG"))="I" ; If User Agency is Indian Health Service
-VISTA()	; Are we running on Vanilla Vista?
+VISTA() ; Are we running on Vanilla Vista?
  Q $G(DUZ("AG"))="V" ; If User Agency is VA
-WV()	; Are we running on WorldVista? 
+WV() ; Are we running on WorldVista? 
  Q $G(DUZ("AG"))="E" ; Code for WV.
-OV()	; Are we running on OpenVista?
+OV() ; Are we running on OpenVista?
  Q $G(DUZ("AG"))="O" ; Code for OpenVista
+