Changeset 559 for ccr/trunk/p


Ignore:
Timestamp:
Sep 15, 2009, 12:26:23 PM (15 years ago)
Author:
Christopher Edwards
Message:

fixed call to GPLXPATH to C0CXPATH

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CUTIL.m

    r508 r559  
    1 C0CUTIL ;WV/C0C/SMH - Various Utilites for generating the CCR/CCD;06/15/08
    2  ;;1.0;C0C;;May 19, 2009;
     1C0CUTIL ;WV/C0C/SMH - Various Utilites for generating the CCR/CCD;06/15/08
     2 ;;0.1;C0C;;Jun 15, 2008;Build 29
    33 ;Copyright 2008-2009 Sam Habiel & George Lilly. 
    44 ;Licensed under the terms of the GNU
     
    2222 Q
    2323 ;
    24 FMDTOUTC(DATE,FORMAT)   ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrinsic
     24FMDTOUTC(DATE,FORMAT) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrinsic
    2525 ; FORMAT is Format of Date. Can be either D (Day) or DT (Date and Time)
    2626 ; If not passed, or passed incorrectly, it's assumed that it is D.
     
    5858 E  Q $P(UTC,"T")
    5959 ;
    60 SORTDT(V1,V2,ORDR)      ; DATE SORT ARRAY AND RETURN INDEX IN V1 AND COUNT
     60SORTDT(V1,V2,ORDR) ; DATE SORT ARRAY AND RETURN INDEX IN V1 AND COUNT
    6161 ; AS EXTRINSIC ORDR IS 1 OR -1 FOR FORWARD OR REVERSE
    6262 ; DATE AND TIME ORDER. DEFAULT IS FORWARD
     
    7979 F  D  Q:ZG=""  ;
    8080 . ; W ZG,!
    81  . D PUSH^GPLXPATH("V1",@ZG)
     81 . D PUSH^C0CXPATH("V1",@ZG)
    8282 . S ZG=$Q(@ZG)
    8383 I ORDR=-1 D  ; HAVE TO REVERSE ORDER
     
    8686 . . S ZG2(V1(0)-ZI+1)=V1(ZI) ; SET IN REVERSE ORDER
    8787 . S ZG2(0)=V1(0)
    88  . D CP^GPLXPATH("ZG2","V1") ; COPY OVER THE NEW ARRAY
     88 . D CP^C0CXPATH("ZG2","V1") ; COPY OVER THE NEW ARRAY
    8989 Q ZCNT
    9090 ;
    91 DA2SNO(RTN,DNAME)       ; LOOK UP DRUG ALLERGY CODE IN ^LEX
     91DA2SNO(RTN,DNAME) ; LOOK UP DRUG ALLERGY CODE IN ^LEX
    9292 ; RETURNS AN ARRAY RTN PASSED BY REFERENCE
    9393 ; THIS ROUTINE CAN BE USED AS AN RPC
     
    104104 Q
    105105 ;
    106 DASNO(DANAME)   ; PRINTS THE SNOMED CODE FOR ALLERGY TO DRUG DANAME
     106DASNO(DANAME) ; PRINTS THE SNOMED CODE FOR ALLERGY TO DRUG DANAME
    107107 ;
    108108 N DARTN
     
    113113 Q
    114114 ;
    115 DASNALL(WHICH)  ; ROUTINE TO EXAMINE THE ADIS INDEX IN LEX AND RETRIEVE ALL
     115DASNALL(WHICH) ; ROUTINE TO EXAMINE THE ADIS INDEX IN LEX AND RETRIEVE ALL
    116116 ; ASSOCIATED SNOMED CODES
    117117 N DASTMP,DASIEN,DASNO
     
    123123 Q
    124124 ;
    125 RPMS()  ; Are we running on an RPMS system rather than Vista?
     125RPMS() ; Are we running on an RPMS system rather than Vista?
    126126 Q $G(DUZ("AG"))="I" ; If User Agency is Indian Health Service
    127 VISTA() ; Are we running on Vanilla Vista?
     127VISTA() ; Are we running on Vanilla Vista?
    128128 Q $G(DUZ("AG"))="V" ; If User Agency is VA
    129 WV()    ; Are we running on WorldVista?
     129WV() ; Are we running on WorldVista?
    130130 Q $G(DUZ("AG"))="E" ; Code for WV.
    131 OV()    ; Are we running on OpenVista?
     131OV() ; Are we running on OpenVista?
    132132 Q $G(DUZ("AG"))="O" ; Code for OpenVista
     133 
Note: See TracChangeset for help on using the changeset viewer.