Changeset 1338 for ccr/branches/ohum/p/C0CMED1.m

Timestamp:

Jan 4, 2012, 9:41:28 PM (12 years ago)

Author:

George Lilly

Message:

ohum version without tabs

File:

• ccr/branches/ohum/p/C0CMED1.m (modified) (2 diffs)

ccr/branches/ohum/p/C0CMED1.m

@@ -1 +1 @@
 C0CMED1 ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;01/10/09
- ;;1.0;C0C;;May 19, 2009;Build 38
+ ;;1.0;C0C;;May 19, 2009;Build 1
  ;;Last modified Sat Jan 10 21:42:27 PST 2009
  ; Copyright 2009 WorldVistA.  Licensed under the terms of the GNU
@@ -56 +56 @@
  ; @(0) contains the number of meds or -1^NO DATA FOUND
  ; If it is -1, we quit.
- I $P(MEDS(0),U)=-1 S @OUTXML@(0)=0 QUIT
+ I $P(MEDS(0),U)=-1 S @OUTXML@(0)=0 Q
  ZWRITE:$G(DEBUG) MEDS
  N RXIEN S RXIEN=0
- F  S RXIEN=$O(MEDS(RXIEN)) Q:RXIEN=""  D  ; FOR EACH MEDICATION IN THE LIST
+ F  S RXIEN=$O(MEDS(RXIEN)) Q:$G(RXIEN)=""  D  ; FOR EACH MEDICATION IN THE LIST
  . N MED M MED=MEDS(RXIEN)
  . I 'ALL,ACTIVE,$P(MED(100),U,2)'="ACTIVE" QUIT