Changeset 181

Timestamp:

Oct 5, 2008, 8:49:34 PM (16 years ago)

Author:

George Lilly

Message:

renameing MEDS routines

Location:

ccr/trunk/p

Files:

• CCRMEDS1.M (moved) (moved from ccr/trunk/p/CCRMEDS.m )
• GPLMEDS.m (modified) (1 diff)

ccr/trunk/p/GPLMEDS.m

@@ -72 +72 @@
    . S ZJ=$P(ZA(ZI),U,1) ; INDEX OF FIRST LINE OF MED IN MEDRSLT
    . S MEDPTMP=MEDRSLT(ZJ) ; PULL OUT FIRST LINE OF MED
-   . I $P(MEDPTMP,U,1)?1"~OP"&$P(MEDPTMP,"^",10)="ACTIVE" Q  ; SKIP OP ACTIVE
+   . I $P(MEDPTMP,U,1)?1"~OP" Q  ; SKIP OP ACTIVE AND PENDING
    . S @MEDVMAP@("MEDOBJECTID")="MED"_(ZI+MEDCNT) ; UNIQUE OBJID FOR MEDS
    . I $P(MEDPTMP,"^",11)="" S @MEDVMAP@("MEDISSUEDATETXT")=""