Changeset 559

Timestamp:

Sep 15, 2009, 12:26:23 PM (15 years ago)

Author:

Christopher Edwards

Message:

fixed call to GPLXPATH to C0CXPATH

File:

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

ccr/trunk/p/C0CUTIL.m

@@ -1 @@
-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 +22 @@
  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 +58 @@
  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 +79 @@
  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 +86 @@
  . . 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 +104 @@
  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 +113 @@
  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 +123 @@
  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
+