iSharkFly-Open
/
VistA-fmts
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

minor debugging related changes

This commit is contained in:
sam 2013-04-20 00:24:22 +00:00
parent 2de37324e5
commit 868d5e2e13
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
p/C0XPT3.m
View File

@ -1,5 +1,7 @@
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 ;;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 MEDS(G,DFN) ; Private Proc; Extract Medication Data from a Patient's Graph
; G - Patient Graph, DFN - you should know this ; G - Patient Graph, DFN - you should know this
@ -96,7 +98,9 @@ PREP(DFN,RXN,INST,FILDT,FILQTY,FILDAYS,FILLS) ;
N PROV S PROV=$$NP^C0XPT0() ;NEW PERSON FILE (#200) N PROV S PROV=$$NP^C0XPT0() ;NEW PERSON FILE (#200)
I $$ISBRAND^C0CRXNLK(RXN) S RXN=$$BR2GEN^C0CRXNLK(RXN) ; Get Generic Drug for Brand I $$ISBRAND^C0CRXNLK(RXN) S RXN=$$BR2GEN^C0CRXNLK(RXN) ; Get Generic Drug for Brand
N LOCALDRUG S LOCALDRUG=+$$RXN2MEDS^C0CRXNLK(RXN) 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,! W "(debug) Local Drug IEN: "_LOCALDRUG,!
N PSODRUG S PSODRUG=LOCALDRUG ;POINTER TO DRUG FILE (#50) ; TODO: HARDCODED; RXN N PSODRUG S PSODRUG=LOCALDRUG ;POINTER TO DRUG FILE (#50) ; TODO: HARDCODED; RXN
S PSODRUG("DEA")=$P($G(^PSDRUG(PSODRUG,0)),U,3) S PSODRUG("DEA")=$P($G(^PSDRUG(PSODRUG,0)),U,3)