34 lines
999 B
Mathematica
34 lines
999 B
Mathematica
|
LBRYALA1 ;SSI/ALA-Edit Files ;[ 05/16/94 5:46 PM ]
|
||
|
|
;;2.5;Library;;Mar 11, 1996
|
||
|
|
S U="^"
|
||
|
|
BEG R !,"Enter File: ",AFIL:DTIME Q:AFIL=""
|
||
|
|
I AFIL<680!(AFIL>689.99) G BEG
|
||
|
|
I '$D(^DIC(AFIL)) W !,"No such file - try again" G BEG
|
||
|
|
FD R !,"Use a (T)emplate or (S)elect Fields: ",ANS:DTIME G BEG:ANS=""
|
||
|
|
I $F("Tt",ANS) D TM
|
||
|
|
I $F("Ss",ANS) D SL
|
||
|
|
G FD
|
||
|
|
TM S CT=0,FI="F"_AFIL,DIC=^DIC(AFIL,0,"GL")
|
||
|
|
S TPN="" D TP
|
||
|
|
I CT=0 W !,"No input templates found" G TM
|
||
|
|
TE R !,"Select One: ",TNM:DTIME Q:TNM=""
|
||
|
|
I TNM'?.N G TE
|
||
|
|
I TNM>CT W !,"Not valid" G TE
|
||
|
|
S TPN=$P($G(TEM(TNM)),U) I TPN="" W !,"Not found" G TM
|
||
|
|
S DIE=DIC,DIC(0)="AEMZ" D ^DIC Q:Y<0 S DA=+Y
|
||
|
|
S DR="["_TPN_"]" D ^DIE
|
||
|
|
Q
|
||
|
|
TP S TPN=$O(^DIE(FI,TPN)) Q:TPN=""
|
||
|
|
S CT=CT+1,TEM(CT)=TPN_U_$O(^DIE(FI,TPN,""))
|
||
|
|
W !,CT," ",TPN
|
||
|
|
G TP
|
||
|
|
SL S CT=0,FL=0,DIC=^DIC(AFIL,0,"GL")
|
||
|
|
D SP
|
||
|
|
SE R !,"Select Fields: ",SNM:DTIME Q:SNM=""
|
||
|
|
SE1 S DIE=DIC,DIC(0)="AEMZ" D ^DIC Q:Y<0 S DA=+Y
|
||
|
|
S DR=SNM D ^DIE
|
||
|
|
G SE1
|
||
|
|
SP S FL=$O(^DD(AFIL,FL)) Q:FL'>0
|
||
|
|
W !,FL," ",$P(^DD(AFIL,FL,0),U)
|
||
|
|
G SP
|