source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IB20P210.m@ 811

Last change on this file since 811 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1021 bytes
Line 
1IB20P210 ;WOIFO/AAT - Code Set Versioning Post Install Procedure ;19-FEB-03
2 ;;2.0;INTEGRATED BILLING;**210**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5 ;
6 ;
7EN ;Recompile Input Templates
8 N IBC,DMAX,IBMAX,IBN
9 ;
10 S IBMAX=$$ROUSIZE^DILF
11 D MES^XPDUTL("Recompiling affected input templates ...")
12 F IBC=1:1 S IBN=$P($T(TMPL+IBC),";;",2) Q:IBN="" D COMP(IBN,IBMAX)
13 D MES^XPDUTL("Completed compiling input templates.")
14 Q
15 ;
16COMP(TNAME,DMAX) ; Compile the Input Template
17 N IBIEN,IBRTN,X,Y
18 ;find the ien of the input template
19 S IBIEN=$O(^DIE("B",TNAME,0)) Q:'IBIEN
20 ;
21 ;quit if input template not compiled
22 S IBRTN=$P($G(^DIE(IBIEN,"ROUOLD")),U) Q:IBRTN=""
23 ;
24 D MES^XPDUTL("Compiling "_TNAME_" , compiled routine is "_IBRTN_" ...")
25 S X=IBRTN,Y=IBIEN
26 D EN^DIEZ
27 D MES^XPDUTL("done")
28 D MES^XPDUTL("")
29 Q
30 ;
31TMPL ;
32 ;;IB SCREEN6
33 ;;IB SCREEN7
34 ;;IB SCREEN82
35 ;;IB SCREEB8H
36 ;;IB REVCODE EDIT
37 ;;IB EDIT MCCR PARM
38 ;;IBAT OUT PRICING EDIT
39 ;;IBT ACTION INFO
40 ;;IBT QUICK EDIT
41 ;;
Note: See TracBrowser for help on using the repository browser.