Last change
on this file since 1757 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1021 bytes
|
Line | |
---|
1 | IB20P210 ;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 | ;
|
---|
7 | EN ;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 | ;
|
---|
16 | COMP(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 | ;
|
---|
31 | TMPL ;
|
---|
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.