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

MDDEVCL.m

Go to the documentation of this file.
  1. MDDEVCL ;HOIFO/NCA - Collect Device Data ;8:34 AM 9 Jun 2005
  1. ;;1.0;CLINICAL PROCEDURES;**20**;Apr 01, 2004;Build 9
  1. ; Reference IA # 2056 for DIQ
  1. ; 2263 FOR XPAR
  1. ; 2729 for XMXAPI calls.
  1. ; 10060 for NEW PERSON file (#200) access
  1. COL ; Collect Device data for Transmission
  1. K ^TMP("MDMTXT",$J)
  1. N MDLP,MDTXT,MDTXT1,MDCT,MDSTAT,XMBODY,XMSUBJ,XMINSTR,XMTO S MDCT=0,MDSTAT=DUZ(2)
  1. Q:'+$$GET^XPAR("SYS","MD DEVICE SURVEY TRANSMISSION",1)
  1. S MDLP=0 F S MDLP=$O(^MDS(702.09,MDLP)) Q:MDLP<1 S MDTXT=$G(^(MDLP,0)),MDTXT1=$G(^(.1)) D
  1. .S MDCT=MDCT+1
  1. .S ^TMP("MDMTXT",$J,MDCT)=MDSTAT_"^"_$P(MDTXT,"^",1)_"^"_$P(MDTXT1,"^",2)_"^"_$P(MDTXT,"^",9)_"^"_$$GET1^DIQ(200,DUZ_",",.01)
  1. Q:'MDCT
  1. S XMSUBJ="Medical Device Name Report"
  1. S XMINSTR("FROM")=.5,XMBODY="^TMP(""MDMTXT"",$J)"
  1. S XMTO="G.MDDEVICE@DEV.DEV.FO-HINES.DOMAIN.EXT"
  1. D SENDMSG^XMXAPI(DUZ,XMSUBJ,XMBODY,XMTO,.XMINSTR) K ^TMP("MDMTXT",$J)
  1. I $G(XQY0)'=""&($P($G(XQY0),"^")["TRANSMISSION") W !!,"Message Transmitted."
  1. Q