Changeset 164


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

Tiny corrections: Change @@PROBLEM@@ in meds section to @@MEDPROBLEMTYPETXT@@

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/CCRMEDS.m

    r163 r164  
    8585          . N VAPROD S VAPROD=$P(NDFDATA(22),U)
    8686          . N CONCDATA
     87          . ; If a drug was not matched to NDF, then the NDFIEN is gonna be ""
     88          . ; and this will crash the call. So...
    8789          . I NDFIEN="" S CONCDATA=""
    8890          . E  S CONCDATA=$$CPRS^PSNAPIS(NDFIEN,VAPROD)
    … …  
    143145          . S @MAP@("MEDPRNFLAG")=$P(SIGDATA,U,8)["PRN"
    144146          . S @MAP@("MEDPROBLEMOBJECTID")=""
     147          . S @MAP@("MEDPROBLEMTYPETXT")=""
    145148          . S @MAP@("MEDPROBLEMDESCRIPTION")=""
    146149          . S @MAP@("MEDPROBLEMCODEVALUE")=""

  • ccr/trunk/p/GPLCCR0.m

    r154 r164  
    386386 ;;<CCRDataObjectID>@@MEDPROBLEMOBJECTID@@</CCRDataObjectID>
    387387 ;;<Type>
    388  ;;<Text>@@PROBLEM@@</Text>
     388 ;;<Text>@@MEDPROBLEMTYPETXT@@</Text>
    389389 ;;</Type>
    390390 ;;<Description>
Note: See TracChangeset for help on using the changeset viewer.