WIIPOST ;VISN20/WHN/WDE POST INIT
;;1.0;Wounded Injured and Ill Warriors;**1**;06/12/2008;Build 28
;------------------------------------------------------------------------------------------------- ;
;This post init will be used to populate the WII PARM file with the mail group exported with this build.
;-------------------------------------------------------------------------------------------------
;
EN ;
S WIIDA=0 F S WIIDA=$O(^WII(987.6,WIIDA)) Q:(WIIDA="")!('+WIIDA) D
.S DIK="^WII(987.6,",DA=WIIDA D ^DIK
.Q
K DIK,WIIDA,DA
S WIIMAIL="" S WIIMAIL=$O(^XMB(3.8,"B","WII ADT REVIEWER",WIIMAIL)) ;mail group sent out with the build
I +WIIMAIL D
.S DIC="^WII(987.6,"
.S DIC(0)=""
.S X=$P($G(^WII(987.6,0)),U,3) S:X="" X=0 S X=X+1
.S DA=X
.D FILE^DICN
.S DIE=DIC
.;S DR=".01///"_WIIMAIL_";1///S.WII ADT SERVER@TEST.VISN20.DOMAIN.EXT" ;TEST repository
.S DR=".01///"_WIIMAIL_";1///S.WII ADT SERVER@WHITE-CITY.DOMAIN.EXT" ;LIVE REPOSITORY
.D ^DIE
.Q
K DIC,DIE,X,WIIMAIL,DA,DR,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWIIPOST 1034 printed Nov 22, 2024@17:56:26 Page 2
WIIPOST ;VISN20/WHN/WDE POST INIT
+1 ;;1.0;Wounded Injured and Ill Warriors;**1**;06/12/2008;Build 28
+2 ;------------------------------------------------------------------------------------------------- ;
+3 ;This post init will be used to populate the WII PARM file with the mail group exported with this build.
+4 ;-------------------------------------------------------------------------------------------------
+5 ;
EN ;
+1 SET WIIDA=0
FOR
SET WIIDA=$ORDER(^WII(987.6,WIIDA))
if (WIIDA="")!('+WIIDA)
QUIT
Begin DoDot:1
+2 SET DIK="^WII(987.6,"
SET DA=WIIDA
DO ^DIK
+3 QUIT
End DoDot:1
+4 KILL DIK,WIIDA,DA
+5 ;mail group sent out with the build
SET WIIMAIL=""
SET WIIMAIL=$ORDER(^XMB(3.8,"B","WII ADT REVIEWER",WIIMAIL))
+6 IF +WIIMAIL
Begin DoDot:1
+7 SET DIC="^WII(987.6,"
+8 SET DIC(0)=""
+9 SET X=$PIECE($GET(^WII(987.6,0)),U,3)
if X=""
SET X=0
SET X=X+1
+10 SET DA=X
+11 DO FILE^DICN
+12 SET DIE=DIC
+13 ;S DR=".01///"_WIIMAIL_";1///S.WII ADT SERVER@TEST.VISN20.DOMAIN.EXT" ;TEST repository
+14 ;LIVE REPOSITORY
SET DR=".01///"_WIIMAIL_";1///S.WII ADT SERVER@WHITE-CITY.DOMAIN.EXT"
+15 DO ^DIE
+16 QUIT
End DoDot:1
+17 KILL DIC,DIE,X,WIIMAIL,DA,DR,Y
+18 QUIT
