19 lines
731 B
Mathematica
19 lines
731 B
Mathematica
|
XBGLDFN ; IHS/ADC/GTH - GET LAST DFN ; [ 02/07/97 3:02 PM ]
|
||
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
||
|
|
;
|
||
|
|
START ;
|
||
|
|
NEW GBL,LDFN,NDFN,STRT,TGBL
|
||
|
|
LOOP ;
|
||
|
|
R !,"Enter global reference like '^DPT(""B"",' ",GBL:$G(DTIME,999)
|
||
|
|
Q:GBL=""
|
||
|
|
I $E(GBL)="?"!(GBL'?1"^"1U.U.E) W !,"Enter global reference (e.g. ""^AUPNPAT("")." G LOOP
|
||
|
|
S TGBL=$S($E(GBL,$L(GBL))="(":$P(GBL,"(",1),$E(GBL,$L(GBL))=",":$E(GBL,1,$L(GBL)-1)_")",$E(GBL,$L(GBL))'=")":GBL_")",1:GBL)
|
||
|
|
I '$D(@(TGBL)) W !!,"Global ",GBL," does not exist!" G XBGLDFN
|
||
|
|
R !,"Start after DFN: 0// ",STRT:$G(DTIME,999)
|
||
|
|
S:STRT="" STRT=0
|
||
|
|
S LDFN="Started after high DFN"
|
||
|
|
S NDFN=$D(@(GBL_STRT_")")),NDFN=STRT F L=0:0 S NDFN=$O(^(NDFN)) Q:NDFN=""!(NDFN'?1N.N) S LDFN=NDFN
|
||
|
|
W !!,"Last DFN is ",LDFN
|
||
|
|
Q
|
||
|
|
;
|