Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MDAPI1

MDAPI1.m

Go to the documentation of this file.
  1. MDAPI1 ; HOIFO/NCA - Electrocardiogram Data Extraction ;12/4/02 12:32
  1. ;;1.0;CLINICAL PROCEDURES;**1**;Apr 01, 2004
  1. ; Reference IA #3854 API call
  1. ; IA #10154 Access 2nd piece of ^DD(filenumber,fieldnumber,0)
  1. GET(RESULTS,MDARDFN,MDSDT,MDEDT,MDFLDS) ; Returns list of data from Electrocardiogram File #691.5
  1. ; Input: RESULTS - the global ^TMP array in which (Required)
  1. ; to return results.
  1. ; MDARDFN - the patient DFN. (Required)
  1. ; MDSDT - the start date of the date (Required)
  1. ; range to return the data in.
  1. ; This must be in FM internal
  1. ; format.
  1. ; MDEDT - the end date of the date (Required)
  1. ; range to return the data in.
  1. ; This must be in FM internal
  1. ; format.
  1. ; MDFLDS - a list of fields from file #691.5 to (Required)
  1. ; be returned in RESULTS. MDFLDS should
  1. ; contain a list of fields delimited by ";"
  1. ; example: MDFLDS=".01;11;20..."
  1. ;
  1. ; Output: RESULTS (Passed by Reference)
  1. ; Global array returned in the FM DIQ call format.
  1. ;
  1. ; Example API call:
  1. ;
  1. ; S RESULTS="^TMP(""NAMESPACE"",$J)"
  1. ; D GET^MDAPI1(.RESULTS,162,2900101,3021001,".01;11")
  1. ;
  1. ; return:
  1. ; ^TMP("NAMESPACE",$J,file #,record ien_",",field #,"E")=Data
  1. ; ^TMP("NAMESPACE",$J,subfile #,entry #_","_record ien,
  1. ; field of the multiple,"E")=data
  1. ;
  1. ; Only the Electrocardiogram records in the following
  1. ; statuses will be returned in the list:
  1. ;
  1. ; RELEASED ON-LINE VERIFIED
  1. ; RELEASED OFF-LINE VERIFIED
  1. ; RELEASED NOT VERIFIED
  1. ; RELEASED ON-LINE VERIFIED OF SUPERSEDED
  1. ; RELEASED OFF-LINE VERIFIED OF SUPERSEDED
  1. ;
  1. ; ^TMP("NAMESPACE",$J,0) will equal one of the following,
  1. ; if the call failed:
  1. ; -1^No Patient DFN.
  1. ; -1^No Start Date Range.
  1. ; -1^No End Date Range.
  1. ; -1^Start Date greater than End Date.
  1. ; -1^No fields defined.
  1. ;
  1. ; If a local variable is defined in RESULTS,
  1. ; ^TMP("MDAPI",$J,0) equals
  1. ; -1^Global TMP array only.
  1. ;
  1. ; If no return array defined,^TMP("MDAPI",$J,0) equals
  1. ; -1^No return array global.
  1. ;
  1. ; If no data, ^TMP("NAMESPACE",$J,0) equals
  1. ; -1^No data for patient.
  1. ;
  1. N MDCODE,MDDR,MDK,MDLP,MDN,MDNOD,MDSUBF,MDX,MDY
  1. K ^TMP("MDAPI",$J)
  1. I '$D(RESULTS) S ^TMP("MDAPI",$J,0)="-1^No return array global." Q
  1. I $G(RESULTS)'["^TMP" S ^TMP("MDAPI",$J,0)="-1^Global TMP array only." Q
  1. I '+$G(MDARDFN) S @RESULTS@(0)="-1^No Patient DFN." Q
  1. I '$G(MDSDT) S @RESULTS@(0)="-1^No Start Date Range." Q
  1. I '$G(MDEDT) S @RESULTS@(0)="-1^No End Date Range." Q
  1. I MDSDT>MDEDT S @RESULTS@(0)="-1^Start Date greater than End Date." Q
  1. I $G(MDFLDS)="" S @RESULTS@(0)="-1^No fields defined." Q
  1. S (MDDR,MDX,MDY)="",MDEDT=MDEDT\1+.3
  1. S MDN=$L(MDFLDS,";")
  1. F MDK=1:1:MDN S MDY=+$P(MDFLDS,";",MDK) I MDY D
  1. .Q:'$$VFIELD^DILFD(691.5,MDY)
  1. .S MDNOD=$P($G(^DD(691.5,+MDY,0)),"^",2),MDSUBF=0
  1. .I +MDNOD[691.5&($E(MDNOD,$L(MDNOD)-1,$L(MDNOD))="PA") S MDSUBF=1
  1. .S MDDR=MDDR_$S(MDDR="":"",1:";")_MDY_$S(MDSUBF:"*",1:"")
  1. .Q
  1. S MDLP=0 F S MDLP=$O(^MCAR(691.5,"C",MDARDFN,MDLP)) Q:MDLP<1 D
  1. .S MDX=$G(^MCAR(691.5,MDLP,0)) Q:MDX=""
  1. .Q:$P(MDX,"^")<MDSDT!($P(MDX,"^")>MDEDT)
  1. .S MDCODE=$P($G(^MCAR(691.5,MDLP,"ES")),"^",7)
  1. .S:MDCODE="" MDCODE="RNV"
  1. .I MDCODE="S"!(MDCODE["D") Q
  1. .D GETS^DIQ(691.5,MDLP_",",MDDR,"E",$NA(@RESULTS))
  1. .Q
  1. I '$D(@(RESULTS)) S @RESULTS@(0)="-1^No data for patient."
  1. Q