- 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 Feb 18, 2025@23:44:05 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