Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCLDR

FSCLDR.m

Go to the documentation of this file.
  1. FSCLDR ;SLC/STAFF-NOIS List Definition Replace ;9/6/98 20:49
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. RALL ; from FSCLMP
  1. I '$$CHECK^FSCLMPM(FSCLNUM,DUZ) W !,"You cannot edit this list.",$C(7) H 2 Q
  1. N LISTNAME,LISTNUM,LISTTYPE,NAME,NOTFLAG,OK,OWNER,ZERO
  1. S LISTNAME=FSCLNAME,LISTNUM=FSCLNUM
  1. S ZERO=^FSC("LIST",LISTNUM,0)
  1. S LISTTYPE=$P(ZERO,U,3) I '$L(LISTTYPE) S LISTTYPE="S"
  1. I "AMS"'[LISTTYPE W !,"You cannot edit this list.",$C(7) H 2 Q
  1. D NAME^FSCMU(LISTNAME,.NAME,.OK) I 'OK Q
  1. I NAME="@" D DELETE(LISTNAME,LISTNUM) Q
  1. D OWNER^FSCMU(+$P(ZERO,U,2),.OWNER,.OK) I 'OK Q
  1. D
  1. .N DIR,X,Y K DIR
  1. .I LISTTYPE="A" D Q
  1. ..S DIR(0)="YAO",DIR("A")="Change type from Active to Manual update? ",DIR("B")="NO"
  1. ..S DIR("?",1)="Enter YES to change the list type."
  1. ..S DIR("?",2)="Enter NO or '^' to not change the type."
  1. ..S DIR("?")="^D HELP^FSCU(.DIR)"
  1. ..S DIR("??")="FSC U 1 NOIS"
  1. ..D ^DIR K DIR
  1. ..I Y=1 S LISTTYPE="M" D DELCALLS(LISTNUM)
  1. .I LISTTYPE="M" D Q
  1. ..S DIR(0)="YAO",DIR("A")="Change type from Manual to Active update? ",DIR("B")="NO"
  1. ..S DIR("?",1)="Enter YES to change the list type."
  1. ..S DIR("?",2)="Enter NO or '^' to not change the type."
  1. ..S DIR("?")="^D HELP^FSCU(.DIR)"
  1. ..S DIR("??")="FSC U 1 NOIS"
  1. ..D ^DIR K DIR
  1. ..I Y=1 S FSCQEDIT=1,LISTTYPE="A"
  1. S NOTFLAG=$S($L($P(ZERO,U,6))&$L($P(ZERO,U,7)):1,1:0)
  1. N DA,DIE,DR S DIE="^FSC(""LIST"",",DA=LISTNUM,DR=".01///"_NAME_$S($L(OWNER):";1///"_OWNER,1:"")_";2///"_LISTTYPE_$S(LISTTYPE="A":";5;6;7",1:";5///@;6///@;7///@")_";200"
  1. L +^FSC("LIST",LISTNUM):30 I '$T D UNABLE Q
  1. D ^DIE
  1. L -^FSC("LIST",LISTNUM)
  1. I NOTFLAG,'$L($P(^FSC("LIST",LISTNUM,0),U,6))!'$L($P(^(0),U,7)) D DELNOT(LISTNUM)
  1. I $D(VALMAR) D ENTRY^FSCLMM,HEADER^FSCLMM
  1. S FSCLNAME=NAME,FSCLNUM=LISTNUM
  1. Q
  1. ;
  1. DELETE(LISTNAME,LISTNUM) ; from FSCLMPM
  1. N DA,DIE,DIK,DR,SPEC
  1. D DELCALLS(LISTNUM)
  1. S DIE=7105.2,DR="9///@"
  1. S SPEC=0 F S SPEC=$O(^FSC("SPEC","AL",LISTNUM,SPEC)) Q:SPEC<1 D
  1. .S DA=SPEC
  1. .L +^FSC("SPEC",SPEC):30 I '$T D UNABLE Q
  1. .D ^DIE
  1. .L -^FSC("SPEC",SPEC)
  1. .W !,"Deleted default list of ",$$VALUE^FSCGET(SPEC,7105.2,.01)
  1. D DELNOT(LISTNUM)
  1. D DELMRU(LISTNUM)
  1. S DA=LISTNUM,DIK="^FSC(""LIST""," D ^DIK
  1. W !,LISTNAME," deleted." H 2
  1. S VALMBCK="Q",FSCEXIT=1 ; exit from list manager after deleting a list
  1. Q
  1. ;
  1. DELCALLS(LISTNUM) ;
  1. N CALL,LISTSNUM
  1. W ! S CALL=0 F S CALL=$O(^FSCD("LISTS","ALC",LISTNUM,CALL)) Q:CALL<1 S LISTSNUM=+$O(^(CALL,0)) I LISTSNUM D DELETE^FSCLMPS(LISTSNUM) W "."
  1. Q
  1. ;
  1. DELNOT(LISTNUM) ;
  1. N DA,DIK,NOTIFY
  1. W !,"Deleting notifications for this list."
  1. S DIK="^FSCD(""NOTIFY"","
  1. S NOTIFY=0 F S NOTIFY=$O(^FSCD("NOTIFY","ALIST",LISTNUM,NOTIFY)) Q:NOTIFY<1 D
  1. .W "." S DA=NOTIFY
  1. .L +^FSCD("NOTIFY",NOTIFY):30 I '$T D UNABLE Q
  1. .D ^DIK
  1. .L -^FSCD("NOTIFY",NOTIFY)
  1. Q
  1. ;
  1. DELMRU(LISTNUM) ; from FSCRPCLO
  1. N NUM
  1. S NUM=0 F S NUM=$O(^FSCD("MRU","AL",LISTNUM,NUM)) Q:NUM<1 D DEL^FSCUCD("^FSCD(""MRU"",",NUM)
  1. Q
  1. ;
  1. REPLACE(LISTNAME,LISTNUM) ; from FSCLMPE, FSCLMPM
  1. ; not scoped
  1. W !,"Reenter a query definition for ",LISTNAME,!
  1. D ADD^FSCLMPM(0,"ADD")
  1. Q
  1. ;
  1. UNABLE ;
  1. W !,"Unable to edit."
  1. Q