- 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 Dec 13, 2024@02:18:13 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