IB20P266 ;WOIFO/AAT - Code Set Versioning Post Install Procedure ;19-FEB-03
;;2.0;INTEGRATED BILLING;**266**;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 SCREEN4
;;IB SCREEN5
;;IB SCREEN6
;;IB SCREEN7
;;IB SCREEN8
;;IB SCREEN82
;;IB SCREEB8H
;;IB REVCODE EDIT
;;IBAT OUT PRICING EDIT
;;IBT ACTION INFO
;;IBT QUICK EDIT
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P266 1085 printed Oct 16, 2024@18:02:45 Page 2
IB20P266 ;WOIFO/AAT - Code Set Versioning Post Install Procedure ;19-FEB-03
+1 ;;2.0;INTEGRATED BILLING;**266**;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 SCREEN4
+2 ;;IB SCREEN5
+3 ;;IB SCREEN6
+4 ;;IB SCREEN7
+5 ;;IB SCREEN8
+6 ;;IB SCREEN82
+7 ;;IB SCREEB8H
+8 ;;IB REVCODE EDIT
+9 ;;IBAT OUT PRICING EDIT
+10 ;;IBT ACTION INFO
+11 ;;IBT QUICK EDIT
+12 ;;
