source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCEVENT.m@ 701

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1FSCEVENT ;SLC/STAFF-NOIS Events ;1/13/98 11:30
2 ;;1.1;NOIS;;Sep 06, 1998
3ADD ; from FSCUEDS
4 D EVENT("ADD")
5 Q
6 ;
7DEL ; from FSCUEDS
8 D EVENT("DELETE")
9 Q
10 ;
11EVENT(MODE) ;
12 N D0,DIC,FROM,TO,X,Y K DIC,Y
13 S DIC=7103.2,DIC(0)="AEMOQ",DIC("A")="Select Event: "
14 D ^DIC K DIC Q:Y<1
15 S D0=+Y
16 D DATES(.FROM,.TO)
17 I 'FROM Q
18 I 'TO Q
19 D EVENT^FSCEVENP(MODE,D0,FROM,TO)
20 Q
21 ;
22ALL ; testing
23 N FROM,MODE,NUM,TO
24 S MODE="DELETE",FROM=2950401,TO=2951231,NUM=0 F S NUM=$O(^FSC("REVENT",NUM)) Q:NUM<1 D EVENT^FSCEVENP(MODE,NUM,FROM,TO)
25 Q
26 ;
27DATES(FROM,TO) ;
28 N DIR,END,START,X,Y K DIR S (FROM,TO)=0
29 S START=$E(DT,1,3)-1_"0101",END=$E(DT,1,3)+1_"0101"
30 S DIR(0)="DAO^"_START_":"_END_":EX"
31 S DIR("A")="From: "
32 S DIR("?",1)="Enter the beginning date of a date range."
33 S DIR("?")="^D HELP^%DTC,HELP^FSCU(.DIR)"
34 S DIR("??")="FSC U1 NOIS"
35 D ^DIR K DIR
36 I $D(DIRUT) Q
37 S FROM=Y
38 ;
39 N DIR,X,Y K DIR
40 S DIR(0)="DAO^"_START_":"_END_":EX"
41 S DIR("A")="To: "
42 S DIR("?",1)="Enter the ending date of a date range."
43 S DIR("?")="^D HELP^%DTC,HELP^FSCU(.DIR)"
44 S DIR("??")="FSC U1 NOIS"
45 D ^DIR K DIR
46 I $D(DIRUT) S FROM=0 Q
47 S TO=Y I FROM>TO S X=FROM,FROM=TO,TO=X
48 Q
Note: See TracBrowser for help on using the repository browser.