Changeset 163 for ccr/trunk

Timestamp:

Sep 21, 2008, 10:25:22 PM (16 years ago)

Author:

Sam Habiel

Message:

CCRMEDS now working

File:

• ccr/trunk/p/CCRMEDS.m (modified) (1 diff)

ccr/trunk/p/CCRMEDS.m

@@ -84 +84 @@
           . N NDFIEN S NDFIEN=$P(NDFDATA(20),U)
           . N VAPROD S VAPROD=$P(NDFDATA(22),U)
-          . B:NDFIEN=""
-          . N CONCDATA S CONCDATA=$$CPRS^PSNAPIS(NDFIEN,VAPROD)
+          . N CONCDATA
+          . I NDFIEN="" S CONCDATA=""
+          . E  S CONCDATA=$$CPRS^PSNAPIS(NDFIEN,VAPROD)
           . S @MAP@("MEDFORMTEXT")=$P(CONCDATA,U,1)
           . S @MAP@("MEDCONCVALUE")=$P(CONCDATA,U,3)