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

FSCEB.m

Go to the documentation of this file.
  1. FSCEB ;SLC/STAFF-NOIS List Edit Batch ;8/8/97 15:05
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. BLIST ; from FSCLMP
  1. N CHOICE S CHOICE=1_"-"_+$G(^TMP("FSC LIST CALLS",$J))
  1. D BATCH(CHOICE)
  1. Q
  1. ;
  1. BVIEW ; from FSCLMP
  1. N CHOICE S CHOICE=$G(^TMP("FSC SELECT",$J,"VVALUES"))
  1. D BATCH(CHOICE)
  1. Q
  1. ;
  1. BATCH(CHOICE) ;
  1. N ACTION,OK
  1. D ACTION(.ACTION,.OK) I 'OK Q
  1. D SELECT^FSCUL(CHOICE,"",CHOICE,"EVALUES",.OK)
  1. I '$G(^TMP("FSC SELECT",$J,"EVALUES")) Q
  1. I ACTION="NOTE" D NOTE("EVALUES") Q
  1. I ACTION="CLOSE" D CLOSE("EVALUES") Q
  1. Q
  1. ;
  1. NOTE(LOCATION) ;
  1. N CALL,CALLLINE,OK,OPER,NUM
  1. D DATA^FSCEN("NOTE",.OPER)
  1. I OPER'="ACCEPT" Q
  1. S NUM=0 F S NUM=$O(^TMP("FSC SELECT",$J,LOCATION,NUM)) Q:NUM<1 D
  1. .S CALLLINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",NUM,0))
  1. .S CALL=+$O(^TMP("FSC LIST CALLS",$J,"ICX",CALLLINE,0))
  1. .W !,$$SHORT^FSCGETS(CALL,NUM)
  1. .D CHECK^FSCLMPE1(CALL,.OK) I 'OK Q
  1. .N DIR,X,Y K DIR
  1. .S DIR(0)="YA0",DIR("A")="OK to add the note to this call? ",DIR("B")="YES"
  1. .S DIR("?",1)="Enter YES to add this note to the call."
  1. .S DIR("?",2)="Enter NO to skip this call without adding a note."
  1. .S DIR("?",3)="Enter '^' to stop processing 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'=1 Q
  1. .D NOTE^FSCEF(CALL,"NOTE")
  1. .D UPDATE^FSCAUDIT(CALL)
  1. .D UPDATE^FSCTASK(CALL)
  1. Q
  1. ;
  1. CLOSE(LOCATION) ;
  1. N CALL,CALLLINE,CDATE,FROM,FUNC,OK,OPER,NUM,TASK
  1. D DATA^FSCEC("","SUMMARY",.CDATE,.FUNC,.TASK,.OPER)
  1. I OPER'="ACCEPT" Q
  1. S NUM=0 F S NUM=$O(^TMP("FSC SELECT",$J,LOCATION,NUM)) Q:NUM<1 D
  1. .S CALLLINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",NUM,0))
  1. .S CALL=+$O(^TMP("FSC LIST CALLS",$J,"ICX",CALLLINE,0))
  1. .W !,$$SHORT^FSCGETS(CALL,NUM)
  1. .D CHECK^FSCLMPE1(CALL,.OK) I 'OK Q
  1. .N DIR,X,Y K DIR
  1. .S DIR(0)="YA0",DIR("A")="OK to close this call? ",DIR("B")="YES"
  1. .S DIR("?",1)="Enter YES to close this call with your entries."
  1. .S DIR("?",2)="Enter NO to skip this call without closing the call."
  1. .S DIR("?",3)="Enter '^' to stop processing 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'=1 Q
  1. .S FROM=+$$STATCALL^FSCESU(CALL)
  1. .D CLOSE^FSCEF(CALL,"SUMMARY",CDATE,FUNC,TASK)
  1. .D STATUS^FSCES(CALL,FROM,2)
  1. .D UPDATE^FSCTASK(CALL)
  1. Q
  1. ;
  1. ACTION(ACTION,OK) ;
  1. N DIR,X,Y K DIR S OK=1
  1. S DIR(0)="SAMO^NOTE:NOTE;CLOSE:CLOSE",DIR("A")="(C)lose calls or make (N)otes on calls: "
  1. S DIR("?",1)="Enter CLOSE to make entries to close calls."
  1. S DIR("?",2)="Enter NOTE to add a note to calls."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I Y="NOTE" S ACTION="NOTE" Q
  1. I Y="CLOSE" S ACTION="CLOSE" Q
  1. S ACTION="",OK=0
  1. Q