IBY516PO.m

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 ---IBY516PO   1353     printed  Apr 09, 2024@21:14:49                                                                                                                                                                                                    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