IB20P464.m

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 ---IB20P464   535     printed  Apr 09, 2024@21:26:58                                                                                                                                                                                                     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      ;