XBDATE.m

XBDATE ; IHS/ADC/GTH - ADAPTATION OF %RS TO SELECT ROUTINES EDITED AFTER SPECIFIED DATE ; [ 10/29/2002   7:42 AM ]

 ;;3.0;IHS/VA UTILITIES;**9**;FEB 07, 1997

 ;XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.

 ;

 ; Thanks to Tom Love, DSD, for providing the original routine.

 ;

 ; This routine limits routines selected by RSEL to routines

 ; edited after some date.

 ;

START ;

 I '$D(DT) D NOW^%DTC S DT=X

 S DIR(0)="D^::EX" ;2800101:"_DT_":EX"

 S DIR("A")="Date of last edit"

 S Y=DT

 X ^DD("DD")

 S DIR("B")=Y

 W !!,XBTYPE," ROUTINES edited on or after the following date:",!

 D DIR

 Q:$D(QUIT)

 S XBDAT=Y

 W !!,"One moment please, checking selected routines for last edit date.",!

 ;Begin mod/add 2 lines;IHS/SET/GTH XB*3*9 10/29/2002

 I $$VERSION^%ZOSV(1)["MSM" D

 . S XB="S RTN="""" F  S RTN=$O(^UTILITY($J,RTN)) Q:RTN=""""  ZL @RTN S X=$T(@RTN),X=$P($P(X,""[ "",2),"" "") D ^%DT K:Y<1!(Y<XBDAT) ^UTILITY($J,RTN) I Y>0,((XBDAT=Y)!(Y>XBDAT)) X ^DD(""DD"") W !,RTN,?10,""last edited on "",Y"

 I $$VERSION^%ZOSV(1)["Cache" D

 . S XB="S RTN=0 F  S RTN=$O(^UTILITY($J,RTN)) Q:RTN=""""  S X=$P($$DATE^%R(RTN_"".INT"",1),"" "") D ^%DT K:Y<1!(Y<XBDAT) ^UTILITY($J,RTN) I Y>0,((XBDAT=Y)!(Y>XBDAT)) X ^DD(""DD"") W !,RTN,?10,""last edited on "",Y"

 ;S XB="S RTN="""" F  S RTN=$O(^UTILITY($J,RTN)) Q:RTN=""""  ZL @RTN S X=$T(@RTN),X=$P($P(X,""[ "",2),"" "") D ^%DT K:Y<1!(Y<XBDAT) ^UTILITY($J,RTN) I Y>0,((XBDAT=Y)!(Y>XBDAT)) X ^DD(""DD"") W !,RTN,?10,""last edited on "",Y"

 ;End mod/add 2 lines;IHS/SET/GTH XB*3*9 10/29/2002

 X XB

 I $O(^UTILITY($J,""))="" S Y=XBDAT X ^DD("DD") S XBDAT=Y,QUIT="" Q

 S DIR(0)="YO",DIR("A")="Proceed with "_XBTYPE,DIR("B")="NO"

 W !

 D DIR

 S:Y'=1 QUIT=""

 KILL XBDAT

 Q

 ;

DIR ;

 D ^DIR

 S:$D(DIRUT) QUIT=""

 KILL DIR,DIRUT,DUOUT,DTOUT

 Q

 ;

XBDATE    ; IHS/ADC/GTH - ADAPTATION OF %RS TO SELECT ROUTINES EDITED AFTER SPECIFIED DATE ; [ 10/29/2002   7:42 AM ]

 +1       ;;3.0;IHS/VA UTILITIES;**9**;FEB 07, 1997

 +2       ;XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.

 +3       ;

 +4       ; Thanks to Tom Love, DSD, for providing the original routine.

 +5       ;

 +6       ; This routine limits routines selected by RSEL to routines

 +7       ; edited after some date.

 +8       ;

START     ;

 +1        IF '$DATA(DT)

               DO NOW^%DTC

               SET DT=X

 +2       ;2800101:"_DT_":EX"

           SET DIR(0)="D^::EX"

 +3        SET DIR("A")="Date of last edit"

 +4        SET Y=DT

 +5        XECUTE ^DD("DD")

 +6        SET DIR("B")=Y

 +7        WRITE !!,XBTYPE," ROUTINES edited on or after the following date:",!

 +8        DO DIR

 +9        IF $DATA(QUIT)

               QUIT 

 +10       SET XBDAT=Y

 +11       WRITE !!,"One moment please, checking selected routines for last edit date.",!

 +12      ;Begin mod/add 2 lines;IHS/SET/GTH XB*3*9 10/29/2002

 +13       IF $$VERSION^%ZOSV(1)["MSM"

               Begin DoDot:1

 +14               SET XB="S RTN="""" F  S RTN=$O(^UTILITY($J,RTN)) Q:RTN=""""  ZL @RTN S X=$T(@RTN),X=$P($P(X,""[ "",2),"" "") D ^%DT K:Y<1!(Y<XBDAT) ^UTILITY($J,RTN) I Y>0,((XBDAT=Y)!(Y>XBDAT)) X ^DD(""DD"") W !,RTN,?10,""last edited on "",Y"

               End DoDot:1

 +15       IF $$VERSION^%ZOSV(1)["Cache"

               Begin DoDot:1

 +16               SET XB="S RTN=0 F  S RTN=$O(^UTILITY($J,RTN)) Q:RTN=""""  S X=$P($$DATE^%R(RTN_"".INT"",1),"" "") D ^%DT K:Y<1!(Y<XBDAT) ^UTILITY($J,RTN) I Y>0,((XBDAT=Y)!(Y>XBDAT)) X ^DD(""DD"") W !,RTN,?10,""last edited on "",Y"

               End DoDot:1

 +17      ;S XB="S RTN="""" F  S RTN=$O(^UTILITY($J,RTN)) Q:RTN=""""  ZL @RTN S X=$T(@RTN),X=$P($P(X,""[ "",2),"" "") D ^%DT K:Y<1!(Y<XBDAT) ^UTILITY($J,RTN) I Y>0,((XBDAT=Y)!(Y>XBDAT)) X ^DD(""DD"") W !,RTN,?10,""last edited on "",Y"

 +18      ;End mod/add 2 lines;IHS/SET/GTH XB*3*9 10/29/2002

 +19       XECUTE XB

 +20       IF $ORDER(^UTILITY($JOB,""))=""

               SET Y=XBDAT

               XECUTE ^DD("DD")

               SET XBDAT=Y

               SET QUIT=""

               QUIT 

 +21       SET DIR(0)="YO"

           SET DIR("A")="Proceed with "_XBTYPE

           SET DIR("B")="NO"

 +22       WRITE !

 +23       DO DIR

 +24       IF Y'=1

               SET QUIT=""

 +25       KILL XBDAT

 +26       QUIT 

 +27      ;

DIR       ;

 +1        DO ^DIR

 +2        IF $DATA(DIRUT)

               SET QUIT=""

 +3        KILL DIR,DIRUT,DUOUT,DTOUT

 +4        QUIT 

 +5       ;