IBY516PO ;LITS/TAZ - IB*2*516 POST-INSTALL ;4/1/14
;;2.0;INTEGRATED BILLING;**516**;21-MAR-94;Build 123
;;Per VA Directive 6402, this routine should not be modified.
;
EN ;Post Install Routine primary entry point
N IBY,Y,QUIT,ROUT
S QUIT=0
F IBY="RIT","TMOPT" D I QUIT Q
. S ROUT=IBY_"^IBY516PO"
. S Y=$$NEWCP^XPDUTL(IBY,ROUT)
. I 'Y D BMES^XPDUTL("ERROR Creating "_IBY_" Checkpoint.") S QUIT=1 Q
Q
;
TMOPT ; Delete scheduled TaskMan option
;
NEW IBZ,T,FST,TMERR,OPTNM,DIFROM
D MES^XPDUTL("Delete Scheduled TaskMan Option ...")
;
I '$$PROD^XUPROD(1) D MES^XPDUTL("Not a production account. No further action taken.") G TMOPTX
;
S OPTNM="IBCN INS BILL PROV FLAG RPT" ; option name to be unscheduled
D OPTSTAT^XUTMOPT(OPTNM,.IBZ)
S ZTSK=$G(IBZ(1)) K IBZ
I 'ZTSK D MES^XPDUTL("Option not scheduled. No further action taken.") G TMOPTX
D DQ^%ZTLOAD
I 'ZTSK(0) D MES^XPDUTL("Schedule not deleted.") G TMOPTX
D MES^XPDUTL("Schedule deleted.")
;
TMOPTX ;
Q
;
RIT ; recompile billing screen templates
N X,Y,DMAX,IBN
D MES^XPDUTL("Recompiling Input Templates for Billing Screens ...")
F IBN=1:1:8,"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(" Done.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY516PO 1353 printed Dec 13, 2024@02:34:21 Page 2
IBY516PO ;LITS/TAZ - IB*2*516 POST-INSTALL ;4/1/14
+1 ;;2.0;INTEGRATED BILLING;**516**;21-MAR-94;Build 123
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
EN ;Post Install Routine primary entry point
+1 NEW IBY,Y,QUIT,ROUT
+2 SET QUIT=0
+3 FOR IBY="RIT","TMOPT"
Begin DoDot:1
+4 SET ROUT=IBY_"^IBY516PO"
+5 SET Y=$$NEWCP^XPDUTL(IBY,ROUT)
+6 IF 'Y
DO BMES^XPDUTL("ERROR Creating "_IBY_" Checkpoint.")
SET QUIT=1
QUIT
End DoDot:1
IF QUIT
QUIT
+7 QUIT
+8 ;
TMOPT ; Delete scheduled TaskMan option
+1 ;
+2 NEW IBZ,T,FST,TMERR,OPTNM,DIFROM
+3 DO MES^XPDUTL("Delete Scheduled TaskMan Option ...")
+4 ;
+5 IF '$$PROD^XUPROD(1)
DO MES^XPDUTL("Not a production account. No further action taken.")
GOTO TMOPTX
+6 ;
+7 ; option name to be unscheduled
SET OPTNM="IBCN INS BILL PROV FLAG RPT"
+8 DO OPTSTAT^XUTMOPT(OPTNM,.IBZ)
+9 SET ZTSK=$GET(IBZ(1))
KILL IBZ
+10 IF 'ZTSK
DO MES^XPDUTL("Option not scheduled. No further action taken.")
GOTO TMOPTX
+11 DO DQ^%ZTLOAD
+12 IF 'ZTSK(0)
DO MES^XPDUTL("Schedule not deleted.")
GOTO TMOPTX
+13 DO MES^XPDUTL("Schedule deleted.")
+14 ;
TMOPTX ;
+1 QUIT
+2 ;
RIT ; recompile billing screen templates
+1 NEW X,Y,DMAX,IBN
+2 DO MES^XPDUTL("Recompiling Input Templates for Billing Screens ...")
+3 FOR IBN=1:1:8,"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(" Done.")
+7 QUIT
