FSCEN.m

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 ---FSCEN   1082     printed  Apr 09, 2024@21:21:45                                                                                                                                                                                                       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