- 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 Mar 13, 2025@21:51:36 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
