source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIPS95.m@ 1801

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

initial load of WorldVistAEHR

File size: 909 bytes
Line 
1DIPS95 ;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.
7RECOMP 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
Note: See TracBrowser for help on using the repository browser.