IB20P464 ;ALB/CXW - Patch Install Routine ;02-07-2012
;;2.0;INTEGRATED BILLING;**464**;21-MAR-94;Build 16
;;Per VHA Directive 2004-038, this routine should not be modified.
Q
;
POST ; File #399 input template compilation routine
N DMAX,IBX,IBIEN,IBRTN,X,Y
D MES^XPDUTL("Recompilation of [IB SCREEN1] Input Template..")
S IBX="IB SCREEN1"
S IBIEN=$O(^DIE("B",IBX,0)) Q:'IBIEN
S DMAX=$$ROUSIZE^DILF
S IBRTN=$P($G(^DIE(IBIEN,"ROUOLD")),U) Q:IBRTN=""
S X=IBRTN,Y=IBIEN
D EN^DIEZ
D MES^XPDUTL(" Done.")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P464 535 printed Nov 22, 2024@17:13:10 Page 2
IB20P464 ;ALB/CXW - Patch Install Routine ;02-07-2012
+1 ;;2.0;INTEGRATED BILLING;**464**;21-MAR-94;Build 16
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 QUIT
+4 ;
POST ; File #399 input template compilation routine
+1 NEW DMAX,IBX,IBIEN,IBRTN,X,Y
+2 DO MES^XPDUTL("Recompilation of [IB SCREEN1] Input Template..")
+3 SET IBX="IB SCREEN1"
+4 SET IBIEN=$ORDER(^DIE("B",IBX,0))
if 'IBIEN
QUIT
+5 SET DMAX=$$ROUSIZE^DILF
+6 SET IBRTN=$PIECE($GET(^DIE(IBIEN,"ROUOLD")),U)
if IBRTN=""
QUIT
+7 SET X=IBRTN
SET Y=IBIEN
+8 DO EN^DIEZ
+9 DO MES^XPDUTL(" Done.")
+10 QUIT
+11 ;
