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

FSCEC.m

Go to the documentation of this file.
  1. FSCEC ;SLC/STAFF-NOIS List Edit Close ;12/15/96 17:17
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. CLOSE(CALL,OK) ; from FSCEL, FSCLMPE1
  1. N CDATE,FUNC,OPER,TASK S OK=1
  1. D DATA(CALL,"SUMMARY",.CDATE,.FUNC,.TASK,.OPER)
  1. I OPER'="ACCEPT" S OK=0 W !,"Call has NOT been closed.",$C(7) H 2 Q
  1. D CLOSE^FSCEF(CALL,"SUMMARY",CDATE,FUNC,TASK)
  1. Q
  1. ;
  1. DATA(CALL,TYPE,CDATE,FUNC,TASK,OPER) ; from FSCEB
  1. N OK
  1. S CDATE=$$CDATE^FSCEUD(DUZ) S:$P(CDATE,U)="P" CDATE=$P(CDATE,U,2) I $P(CDATE,U)="S" S CDATE=$$DATE^FSCU($P(CDATE,U,2))
  1. S FUNC=$$FUNC^FSCEUD(DUZ),FUNC=$S($P(FUNC,U)="P":$P(FUNC,U,2),1:+$O(^FSC("FUNC","B",$P(FUNC,U,2),0)))
  1. S TASK=$$TASK^FSCEUD(DUZ),TASK=$S($P(TASK,U)="P":$P(TASK,U,2),1:+$O(^FSC("TASK","B",$P(TASK,U,2),0)))
  1. S OPER="QUIT"
  1. D WP^FSCEU(TYPE,"Enter a resolution summary:")
  1. Q:'$G(^TMP("FSC TEXT",$J,TYPE)) Q:$D(DTOUT)
  1. D
  1. .I 'CDATE D CDATE^FSCECD(CALL,.CDATE,.OK) I 'OK Q
  1. .I 'FUNC D FUNC^FSCECD(.FUNC,.OK) I 'OK Q
  1. .I 'TASK D TASK^FSCECD(.TASK,.OK) I 'OK Q
  1. Q:$D(DTOUT)
  1. D COMPLETE(CALL,TYPE,.CDATE,.FUNC,.TASK,.OPER)
  1. Q
  1. ;
  1. COMPLETE(CALL,TYPE,CDATE,FUNC,TASK,OPER) ; from FSCEDC
  1. N DONE,OK
  1. S DONE=0 F D Q:DONE
  1. .D
  1. ..I $G(^TMP("FSC TEXT",$J,TYPE)),CDATE,FUNC,TASK D ACCEPT(.OPER) Q
  1. ..D EDIT(.OPER)
  1. .I OPER'="EDIT" S DONE=1 Q
  1. .D EDITWP^FSCEU("^TMP(""FSC TEXT"","_$J_","""_TYPE_""")","Edit Resolution Summary:")
  1. .I '$G(^TMP("FSC TEXT",$J,TYPE)) Q
  1. .D CDATE^FSCECD(CALL,.CDATE,.OK) I 'OK Q
  1. .D FUNC^FSCECD(.FUNC,.OK) I 'OK Q
  1. .D TASK^FSCECD(.TASK,.OK)
  1. Q
  1. ;
  1. EDIT(OPER) ;
  1. N DIR,X,Y K DIR
  1. S DIR(0)="YAO",DIR("A")="Incomplete information. Do you want to edit the data? ",DIR("B")="YES"
  1. S DIR("?",1)="In order to close a call, you must enter all closing information."
  1. S DIR("?",2)="Enter YES to reedit this information."
  1. S DIR("?",3)="Enter NO or '^' to exit, '??' for more help."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I Y=1 S OPER="EDIT" Q
  1. S OPER="QUIT"
  1. Q
  1. ;
  1. ACCEPT(OPER) ;
  1. N DIR,X,Y K DIR
  1. S DIR(0)="SAMO^ACCEPT:ACCEPT;EDIT:EDIT",DIR("A")="(E)dit or (A)ccept to close call: ",DIR("B")="ACCEPT"
  1. S DIR("?",1)="Enter ACCEPT to close this call."
  1. S DIR("?",2)="Enter EDIT to reedit the closing information."
  1. S DIR("?",3)="Enter '^' to exit without closing the call or '??' for more help."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I Y="EDIT" S OPER="EDIT" Q
  1. I Y="ACCEPT" S OPER="ACCEPT" Q
  1. S OPER="QUIT"
  1. Q