Last change
on this file since 861 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1021 bytes
|
Rev | Line | |
---|
[613] | 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.