FSCLMPE ;SLC/STAFF-NOIS List Manager Protocol Edit ;5/17/98 22:26
;;1.1;NOIS;;Sep 06, 1998
;
LC ; from FSCLMP
I '@VALMAR W !,"No calls to Edit.",! H 2 Q
N CHOICE,DEFAULT,OK
S CHOICE="1-"_+@VALMAR,DEFAULT=CHOICE D SELECT^FSCUL(CHOICE,"",DEFAULT,"EVALUES",.OK)
I $O(^TMP("FSC SELECT",$J,"EVALUES",0)) D EDIT^FSCLM("EVALUES")
S VALMBCK=$S($G(FSCEXIT):"Q",1:"R")
Q
;
VC ; from FSCLMP
N CHOICE,DEFAULT,OK,OLDFMT K OLDFMT
S CHOICE=$G(^TMP("FSC SELECT",$J,"VVALUES")),DEFAULT=CHOICE D SELECT^FSCUL(CHOICE,"",DEFAULT,"EVALUES",.OK)
I $O(^TMP("FSC SELECT",$J,"EVALUES",0)) M OLDFMT=FSCFMT K FSCEDIT,FSCFMT D EDIT^FSCLM("EVALUES")
S VALMBCK=$S($G(FSCEXIT):"Q",1:"R")
K FSCFMT M FSCFMT=OLDFMT I '$G(FSCEXIT),$G(FSCEDIT) D ENTRY^FSCLMV,HEADER^FSCLMV
Q
;
EDIT ; from FSCLMP
N DIR,X,Y K DIR
S DIR(0)="SAMO^BASIC:BASIC;DUPLICATE:DUPLICATE;PERSONAL:PERSONAL;WORKLOAD:WORKLOAD;ALL:ALL"
S DIR("A")="Select (B)asic, (A)ll, (W)orkload, (P)ersonal, or (D)uplicate: "
S DIR("?",1)="Enter BASIC to edit the module, specialist, and priority."
;S DIR("?",2)="Enter DESCRIPTION to edit the request description."
S DIR("?",2)="Enter ALL to edit all of the entry information on the call. Note: The"
S DIR("?",3)="location and date opened cannot be edited (you may cancel a call by"
S DIR("?",4)="changing its status to cancelled)."
S DIR("?",5)="Enter WORKLOAD to edit workload."
S DIR("?",6)="Enter PERSONAL to edit personal fields on this call."
S DIR("?",7)="Enter DUPLICATE to associate this call with another call."
S DIR("?")="^D HELP^FSCU(.DIR)"
S DIR("??")="FSC U1 NOIS"
D ^DIR K DIR
I $D(DIRUT) Q
I Y="BASIC" D BASIC^FSCLMPE1 Q
I Y="DESCRIPTION" D DESC^FSCLMPE1 Q
I Y="WORKLOAD" D WKLD^FSCLMPE1 Q
I Y="ALL" D ALL^FSCLMPE1 Q
I Y="DUPLICATE" D PRIMARY^FSCLMPEA Q
I Y="PERSONAL" D PFIELDS^FSCLMPE1 Q
Q
;
LD ; from FSCLMP
I '$$CHECK^FSCLMPM(FSCLNUM,DUZ) W !,"You cannot edit this list.",$C(7) H 2 Q
I "AM"'[$P(^FSC("LIST",FSCLNUM,0),U,3) W !,"This list does not use a query definition.",$C(7) H 2 Q
I '($D(@VALMAR)#2) S @VALMAR="" D INSERT^FSCLMPM Q
N DIR,X,Y K DIR
S DIR(0)="SAMO^REPLACE:REPLACE;EDIT:EDIT;INSERT:INSERT;DELETE:DELETE"
S DIR("A")="Select (E)dit a line, (I)nsert lines, (D)elete lines, or (R)eplace all: "
S DIR("?",1)="Enter EDIT to replace a single line in the definition."
S DIR("?",2)="Enter INSERT to add additional lines after a selected line."
S DIR("?",3)="Enter DELETE to delete one or more lines."
S DIR("?",4)="Enter REPLACE to enter a new query definition."
S DIR("?")="^D HELP^FSCU(.DIR)"
S DIR("??")="FSC U1 NOIS"
D ^DIR K DIR
I $D(DIRUT) Q
I Y="EDIT" D EDIT^FSCLMPM Q
I Y="INSERT" D INSERT^FSCLMPM Q
I Y="DELETE" D DELETE^FSCLMPM Q
I Y="REPLACE" D Q
.N CHOICE,CNT,DEF,DESC,LINE,NEWDEF,NEWLINE,OK,PREOP,QDESC K DEF,DESC,NEWDEF,QDESC ; not scoped
.D REPLACE^FSCLDR(FSCLNAME,FSCLNUM)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCLMPE 2919 printed Apr 09, 2024@21:21:39 Page 2
FSCLMPE ;SLC/STAFF-NOIS List Manager Protocol Edit ;5/17/98 22:26
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
LC ; from FSCLMP
+1 IF '@VALMAR
WRITE !,"No calls to Edit.",!
HANG 2
QUIT
+2 NEW CHOICE,DEFAULT,OK
+3 SET CHOICE="1-"_+@VALMAR
SET DEFAULT=CHOICE
DO SELECT^FSCUL(CHOICE,"",DEFAULT,"EVALUES",.OK)
+4 IF $ORDER(^TMP("FSC SELECT",$JOB,"EVALUES",0))
DO EDIT^FSCLM("EVALUES")
+5 SET VALMBCK=$SELECT($GET(FSCEXIT):"Q",1:"R")
+6 QUIT
+7 ;
VC ; from FSCLMP
+1 NEW CHOICE,DEFAULT,OK,OLDFMT
KILL OLDFMT
+2 SET CHOICE=$GET(^TMP("FSC SELECT",$JOB,"VVALUES"))
SET DEFAULT=CHOICE
DO SELECT^FSCUL(CHOICE,"",DEFAULT,"EVALUES",.OK)
+3 IF $ORDER(^TMP("FSC SELECT",$JOB,"EVALUES",0))
MERGE OLDFMT=FSCFMT
KILL FSCEDIT,FSCFMT
DO EDIT^FSCLM("EVALUES")
+4 SET VALMBCK=$SELECT($GET(FSCEXIT):"Q",1:"R")
+5 KILL FSCFMT
MERGE FSCFMT=OLDFMT
IF '$GET(FSCEXIT)
IF $GET(FSCEDIT)
DO ENTRY^FSCLMV
DO HEADER^FSCLMV
+6 QUIT
+7 ;
EDIT ; from FSCLMP
+1 NEW DIR,X,Y
KILL DIR
+2 SET DIR(0)="SAMO^BASIC:BASIC;DUPLICATE:DUPLICATE;PERSONAL:PERSONAL;WORKLOAD:WORKLOAD;ALL:ALL"
+3 SET DIR("A")="Select (B)asic, (A)ll, (W)orkload, (P)ersonal, or (D)uplicate: "
+4 SET DIR("?",1)="Enter BASIC to edit the module, specialist, and priority."
+5 ;S DIR("?",2)="Enter DESCRIPTION to edit the request description."
+6 SET DIR("?",2)="Enter ALL to edit all of the entry information on the call. Note: The"
+7 SET DIR("?",3)="location and date opened cannot be edited (you may cancel a call by"
+8 SET DIR("?",4)="changing its status to cancelled)."
+9 SET DIR("?",5)="Enter WORKLOAD to edit workload."
+10 SET DIR("?",6)="Enter PERSONAL to edit personal fields on this call."
+11 SET DIR("?",7)="Enter DUPLICATE to associate this call with another call."
+12 SET DIR("?")="^D HELP^FSCU(.DIR)"
+13 SET DIR("??")="FSC U1 NOIS"
+14 DO ^DIR
KILL DIR
+15 IF $DATA(DIRUT)
QUIT
+16 IF Y="BASIC"
DO BASIC^FSCLMPE1
QUIT
+17 IF Y="DESCRIPTION"
DO DESC^FSCLMPE1
QUIT
+18 IF Y="WORKLOAD"
DO WKLD^FSCLMPE1
QUIT
+19 IF Y="ALL"
DO ALL^FSCLMPE1
QUIT
+20 IF Y="DUPLICATE"
DO PRIMARY^FSCLMPEA
QUIT
+21 IF Y="PERSONAL"
DO PFIELDS^FSCLMPE1
QUIT
+22 QUIT
+23 ;
LD ; from FSCLMP
+1 IF '$$CHECK^FSCLMPM(FSCLNUM,DUZ)
WRITE !,"You cannot edit this list.",$CHAR(7)
HANG 2
QUIT
+2 IF "AM"'[$PIECE(^FSC("LIST",FSCLNUM,0),U,3)
WRITE !,"This list does not use a query definition.",$CHAR(7)
HANG 2
QUIT
+3 IF '($DATA(@VALMAR)#2)
SET @VALMAR=""
DO INSERT^FSCLMPM
QUIT
+4 NEW DIR,X,Y
KILL DIR
+5 SET DIR(0)="SAMO^REPLACE:REPLACE;EDIT:EDIT;INSERT:INSERT;DELETE:DELETE"
+6 SET DIR("A")="Select (E)dit a line, (I)nsert lines, (D)elete lines, or (R)eplace all: "
+7 SET DIR("?",1)="Enter EDIT to replace a single line in the definition."
+8 SET DIR("?",2)="Enter INSERT to add additional lines after a selected line."
+9 SET DIR("?",3)="Enter DELETE to delete one or more lines."
+10 SET DIR("?",4)="Enter REPLACE to enter a new query definition."
+11 SET DIR("?")="^D HELP^FSCU(.DIR)"
+12 SET DIR("??")="FSC U1 NOIS"
+13 DO ^DIR
KILL DIR
+14 IF $DATA(DIRUT)
QUIT
+15 IF Y="EDIT"
DO EDIT^FSCLMPM
QUIT
+16 IF Y="INSERT"
DO INSERT^FSCLMPM
QUIT
+17 IF Y="DELETE"
DO DELETE^FSCLMPM
QUIT
+18 IF Y="REPLACE"
Begin DoDot:1
+19 ; not scoped
NEW CHOICE,CNT,DEF,DESC,LINE,NEWDEF,NEWLINE,OK,PREOP,QDESC
KILL DEF,DESC,NEWDEF,QDESC
+20 DO REPLACE^FSCLDR(FSCLNAME,FSCLNUM)
End DoDot:1
QUIT
+21 QUIT
