source: ccr/trunk/p/C0CNMED2.m@ 1781

C0CNMED2        ; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009 ; 5/10/12 2:53pm
        ;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
        ; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel.
        ;
        ; This program is free software: you can redistribute it and/or modify
        ; it under the terms of the GNU Affero General Public License as
        ; published by the Free Software Foundation, either version 3 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 Affero General Public License for more details.
        ;
        ; You should have received a copy of the GNU Affero General Public License
        ; along with this program.  If not, see <http://www.gnu.org/licenses/>.
        ;
        ;
        ; --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
        ;