Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCEN

FSCEN.m

Go to the documentation of this file.
  1. FSCEN ;SLC/STAFF-NOIS Edit Note ;1/11/96 13:42
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. NOTE ; from FSCLMP
  1. N CALL,OK,OPER
  1. S CALL=$$CALL^FSCLMPE1(FSCCNT)
  1. D CHECK^FSCLMPE1(CALL,.OK) I 'OK Q
  1. D DATA("ACTION",.OPER)
  1. I OPER="TIMEOUT" Q
  1. I OPER="QUIT" Q
  1. I OPER="ACCEPT" D
  1. .D NOTE^FSCEF(CALL,"ACTION")
  1. .D WKLD^FSCEWKLD(CALL)
  1. .D UPDATE^FSCEU(CALL)
  1. Q
  1. ;
  1. DATA(TYPE,OPER) ; from FSCEB, FSCEDC, FSCEL, FSCLMPES
  1. N DONE S OPER="QUIT"
  1. D WP^FSCEU(TYPE,"Enter a new note:")
  1. I '$G(^TMP("FSC TEXT",$J,TYPE)) Q
  1. S DONE=0 F D Q:DONE
  1. .N DIR,X,Y K DIR
  1. .S DIR(0)="SAMO^ACCEPT:ACCEPT;EDIT:EDIT",DIR("A")="(E)dit or (A)ccept note: ",DIR("B")="ACCEPT"
  1. .S DIR("?",1)="Enter ACCEPT to add this note to the call."
  1. .S DIR("?",2)="Enter EDIT to reedit your note."
  1. .S DIR("?",3)="Enter '^' to exit without making a note or '??' for more help."
  1. .S DIR("?")="^D HELP^FSCU(.DIR)"
  1. .S DIR("??")="FSC U1 NOIS"
  1. .D ^DIR K DIR
  1. .I $D(DIRUT) S DONE=1 Q
  1. .I Y="ACCEPT" S DONE=1,OPER="ACCEPT" Q
  1. .I Y="EDIT" D EDITWP^FSCEU("^TMP(""FSC TEXT"","_$J_","""_TYPE_""")","Edit Note:") Q
  1. Q