Changeset 1619 for fmts

Timestamp:

Apr 19, 2013, 8:24:22 PM (12 years ago)

Author:

Sam Habiel

Message:

minor debugging related changes

File:

• fmts/trunk/p/C0XPT3.m (modified) (2 diffs)

fmts/trunk/p/C0XPT3.m

@@ -1 @@
-C0XPT3  ;ISI/MLS,VEN/SMH -- MEDS IMPORT ;2013-04-10  6:54 PM
+C0XPT3  ;ISI/MLS,VEN/SMH -- MEDS IMPORT ;2013-04-19  5:42 PM
         ;;1.0;FILEMAN TRIPLE STORE;;Jun 26,2012;Build 29
+        ; (C) Sam Habiel 2013
+        ; Proprietary code. Stay out!
         ;
 MEDS(G,DFN) ; Private Proc; Extract Medication Data from a Patient's Graph
@@ -97 +99 @@
         I $$ISBRAND^C0CRXNLK(RXN) S RXN=$$BR2GEN^C0CRXNLK(RXN) ; Get Generic Drug for Brand
         N LOCALDRUG S LOCALDRUG=+$$RXN2MEDS^C0CRXNLK(RXN)
-        I 'LOCALDRUG S LOCALDRUG=$$ADDDRUG(RXN)
+        ; I 'LOCALDRUG S LOCALDRUG=$$ADDDRUG^C0CRXNAD(RXN)
+        I LOCALDRUG N DIK,DA S DIK="^PSDRUG(",DA=LOCALDRUG D ^DIK
+        S LOCALDRUG=$$ADDDRUG^C0CRXNAD(RXN)
         W "(debug) Local Drug IEN: "_LOCALDRUG,!
         N PSODRUG S PSODRUG=LOCALDRUG  ;POINTER TO DRUG FILE (#50) ; TODO: HARDCODED; RXN