FSCEB ;SLC/STAFF-NOIS List Edit Batch ;8/8/97 15:05
;;1.1;NOIS;;Sep 06, 1998
;
BLIST ; from FSCLMP
N CHOICE S CHOICE=1_"-"_+$G(^TMP("FSC LIST CALLS",$J))
D BATCH(CHOICE)
Q
;
BVIEW ; from FSCLMP
N CHOICE S CHOICE=$G(^TMP("FSC SELECT",$J,"VVALUES"))
D BATCH(CHOICE)
Q
;
BATCH(CHOICE) ;
N ACTION,OK
D ACTION(.ACTION,.OK) I 'OK Q
D SELECT^FSCUL(CHOICE,"",CHOICE,"EVALUES",.OK)
I '$G(^TMP("FSC SELECT",$J,"EVALUES")) Q
I ACTION="NOTE" D NOTE("EVALUES") Q
I ACTION="CLOSE" D CLOSE("EVALUES") Q
Q
;
NOTE(LOCATION) ;
N CALL,CALLLINE,OK,OPER,NUM
D DATA^FSCEN("NOTE",.OPER)
I OPER'="ACCEPT" Q
S NUM=0 F S NUM=$O(^TMP("FSC SELECT",$J,LOCATION,NUM)) Q:NUM<1 D
.S CALLLINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",NUM,0))
.S CALL=+$O(^TMP("FSC LIST CALLS",$J,"ICX",CALLLINE,0))
.W !,$$SHORT^FSCGETS(CALL,NUM)
.D CHECK^FSCLMPE1(CALL,.OK) I 'OK Q
.N DIR,X,Y K DIR
.S DIR(0)="YA0",DIR("A")="OK to add the note to this call? ",DIR("B")="YES"
.S DIR("?",1)="Enter YES to add this note to the call."
.S DIR("?",2)="Enter NO to skip this call without adding a note."
.S DIR("?",3)="Enter '^' to stop processing or '??' for more help."
.S DIR("?")="^D HELP^FSCU(.DIR)"
.S DIR("??")="FSC U1 NOIS"
.D ^DIR K DIR
.I Y'=1 Q
.D NOTE^FSCEF(CALL,"NOTE")
.D UPDATE^FSCAUDIT(CALL)
.D UPDATE^FSCTASK(CALL)
Q
;
CLOSE(LOCATION) ;
N CALL,CALLLINE,CDATE,FROM,FUNC,OK,OPER,NUM,TASK
D DATA^FSCEC("","SUMMARY",.CDATE,.FUNC,.TASK,.OPER)
I OPER'="ACCEPT" Q
S NUM=0 F S NUM=$O(^TMP("FSC SELECT",$J,LOCATION,NUM)) Q:NUM<1 D
.S CALLLINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",NUM,0))
.S CALL=+$O(^TMP("FSC LIST CALLS",$J,"ICX",CALLLINE,0))
.W !,$$SHORT^FSCGETS(CALL,NUM)
.D CHECK^FSCLMPE1(CALL,.OK) I 'OK Q
.N DIR,X,Y K DIR
.S DIR(0)="YA0",DIR("A")="OK to close this call? ",DIR("B")="YES"
.S DIR("?",1)="Enter YES to close this call with your entries."
.S DIR("?",2)="Enter NO to skip this call without closing the call."
.S DIR("?",3)="Enter '^' to stop processing or '??' for more help."
.S DIR("?")="^D HELP^FSCU(.DIR)"
.S DIR("??")="FSC U1 NOIS"
.D ^DIR K DIR
.I Y'=1 Q
.S FROM=+$$STATCALL^FSCESU(CALL)
.D CLOSE^FSCEF(CALL,"SUMMARY",CDATE,FUNC,TASK)
.D STATUS^FSCES(CALL,FROM,2)
.D UPDATE^FSCTASK(CALL)
Q
;
ACTION(ACTION,OK) ;
N DIR,X,Y K DIR S OK=1
S DIR(0)="SAMO^NOTE:NOTE;CLOSE:CLOSE",DIR("A")="(C)lose calls or make (N)otes on calls: "
S DIR("?",1)="Enter CLOSE to make entries to close calls."
S DIR("?",2)="Enter NOTE to add a note to calls."
S DIR("?")="^D HELP^FSCU(.DIR)"
S DIR("??")="FSC U1 NOIS"
D ^DIR K DIR
I Y="NOTE" S ACTION="NOTE" Q
I Y="CLOSE" S ACTION="CLOSE" Q
S ACTION="",OK=0
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCEB 2711 printed Oct 16, 2024@18:18:04 Page 2
FSCEB ;SLC/STAFF-NOIS List Edit Batch ;8/8/97 15:05
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
BLIST ; from FSCLMP
+1 NEW CHOICE
SET CHOICE=1_"-"_+$GET(^TMP("FSC LIST CALLS",$JOB))
+2 DO BATCH(CHOICE)
+3 QUIT
+4 ;
BVIEW ; from FSCLMP
+1 NEW CHOICE
SET CHOICE=$GET(^TMP("FSC SELECT",$JOB,"VVALUES"))
+2 DO BATCH(CHOICE)
+3 QUIT
+4 ;
BATCH(CHOICE) ;
+1 NEW ACTION,OK
+2 DO ACTION(.ACTION,.OK)
IF 'OK
QUIT
+3 DO SELECT^FSCUL(CHOICE,"",CHOICE,"EVALUES",.OK)
+4 IF '$GET(^TMP("FSC SELECT",$JOB,"EVALUES"))
QUIT
+5 IF ACTION="NOTE"
DO NOTE("EVALUES")
QUIT
+6 IF ACTION="CLOSE"
DO CLOSE("EVALUES")
QUIT
+7 QUIT
+8 ;
NOTE(LOCATION) ;
+1 NEW CALL,CALLLINE,OK,OPER,NUM
+2 DO DATA^FSCEN("NOTE",.OPER)
+3 IF OPER'="ACCEPT"
QUIT
+4 SET NUM=0
FOR
SET NUM=$ORDER(^TMP("FSC SELECT",$JOB,LOCATION,NUM))
if NUM<1
QUIT
Begin DoDot:1
+5 SET CALLLINE=+$ORDER(^TMP("FSC LIST CALLS",$JOB,"IDX",NUM,0))
+6 SET CALL=+$ORDER(^TMP("FSC LIST CALLS",$JOB,"ICX",CALLLINE,0))
+7 WRITE !,$$SHORT^FSCGETS(CALL,NUM)
+8 DO CHECK^FSCLMPE1(CALL,.OK)
IF 'OK
QUIT
+9 NEW DIR,X,Y
KILL DIR
+10 SET DIR(0)="YA0"
SET DIR("A")="OK to add the note to this call? "
SET DIR("B")="YES"
+11 SET DIR("?",1)="Enter YES to add this note to the call."
+12 SET DIR("?",2)="Enter NO to skip this call without adding a note."
+13 SET DIR("?",3)="Enter '^' to stop processing or '??' for more help."
+14 SET DIR("?")="^D HELP^FSCU(.DIR)"
+15 SET DIR("??")="FSC U1 NOIS"
+16 DO ^DIR
KILL DIR
+17 IF Y'=1
QUIT
+18 DO NOTE^FSCEF(CALL,"NOTE")
+19 DO UPDATE^FSCAUDIT(CALL)
+20 DO UPDATE^FSCTASK(CALL)
End DoDot:1
+21 QUIT
+22 ;
CLOSE(LOCATION) ;
+1 NEW CALL,CALLLINE,CDATE,FROM,FUNC,OK,OPER,NUM,TASK
+2 DO DATA^FSCEC("","SUMMARY",.CDATE,.FUNC,.TASK,.OPER)
+3 IF OPER'="ACCEPT"
QUIT
+4 SET NUM=0
FOR
SET NUM=$ORDER(^TMP("FSC SELECT",$JOB,LOCATION,NUM))
if NUM<1
QUIT
Begin DoDot:1
+5 SET CALLLINE=+$ORDER(^TMP("FSC LIST CALLS",$JOB,"IDX",NUM,0))
+6 SET CALL=+$ORDER(^TMP("FSC LIST CALLS",$JOB,"ICX",CALLLINE,0))
+7 WRITE !,$$SHORT^FSCGETS(CALL,NUM)
+8 DO CHECK^FSCLMPE1(CALL,.OK)
IF 'OK
QUIT
+9 NEW DIR,X,Y
KILL DIR
+10 SET DIR(0)="YA0"
SET DIR("A")="OK to close this call? "
SET DIR("B")="YES"
+11 SET DIR("?",1)="Enter YES to close this call with your entries."
+12 SET DIR("?",2)="Enter NO to skip this call without closing the call."
+13 SET DIR("?",3)="Enter '^' to stop processing or '??' for more help."
+14 SET DIR("?")="^D HELP^FSCU(.DIR)"
+15 SET DIR("??")="FSC U1 NOIS"
+16 DO ^DIR
KILL DIR
+17 IF Y'=1
QUIT
+18 SET FROM=+$$STATCALL^FSCESU(CALL)
+19 DO CLOSE^FSCEF(CALL,"SUMMARY",CDATE,FUNC,TASK)
+20 DO STATUS^FSCES(CALL,FROM,2)
+21 DO UPDATE^FSCTASK(CALL)
End DoDot:1
+22 QUIT
+23 ;
ACTION(ACTION,OK) ;
+1 NEW DIR,X,Y
KILL DIR
SET OK=1
+2 SET DIR(0)="SAMO^NOTE:NOTE;CLOSE:CLOSE"
SET DIR("A")="(C)lose calls or make (N)otes on calls: "
+3 SET DIR("?",1)="Enter CLOSE to make entries to close calls."
+4 SET DIR("?",2)="Enter NOTE to add a note to calls."
+5 SET DIR("?")="^D HELP^FSCU(.DIR)"
+6 SET DIR("??")="FSC U1 NOIS"
+7 DO ^DIR
KILL DIR
+8 IF Y="NOTE"
SET ACTION="NOTE"
QUIT
+9 IF Y="CLOSE"
SET ACTION="CLOSE"
QUIT
+10 SET ACTION=""
SET OK=0
+11 QUIT
