| 1 | FSCEB ;SLC/STAFF-NOIS List Edit Batch ;8/8/97 15:05
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | BLIST ; from FSCLMP
|
|---|
| 5 | N CHOICE S CHOICE=1_"-"_+$G(^TMP("FSC LIST CALLS",$J))
|
|---|
| 6 | D BATCH(CHOICE)
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | BVIEW ; from FSCLMP
|
|---|
| 10 | N CHOICE S CHOICE=$G(^TMP("FSC SELECT",$J,"VVALUES"))
|
|---|
| 11 | D BATCH(CHOICE)
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | BATCH(CHOICE) ;
|
|---|
| 15 | N ACTION,OK
|
|---|
| 16 | D ACTION(.ACTION,.OK) I 'OK Q
|
|---|
| 17 | D SELECT^FSCUL(CHOICE,"",CHOICE,"EVALUES",.OK)
|
|---|
| 18 | I '$G(^TMP("FSC SELECT",$J,"EVALUES")) Q
|
|---|
| 19 | I ACTION="NOTE" D NOTE("EVALUES") Q
|
|---|
| 20 | I ACTION="CLOSE" D CLOSE("EVALUES") Q
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | NOTE(LOCATION) ;
|
|---|
| 24 | N CALL,CALLLINE,OK,OPER,NUM
|
|---|
| 25 | D DATA^FSCEN("NOTE",.OPER)
|
|---|
| 26 | I OPER'="ACCEPT" Q
|
|---|
| 27 | S NUM=0 F S NUM=$O(^TMP("FSC SELECT",$J,LOCATION,NUM)) Q:NUM<1 D
|
|---|
| 28 | .S CALLLINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",NUM,0))
|
|---|
| 29 | .S CALL=+$O(^TMP("FSC LIST CALLS",$J,"ICX",CALLLINE,0))
|
|---|
| 30 | .W !,$$SHORT^FSCGETS(CALL,NUM)
|
|---|
| 31 | .D CHECK^FSCLMPE1(CALL,.OK) I 'OK Q
|
|---|
| 32 | .N DIR,X,Y K DIR
|
|---|
| 33 | .S DIR(0)="YA0",DIR("A")="OK to add the note to this call? ",DIR("B")="YES"
|
|---|
| 34 | .S DIR("?",1)="Enter YES to add this note to the call."
|
|---|
| 35 | .S DIR("?",2)="Enter NO to skip this call without adding a note."
|
|---|
| 36 | .S DIR("?",3)="Enter '^' to stop processing or '??' for more help."
|
|---|
| 37 | .S DIR("?")="^D HELP^FSCU(.DIR)"
|
|---|
| 38 | .S DIR("??")="FSC U1 NOIS"
|
|---|
| 39 | .D ^DIR K DIR
|
|---|
| 40 | .I Y'=1 Q
|
|---|
| 41 | .D NOTE^FSCEF(CALL,"NOTE")
|
|---|
| 42 | .D UPDATE^FSCAUDIT(CALL)
|
|---|
| 43 | .D UPDATE^FSCTASK(CALL)
|
|---|
| 44 | Q
|
|---|
| 45 | ;
|
|---|
| 46 | CLOSE(LOCATION) ;
|
|---|
| 47 | N CALL,CALLLINE,CDATE,FROM,FUNC,OK,OPER,NUM,TASK
|
|---|
| 48 | D DATA^FSCEC("","SUMMARY",.CDATE,.FUNC,.TASK,.OPER)
|
|---|
| 49 | I OPER'="ACCEPT" Q
|
|---|
| 50 | S NUM=0 F S NUM=$O(^TMP("FSC SELECT",$J,LOCATION,NUM)) Q:NUM<1 D
|
|---|
| 51 | .S CALLLINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",NUM,0))
|
|---|
| 52 | .S CALL=+$O(^TMP("FSC LIST CALLS",$J,"ICX",CALLLINE,0))
|
|---|
| 53 | .W !,$$SHORT^FSCGETS(CALL,NUM)
|
|---|
| 54 | .D CHECK^FSCLMPE1(CALL,.OK) I 'OK Q
|
|---|
| 55 | .N DIR,X,Y K DIR
|
|---|
| 56 | .S DIR(0)="YA0",DIR("A")="OK to close this call? ",DIR("B")="YES"
|
|---|
| 57 | .S DIR("?",1)="Enter YES to close this call with your entries."
|
|---|
| 58 | .S DIR("?",2)="Enter NO to skip this call without closing the call."
|
|---|
| 59 | .S DIR("?",3)="Enter '^' to stop processing or '??' for more help."
|
|---|
| 60 | .S DIR("?")="^D HELP^FSCU(.DIR)"
|
|---|
| 61 | .S DIR("??")="FSC U1 NOIS"
|
|---|
| 62 | .D ^DIR K DIR
|
|---|
| 63 | .I Y'=1 Q
|
|---|
| 64 | .S FROM=+$$STATCALL^FSCESU(CALL)
|
|---|
| 65 | .D CLOSE^FSCEF(CALL,"SUMMARY",CDATE,FUNC,TASK)
|
|---|
| 66 | .D STATUS^FSCES(CALL,FROM,2)
|
|---|
| 67 | .D UPDATE^FSCTASK(CALL)
|
|---|
| 68 | Q
|
|---|
| 69 | ;
|
|---|
| 70 | ACTION(ACTION,OK) ;
|
|---|
| 71 | N DIR,X,Y K DIR S OK=1
|
|---|
| 72 | S DIR(0)="SAMO^NOTE:NOTE;CLOSE:CLOSE",DIR("A")="(C)lose calls or make (N)otes on calls: "
|
|---|
| 73 | S DIR("?",1)="Enter CLOSE to make entries to close calls."
|
|---|
| 74 | S DIR("?",2)="Enter NOTE to add a note to calls."
|
|---|
| 75 | S DIR("?")="^D HELP^FSCU(.DIR)"
|
|---|
| 76 | S DIR("??")="FSC U1 NOIS"
|
|---|
| 77 | D ^DIR K DIR
|
|---|
| 78 | I Y="NOTE" S ACTION="NOTE" Q
|
|---|
| 79 | I Y="CLOSE" S ACTION="CLOSE" Q
|
|---|
| 80 | S ACTION="",OK=0
|
|---|
| 81 | Q
|
|---|
