XU8P453 ;OAK_BP/CMW - NPI Phase2 ;01-Jun-07
;;8.0;KERNEL;**453**; Jul 10, 1995;Build 36
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
; NPI Phase2 release
; Create mail group on local machine
;
Q
;
POST ; Entry point for post install
;
; remove mail group if it already exists
N Y
S X="NPI EXTRACT VERIFICATION" S D="B",DIC=3.8,DIC(0)="" D IX^DIC
I +Y D
. N DIK,DA
. S DIK="^XMB(3.8,",DA=+Y
. D ^DIK
;
MAILGRP ; -- Create new mail group
W !!,"Creating new Mailgroup NPI EXTRACT VERIFICATION"
W !!,*7,"<<< Person running this process will automatically be added to mail group! >>>"
N A,B,C,D,E,F,G,X,IBT
S A="NPI EXTRACT VERIFICATION",B=0,C=.5,D=0,G=1
I $G(DUZ)="" W !,"NO USER" G END
S E(DUZ)=""
S F(1)="Members of this mail group will automatically receive an email verification entry"
S F(2)="for each NPI Extract file that has been generated at the sites."
S X="XMBGRP" X ^%ZOSF("TEST") S IBT=$T
I IBT D
. W !!,"<<< Adding mail group "_A,!
. S X=$$MG^XMBGRP(A,B,C,D,.E,.F,G)
;
I 'IBT D
.; -- environment pre-init check for Mailman 7.1 should not allow the
.; following lines to display.
.W !!,"<<< **NOTE** Mail Group not created! >>>"
.W !,"<<< Earlier version then Mailman 7.1 on your system! >>>"
.W !,"<<< Please create a mailgroup named NPI EXTRACT VERIFICATION and add members! >>>"
;
REMOTE ; Add remote mail group
I '$D(^XMB(3.8,"B",A)) G END
S DLAYGO=3.8,DA(1)=+X
S DIC="^XMB(3.8,"_DA(1)_",6,",DIC(0)="L",X="vhaconpiextractmonitoring@domain.ext"
D ^DIC
;
END K DLAYGO,DA,DIC
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P453 1619 printed Apr 09, 2024@21:18:30 Page 2
XU8P453 ;OAK_BP/CMW - NPI Phase2 ;01-Jun-07
+1 ;;8.0;KERNEL;**453**; Jul 10, 1995;Build 36
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 ; NPI Phase2 release
+5 ; Create mail group on local machine
+6 ;
+7 QUIT
+8 ;
POST ; Entry point for post install
+1 ;
+2 ; remove mail group if it already exists
+3 NEW Y
+4 SET X="NPI EXTRACT VERIFICATION"
SET D="B"
SET DIC=3.8
SET DIC(0)=""
DO IX^DIC
+5 IF +Y
Begin DoDot:1
+6 NEW DIK,DA
+7 SET DIK="^XMB(3.8,"
SET DA=+Y
+8 DO ^DIK
End DoDot:1
+9 ;
MAILGRP ; -- Create new mail group
+1 WRITE !!,"Creating new Mailgroup NPI EXTRACT VERIFICATION"
+2 WRITE !!,*7,"<<< Person running this process will automatically be added to mail group! >>>"
+3 NEW A,B,C,D,E,F,G,X,IBT
+4 SET A="NPI EXTRACT VERIFICATION"
SET B=0
SET C=.5
SET D=0
SET G=1
+5 IF $GET(DUZ)=""
WRITE !,"NO USER"
GOTO END
+6 SET E(DUZ)=""
+7 SET F(1)="Members of this mail group will automatically receive an email verification entry"
+8 SET F(2)="for each NPI Extract file that has been generated at the sites."
+9 SET X="XMBGRP"
XECUTE ^%ZOSF("TEST")
SET IBT=$TEST
+10 IF IBT
Begin DoDot:1
+11 WRITE !!,"<<< Adding mail group "_A,!
+12 SET X=$$MG^XMBGRP(A,B,C,D,.E,.F,G)
End DoDot:1
+13 ;
+14 IF 'IBT
Begin DoDot:1
+15 ; -- environment pre-init check for Mailman 7.1 should not allow the
+16 ; following lines to display.
+17 WRITE !!,"<<< **NOTE** Mail Group not created! >>>"
+18 WRITE !,"<<< Earlier version then Mailman 7.1 on your system! >>>"
+19 WRITE !,"<<< Please create a mailgroup named NPI EXTRACT VERIFICATION and add members! >>>"
End DoDot:1
+20 ;
REMOTE ; Add remote mail group
+1 IF '$DATA(^XMB(3.8,"B",A))
GOTO END
+2 SET DLAYGO=3.8
SET DA(1)=+X
+3 SET DIC="^XMB(3.8,"_DA(1)_",6,"
SET DIC(0)="L"
SET X="vhaconpiextractmonitoring@domain.ext"
+4 DO ^DIC
+5 ;
END KILL DLAYGO,DA,DIC
+1 QUIT
