WIIPOST.m

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 ---WIIPOST   1034     printed  Apr 09, 2024@21:48:48                                                                                                                                                                                                     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