FSCEN ;SLC/STAFF-NOIS Edit Note ;1/11/96 13:42
;;1.1;NOIS;;Sep 06, 1998
;
NOTE ; from FSCLMP
N CALL,OK,OPER
S CALL=$$CALL^FSCLMPE1(FSCCNT)
D CHECK^FSCLMPE1(CALL,.OK) I 'OK Q
D DATA("ACTION",.OPER)
I OPER="TIMEOUT" Q
I OPER="QUIT" Q
I OPER="ACCEPT" D
.D NOTE^FSCEF(CALL,"ACTION")
.D WKLD^FSCEWKLD(CALL)
.D UPDATE^FSCEU(CALL)
Q
;
DATA(TYPE,OPER) ; from FSCEB, FSCEDC, FSCEL, FSCLMPES
N DONE S OPER="QUIT"
D WP^FSCEU(TYPE,"Enter a new note:")
I '$G(^TMP("FSC TEXT",$J,TYPE)) Q
S DONE=0 F D Q:DONE
.N DIR,X,Y K DIR
.S DIR(0)="SAMO^ACCEPT:ACCEPT;EDIT:EDIT",DIR("A")="(E)dit or (A)ccept note: ",DIR("B")="ACCEPT"
.S DIR("?",1)="Enter ACCEPT to add this note to the call."
.S DIR("?",2)="Enter EDIT to reedit your note."
.S DIR("?",3)="Enter '^' to exit without making a note or '??' for more help."
.S DIR("?")="^D HELP^FSCU(.DIR)"
.S DIR("??")="FSC U1 NOIS"
.D ^DIR K DIR
.I $D(DIRUT) S DONE=1 Q
.I Y="ACCEPT" S DONE=1,OPER="ACCEPT" Q
.I Y="EDIT" D EDITWP^FSCEU("^TMP(""FSC TEXT"","_$J_","""_TYPE_""")","Edit Note:") Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCEN 1082 printed Dec 13, 2024@02:17:37 Page 2
FSCEN ;SLC/STAFF-NOIS Edit Note ;1/11/96 13:42
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
NOTE ; from FSCLMP
+1 NEW CALL,OK,OPER
+2 SET CALL=$$CALL^FSCLMPE1(FSCCNT)
+3 DO CHECK^FSCLMPE1(CALL,.OK)
IF 'OK
QUIT
+4 DO DATA("ACTION",.OPER)
+5 IF OPER="TIMEOUT"
QUIT
+6 IF OPER="QUIT"
QUIT
+7 IF OPER="ACCEPT"
Begin DoDot:1
+8 DO NOTE^FSCEF(CALL,"ACTION")
+9 DO WKLD^FSCEWKLD(CALL)
+10 DO UPDATE^FSCEU(CALL)
End DoDot:1
+11 QUIT
+12 ;
DATA(TYPE,OPER) ; from FSCEB, FSCEDC, FSCEL, FSCLMPES
+1 NEW DONE
SET OPER="QUIT"
+2 DO WP^FSCEU(TYPE,"Enter a new note:")
+3 IF '$GET(^TMP("FSC TEXT",$JOB,TYPE))
QUIT
+4 SET DONE=0
FOR
Begin DoDot:1
+5 NEW DIR,X,Y
KILL DIR
+6 SET DIR(0)="SAMO^ACCEPT:ACCEPT;EDIT:EDIT"
SET DIR("A")="(E)dit or (A)ccept note: "
SET DIR("B")="ACCEPT"
+7 SET DIR("?",1)="Enter ACCEPT to add this note to the call."
+8 SET DIR("?",2)="Enter EDIT to reedit your note."
+9 SET DIR("?",3)="Enter '^' to exit without making a note or '??' for more help."
+10 SET DIR("?")="^D HELP^FSCU(.DIR)"
+11 SET DIR("??")="FSC U1 NOIS"
+12 DO ^DIR
KILL DIR
+13 IF $DATA(DIRUT)
SET DONE=1
QUIT
+14 IF Y="ACCEPT"
SET DONE=1
SET OPER="ACCEPT"
QUIT
+15 IF Y="EDIT"
DO EDITWP^FSCEU("^TMP(""FSC TEXT"","_$JOB_","""_TYPE_""")","Edit Note:")
QUIT
End DoDot:1
if DONE
QUIT
+16 QUIT
