| 1 | DIPS95 ;SFISC/MKO-POST INSTALL ROUTINE FOR PATCH DI*22*95 ;8:38 AM 18 Sep 2002
|
|---|
| 2 | ;;22.0;VA FileMan;**95**;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ;Recompile all input templates that contain fields with new-style
|
|---|
| 6 | ;cross-references defined on them.
|
|---|
| 7 | RECOMP N CNT,FIL,FLD,NAM,TEM
|
|---|
| 8 | K ^TMP("DIPS95",$J)
|
|---|
| 9 | D BMES^XPDUTL("Recompiling input templates...")
|
|---|
| 10 | S FIL=.9999 F S FIL=$O(^DD("IX","F",FIL)) Q:'FIL D
|
|---|
| 11 | . S FLD=0 F S FLD=$O(^DD("IX","F",FIL,FLD)) Q:'FLD D
|
|---|
| 12 | .. S TEM=0 F S TEM=$O(^DIE("AF",FIL,FLD,TEM)) Q:'TEM D
|
|---|
| 13 | ... Q:$D(^TMP("DIPS95",$J,"TEM",TEM)) S ^(TEM)=""
|
|---|
| 14 | ... S NAM=$G(^DIE(TEM,"ROUOLD")) Q:NAM=""
|
|---|
| 15 | ... S CNT=$G(CNT)+1
|
|---|
| 16 | ... D MES^XPDUTL(" #"_TEM_" "_$P($G(^DIE(TEM,0)),U)_" File #"_$P($G(^DIE(TEM,0)),U,4)_" ^"_NAM)
|
|---|
| 17 | ... D EN2^DIEZ(TEM,"",NAM)
|
|---|
| 18 | D:'$G(CNT) MES^XPDUTL(" -- No input template needed to be recompiled.")
|
|---|
| 19 | K ^TMP("DIPS95",$J)
|
|---|
| 20 | Q
|
|---|
