source: FOIAVistA/trunk/r/LIBRARY-LBR-LBRS/LBRYALA1.m@ 1755

Last change on this file since 1755 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 999 bytes
Line 
1LBRYALA1 ;SSI/ALA-Edit Files ;[ 05/16/94 5:46 PM ]
2 ;;2.5;Library;;Mar 11, 1996
3 S U="^"
4BEG R !,"Enter File: ",AFIL:DTIME Q:AFIL=""
5 I AFIL<680!(AFIL>689.99) G BEG
6 I '$D(^DIC(AFIL)) W !,"No such file - try again" G BEG
7FD R !,"Use a (T)emplate or (S)elect Fields: ",ANS:DTIME G BEG:ANS=""
8 I $F("Tt",ANS) D TM
9 I $F("Ss",ANS) D SL
10 G FD
11TM S CT=0,FI="F"_AFIL,DIC=^DIC(AFIL,0,"GL")
12 S TPN="" D TP
13 I CT=0 W !,"No input templates found" G TM
14TE R !,"Select One: ",TNM:DTIME Q:TNM=""
15 I TNM'?.N G TE
16 I TNM>CT W !,"Not valid" G TE
17 S TPN=$P($G(TEM(TNM)),U) I TPN="" W !,"Not found" G TM
18 S DIE=DIC,DIC(0)="AEMZ" D ^DIC Q:Y<0 S DA=+Y
19 S DR="["_TPN_"]" D ^DIE
20 Q
21TP S TPN=$O(^DIE(FI,TPN)) Q:TPN=""
22 S CT=CT+1,TEM(CT)=TPN_U_$O(^DIE(FI,TPN,""))
23 W !,CT," ",TPN
24 G TP
25SL S CT=0,FL=0,DIC=^DIC(AFIL,0,"GL")
26 D SP
27SE R !,"Select Fields: ",SNM:DTIME Q:SNM=""
28SE1 S DIE=DIC,DIC(0)="AEMZ" D ^DIC Q:Y<0 S DA=+Y
29 S DR=SNM D ^DIE
30 G SE1
31SP S FL=$O(^DD(AFIL,FL)) Q:FL'>0
32 W !,FL," ",$P(^DD(AFIL,FL,0),U)
33 G SP
Note: See TracBrowser for help on using the repository browser.