Changeset 164 for ccr/trunk/p/CCRMEDS.m

Timestamp:

Sep 21, 2008, 10:37:13 PM (16 years ago)

Author:

Sam Habiel

Message:

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

File:

• ccr/trunk/p/CCRMEDS.m (modified) (2 diffs)

ccr/trunk/p/CCRMEDS.m

@@ -85 +85 @@
           . N VAPROD S VAPROD=$P(NDFDATA(22),U)
           . N CONCDATA
+          . ; If a drug was not matched to NDF, then the NDFIEN is gonna be ""
+          . ; and this will crash the call. So...
           . I NDFIEN="" S CONCDATA=""
           . E  S CONCDATA=$$CPRS^PSNAPIS(NDFIEN,VAPROD)
@@ -143 +145 @@
           . S @MAP@("MEDPRNFLAG")=$P(SIGDATA,U,8)["PRN"
           . S @MAP@("MEDPROBLEMOBJECTID")=""
+          . S @MAP@("MEDPROBLEMTYPETXT")=""
           . S @MAP@("MEDPROBLEMDESCRIPTION")=""
           . S @MAP@("MEDPROBLEMCODEVALUE")=""