MDDEVCL.m

MDDEVCL ;HOIFO/NCA - Collect Device Data ;8:34 AM  9 Jun 2005

 ;;1.0;CLINICAL PROCEDURES;**20**;Apr 01, 2004;Build 9

 ; Reference IA # 2056 for DIQ

 ;                2263 FOR XPAR

 ;                2729 for XMXAPI calls.

 ;               10060 for NEW PERSON file (#200) access

COL ; Collect Device data for Transmission

 K ^TMP("MDMTXT",$J)

 N MDLP,MDTXT,MDTXT1,MDCT,MDSTAT,XMBODY,XMSUBJ,XMINSTR,XMTO S MDCT=0,MDSTAT=DUZ(2)

 Q:'+$$GET^XPAR("SYS","MD DEVICE SURVEY TRANSMISSION",1)

 S MDLP=0 F  S MDLP=$O(^MDS(702.09,MDLP)) Q:MDLP<1  S MDTXT=$G(^(MDLP,0)),MDTXT1=$G(^(.1)) D

 .S MDCT=MDCT+1

 .S ^TMP("MDMTXT",$J,MDCT)=MDSTAT_"^"_$P(MDTXT,"^",1)_"^"_$P(MDTXT1,"^",2)_"^"_$P(MDTXT,"^",9)_"^"_$$GET1^DIQ(200,DUZ_",",.01)

 Q:'MDCT

 S XMSUBJ="Medical Device Name Report"

 S XMINSTR("FROM")=.5,XMBODY="^TMP(""MDMTXT"",$J)"

 S XMTO="G.MDDEVICE@DEV.DEV.FO-HINES.DOMAIN.EXT"

 D SENDMSG^XMXAPI(DUZ,XMSUBJ,XMBODY,XMTO,.XMINSTR) K ^TMP("MDMTXT",$J)

 I $G(XQY0)'=""&($P($G(XQY0),"^")["TRANSMISSION") W !!,"Message Transmitted."

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MDDEVCL   1038     printed  Apr 09, 2024@20:49                                                                                                                                                                                                        Page 2

MDDEVCL   ;HOIFO/NCA - Collect Device Data ;8:34 AM  9 Jun 2005

 +1       ;;1.0;CLINICAL PROCEDURES;**20**;Apr 01, 2004;Build 9

 +2       ; Reference IA # 2056 for DIQ

 +3       ;                2263 FOR XPAR

 +4       ;                2729 for XMXAPI calls.

 +5       ;               10060 for NEW PERSON file (#200) access

COL       ; Collect Device data for Transmission

 +1        KILL ^TMP("MDMTXT",$JOB)

 +2        NEW MDLP,MDTXT,MDTXT1,MDCT,MDSTAT,XMBODY,XMSUBJ,XMINSTR,XMTO

           SET MDCT=0

           SET MDSTAT=DUZ(2)

 +3        if '+$$GET^XPAR("SYS","MD DEVICE SURVEY TRANSMISSION",1)

               QUIT 

 +4        SET MDLP=0

           FOR 

               SET MDLP=$ORDER(^MDS(702.09,MDLP))

               if MDLP<1

                   QUIT 

               SET MDTXT=$GET(^(MDLP,0))

               SET MDTXT1=$GET(^(.1))

               Begin DoDot:1

 +5                SET MDCT=MDCT+1

 +6                SET ^TMP("MDMTXT",$JOB,MDCT)=MDSTAT_"^"_$PIECE(MDTXT,"^",1)_"^"_$PIECE(MDTXT1,"^",2)_"^"_$PIECE(MDTXT,"^",9)_"^"_$$GET1^DIQ(200,DUZ_",",.01)

               End DoDot:1

 +7        if 'MDCT

               QUIT 

 +8        SET XMSUBJ="Medical Device Name Report"

 +9        SET XMINSTR("FROM")=.5

           SET XMBODY="^TMP(""MDMTXT"",$J)"

 +10       SET XMTO="G.MDDEVICE@DEV.DEV.FO-HINES.DOMAIN.EXT"

 +11       DO SENDMSG^XMXAPI(DUZ,XMSUBJ,XMBODY,XMTO,.XMINSTR)

           KILL ^TMP("MDMTXT",$JOB)

 +12       IF $GET(XQY0)'=""&($PIECE($GET(XQY0),"^")["TRANSMISSION")

               WRITE !!,"Message Transmitted."

 +13       QUIT