Index: ccr/branches/ohum/p/C0CNMED2.m
===================================================================
--- ccr/branches/ohum/p/C0CNMED2.m	(revision 1332)
+++ ccr/branches/ohum/p/C0CNMED2.m	(revision 1333)
@@ -1,121 +1,121 @@
 C0CMED	; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009
- ;;1.0;C0C;;May 19, 2009;Build 38
- ; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel.
- ; Licensed under the terms of the GNU General Public License.
- ; See attached copy of the License.
- ; 
- ; This program is free software; you can redistribute it and/or modify
- ; it under the terms of the GNU General Public License as published by
- ; the Free Software Foundation; either version 2 of the License, or
- ; (at your option) any later version.
- ; 
- ; This program is distributed in the hope that it will be useful,
- ; but WITHOUT ANY WARRANTY; without even the implied warranty of
- ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- ; GNU General Public License for more details.
- ; 
- ; You should have received a copy of the GNU General Public License along
- ; with this program; if not, write to the Free Software Foundation, Inc.,
- ; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
- ;
- ; --Revision History
- ; July 2008 - Initial Version/GPL
- ; July 2008 - March 2009 various revisions
- ; March 2009 - Reconstruction of routine as driver for other med routines/SMH
- ; June 2011 - Redone to support all meds using the FOIA NHIN routines/gpl
- ;
- Q
- ;
- ; THIS VERSION IS DEPRECATED BECAUSE IT DOES NOT GENEREATE XML IN
- ; THE RIGHT ORDER... AND IT HAS TO BE IN THE RIGHT ORDER... :(
- ; GPL
- ;
-EXTRACT(MEDXML,DFN,MEDOUTXML) ; Private; Extract medications into provided XML template
- ; DFN passed by reference
- ; MEDXML and MEDOUTXML are passed by Name
- ; MEDXML is the input template
- ; MEDOUTXML is the output template
- ; Both of them refer to ^TMP globals where the XML documents are stored
- ;
- N GN
- D EN^C0CNHIN(.GN,DFN,"MED;",1) ; RETRIEVE NHIN ARRAY OF MEDS
- ; this call uses GET^NHINV to retrieve xml of the meds and then
- ; parses with MXML and uses DOMO^C0CDOM to extract an NHIN array
- ;
- ; we now create an NHIN Array of the Meds section of the CCR
- ;
- N ZI S ZI=""
- F  S ZI=$O(GN("med",ZI)) Q:ZI=""  D  ; for each med
- . N GA S GA=$NA(GN("med",ZI))
- . N GM S GM="Medication" ; to keep the lines shorter
- . S GC(GM,ZI,"CCRDataObjectID")="MED_"_ZI
- . N ZD,ZD2 S ZD=$G(@GA@("ordered@value")) ; FILEMAN DATE
- . I ZD="" S ZD=$G(@GA@("start@value")) ; for inpatient meds
- . S ZD2=$$FMDTOUTC^C0CUTIL(ZD,"DT")
- . S GC(GM,ZI,"DateTime[1].ExactDateTime")=ZD2
- . S GC(GM,ZI,"DateTime[1].Type.Text")="Documented Date"
- . ;S GC(GM,ZI,"DateTime[2].ExactDateTime")=""
- . ;S GC(GM,ZI,"DateTime[2].Type.Text")=""
- . N GSIG S GSIG=$G(@GA@("sig"))
- . I GSIG["|" S GSIG=$P(GSIG,"|",2) ; eRx has name of drug separated by |
- . S GC(GM,ZI,"Description.Text")=GSIG
- . N GD S GD="Directions.Direction" ; MAKING THE STRINGS SHORTER
- . ;S GC(GM,ZI,GD_".DeliveryMethod.Text")="@@MEDDELIVERYMETHOD@@"
- . ;S GC(GM,ZI,GD_".Description.Text")=""
- . ;S GC(GM,ZI,GD_".DirectionSequenceModifier")="@@MEDDIRSEQ@@"
- . ;S GC(GM,ZI,GD_".Dose.Rate.Units.Unit")="@@MEDRATEUNIT@@"
- . ;S GC(GM,ZI,GD_".Dose.Rate.Value")="@@MEDRATEVALUE@@"
- . ;S GC(GM,ZI,GD_".Dose.Units.Unit")="@@MEDDOSEUNIT@@"
- . ;S GC(GM,ZI,GD_".Dose.Value")="@@MEDDOSEVALUE@@"
- . ;S GC(GM,ZI,GD_".DoseIndicator.Text")="@@MEDDOSEINDICATOR@@"
- . ;S GC(GM,ZI,GD_".Duration.Units.Unit")="@@MEDDURATIONUNIT@@"
- . ;S GC(GM,ZI,GD_".Duration.Value")="@@MEDDURATIONVALUE@@"
- . ;S GC(GM,ZI,GD_".Frequency.Value")="@@MEDFREQUENCYVALUE@@"
- . ;S GC(GM,ZI,GD_".Indication.PRNFlag.Text")="@@MEDPRNFLAG@@"
- . ;S GC(GM,ZI,GD_".Indication.Problem.CCRDataObjectID")=""
- . ;S GC(GM,ZI,GD_".Indication.Problem.Description.Code.CodingSystem")=""
- . ;S GC(GM,ZI,GD_".Indication.Problem.Description.Code.Value")=""
- . ;S GC(GM,ZI,GD_".Indication.Problem.Description.Code.Version")=""
- . ;S GC(GM,ZI,GD_".Indication.Problem.Description.Text")=""
- . ;S GC(GM,ZI,GD_".Indication.Problem.Source.Actor.ActorID")=""
- . ;S GC(GM,ZI,GD_".Indication.Problem.Type.Text")=""
- . ;S GC(GM,ZI,GD_".Interval.Units.Unit")="@@MEDINTERVALUNIT@@"
- . ;S GC(GM,ZI,GD_".Interval.Value")="@@MEDINTERVALVALUE@@"
- . ;S GC(GM,ZI,GD_".MultipleDirectionModifier.Text")="@@MEDMULDIRMOD@@"
- . S GC(GM,ZI,GD_".Route.Text")=$G(@GA@("doses.dose@route"))
- . ;S GC(GM,ZI,GD_".StopIndicator.Text")="@@MEDSTOPINDICATOR@@"
- . ;S GC(GM,ZI,GD_".Vehicle.Text")="@@MEDVEHICLETEXT@@"
- . ;S GC(GM,ZI,"FullfillmentInstructions.Text")=""
- . ;S GC(GM,ZI,"IDs.ID")="@@MEDRXNO@@"
- . ;S GC(GM,ZI,"IDs.Type.Text")="@@MEDRXNOTXT@@"
- . ;S GC(GM,ZI,"PatientInstructions.Instruction.Text")="@@MEDPTINSTRUCTIONS@@"
- . ;S GC(GM,ZI,"Product.BrandName.Text")="@@MEDBRANDNAMETEXT@@"
- . S GC(GM,ZI,"Product.Concentration.Units.Unit")=$G(@GA@("doses.dose@units"))
- . S GC(GM,ZI,"Product.Concentration.Value")=$G(@GA@("doses.dose@dose"))
- . S GC(GM,ZI,"Product.Form.Text")=$G(@GA@("form@value"))
- . N GV S GV=$G(@GA@("products.product.vaProduct@vuid"))
- . N GR S GR=$$RXNCUI3^C0PLKUP(GV)
- . S GC(GM,ZI,"Product.ProductName.Code.CodingSystem")=$S(GR:"RxNorm",1:"VUID")
- . S GC(GM,ZI,"Product.ProductName.Code.Value")=$S(GR:GR,1:GV)
- . S GC(GM,ZI,"Product.ProductName.Code.Version")="08AB_081201F"
- . S GC(GM,ZI,"Product.ProductName.Text")=$G(@GA@("name@value"))
- . S GC(GM,ZI,"Product.Strength.Units.Unit")=$G(@GA@("doses.dose@units"))
- . S GC(GM,ZI,"Product.Strength.Value")=$G(@GA@("doses.dose@dose"))
- . ;S GC(GM,ZI,"Quantity.Units.Unit")="@@MEDQUANTITYUNIT@@"
- . ;S GC(GM,ZI,"Quantity.Value")="@@MEDQUANTITYVALUE@@"
- . ;S GC(GM,ZI,"Refills.Refill.Number")="@@MEDRFNO@@"
- . N GDUZ S GDUZ=$G(@GA@("orderingProvider@code")) ;PROVIDER DUZ
- . S GC(GM,ZI,"Source.Actor.ActorID")="PROVIDER_"_GDUZ
- . S GC(GM,ZI,"Status.Text")=$G(@GA@("status@value"))
- . S GC(GM,ZI,"Type.Text")="Medication"
- N C0CDOCID
- S C0CDOCID=$$DOMI^C0CDOM("GC",,"Medications") ; insert to dom
- D OUTXML^C0CDOM(MEDOUTXML,C0CDOCID,1) ; render the xml
- N ZSIZE S ZSIZE=$O(@MEDOUTXML@(""),-1)
- S @MEDOUTXML@(0)=ZSIZE ; RETURN STATUS IS NUMBER OF LINES OF XML
- W !,MEDOUTXML
- ;ZWR GN
- ;ZWR GC
- ;B
- Q
- ;
+	;;1.0;C0C;;May 19, 2009;Build 1
+	; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel.
+	; Licensed under the terms of the GNU General Public License.
+	; See attached copy of the License.
+	; 
+	; This program is free software; you can redistribute it and/or modify
+	; it under the terms of the GNU General Public License as published by
+	; the Free Software Foundation; either version 2 of the License, or
+	; (at your option) any later version.
+	; 
+	; This program is distributed in the hope that it will be useful,
+	; but WITHOUT ANY WARRANTY; without even the implied warranty of
+	; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+	; GNU General Public License for more details.
+	; 
+	; You should have received a copy of the GNU General Public License along
+	; with this program; if not, write to the Free Software Foundation, Inc.,
+	; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+	;
+	; --Revision History
+	; July 2008 - Initial Version/GPL
+	; July 2008 - March 2009 various revisions
+	; March 2009 - Reconstruction of routine as driver for other med routines/SMH
+	; June 2011 - Redone to support all meds using the FOIA NHIN routines/gpl
+	;
+	Q
+	;
+	; THIS VERSION IS DEPRECATED BECAUSE IT DOES NOT GENEREATE XML IN
+	; THE RIGHT ORDER... AND IT HAS TO BE IN THE RIGHT ORDER... :(
+	; GPL
+	;
+EXTRACT(MEDXML,DFN,MEDOUTXML)	; Private; Extract medications into provided XML template
+	; DFN passed by reference
+	; MEDXML and MEDOUTXML are passed by Name
+	; MEDXML is the input template
+	; MEDOUTXML is the output template
+	; Both of them refer to ^TMP globals where the XML documents are stored
+	;
+	N GN
+	D EN^C0CNHIN(.GN,DFN,"MED;",1) ; RETRIEVE NHIN ARRAY OF MEDS
+	; this call uses GET^NHINV to retrieve xml of the meds and then
+	; parses with MXML and uses DOMO^C0CDOM to extract an NHIN array
+	;
+	; we now create an NHIN Array of the Meds section of the CCR
+	;
+	N ZI S ZI=""
+	F  S ZI=$O(GN("med",ZI)) Q:ZI=""  D  ; for each med
+	. N GA S GA=$NA(GN("med",ZI))
+	. N GM S GM="Medication" ; to keep the lines shorter
+	. S GC(GM,ZI,"CCRDataObjectID")="MED_"_ZI
+	. N ZD,ZD2 S ZD=$G(@GA@("ordered@value")) ; FILEMAN DATE
+	. I ZD="" S ZD=$G(@GA@("start@value")) ; for inpatient meds
+	. S ZD2=$$FMDTOUTC^C0CUTIL(ZD,"DT")
+	. S GC(GM,ZI,"DateTime[1].ExactDateTime")=ZD2
+	. S GC(GM,ZI,"DateTime[1].Type.Text")="Documented Date"
+	. ;S GC(GM,ZI,"DateTime[2].ExactDateTime")=""
+	. ;S GC(GM,ZI,"DateTime[2].Type.Text")=""
+	. N GSIG S GSIG=$G(@GA@("sig"))
+	. I GSIG["|" S GSIG=$P(GSIG,"|",2) ; eRx has name of drug separated by |
+	. S GC(GM,ZI,"Description.Text")=GSIG
+	. N GD S GD="Directions.Direction" ; MAKING THE STRINGS SHORTER
+	. ;S GC(GM,ZI,GD_".DeliveryMethod.Text")="@@MEDDELIVERYMETHOD@@"
+	. ;S GC(GM,ZI,GD_".Description.Text")=""
+	. ;S GC(GM,ZI,GD_".DirectionSequenceModifier")="@@MEDDIRSEQ@@"
+	. ;S GC(GM,ZI,GD_".Dose.Rate.Units.Unit")="@@MEDRATEUNIT@@"
+	. ;S GC(GM,ZI,GD_".Dose.Rate.Value")="@@MEDRATEVALUE@@"
+	. ;S GC(GM,ZI,GD_".Dose.Units.Unit")="@@MEDDOSEUNIT@@"
+	. ;S GC(GM,ZI,GD_".Dose.Value")="@@MEDDOSEVALUE@@"
+	. ;S GC(GM,ZI,GD_".DoseIndicator.Text")="@@MEDDOSEINDICATOR@@"
+	. ;S GC(GM,ZI,GD_".Duration.Units.Unit")="@@MEDDURATIONUNIT@@"
+	. ;S GC(GM,ZI,GD_".Duration.Value")="@@MEDDURATIONVALUE@@"
+	. ;S GC(GM,ZI,GD_".Frequency.Value")="@@MEDFREQUENCYVALUE@@"
+	. ;S GC(GM,ZI,GD_".Indication.PRNFlag.Text")="@@MEDPRNFLAG@@"
+	. ;S GC(GM,ZI,GD_".Indication.Problem.CCRDataObjectID")=""
+	. ;S GC(GM,ZI,GD_".Indication.Problem.Description.Code.CodingSystem")=""
+	. ;S GC(GM,ZI,GD_".Indication.Problem.Description.Code.Value")=""
+	. ;S GC(GM,ZI,GD_".Indication.Problem.Description.Code.Version")=""
+	. ;S GC(GM,ZI,GD_".Indication.Problem.Description.Text")=""
+	. ;S GC(GM,ZI,GD_".Indication.Problem.Source.Actor.ActorID")=""
+	. ;S GC(GM,ZI,GD_".Indication.Problem.Type.Text")=""
+	. ;S GC(GM,ZI,GD_".Interval.Units.Unit")="@@MEDINTERVALUNIT@@"
+	. ;S GC(GM,ZI,GD_".Interval.Value")="@@MEDINTERVALVALUE@@"
+	. ;S GC(GM,ZI,GD_".MultipleDirectionModifier.Text")="@@MEDMULDIRMOD@@"
+	. S GC(GM,ZI,GD_".Route.Text")=$G(@GA@("doses.dose@route"))
+	. ;S GC(GM,ZI,GD_".StopIndicator.Text")="@@MEDSTOPINDICATOR@@"
+	. ;S GC(GM,ZI,GD_".Vehicle.Text")="@@MEDVEHICLETEXT@@"
+	. ;S GC(GM,ZI,"FullfillmentInstructions.Text")=""
+	. ;S GC(GM,ZI,"IDs.ID")="@@MEDRXNO@@"
+	. ;S GC(GM,ZI,"IDs.Type.Text")="@@MEDRXNOTXT@@"
+	. ;S GC(GM,ZI,"PatientInstructions.Instruction.Text")="@@MEDPTINSTRUCTIONS@@"
+	. ;S GC(GM,ZI,"Product.BrandName.Text")="@@MEDBRANDNAMETEXT@@"
+	. S GC(GM,ZI,"Product.Concentration.Units.Unit")=$G(@GA@("doses.dose@units"))
+	. S GC(GM,ZI,"Product.Concentration.Value")=$G(@GA@("doses.dose@dose"))
+	. S GC(GM,ZI,"Product.Form.Text")=$G(@GA@("form@value"))
+	. N GV S GV=$G(@GA@("products.product.vaProduct@vuid"))
+	. N GR S GR=$$RXNCUI3^C0PLKUP(GV)
+	. S GC(GM,ZI,"Product.ProductName.Code.CodingSystem")=$S(GR:"RxNorm",1:"VUID")
+	. S GC(GM,ZI,"Product.ProductName.Code.Value")=$S(GR:GR,1:GV)
+	. S GC(GM,ZI,"Product.ProductName.Code.Version")="08AB_081201F"
+	. S GC(GM,ZI,"Product.ProductName.Text")=$G(@GA@("name@value"))
+	. S GC(GM,ZI,"Product.Strength.Units.Unit")=$G(@GA@("doses.dose@units"))
+	. S GC(GM,ZI,"Product.Strength.Value")=$G(@GA@("doses.dose@dose"))
+	. ;S GC(GM,ZI,"Quantity.Units.Unit")="@@MEDQUANTITYUNIT@@"
+	. ;S GC(GM,ZI,"Quantity.Value")="@@MEDQUANTITYVALUE@@"
+	. ;S GC(GM,ZI,"Refills.Refill.Number")="@@MEDRFNO@@"
+	. N GDUZ S GDUZ=$G(@GA@("orderingProvider@code")) ;PROVIDER DUZ
+	. S GC(GM,ZI,"Source.Actor.ActorID")="PROVIDER_"_GDUZ
+	. S GC(GM,ZI,"Status.Text")=$G(@GA@("status@value"))
+	. S GC(GM,ZI,"Type.Text")="Medication"
+	N C0CDOCID
+	S C0CDOCID=$$DOMI^C0CDOM("GC",,"Medications") ; insert to dom
+	D OUTXML^C0CDOM(MEDOUTXML,C0CDOCID,1) ; render the xml
+	N ZSIZE S ZSIZE=$O(@MEDOUTXML@(""),-1)
+	S @MEDOUTXML@(0)=ZSIZE ; RETURN STATUS IS NUMBER OF LINES OF XML
+	W !,MEDOUTXML
+	;ZWR GN
+	;ZWR GC
+	;B
+	Q
+	;
