|
Last change
on this file since 1766 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
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.
