IB20P210.m

IB20P210 ;WOIFO/AAT - Code Set Versioning Post Install Procedure ;19-FEB-03

 ;;2.0;INTEGRATED BILLING;**210**;21-MAR-94

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 Q

 ;

 ;

EN ;Recompile Input Templates

 N IBC,DMAX,IBMAX,IBN

 ;

 S IBMAX=$$ROUSIZE^DILF

 D MES^XPDUTL("Recompiling affected input templates ...")

 F IBC=1:1 S IBN=$P($T(TMPL+IBC),";;",2) Q:IBN=""  D COMP(IBN,IBMAX)

 D MES^XPDUTL("Completed compiling input templates.")

 Q

 ;

COMP(TNAME,DMAX) ; Compile the Input Template

 N IBIEN,IBRTN,X,Y

 ;find the ien of the input template

 S IBIEN=$O(^DIE("B",TNAME,0)) Q:'IBIEN

 ;

 ;quit if input template not compiled

 S IBRTN=$P($G(^DIE(IBIEN,"ROUOLD")),U) Q:IBRTN=""

 ;

 D MES^XPDUTL("Compiling "_TNAME_" , compiled routine is "_IBRTN_" ...")

 S X=IBRTN,Y=IBIEN

 D EN^DIEZ

 D MES^XPDUTL("done")

 D MES^XPDUTL("")

 Q

 ;

TMPL ;

 ;;IB SCREEN6

 ;;IB SCREEN7

 ;;IB SCREEN82

 ;;IB SCREEB8H

 ;;IB REVCODE EDIT

 ;;IB EDIT MCCR PARM

 ;;IBAT OUT PRICING EDIT

 ;;IBT ACTION INFO

 ;;IBT QUICK EDIT

 ;;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IB20P210   1062     printed  Apr 09, 2024@21:32:08                                                                                                                                                                                                    Page 2

IB20P210  ;WOIFO/AAT - Code Set Versioning Post Install Procedure ;19-FEB-03

 +1       ;;2.0;INTEGRATED BILLING;**210**;21-MAR-94

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        QUIT 

 +4       ;

 +5       ;

EN        ;Recompile Input Templates

 +1        NEW IBC,DMAX,IBMAX,IBN

 +2       ;

 +3        SET IBMAX=$$ROUSIZE^DILF

 +4        DO MES^XPDUTL("Recompiling affected input templates ...")

 +5        FOR IBC=1:1

               SET IBN=$PIECE($TEXT(TMPL+IBC),";;",2)

               if IBN=""

                   QUIT 

               DO COMP(IBN,IBMAX)

 +6        DO MES^XPDUTL("Completed compiling input templates.")

 +7        QUIT 

 +8       ;

COMP(TNAME,DMAX) ; Compile the Input Template

 +1        NEW IBIEN,IBRTN,X,Y

 +2       ;find the ien of the input template

 +3        SET IBIEN=$ORDER(^DIE("B",TNAME,0))

           if 'IBIEN

               QUIT 

 +4       ;

 +5       ;quit if input template not compiled

 +6        SET IBRTN=$PIECE($GET(^DIE(IBIEN,"ROUOLD")),U)

           if IBRTN=""

               QUIT 

 +7       ;

 +8        DO MES^XPDUTL("Compiling "_TNAME_" , compiled routine is "_IBRTN_" ...")

 +9        SET X=IBRTN

           SET Y=IBIEN

 +10       DO EN^DIEZ

 +11       DO MES^XPDUTL("done")

 +12       DO MES^XPDUTL("")

 +13       QUIT 

 +14      ;

TMPL      ;

 +1       ;;IB SCREEN6

 +2       ;;IB SCREEN7

 +3       ;;IB SCREEN82

 +4       ;;IB SCREEB8H

 +5       ;;IB REVCODE EDIT

 +6       ;;IB EDIT MCCR PARM

 +7       ;;IBAT OUT PRICING EDIT

 +8       ;;IBT ACTION INFO

 +9       ;;IBT QUICK EDIT

 +10      ;;