XMVSM ;BAY/JML - MailMan Read-Only Calls for the VistA System Monitor;7/1/2025
;;8.0;MailMan;**54**;6/28/2002;Build 2
;
; This routine provides read-only callables to populate the VSM Operational Dashboard
;
XMLIST(XMARR) ; Adapted from QZTSK^XMCQA
N XMSITE,XMIEN,XMLINK,XMQD,XMQD1,XMDOM,XMMCNT,XMDCNT,DUZ,U
S DUZ=.5,U="^"
S (XMMCNT,XMDCNT)=0
S XMSITE=""
F S XMSITE=$O(^DIC(4.2,"B",XMSITE)) Q:XMSITE="" D
.S XMIEN=0
.F S XMIEN=$O(^DIC(4.2,"B",XMSITE,XMIEN)) Q:'XMIEN D
..S XMQD=+$P($G(^XMB(3.7,.5,2,XMIEN+1000,1,0)),"^",4)
..Q:'XMQD
..S XMDOM=$P($G(^DIC(4.2,XMIEN,0)),U)
..S XMLINK=$P($G(^DIC(4.2,XMIEN,0)),U,17)
..S XMARR("DOMAINS",XMDOM)=XMQD_"^"_XMLINK
..S XMDCNT=XMDCNT+1
..S XMMCNT=XMMCNT+XMQD
S XMARR("TOTDOMS")=XMDCNT
S XMARR("TMQUED")=XMMCNT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMVSM 800 printed Apr 22, 2026@14:10:48 Page 2
XMVSM ;BAY/JML - MailMan Read-Only Calls for the VistA System Monitor;7/1/2025
+1 ;;8.0;MailMan;**54**;6/28/2002;Build 2
+2 ;
+3 ; This routine provides read-only callables to populate the VSM Operational Dashboard
+4 ;
XMLIST(XMARR) ; Adapted from QZTSK^XMCQA
+1 NEW XMSITE,XMIEN,XMLINK,XMQD,XMQD1,XMDOM,XMMCNT,XMDCNT,DUZ,U
+2 SET DUZ=.5
SET U="^"
+3 SET (XMMCNT,XMDCNT)=0
+4 SET XMSITE=""
+5 FOR
SET XMSITE=$ORDER(^DIC(4.2,"B",XMSITE))
if XMSITE=""
QUIT
Begin DoDot:1
+6 SET XMIEN=0
+7 FOR
SET XMIEN=$ORDER(^DIC(4.2,"B",XMSITE,XMIEN))
if 'XMIEN
QUIT
Begin DoDot:2
+8 SET XMQD=+$PIECE($GET(^XMB(3.7,.5,2,XMIEN+1000,1,0)),"^",4)
+9 if 'XMQD
QUIT
+10 SET XMDOM=$PIECE($GET(^DIC(4.2,XMIEN,0)),U)
+11 SET XMLINK=$PIECE($GET(^DIC(4.2,XMIEN,0)),U,17)
+12 SET XMARR("DOMAINS",XMDOM)=XMQD_"^"_XMLINK
+13 SET XMDCNT=XMDCNT+1
+14 SET XMMCNT=XMMCNT+XMQD
End DoDot:2
End DoDot:1
+15 SET XMARR("TOTDOMS")=XMDCNT
+16 SET XMARR("TMQUED")=XMMCNT
+17 QUIT
