IBCIPOST.m

IBCIPOST ;DSI/ESG - CLAIMSMANAGER POST INSTALL ;16-OCT-2001

 ;;2.0;INTEGRATED BILLING;**161**;21-MAR-94

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

ENTER ; Send an email message when software is installed

 ;

 NEW SSIMG,SITE,L1,TEXT,XMDUZ,XMSUB,XMTEXT,XMY,XMDUN,XMZ

 NEW D,D0,D1,D2,DG,DIC,DICR,DISYS,DIW,DIFROM,DA,DIK,X,Y

 ;

 S SSIMG="ClaimsManager.Interface@DAOU.COM"

 S SITE=+$P($G(^IBE(350.9,1,0)),U,2)

 S SITE=$P($G(^DIC(4,SITE,0)),U,1)

 ;

 S L1=1

 S TEXT(L1)=" ",L1=L1+1

 S TEXT(L1)="The ClaimsManager Interface has been installed at the following site:",L1=L1+1

 S TEXT(L1)=" ",L1=L1+1

 S TEXT(L1)=SITE,L1=L1+1

 S TEXT(L1)=$G(^XMB("NETNAME")),L1=L1+1

 S TEXT(L1)=$$SITE^VASITE(),L1=L1+1

 S TEXT(L1)=" ",L1=L1+1

 S TEXT(L1)="Build Identification:  May 2002 - A (T17)",L1=L1+1

 S TEXT(L1)=" ",L1=L1+1

 S TEXT(L1)="The value of the function $$ENV^IBCIUT5 is """_$$ENV^IBCIUT5_""".",L1=L1+1

 S TEXT(L1)="This should indicate either the Live or Test account.",L1=L1+1

 S TEXT(L1)=" ",L1=L1+1

 ;

 S XMTEXT="TEXT("

 S XMDUZ=DUZ

 S XMSUB="ClaimsManager Interface Installed"

 S XMY(SSIMG)=""

 S XMY(DUZ)=""

 D ^XMD

 ;

 ; =================================

 ; ** Remove old remote user from the VistA Mail Group 

 KILL DA,DIC,Y,DIK

 S DA=$O(^XMB(3.8,"B","IBCI COMMUNICATION ERROR",""))

 I DA D

 . S X="ClaimsManager.Interface@SENT"  ; value to lookup

 . S DIC(0)="B",DIC="^XMB(3.8,"_DA_",6," D ^DIC

 . I Y<1 Q

 . ; found old email address to delete

 . S DA(1)=DA,DIK="^XMB(3.8,"_DA(1)_",6,",DA=+Y D ^DIK

 ;

EXIT ;

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBCIPOST   1590     printed  Apr 09, 2024@21:32:13                                                                                                                                                                                                    Page 2

IBCIPOST  ;DSI/ESG - CLAIMSMANAGER POST INSTALL ;16-OCT-2001

 +1       ;;2.0;INTEGRATED BILLING;**161**;21-MAR-94

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

ENTER     ; Send an email message when software is installed

 +1       ;

 +2        NEW SSIMG,SITE,L1,TEXT,XMDUZ,XMSUB,XMTEXT,XMY,XMDUN,XMZ

 +3        NEW D,D0,D1,D2,DG,DIC,DICR,DISYS,DIW,DIFROM,DA,DIK,X,Y

 +4       ;

 +5        SET SSIMG="ClaimsManager.Interface@DAOU.COM"

 +6        SET SITE=+$PIECE($GET(^IBE(350.9,1,0)),U,2)

 +7        SET SITE=$PIECE($GET(^DIC(4,SITE,0)),U,1)

 +8       ;

 +9        SET L1=1

 +10       SET TEXT(L1)=" "

           SET L1=L1+1

 +11       SET TEXT(L1)="The ClaimsManager Interface has been installed at the following site:"

           SET L1=L1+1

 +12       SET TEXT(L1)=" "

           SET L1=L1+1

 +13       SET TEXT(L1)=SITE

           SET L1=L1+1

 +14       SET TEXT(L1)=$GET(^XMB("NETNAME"))

           SET L1=L1+1

 +15       SET TEXT(L1)=$$SITE^VASITE()

           SET L1=L1+1

 +16       SET TEXT(L1)=" "

           SET L1=L1+1

 +17       SET TEXT(L1)="Build Identification:  May 2002 - A (T17)"

           SET L1=L1+1

 +18       SET TEXT(L1)=" "

           SET L1=L1+1

 +19       SET TEXT(L1)="The value of the function $$ENV^IBCIUT5 is """_$$ENV^IBCIUT5_"""."

           SET L1=L1+1

 +20       SET TEXT(L1)="This should indicate either the Live or Test account."

           SET L1=L1+1

 +21       SET TEXT(L1)=" "

           SET L1=L1+1

 +22      ;

 +23       SET XMTEXT="TEXT("

 +24       SET XMDUZ=DUZ

 +25       SET XMSUB="ClaimsManager Interface Installed"

 +26       SET XMY(SSIMG)=""

 +27       SET XMY(DUZ)=""

 +28       DO ^XMD

 +29      ;

 +30      ; =================================

 +31      ; ** Remove old remote user from the VistA Mail Group 

 +32       KILL DA,DIC,Y,DIK

 +33       SET DA=$ORDER(^XMB(3.8,"B","IBCI COMMUNICATION ERROR",""))

 +34       IF DA

               Begin DoDot:1

 +35      ; value to lookup

                   SET X="ClaimsManager.Interface@SENT"

 +36               SET DIC(0)="B"

                   SET DIC="^XMB(3.8,"_DA_",6,"

                   DO ^DIC

 +37               IF Y<1

                       QUIT 

 +38      ; found old email address to delete

 +39               SET DA(1)=DA

                   SET DIK="^XMB(3.8,"_DA(1)_",6,"

                   SET DA=+Y

                   DO ^DIK

               End DoDot:1

 +40      ;

EXIT      ;

 +1        QUIT 

 +2       ;