Changeset 697 for ccr

Timestamp:

Jan 30, 2010, 7:30:58 PM (15 years ago)

Author:

George Lilly

Message:

fixed variable protocol in non-VA meds

File:

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

ccr/trunk/p/C0CMED3.m

@@ -231 +231 @@
  . D QUERY^C0CXPATH(MINXML,"//Medications/Medication/PatientInstructions",INTXML1)
  . D REPLACE^C0CXPATH(RESULT,"","//Medications/Medication/PatientInstructions")
- . N MDI1
- . S MDI1=$NA(@MAP@("I"))
+ . ;N MDI1 ; removing the "I" which is not in the protocol gpl 1/2010
+ . ;S MDI1=$NA(@MAP@("I"))
  . ; S @MAP@("MEDPTINSTRUCTIONS","F")="52.41^105"
  . I $D(MED(10,1)) D  ;
- . . S @MAP@("I","MEDPTINSTRUCTIONS")=$P(MED(10,1),"  ",1) ; WP Field
- . E  S @MAP@("I","MEDPTINSTRUCTIONS")=""
- . D MAP^C0CXPATH(INTXML1,MDI1,INTXML2)
+ . . ;S @MAP@("I","MEDPTINSTRUCTIONS")=$P(MED(10,1),"  ",1) ; WP Field
+ . . S @MAP@("MEDPTINSTRUCTIONS")=$P(MED(10,1),"  ",1) ; WP Field
+ . E  S @MAP@("MEDPTINSTRUCTIONS")=""
+ . ;E  S @MAP@("I","MEDPTINSTRUCTIONS")=""
+ . ;D MAP^C0CXPATH(INTXML1,MDI1,INTXML2)
+ . D MAP^C0CXPATH(INTXML1,MAP,INTXML2) ; JUST MAP WORKS.. GPL
  . D INSERT^C0CXPATH(RESULT,INTXML2,"//Medications/Medication")
  . ;