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 ---[H[J[2J[HIBY488PO 557 printed Nov 22, 2024@17:44:19 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
