Routine: DIPS95

DIPS95 ;SFISC/MKO-POST INSTALL ROUTINE FOR PATCH DI*22*95 ;8:38 AM  18 Sep 2002 [ 12/09/2003  4:45 PM ]

 ;;22.0;VA FileMan;**95,1002**;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 ;Recompile all input templates that contain fields with new-style

 ;cross-references defined on them.

RECOMP N CNT,FIL,FLD,NAM,TEM

 K ^TMP("DIPS95",$J)

 D BMES^XPDUTL("Recompiling input templates...")

 S FIL=.9999 F  S FIL=$O(^DD("IX","F",FIL)) Q:'FIL  D

 . S FLD=0 F  S FLD=$O(^DD("IX","F",FIL,FLD)) Q:'FLD  D

 .. S TEM=0 F  S TEM=$O(^DIE("AF",FIL,FLD,TEM)) Q:'TEM  D

 ... Q:$D(^TMP("DIPS95",$J,"TEM",TEM))  S ^(TEM)=""

 ... S NAM=$G(^DIE(TEM,"ROUOLD")) Q:NAM=""

 ... S CNT=$G(CNT)+1

 ... D MES^XPDUTL("  #"_TEM_"    "_$P($G(^DIE(TEM,0)),U)_"    File #"_$P($G(^DIE(TEM,0)),U,4)_"    ^"_NAM)

 ... D EN2^DIEZ(TEM,"",NAM)

 D:'$G(CNT) MES^XPDUTL("  -- No input template needed to be recompiled.")

 K ^TMP("DIPS95",$J)

DIPS95    ;SFISC/MKO-POST INSTALL ROUTINE FOR PATCH DI*22*95 ;8:38 AM  18 Sep 2002 [ 12/09/2003  4:45 PM ]

 +1       ;;22.0;VA FileMan;**95,1002**;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

 +4       ;Recompile all input templates that contain fields with new-style

 +5       ;cross-references defined on them.

RECOMP     NEW CNT,FIL,FLD,NAM,TEM

 +1        KILL ^TMP("DIPS95",$JOB)

 +2        DO BMES^XPDUTL("Recompiling input templates...")

 +3        SET FIL=.9999

FOR

               SET FIL=$ORDER(^DD("IX","F",FIL))

               IF 'FIL

                   QUIT

               Begin DoDot:1

 +4                SET FLD=0

FOR

                       SET FLD=$ORDER(^DD("IX","F",FIL,FLD))

                       IF 'FLD

                           QUIT

                       Begin DoDot:2

 +5                        SET TEM=0

FOR

                               SET TEM=$ORDER(^DIE("AF",FIL,FLD,TEM))

                               IF 'TEM

                                   QUIT

                               Begin DoDot:3

 +6                                IF $DATA(^TMP("DIPS95",$JOB,"TEM",TEM))

                                       QUIT

                                   SET ^(TEM)=""

 +7                                SET NAM=$GET(^DIE(TEM,"ROUOLD"))

                                   IF NAM=""

                                       QUIT

 +8                                SET CNT=$GET(CNT)+1

 +9                                DO MES^XPDUTL("  #"_TEM_"    "_$PIECE($GET(^DIE(TEM,0)),U)_"    File #"_$PIECE($GET(^DIE(TEM,0)),U,4)_"    ^"_NAM)

 +10                               DO EN2^DIEZ(TEM,"",NAM)

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +11       IF '$GET(CNT)

               DO MES^XPDUTL("  -- No input template needed to be recompiled.")

 +12       KILL ^TMP("DIPS95",$JOB)

 +13       QUIT

DIPS95.m