IBY488PO.m

IBY488PO ;BAA/GEF - Post-Installation for IB patch 488 ;19-APR-2011

 ;;2.0;INTEGRATED BILLING;**488**;15-APR-14;Build 184

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 D RIT

 Q

 ;

RIT ; recompile billing screen templates

 N X,Y,DMAX,IBN

 D MES^XPDUTL("Recompiling Input Templates for Billing Screens ...")

 F IBN=1:1:9,"10","102","10H" D

 .S X="IBXS"_$S(IBN=10:"A",IBN="102":"A2",IBN="10H":"AH",1:IBN)

 .S Y=$$FIND1^DIC(.402,,"X","IB SCREEN"_IBN,"B")

 .S DMAX=$$ROUSIZE^DILF

 .I Y D EN^DIEZ

 D MES^XPDUTL(" Done.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBY488PO   557     printed  Apr 09, 2024@21:36:21                                                                                                                                                                                                     Page 2

IBY488PO  ;BAA/GEF - Post-Installation for IB patch 488 ;19-APR-2011

 +1       ;;2.0;INTEGRATED BILLING;**488**;15-APR-14;Build 184

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3        DO RIT

 +4        QUIT 

 +5       ;

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:9,"10","102","10H"

               Begin DoDot:1

 +4                SET X="IBXS"_$SELECT(IBN=10:"A",IBN="102":"A2",IBN="10H":"AH",1:IBN)

 +5                SET Y=$$FIND1^DIC(.402,,"X","IB SCREEN"_IBN,"B")

 +6                SET DMAX=$$ROUSIZE^DILF

 +7                IF Y

                       DO EN^DIEZ

               End DoDot:1

 +8        DO MES^XPDUTL(" Done.")

 +9        QUIT