- 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 23, 2025@18:22:15 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
