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

FSCUEDS.m

Go to the documentation of this file.
  1. FSCUEDS ;SLC/STAFF-NOIS Utilities Edit Schedules ;7/12/95 14:36
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. FILES ; from FSCOPT
  1. N DIR,FILE,X,Y K DIR
  1. S DIR(0)="SAMO^SCHEDULES:SCHEDULES;EVENTS:EVENTS;RECURRING EVENTS:RECURRING EVENTS"
  1. S DIR("?",1)="Enter the file you wish to review."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. W !,"These are files you can review.",!
  1. S DIR("A",1)=" Schedule"
  1. S DIR("A",2)=" Events"
  1. S DIR("A",3)=" Recurring Events"
  1. S DIR("A",4)=""
  1. S DIR("A")="Select file: "
  1. D ^DIR K DIR
  1. I $D(DIRUT) Q
  1. I '$L(Y) Q
  1. S FILE=Y
  1. N DIR,TRAN,X,Y K DIR
  1. S TRAN=0 I FILE["EVENT",$$ACCESS^FSCU(DUZ,"SUPER") S TRAN=1
  1. S DIR(0)="SAMO^PRINT:PRINT;SEARCH:SEARCH;INQUIRE:INQUIRE"_$S(TRAN:";TRANSFER:TRANSFER;DELETE:DELETE",1:"")
  1. S DIR("A")="Select (P)rint, (S)earch, (I)nquire/Edit"_$S(TRAN:", (T)ransfer, (D)elete",1:"")_": "
  1. S DIR("?",1)="Enter PRINT to print the file."
  1. S DIR("?",2)="Enter SEARCH the file."
  1. S DIR("?",3)="Enter INQUIRE to inquire on the file."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I $D(DIRUT) Q
  1. I '$L(Y) Q
  1. I Y="PRINT" D PRINT(FILE) Q
  1. I Y="SEARCH" D SEARCH(FILE) Q
  1. I Y="INQUIRE" D Q
  1. .I '$$ACCESS^FSCU(DUZ,"SUPER") D
  1. ..N DIR,X,Y K DIR
  1. ..S DIR(0)="SAMO^INQUIRE:INQUIRE;NEW:NEW"
  1. ..S DIR("A")="Select (I)nquire/Edit or (N)ew: "
  1. ..S DIR("B")="INQUIRE"
  1. ..S DIR("?",1)="Enter INQUIRE to inquire on the file."
  1. ..S DIR("?",2)="Enter NEW to make a new entry."
  1. ..S DIR("?")="^D HELP^FSCU(.DIR)"
  1. ..S DIR("??")="FSC U1 NOIS"
  1. ..D ^DIR K DIR
  1. ..I $D(DIRUT) Q
  1. ..I '$L(Y) Q
  1. ..I Y="INQUIRE" D INQUIRE(FILE) Q
  1. ..I Y="NEW" D NEW Q
  1. .E D INQUIRE(FILE) Q
  1. I Y="TRANSFER" D ADD^FSCEVENT Q
  1. I Y="DELETE" D DEL^FSCEVENT Q
  1. Q
  1. ;
  1. NEW ;
  1. N DIR,END,START,X,Y K DIR
  1. S START=$E(DT,1,3)-1_"0101",END=$E(DT,1,3)+1_"1201"
  1. S DIR(0)="DAO^"_START_":"_END_":EX"
  1. S DIR("?",1)="Enter the schedule date."
  1. S DIR("?")="^D HELP^%DTC,HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. S DIR("A")="Select Date: "
  1. D ^DIR K DIR
  1. I $D(DIRUT) Q
  1. I '$L(Y) Q
  1. S X=Y
  1. N DIC,DO,Y K DIC,DO,Y
  1. S DIC="^FSCD(""SCHEDULE"",",DIC(0)="AEMQL",DIC("DR")="1///^S X=DUZ;2:999"
  1. D FILE^DICN K DIC,Y
  1. Q
  1. ;
  1. PRINT(FILE) ;
  1. N DIC,L
  1. I FILE="SCHEDULES" S DIC="^FSCD(""SCHEDULE"","
  1. I FILE="EVENTS" S DIC="^FSCD(""EVENTS"","
  1. I FILE="RECURRING EVENTS" S DIC="^FSC(""REVENT"","
  1. S L="LIST "_$P(@(DIC_"0)"),U)
  1. D EN1^DIP
  1. Q
  1. ;
  1. N DIC
  1. I FILE="SCHEDULES" S DIC="^FSCD(""SCHEDULE"","
  1. I FILE="EVENTS" S DIC="^FSCD(""EVENTS"","
  1. I FILE="RECURRING EVENTS" S DIC="^FSC(""REVENT"","
  1. D EN^DIS
  1. Q
  1. ;
  1. INQUIRE(FILE) ;
  1. N CONTINUE,DIC K DIC S CONTINUE=1
  1. I FILE="SCHEDULES" S DIC="^FSCD(""SCHEDULE"",",DIC(0)="AEMQ",DIC("S")="I $P(^(0),U,2)=DUZ!$$ACCESS^FSCU(DUZ,""SUPER"")"
  1. I FILE="EVENTS" S DIC="^FSCD(""EVENTS"",",DIC(0)="AEMQ"
  1. I FILE="RECURRING EVENTS" S DIC="^FSC(""REVENT"",",DIC(0)="AEMQ"
  1. I DIC(0)'["L",$$ACCESS^FSCU(DUZ,"SUPER") S DIC(0)=DIC(0)_"L"
  1. N ZERODIC S ZERODIC=DIC(0)
  1. F D I 'CONTINUE Q
  1. .N ENTRY,EDIT,DR,OK
  1. .S DIC(0)=ZERODIC
  1. .S OK=1 W ! D ^DIC I Y<1 S OK=0
  1. .I 'OK S CONTINUE=0 Q
  1. .S ENTRY=Y,EDIT=DIC
  1. .D SHOW(EDIT,+ENTRY,.OK)
  1. .I '$$ACCESS^FSCU(DUZ,"SUPER"),DIC["EVENT" D PAUSE^FSCU(.OK) Q
  1. .S DR=".01:999"
  1. .I DIC["SCHEDULE",'$$ACCESS^FSCU(DUZ,"SUPER") S DR=".01;2:999"
  1. .D EDIT(EDIT,+ENTRY,DR,.OK)
  1. Q
  1. EDIT(EDIT,DA,DR,OK) ;
  1. N DIE,GBL S OK=1
  1. D FILE(EDIT,DA,.DIE,.GBL,.OK)
  1. I 'OK Q
  1. L +@GBL:30 I '$T W !,"Unable to edit." Q
  1. D ^DIE
  1. L -@GBL
  1. Q
  1. ;
  1. FILE(DIC,ENTRY,DIE,GBL,OK) ;
  1. S OK=0
  1. I '$D(@(DIC_"0)")) Q
  1. S DIE=DIC,GBL=DIE_ENTRY_")",OK=1
  1. Q
  1. ;
  1. SHOW(DIC,DA,OK) ;
  1. S OK=0
  1. I '$D(@(DIC_"0)")) Q
  1. D EN^DIQ S OK=1
  1. Q