- 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 Feb 18, 2025@23:43:54 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