Changeset 281 for ccr/trunk/p/CCRMEDS2.m

Timestamp:

Nov 17, 2008, 2:48:14 PM (16 years ago)

Author:

George Lilly

Message:

check for no dose data present

File:

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

ccr/trunk/p/CCRMEDS2.m

@@ -85 +85 @@
  . S @MAP@("MEDBRANDNAMETEXT")=""
  . D DOSE^PSS50(MEDIEN,,,,,"DOSE")
- . N DOSEDATA M DOSEDATA=^TMP($J,"DOSE",MEDIEN)
- . S @MAP@("MEDSTRENGTHVALUE")=DOSEDATA(901)
- . S @MAP@("MEDSTRENGTHUNIT")=$P(DOSEDATA(902),U,2)
+ . I $D(^TMP($J,"DOSE",MEDIEN)) D  ; GPL ; CALL SUCCESSFUL
+ . . N DOSEDATA M DOSEDATA=^TMP($J,"DOSE",MEDIEN)
+ . . S @MAP@("MEDSTRENGTHVALUE")=DOSEDATA(901)
+ . . S @MAP@("MEDSTRENGTHUNIT")=$P(DOSEDATA(902),U,2)
+ . E  D  ; GPL CALL UNSUCCESSUFL
+ . . S @MAP@("MEDSTRENGTHVALUE")="" ; NO DOSE INFORMATION AVAILABLE
+ . . S @MAP@("MEDSTRENGTHUNIT")="" ;
  . ; Units, concentration, etc, come from another call
  . ; $$CPRS^PSNAPIS which returns dosage-form^va class^strengh^unit