source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCEN.m@ 1000

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1FSCEN ;SLC/STAFF-NOIS Edit Note ;1/11/96 13:42
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4NOTE ; from FSCLMP
5 N CALL,OK,OPER
6 S CALL=$$CALL^FSCLMPE1(FSCCNT)
7 D CHECK^FSCLMPE1(CALL,.OK) I 'OK Q
8 D DATA("ACTION",.OPER)
9 I OPER="TIMEOUT" Q
10 I OPER="QUIT" Q
11 I OPER="ACCEPT" D
12 .D NOTE^FSCEF(CALL,"ACTION")
13 .D WKLD^FSCEWKLD(CALL)
14 .D UPDATE^FSCEU(CALL)
15 Q
16 ;
17DATA(TYPE,OPER) ; from FSCEB, FSCEDC, FSCEL, FSCLMPES
18 N DONE S OPER="QUIT"
19 D WP^FSCEU(TYPE,"Enter a new note:")
20 I '$G(^TMP("FSC TEXT",$J,TYPE)) Q
21 S DONE=0 F D Q:DONE
22 .N DIR,X,Y K DIR
23 .S DIR(0)="SAMO^ACCEPT:ACCEPT;EDIT:EDIT",DIR("A")="(E)dit or (A)ccept note: ",DIR("B")="ACCEPT"
24 .S DIR("?",1)="Enter ACCEPT to add this note to the call."
25 .S DIR("?",2)="Enter EDIT to reedit your note."
26 .S DIR("?",3)="Enter '^' to exit without making a note or '??' for more help."
27 .S DIR("?")="^D HELP^FSCU(.DIR)"
28 .S DIR("??")="FSC U1 NOIS"
29 .D ^DIR K DIR
30 .I $D(DIRUT) S DONE=1 Q
31 .I Y="ACCEPT" S DONE=1,OPER="ACCEPT" Q
32 .I Y="EDIT" D EDITWP^FSCEU("^TMP(""FSC TEXT"","_$J_","""_TYPE_""")","Edit Note:") Q
33 Q
Note: See TracBrowser for help on using the repository browser.