- 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 ---[H[J[2J[HIB20P210 1062 printed Apr 23, 2025@18:16:18 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 ;;
