source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCELSNS.m@ 893

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

initial load of WorldVistAEHR
File size: 3.1 KB
Line 
1FSCELSNS ;SLC/STAFF-NOIS Edit Log Setup Non Specialist ;10/13/96 23:56
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4NEW(CALLID,CALLNUM) ; from FSCEL
5 N ACTION,DA,DIE,DONE,DR,PH,X,Y
6 S ACTION="",DONE=0,PH=$$PH^FSCELS(DUZ)
7 S DA=CALLNUM,DIE="^FSCD(""CALL"","
8 S DR="2.1T///`"_DUZ_";3T;1T;30Request Description;2.2T"_$S($L(PH):"//"_PH,1:"")_";6T//ROUTINE"
9 F D I DONE Q
10 .L +^FSCD("CALL",CALLNUM):30 I '$T D SOMEONE^FSCLMPE1 S DONE=1 Q
11 .D ^DIE
12 .L -^FSCD("CALL",CALLNUM)
13 .I $D(DTOUT) S ACTION="TIMEOUT",DONE=1 Q
14 .N DIR,X,Y K DIR
15 .S DIR(0)="SAMO^EDIT:EDIT;CANCEL:CANCEL;FILE:FILE"
16 .S DIR("A",1)=""
17 .S DIR("A")="Further action - (E)dit, (C)ancel, or (F)ile: "
18 .S DIR("?",1)="Enter E to be re-edit this information."
19 .S DIR("?",2)="Enter C to be cancel this call."
20 .S DIR("?",3)="Enter F or '^' to file this information."
21 .S DIR("?",4)="Enter '??' for additional help."
22 .S DIR("?")="^D HELP^FSCU(.DIR)"
23 .S DIR("??")="FSC U1 NOIS"
24 .S DIR("B")=$$DEFAULT(CALLNUM)
25 .I DIR("B")="EDIT" W !,"Warning - a Module\Version # should be entered.",$C(7)
26 .D ^DIR
27 .I Y="EDIT" S DR="3T;1T;30Request Description;2.2T;6T" Q
28 .S ACTION=Y,DONE=1
29 .I $D(DTOUT) S ACTION="TIMEOUT"
30 K DIR
31 I ACTION="CANCEL" D Q
32 .;D STATUS^FSCES(CALLNUM,"",1)
33 .D UPDATE^FSCTASK(CALLNUM)
34 .D STATUS^FSCES(CALLNUM,1,99)
35 .D UPDATE^FSCTASK(CALLNUM)
36 .W !,"This call ("_CALLID_") has been cancelled."
37 D OPEN^FSCEL(CALLID,CALLNUM)
38 N NSALERT S NSALERT=$$NSALERT^FSCUP
39 I NSALERT="F" D
40 .N CALLS K CALLS S CALLS(CALLNUM)=""
41 .D BENOTIFY^FSCLMPNB(DUZ,.CALLS,"ALERT","EDITED")
42 .W !,"You will be alerted whenever this call is edited."
43 I ACTION="TIMEOUT" Q
44 I NSALERT'="P" Q
45 N DIR,X,Y K DIR
46 S DIR(0)="SAMO^EDITED:EDITED;STATUS CHANGED:STATUS CHANGED;NONE:NONE"
47 S DIR("A",1)=""
48 S DIR("A",2)="You can be alerted whenever this request is acted on."
49 S DIR("A")="Receive notification when (E)dited, (S)tatus changed, or (N)one: ",DIR("B")="EDITED"
50 S DIR("?",1)="Enter E to be alerted when this request is edited."
51 S DIR("?",2)="Enter S to be alerted when this requests status changes."
52 S DIR("?",3)="Enter N to not receive alerts."
53 S DIR("?",4)="Enter '??' for additional help."
54 S DIR("?")="^D HELP^FSCU(.DIR)"
55 S DIR("??")="FSC U1 NOIS"
56 D ^DIR K DIR
57 I Y="EDITED"!(Y="STATUS CHANGED") D
58 .N CALLS K CALLS S CALLS(CALLNUM)=""
59 .D BENOTIFY^FSCLMPNB(DUZ,.CALLS,"ALERT",Y)
60 Q ; *** remove this line to allow E3Rs
61 N DIR,X,Y K DIR
62 S DIR(0)="SAMO^PROBLEM:PROBLEM;ENHANCEMENT:ENHANCEMENT",DIR("A")="This request concerns a (P)roblem or (E)nhancement? ",DIR("B")="PROBLEM"
63 S DIR("?",1)="Enter P to log a problem."
64 S DIR("?",2)="Enter E to log an enhnacement request."
65 S DIR("?",3)="Enter '??' for additional help."
66 S DIR("?")="^D HELP^FSCU(.DIR)"
67 S DIR("??")="FSC U1 NOIS"
68 D ^DIR K DIR
69 I Y="PROBLEM"!$D(DIRUT) D OPEN^FSCEL(CALLID,CALLNUM) Q
70 ;D STATUS^FSCES(CALLNUM,"",1)
71 D UPDATE^FSCTASK(CALLNUM)
72 D STATUS^FSCES(CALLNUM,1,3)
73 D UPDATE^FSCTASK(CALLNUM)
74 D STATUS^FSCES(CALLNUM,3,5)
75 D UPDATE^FSCTASK(CALLNUM)
76 Q
77 ;
78DEFAULT(CALL) ;
79 I '$L($G(^FSCD("CALL",CALL,1))),'$P($G(^(0)),U,8),'$O(^(30,0)) Q "CANCEL"
80 I '$P($G(^FSCD("CALL",CALL,0)),U,8) Q "EDIT"
81 Q "FILE"
Note: See TracBrowser for help on using the repository browser.