Changeset 163 for ccr/trunk


Ignore:
Timestamp:
Sep 21, 2008, 10:25:22 PM (16 years ago)
Author:
Sam Habiel
Message:

CCRMEDS now working

File:
1 edited

Legend:

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

    r162 r163  
    8484          . N NDFIEN S NDFIEN=$P(NDFDATA(20),U)
    8585          . N VAPROD S VAPROD=$P(NDFDATA(22),U)
    86           . B:NDFIEN=""
    87           . N CONCDATA S CONCDATA=$$CPRS^PSNAPIS(NDFIEN,VAPROD)
     86          . N CONCDATA
     87          . I NDFIEN="" S CONCDATA=""
     88          . E  S CONCDATA=$$CPRS^PSNAPIS(NDFIEN,VAPROD)
    8889          . S @MAP@("MEDFORMTEXT")=$P(CONCDATA,U,1)
    8990          . S @MAP@("MEDCONCVALUE")=$P(CONCDATA,U,3)
Note: See TracChangeset for help on using the changeset viewer.