- 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 ---[H[J[2J[HMDDEVCL 1038 printed Feb 18, 2025@23:09:04 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