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 ---[H[J[2J[HIBCIPOST 1590 printed Nov 22, 2024@17:23:28 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 ;
