source: IHS-VA_UTILITIES-XB/trunk/XBDATE.m@ 1489

Last change on this file since 1489 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 1.7 KB
Line 
1XBDATE ; IHS/ADC/GTH - ADAPTATION OF %RS TO SELECT ROUTINES EDITED AFTER SPECIFIED DATE ; [ 10/29/2002 7:42 AM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.
4 ;
5 ; Thanks to Tom Love, DSD, for providing the original routine.
6 ;
7 ; This routine limits routines selected by RSEL to routines
8 ; edited after some date.
9 ;
10START ;
11 I '$D(DT) D NOW^%DTC S DT=X
12 S DIR(0)="D^::EX" ;2800101:"_DT_":EX"
13 S DIR("A")="Date of last edit"
14 S Y=DT
15 X ^DD("DD")
16 S DIR("B")=Y
17 W !!,XBTYPE," ROUTINES edited on or after the following date:",!
18 D DIR
19 Q:$D(QUIT)
20 S XBDAT=Y
21 W !!,"One moment please, checking selected routines for last edit date.",!
22 ;Begin mod/add 2 lines;IHS/SET/GTH XB*3*9 10/29/2002
23 I $$VERSION^%ZOSV(1)["MSM" D
24 . 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"
25 I $$VERSION^%ZOSV(1)["Cache" D
26 . 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"
27 ;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"
28 ;End mod/add 2 lines;IHS/SET/GTH XB*3*9 10/29/2002
29 X XB
30 I $O(^UTILITY($J,""))="" S Y=XBDAT X ^DD("DD") S XBDAT=Y,QUIT="" Q
31 S DIR(0)="YO",DIR("A")="Proceed with "_XBTYPE,DIR("B")="NO"
32 W !
33 D DIR
34 S:Y'=1 QUIT=""
35 KILL XBDAT
36 Q
37 ;
38DIR ;
39 D ^DIR
40 S:$D(DIRUT) QUIT=""
41 KILL DIR,DIRUT,DUOUT,DTOUT
42 Q
43 ;
Note: See TracBrowser for help on using the repository browser.