source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCEL.m@ 846

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

initial load of WorldVistAEHR
File size: 3.1 KB
RevLine 
[613]1FSCEL ;SLC/STAFF-NOIS Edit Log ;3/16/98 19:24
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4NEW ; from FSCLMP, FSCOPT
5 N ACTION,CALLID,CALLNUM,OK,RDATE,SITE
6 D ID^FSCELID(.SITE,.RDATE,.CALLID,.CALLNUM,.OK)
7 I 'OK Q
8 W !?5,"Call ID: ",CALLID
9 I '$$ACCESS^FSCU(DUZ,"SPEC") D NEW^FSCELSNS(CALLID,CALLNUM) Q
10 D NEW^FSCELS(SITE,CALLNUM)
11 N CONALERT,CONTACT,CONTNAME
12 S CONALERT=$$CONALERT^FSCUP
13 S CONTACT=+$P(^FSCD("CALL",CALLNUM,0),U,6),CONTNAME=""
14 I CONTACT S CONTNAME=$$VALUE^FSCGET(CONTACT,7100,2.1)
15 I CONALERT="F" D
16 .I 'CONTACT W !,"Contact person not filled in.",$C(7) H 2 D RECON^FSCELS(SITE,CALLNUM) Q
17 .D ALERT(CONTACT,CALLNUM)
18 I CONALERT="P" D
19 .I 'CONTACT W !,"Contact person not filled in.",$C(7) H 2 D RECON^FSCELS(SITE,CALLNUM) Q
20 .N DIR,X,Y K DIR
21 .S DIR(0)="YAO",DIR("A")="Would "_CONTNAME_" like to automatically be alerted to edits? ",DIR("B")="NO"
22 .S DIR("?",1)="Enter YES to have this contact person alerted whenever this call is edited."
23 .S DIR("?",2)="Enter NO to not schedule this person for automatic alerts."
24 .S DIR("?")="^D HELP^FSCU(.DIR)"
25 .S DIR("??")="FSC U1 NOIS"
26 .D ^DIR K DIR
27 .I Y'=1 D ALERT(CONTACT,CALLNUM)
28 I $D(DTOUT) D OPEN(CALLID,CALLNUM) Q
29 N DIR,X,Y K DIR
30 S DIR(0)="SAMO^MAKE A NOTE:MAKE A NOTE;REFER:REFER;CLOSE:CLOSE;OPEN:OPEN",DIR("A")="Further action - (M)ake a Note, (R)efer, (C)lose, (O)pen: " S DIR("B")=$S($$CLOSE(DUZ):"CLOSE",1:"OPEN")
31 S DIR("?",1)="Enter M to make a note. The call will remain open."
32 S DIR("?",2)="Enter R to change the status to Referred."
33 S DIR("?",3)="Enter C to close this call."
34 S DIR("?",4)="Enter O or '^' to leave this call open without making a note."
35 S DIR("?",5)="Enter '??' for additional help."
36 S DIR("?")="^D HELP^FSCU(.DIR)"
37 S DIR("??")="FSC U1 NOIS"
38 D ^DIR K DIR
39 S ACTION=Y
40 I ACTION="OPEN"!$D(DIRUT) D OPEN(CALLID,CALLNUM)
41 I ACTION="CLOSE" D
42 .;D STATUS^FSCES(CALLNUM,"",1)
43 .D NOTES("Make a Note (in addition to resolution summary)? ")
44 .D UPDATE^FSCTASK(CALLNUM)
45 .D CLOSE^FSCEC(CALLNUM,.OK) I 'OK Q
46 .D STATUS^FSCES(CALLNUM,1,2)
47 .D UPDATE^FSCTASK(CALLNUM)
48 I ACTION="REFER" D
49 .;D STATUS^FSCES(CALLNUM,"",1)
50 .D UPDATE^FSCTASK(CALLNUM)
51 .D STATUS^FSCES(CALLNUM,1,3)
52 .D NOTES("Include a note with this status change? ")
53 .D UPDATE^FSCTASK(CALLNUM)
54 I ACTION="MAKE A NOTE" D
55 .D NOTES("")
56 .D OPEN(CALLID,CALLNUM)
57 D WKLD^FSCEWKLD(CALLNUM,1)
58 D LIST^FSCELL(CALLNUM)
59 Q
60 ;
61CLOSE(USER) ; $$(user) -> 1 or 0 for default of prompt to close call
62 I $P(^FSC("SPEC",USER,0),U,13) Q 1
63 Q 0
64 ;
65NOTES(ASK) ; get notes
66 N DIR,OK,OPER,X,Y K DIR
67 I $L($G(ASK)) S OK=1 D Q:'OK
68 .S DIR(0)="YAO",DIR("A")=ASK,DIR("B")="NO"
69 .S DIR("?",1)="Enter YES to make a note on this call."
70 .S DIR("?",2)="Enter NO change the status without making a note."
71 .S DIR("?")="^D HELP^FSCU(.DIR)"
72 .S DIR("??")="FSC U1 NOIS"
73 .D ^DIR K DIR
74 .I Y'=1 S OK=0 Q
75 D DATA^FSCEN("ACTION",.OPER)
76 I OPER="ACCEPT" D NOTE^FSCEF(CALLNUM,"ACTION")
77 Q
78 ;
79ALERT(USER,CALL) ; schedule user for alert on call
80 D SETUP^FSCNOT(CALL,,,USER_U_1,"ALERT","EDITED")
81 Q
82 ;
83OPEN(CALLID,CALLNUM) ; from FSCELSNS
84 ; msg if call is not closed or referred, status updated to open
85 W !,"This call ("_CALLID_") will remain open."
86 ;D STATUS^FSCES(CALLNUM,"",1)
87 D UPDATE^FSCTASK(CALLNUM)
88 H 1
89 Q
Note: See TracBrowser for help on using the repository browser.