|
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 | |
|---|
| 1 | FSCEN ;SLC/STAFF-NOIS Edit Note ;1/11/96 13:42
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | NOTE ; 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 | ;
|
|---|
| 17 | DATA(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.
