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

FSCUEDIT.m

Go to the documentation of this file.
  1. FSCUEDIT ;SLC/STAFF-NOIS Utilities Edit ;1/17/98 17:13
  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^CALL:CALL;FORMAT:FORMAT;FUNC:FUNC;OFFICE:OFFICE;LIST:LIST;MOD:MOD;PACK:PACK;PARAM:PARAM;RPT:RPT;SITE:SITE;SPEC:SPEC;STATUS:STATUS;SUB:SUB;TASK:TASK;WORK:WORK"
  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 (editing only by supervisors).",!
  1. S DIR("A",1)=" Call"
  1. S DIR("A",2)=" Format"
  1. S DIR("A",3)=" Functional Area"
  1. S DIR("A",4)=" List"
  1. S DIR("A",5)=" Module"
  1. S DIR("A",6)=" Office"
  1. S DIR("A",7)=" Package"
  1. S DIR("A",8)=" Parameter"
  1. S DIR("A",9)=" Reports"
  1. S DIR("A",10)=" Site"
  1. S DIR("A",11)=" Specialist"
  1. S DIR("A",12)=" Status History"
  1. S DIR("A",13)=" Subcomponent"
  1. S DIR("A",14)=" Task"
  1. S DIR("A",15)=" Workload"
  1. S DIR("A",16)=""
  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,X,Y K DIR
  1. S DIR(0)="SAMO^PRINT:PRINT;SEARCH:SEARCH;INQUIRE:INQUIRE"
  1. S DIR("A")="Select (P)rint, (S)earch, (I)nquire"_$S($$ACCESS^FSCU(DUZ,"SUPER"):"/Edit",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 INQUIRE(FILE) Q
  1. Q
  1. ;
  1. PRINT(FILE) ;
  1. N DIC,L
  1. S DIC=$S(FILE="CALL":"^FSCD(""CALL"",",FILE="WORK":"^FSCD(""WKLD"",",FILE="STATUS":"^FSCD(""STATUS HIST"",",FILE="OFFICE":"^FSC(""ISC"",",1:"^FSC("""_FILE_""","),L="LIST "_$P(@(DIC_"0)"),U)
  1. D EN1^DIP
  1. Q
  1. ;
  1. N DIC
  1. S DIC=$S(FILE="CALL":"^FSCD(""CALL"",",FILE="WORK":"^FSCD(""WKLD"",",FILE="STATUS":"^FSCD(""STATUS HIST"",",FILE="OFFICE":"^FSC(""ISC"",",1:"^FSC("""_FILE_""",")
  1. D EN^DIS
  1. Q
  1. ;
  1. INQUIRE(FILE) ;
  1. N CONTINUE S CONTINUE=1
  1. I FILE="OFFICE" S FILE="ISC"
  1. F D I 'CONTINUE Q
  1. .N ENTRY,DR,OK
  1. .W ! D LOOKUP^FSCULOOK(FILE,.ENTRY,$S($$ACCESS^FSCU(DUZ,"SUPER"):"AELMOQ",1:"AEMOQ"),.OK)
  1. .I 'OK S CONTINUE=0 Q
  1. .D SHOW(FILE,+ENTRY,.OK)
  1. .I FILE="SITE",DUZ=$P(^FSC("SITE",+ENTRY,0),U,6) D EDIT(FILE,+ENTRY,"3:5.4",.OK) Q
  1. .I '$$ACCESS^FSCU(DUZ,"SUPER") D PAUSE^FSCU(.OK) Q
  1. .I FILE="CALL" W !!,"NOIS calls should be edited using other options." H 2 Q
  1. .I FILE="WORK" W !!,"NOIS workload should be edited using other options." H 2 Q
  1. .I FILE="STATUS" W !!,"NOIS Status History should be edited using other options." H 2 Q
  1. .S DR=".01R;.02:999"
  1. .I FILE="PARAM" S DR="100:101;8"
  1. .D EDIT(FILE,+ENTRY,DR,.OK)
  1. Q
  1. ;
  1. EDIT(FILE,DA,DR,OK) ;
  1. N DIE,GBL S OK=1
  1. D FILE(FILE,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(FILE,ENTRY,DIE,GBL,OK) ;
  1. S OK=0
  1. I '$D(^FSC(FILE,0)) Q
  1. S DIE="^FSC("""_FILE_""",",GBL=DIE_ENTRY_")",OK=1
  1. Q
  1. ;
  1. SHOW(FILE,DA,OK) ;
  1. N DIC
  1. S OK=0
  1. S DIC=$S(FILE="CALL":"^FSCD(""CALL"",",FILE="WORK":"^FSCD(""WKLD"",",FILE="STATUS":"^FSCD(""STATUS HIST"",",FILE="OFFICE":"^FSC(""ISC"",",1:"^FSC("""_FILE_""",")
  1. I '$D(@(DIC_"0)")) Q
  1. D EN^DIQ S OK=1
  1. Q