FSCUEDIT.m

FSCUEDIT ;SLC/STAFF-NOIS Utilities Edit ;1/17/98  17:13

 ;;1.1;NOIS;;Sep 06, 1998

 ;

FILES ; from FSCOPT

 N DIR,FILE,X,Y K DIR

 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"

 S DIR("?",1)="Enter the file you wish to review."

 S DIR("?")="^D HELP^FSCU(.DIR)"

 S DIR("??")="FSC U1 NOIS"

 W !,"These are files you can review (editing only by supervisors).",!

 S DIR("A",1)="          Call"

 S DIR("A",2)="          Format"

 S DIR("A",3)="          Functional Area"

 S DIR("A",4)="          List"

 S DIR("A",5)="          Module"

 S DIR("A",6)="          Office"

 S DIR("A",7)="          Package"

 S DIR("A",8)="          Parameter"

 S DIR("A",9)="          Reports"

 S DIR("A",10)="          Site"

 S DIR("A",11)="          Specialist"

 S DIR("A",12)="          Status History"

 S DIR("A",13)="          Subcomponent"

 S DIR("A",14)="          Task"

 S DIR("A",15)="          Workload"

 S DIR("A",16)=""

 S DIR("A")="Select file: "

 D ^DIR K DIR

 I $D(DIRUT) Q

 I '$L(Y) Q

 S FILE=Y

 N DIR,X,Y K DIR

 S DIR(0)="SAMO^PRINT:PRINT;SEARCH:SEARCH;INQUIRE:INQUIRE"

 S DIR("A")="Select (P)rint, (S)earch, (I)nquire"_$S($$ACCESS^FSCU(DUZ,"SUPER"):"/Edit",1:"")_": "

 S DIR("?",1)="Enter PRINT to print the file."

 S DIR("?",2)="Enter SEARCH the file."

 S DIR("?",3)="Enter INQUIRE to inquire on the file."

 S DIR("?")="^D HELP^FSCU(.DIR)"

 S DIR("??")="FSC U1 NOIS"

 D ^DIR K DIR

 I $D(DIRUT) Q

 I '$L(Y) Q

 I Y="PRINT" D PRINT(FILE) Q

 I Y="SEARCH" D SEARCH(FILE) Q

 I Y="INQUIRE" D INQUIRE(FILE) Q

 Q

 ;

PRINT(FILE) ;

 N DIC,L

 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)

 D EN1^DIP

 Q

 ;

SEARCH(FILE) ;

 N DIC

 S DIC=$S(FILE="CALL":"^FSCD(""CALL"",",FILE="WORK":"^FSCD(""WKLD"",",FILE="STATUS":"^FSCD(""STATUS HIST"",",FILE="OFFICE":"^FSC(""ISC"",",1:"^FSC("""_FILE_""",")

 D EN^DIS

 Q

 ;

INQUIRE(FILE) ;

 N CONTINUE S CONTINUE=1

 I FILE="OFFICE" S FILE="ISC"

 F  D  I 'CONTINUE Q

 .N ENTRY,DR,OK

 .W ! D LOOKUP^FSCULOOK(FILE,.ENTRY,$S($$ACCESS^FSCU(DUZ,"SUPER"):"AELMOQ",1:"AEMOQ"),.OK)

 .I 'OK S CONTINUE=0 Q

 .D SHOW(FILE,+ENTRY,.OK)

 .I FILE="SITE",DUZ=$P(^FSC("SITE",+ENTRY,0),U,6) D EDIT(FILE,+ENTRY,"3:5.4",.OK) Q

 .I '$$ACCESS^FSCU(DUZ,"SUPER") D PAUSE^FSCU(.OK) Q

 .I FILE="CALL" W !!,"NOIS calls should be edited using other options." H 2 Q

 .I FILE="WORK" W !!,"NOIS workload should be edited using other options." H 2 Q

 .I FILE="STATUS" W !!,"NOIS Status History should be edited using other options." H 2 Q

 .S DR=".01R;.02:999"

 .I FILE="PARAM" S DR="100:101;8"

 .D EDIT(FILE,+ENTRY,DR,.OK)

 Q

 ;

EDIT(FILE,DA,DR,OK) ;

 N DIE,GBL S OK=1

 D FILE(FILE,DA,.DIE,.GBL,.OK)

 I 'OK Q

 L +@GBL:30 I '$T W !,"Unable to edit." Q

 D ^DIE

 L -@GBL

 Q

 ;

FILE(FILE,ENTRY,DIE,GBL,OK) ;

 S OK=0

 I '$D(^FSC(FILE,0)) Q

 S DIE="^FSC("""_FILE_""",",GBL=DIE_ENTRY_")",OK=1

 Q

 ;

SHOW(FILE,DA,OK) ;

 N DIC

 S OK=0

 S DIC=$S(FILE="CALL":"^FSCD(""CALL"",",FILE="WORK":"^FSCD(""WKLD"",",FILE="STATUS":"^FSCD(""STATUS HIST"",",FILE="OFFICE":"^FSC(""ISC"",",1:"^FSC("""_FILE_""",")

 I '$D(@(DIC_"0)")) Q

 D EN^DIQ S OK=1

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FSCUEDIT   3379     printed  Apr 09, 2024@21:22:38                                                                                                                                                                                                    Page 2

FSCUEDIT  ;SLC/STAFF-NOIS Utilities Edit ;1/17/98  17:13

 +1       ;;1.1;NOIS;;Sep 06, 1998

 +2       ;

FILES     ; from FSCOPT

 +1        NEW DIR,FILE,X,Y

           KILL DIR

 +2        SET 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"

 +3        SET DIR("?",1)="Enter the file you wish to review."

 +4        SET DIR("?")="^D HELP^FSCU(.DIR)"

 +5        SET DIR("??")="FSC U1 NOIS"

 +6        WRITE !,"These are files you can review (editing only by supervisors).",!

 +7        SET DIR("A",1)="          Call"

 +8        SET DIR("A",2)="          Format"

 +9        SET DIR("A",3)="          Functional Area"

 +10       SET DIR("A",4)="          List"

 +11       SET DIR("A",5)="          Module"

 +12       SET DIR("A",6)="          Office"

 +13       SET DIR("A",7)="          Package"

 +14       SET DIR("A",8)="          Parameter"

 +15       SET DIR("A",9)="          Reports"

 +16       SET DIR("A",10)="          Site"

 +17       SET DIR("A",11)="          Specialist"

 +18       SET DIR("A",12)="          Status History"

 +19       SET DIR("A",13)="          Subcomponent"

 +20       SET DIR("A",14)="          Task"

 +21       SET DIR("A",15)="          Workload"

 +22       SET DIR("A",16)=""

 +23       SET DIR("A")="Select file: "

 +24       DO ^DIR

           KILL DIR

 +25       IF $DATA(DIRUT)

               QUIT 

 +26       IF '$LENGTH(Y)

               QUIT 

 +27       SET FILE=Y

 +28       NEW DIR,X,Y

           KILL DIR

 +29       SET DIR(0)="SAMO^PRINT:PRINT;SEARCH:SEARCH;INQUIRE:INQUIRE"

 +30       SET DIR("A")="Select (P)rint, (S)earch, (I)nquire"_$SELECT($$ACCESS^FSCU(DUZ,"SUPER"):"/Edit",1:"")_": "

 +31       SET DIR("?",1)="Enter PRINT to print the file."

 +32       SET DIR("?",2)="Enter SEARCH the file."

 +33       SET DIR("?",3)="Enter INQUIRE to inquire on the file."

 +34       SET DIR("?")="^D HELP^FSCU(.DIR)"

 +35       SET DIR("??")="FSC U1 NOIS"

 +36       DO ^DIR

           KILL DIR

 +37       IF $DATA(DIRUT)

               QUIT 

 +38       IF '$LENGTH(Y)

               QUIT 

 +39       IF Y="PRINT"

               DO PRINT(FILE)

               QUIT 

 +40       IF Y="SEARCH"

               DO SEARCH(FILE)

               QUIT 

 +41       IF Y="INQUIRE"

               DO INQUIRE(FILE)

               QUIT 

 +42       QUIT 

 +43      ;

PRINT(FILE) ;

 +1        NEW DIC,L

 +2        SET DIC=$SELECT(FILE="CALL":"^FSCD(""CALL"",",FILE="WORK":"^FSCD(""WKLD"",",FILE="STATUS":"^FSCD(""STATUS HIST"",",FILE="OFFICE":"^FSC(""ISC"",",1:"^FSC("""_FILE_""",")

           SET L="LIST "_$PIECE(@(DIC_"0)"),U)

 +3        DO EN1^DIP

 +4        QUIT 

 +5       ;

SEARCH(FILE) ;

 +1        NEW DIC

 +2        SET DIC=$SELECT(FILE="CALL":"^FSCD(""CALL"",",FILE="WORK":"^FSCD(""WKLD"",",FILE="STATUS":"^FSCD(""STATUS HIST"",",FILE="OFFICE":"^FSC(""ISC"",",1:"^FSC("""_FILE_""",")

 +3        DO EN^DIS

 +4        QUIT 

 +5       ;

INQUIRE(FILE) ;

 +1        NEW CONTINUE

           SET CONTINUE=1

 +2        IF FILE="OFFICE"

               SET FILE="ISC"

 +3        FOR 

               Begin DoDot:1

 +4                NEW ENTRY,DR,OK

 +5                WRITE !

                   DO LOOKUP^FSCULOOK(FILE,.ENTRY,$SELECT($$ACCESS^FSCU(DUZ,"SUPER"):"AELMOQ",1:"AEMOQ"),.OK)

 +6                IF 'OK

                       SET CONTINUE=0

                       QUIT 

 +7                DO SHOW(FILE,+ENTRY,.OK)

 +8                IF FILE="SITE"

                       IF DUZ=$PIECE(^FSC("SITE",+ENTRY,0),U,6)

                           DO EDIT(FILE,+ENTRY,"3:5.4",.OK)

                           QUIT 

 +9                IF '$$ACCESS^FSCU(DUZ,"SUPER")

                       DO PAUSE^FSCU(.OK)

                       QUIT 

 +10               IF FILE="CALL"

                       WRITE !!,"NOIS calls should be edited using other options."

                       HANG 2

                       QUIT 

 +11               IF FILE="WORK"

                       WRITE !!,"NOIS workload should be edited using other options."

                       HANG 2

                       QUIT 

 +12               IF FILE="STATUS"

                       WRITE !!,"NOIS Status History should be edited using other options."

                       HANG 2

                       QUIT 

 +13               SET DR=".01R;.02:999"

 +14               IF FILE="PARAM"

                       SET DR="100:101;8"

 +15               DO EDIT(FILE,+ENTRY,DR,.OK)

               End DoDot:1

               IF 'CONTINUE

                   QUIT 

 +16       QUIT 

 +17      ;

EDIT(FILE,DA,DR,OK) ;

 +1        NEW DIE,GBL

           SET OK=1

 +2        DO FILE(FILE,DA,.DIE,.GBL,.OK)

 +3        IF 'OK

               QUIT 

 +4        LOCK +@GBL:30

           IF '$TEST

               WRITE !,"Unable to edit."

               QUIT 

 +5        DO ^DIE

 +6        LOCK -@GBL

 +7        QUIT 

 +8       ;

FILE(FILE,ENTRY,DIE,GBL,OK) ;

 +1        SET OK=0

 +2        IF '$DATA(^FSC(FILE,0))

               QUIT 

 +3        SET DIE="^FSC("""_FILE_""","

           SET GBL=DIE_ENTRY_")"

           SET OK=1

 +4        QUIT 

 +5       ;

SHOW(FILE,DA,OK) ;

 +1        NEW DIC

 +2        SET OK=0

 +3        SET DIC=$SELECT(FILE="CALL":"^FSCD(""CALL"",",FILE="WORK":"^FSCD(""WKLD"",",FILE="STATUS":"^FSCD(""STATUS HIST"",",FILE="OFFICE":"^FSC(""ISC"",",1:"^FSC("""_FILE_""",")

 +4        IF '$DATA(@(DIC_"0)"))

               QUIT 

 +5        DO EN^DIQ

           SET OK=1

 +6        QUIT