source: FOIAVistA/trunk/r/NOIS-FSC/FSCEB.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 2.6 KB
Line 
1FSCEB ;SLC/STAFF-NOIS List Edit Batch ;8/8/97 15:05
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4BLIST ; from FSCLMP
5 N CHOICE S CHOICE=1_"-"_+$G(^TMP("FSC LIST CALLS",$J))
6 D BATCH(CHOICE)
7 Q
8 ;
9BVIEW ; from FSCLMP
10 N CHOICE S CHOICE=$G(^TMP("FSC SELECT",$J,"VVALUES"))
11 D BATCH(CHOICE)
12 Q
13 ;
14BATCH(CHOICE) ;
15 N ACTION,OK
16 D ACTION(.ACTION,.OK) I 'OK Q
17 D SELECT^FSCUL(CHOICE,"",CHOICE,"EVALUES",.OK)
18 I '$G(^TMP("FSC SELECT",$J,"EVALUES")) Q
19 I ACTION="NOTE" D NOTE("EVALUES") Q
20 I ACTION="CLOSE" D CLOSE("EVALUES") Q
21 Q
22 ;
23NOTE(LOCATION) ;
24 N CALL,CALLLINE,OK,OPER,NUM
25 D DATA^FSCEN("NOTE",.OPER)
26 I OPER'="ACCEPT" Q
27 S NUM=0 F S NUM=$O(^TMP("FSC SELECT",$J,LOCATION,NUM)) Q:NUM<1 D
28 .S CALLLINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",NUM,0))
29 .S CALL=+$O(^TMP("FSC LIST CALLS",$J,"ICX",CALLLINE,0))
30 .W !,$$SHORT^FSCGETS(CALL,NUM)
31 .D CHECK^FSCLMPE1(CALL,.OK) I 'OK Q
32 .N DIR,X,Y K DIR
33 .S DIR(0)="YA0",DIR("A")="OK to add the note to this call? ",DIR("B")="YES"
34 .S DIR("?",1)="Enter YES to add this note to the call."
35 .S DIR("?",2)="Enter NO to skip this call without adding a note."
36 .S DIR("?",3)="Enter '^' to stop processing or '??' for more help."
37 .S DIR("?")="^D HELP^FSCU(.DIR)"
38 .S DIR("??")="FSC U1 NOIS"
39 .D ^DIR K DIR
40 .I Y'=1 Q
41 .D NOTE^FSCEF(CALL,"NOTE")
42 .D UPDATE^FSCAUDIT(CALL)
43 .D UPDATE^FSCTASK(CALL)
44 Q
45 ;
46CLOSE(LOCATION) ;
47 N CALL,CALLLINE,CDATE,FROM,FUNC,OK,OPER,NUM,TASK
48 D DATA^FSCEC("","SUMMARY",.CDATE,.FUNC,.TASK,.OPER)
49 I OPER'="ACCEPT" Q
50 S NUM=0 F S NUM=$O(^TMP("FSC SELECT",$J,LOCATION,NUM)) Q:NUM<1 D
51 .S CALLLINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",NUM,0))
52 .S CALL=+$O(^TMP("FSC LIST CALLS",$J,"ICX",CALLLINE,0))
53 .W !,$$SHORT^FSCGETS(CALL,NUM)
54 .D CHECK^FSCLMPE1(CALL,.OK) I 'OK Q
55 .N DIR,X,Y K DIR
56 .S DIR(0)="YA0",DIR("A")="OK to close this call? ",DIR("B")="YES"
57 .S DIR("?",1)="Enter YES to close this call with your entries."
58 .S DIR("?",2)="Enter NO to skip this call without closing the call."
59 .S DIR("?",3)="Enter '^' to stop processing or '??' for more help."
60 .S DIR("?")="^D HELP^FSCU(.DIR)"
61 .S DIR("??")="FSC U1 NOIS"
62 .D ^DIR K DIR
63 .I Y'=1 Q
64 .S FROM=+$$STATCALL^FSCESU(CALL)
65 .D CLOSE^FSCEF(CALL,"SUMMARY",CDATE,FUNC,TASK)
66 .D STATUS^FSCES(CALL,FROM,2)
67 .D UPDATE^FSCTASK(CALL)
68 Q
69 ;
70ACTION(ACTION,OK) ;
71 N DIR,X,Y K DIR S OK=1
72 S DIR(0)="SAMO^NOTE:NOTE;CLOSE:CLOSE",DIR("A")="(C)lose calls or make (N)otes on calls: "
73 S DIR("?",1)="Enter CLOSE to make entries to close calls."
74 S DIR("?",2)="Enter NOTE to add a note to calls."
75 S DIR("?")="^D HELP^FSCU(.DIR)"
76 S DIR("??")="FSC U1 NOIS"
77 D ^DIR K DIR
78 I Y="NOTE" S ACTION="NOTE" Q
79 I Y="CLOSE" S ACTION="CLOSE" Q
80 S ACTION="",OK=0
81 Q
Note: See TracBrowser for help on using the repository browser.