IBY577PO ;ALB/VD - POST-INSTALL FOR IB*2.0*577 ;22-FEB-2017
;;2.0;INTEGRATED BILLING;**577**;21-MAR-94;Build 38
;;Per VA Directive 6402, this routine should not be modified.
;
;
S IBA(2)="IB*2*577 Post-Install...",(IBA(1),IBA(3))=" " D MES^XPDUTL(.IBA) K IBA
D RIT
D:$$PROD^XUPROD(1) EMAIL
S IBA(2)="IB*2*577 Post-Install Complete.",(IBA(1),IBA(3))=" " D MES^XPDUTL(.IBA) K IBA
Q
;
RIT ; Recompile billing screen templates due to changes to Field #399,.21 cross-references.
N X,Y,DMAX,IBN
D MES^XPDUTL(">> Recompiling Input Templates for Billing Screens ...")
F IBN=1:1:10,"102","10H" D
.S X="IBXS"_$S(IBN=10:"A",IBN="102":"A2",IBN="10H":"AH",1:IBN),Y=$$FIND1^DIC(.402,,"X","IB SCREEN"_IBN,"B"),DMAX=$$ROUSIZE^DILF
.I Y D EN^DIEZ
D MES^XPDUTL(" Recompile Completed.")
Q
;
EMAIL ; Send an email message to MCCF Developer Team identifying which forms [#353] are being used by this site.
N SITE,SUBJ,MSG,XMTO,LN,GLO,GLB,II
D BMES^XPDUTL(">> Checking to see which Forms are in Use at this Site...")
D MES^XPDUTL("-------------")
D MES^XPDUTL("Sending email notification to MCCF Developers ... ")
S SITE=$$SITE^VASITE
S SUBJ="Form #7 "_$S($D(^IBE(353,7)):"*IS*",1:" is not")_" used at Station# "_$P(SITE,U,3)_" - "_$P(SITE,U,2)
S SUBJ=$E(SUBJ,1,65)
S MSG(1)="The following site:"
S MSG(2)=""
S MSG(3)=" Name: "_$P(SITE,U,2)
S MSG(4)=" Station#: "_$P(SITE,U,3)
S MSG(5)=" Domain: "_$G(^XMB("NETNAME"))
S MSG(6)=" Date/Time: "_$$FMTE^XLFDT($$NOW^XLFDT,"5ZPM")
S MSG(7)=""
S MSG(8)="uses the following Forms:"
S MSG(9)=""
S LN=9,II=0
F S II=$O(^IBE(353,II)) Q:'+II D
. S LN=LN+1,MSG(LN)=" Form # "_II_" - for '"_$P($G(^IBE(353,II,0)),"^",1)_"'"
S LN=LN+1,MSG(LN)=""
S LN=LN+1,MSG(LN)="---------------"
;
S XMTO("Vito.D'Amico@domain.ext")=""
S XMTO("William.Jutzi@domain.ext")=""
S XMTO("John.Smith5@domain.ext")=""
;
D SENDMSG^XMXAPI(DUZ,SUBJ,"MSG",.XMTO)
;
EMAILX ;
D MES^XPDUTL(" Done.")
D CLEAN^DILF
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY577PO 2027 printed Apr 09, 2024@21:37:07 Page 2
IBY577PO ;ALB/VD - POST-INSTALL FOR IB*2.0*577 ;22-FEB-2017
+1 ;;2.0;INTEGRATED BILLING;**577**;21-MAR-94;Build 38
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;
+5 SET IBA(2)="IB*2*577 Post-Install..."
SET (IBA(1),IBA(3))=" "
DO MES^XPDUTL(.IBA)
KILL IBA
+6 DO RIT
+7 if $$PROD^XUPROD(1)
DO EMAIL
+8 SET IBA(2)="IB*2*577 Post-Install Complete."
SET (IBA(1),IBA(3))=" "
DO MES^XPDUTL(.IBA)
KILL IBA
+9 QUIT
+10 ;
RIT ; Recompile billing screen templates due to changes to Field #399,.21 cross-references.
+1 NEW X,Y,DMAX,IBN
+2 DO MES^XPDUTL(">> Recompiling Input Templates for Billing Screens ...")
+3 FOR IBN=1:1:10,"102","10H"
Begin DoDot:1
+4 SET X="IBXS"_$SELECT(IBN=10:"A",IBN="102":"A2",IBN="10H":"AH",1:IBN)
SET Y=$$FIND1^DIC(.402,,"X","IB SCREEN"_IBN,"B")
SET DMAX=$$ROUSIZE^DILF
+5 IF Y
DO EN^DIEZ
End DoDot:1
+6 DO MES^XPDUTL(" Recompile Completed.")
+7 QUIT
+8 ;
EMAIL ; Send an email message to MCCF Developer Team identifying which forms [#353] are being used by this site.
+1 NEW SITE,SUBJ,MSG,XMTO,LN,GLO,GLB,II
+2 DO BMES^XPDUTL(">> Checking to see which Forms are in Use at this Site...")
+3 DO MES^XPDUTL("-------------")
+4 DO MES^XPDUTL("Sending email notification to MCCF Developers ... ")
+5 SET SITE=$$SITE^VASITE
+6 SET SUBJ="Form #7 "_$SELECT($DATA(^IBE(353,7)):"*IS*",1:" is not")_" used at Station# "_$PIECE(SITE,U,3)_" - "_$PIECE(SITE,U,2)
+7 SET SUBJ=$EXTRACT(SUBJ,1,65)
+8 SET MSG(1)="The following site:"
+9 SET MSG(2)=""
+10 SET MSG(3)=" Name: "_$PIECE(SITE,U,2)
+11 SET MSG(4)=" Station#: "_$PIECE(SITE,U,3)
+12 SET MSG(5)=" Domain: "_$GET(^XMB("NETNAME"))
+13 SET MSG(6)=" Date/Time: "_$$FMTE^XLFDT($$NOW^XLFDT,"5ZPM")
+14 SET MSG(7)=""
+15 SET MSG(8)="uses the following Forms:"
+16 SET MSG(9)=""
+17 SET LN=9
SET II=0
+18 FOR
SET II=$ORDER(^IBE(353,II))
if '+II
QUIT
Begin DoDot:1
+19 SET LN=LN+1
SET MSG(LN)=" Form # "_II_" - for '"_$PIECE($GET(^IBE(353,II,0)),"^",1)_"'"
End DoDot:1
+20 SET LN=LN+1
SET MSG(LN)=""
+21 SET LN=LN+1
SET MSG(LN)="---------------"
+22 ;
+23 SET XMTO("Vito.D'Amico@domain.ext")=""
+24 SET XMTO("William.Jutzi@domain.ext")=""
+25 SET XMTO("John.Smith5@domain.ext")=""
+26 ;
+27 DO SENDMSG^XMXAPI(DUZ,SUBJ,"MSG",.XMTO)
+28 ;
EMAILX ;
+1 DO MES^XPDUTL(" Done.")
+2 DO CLEAN^DILF
+3 QUIT
+4 ;
