Routine: FSCLMPD

FSCLMPD ;SLC/STAFF-NOIS List Manager Protocol Display ;1/11/98  18:35

 ;;1.1;NOIS;;Sep 06, 1998

LC ; from FSCLMP

 I '@VALMAR W !,"No calls to View." H 2 Q

 N CHOICE,DEFAULT,FIELD,FORMAT,OK

 S CHOICE="1-"_+@VALMAR,DEFAULT=CHOICE D SELECT^FSCUL(CHOICE,"",DEFAULT,"VVALUES",.OK) I OK D

 .S FORMAT="",OK=1 D EXPAND^FSCUX(.FORMAT,.OK,$$VFORMAT^FSCUF(DUZ)) I OK D

 ..K FSCSTYLE S FSCSTYLE=$$STYLE^FSCU(FORMAT),FIELD="" F  S FIELD=$O(FORMAT(FIELD)) Q:FIELD=""  S FSCSTYLE(FIELD)=FORMAT(FIELD)

 ..D VIEW^FSCLM(VALMAR,"VVALUES",.FSCSTYLE)

 S VALMBCK=$S($G(FSCEXIT):"Q",1:"R")

LIST ; from FSCLMP

 I '$$CHECK^FSCLMPM(FSCLNUM,DUZ) W !,"You cannot update this list.",$C(7) H 2 Q

 I $P(^FSC("LIST",FSCLNUM,0),U,3)'="A" W !,"You cannot update this type of list.",$C(7) H 2 Q

 W !,"Upating ",FSCLNAME,!

 D UPDATE^FSCLP(,FSCLNUM)

 K FSCQEDIT

ASKLIST ; from FSCLMPC, FSCLMPO

 N DIR,X,Y K DIR,FSCQEDIT

 S DIR(0)="YAO",DIR("A")="Do you want to rebuild this list? ",DIR("B")="YES"

 S DIR("?",1)="Enter YES to rebuild this list."

 S DIR("?",2)="Enter NO or '^' to leave the list alone."

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

 S DIR("??")="FSC U 1 NOIS"

 D ^DIR K DIR

 I Y=1 D LIST

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCLMPD   1203     printed  Apr 09, 2024@21:23:35                                                                                                                                                                                                     Page 2

FSCLMPD   ;SLC/STAFF-NOIS List Manager Protocol Display ;1/11/98  18:35

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

 +2       ;

LC        ; from FSCLMP

 +1        IF '@VALMAR

               WRITE !,"No calls to View."

               HANG 2

               QUIT

 +2        NEW CHOICE,DEFAULT,FIELD,FORMAT,OK

 +3        SET CHOICE="1-"_+@VALMAR

           SET DEFAULT=CHOICE

           DO SELECT^FSCUL(CHOICE,"",DEFAULT,"VVALUES",.OK)

           IF OK

               Begin DoDot:1

 +4                SET FORMAT=""

                   SET OK=1

                   DO EXPAND^FSCUX(.FORMAT,.OK,$$VFORMAT^FSCUF(DUZ))

                   IF OK

                       Begin DoDot:2

 +5                        KILL FSCSTYLE

                           SET FSCSTYLE=$$STYLE^FSCU(FORMAT)

                           SET FIELD=""

FOR

                               SET FIELD=$ORDER(FORMAT(FIELD))

                               if FIELD=""

                                   QUIT

                               SET FSCSTYLE(FIELD)=FORMAT(FIELD)

 +6                        DO VIEW^FSCLM(VALMAR,"VVALUES",.FSCSTYLE)

                       End DoDot:2

               End DoDot:1

 +7        SET VALMBCK=$SELECT($GET(FSCEXIT):"Q",1:"R")

 +8        QUIT

 +9       ;

LIST      ; from FSCLMP

 +1        IF '$$CHECK^FSCLMPM(FSCLNUM,DUZ)

               WRITE !,"You cannot update this list.",$CHAR(7)

               HANG 2

               QUIT

 +2        IF $PIECE(^FSC("LIST",FSCLNUM,0),U,3)'="A"

               WRITE !,"You cannot update this type of list.",$CHAR(7)

               HANG 2

               QUIT

 +3        WRITE !,"Upating ",FSCLNAME,!

 +4        DO UPDATE^FSCLP(,FSCLNUM)

 +5        KILL FSCQEDIT

 +6        QUIT

 +7       ;

ASKLIST   ; from FSCLMPC, FSCLMPO

 +1        NEW DIR,X,Y

           KILL DIR,FSCQEDIT

 +2        SET DIR(0)="YAO"

           SET DIR("A")="Do you want to rebuild this list? "

           SET DIR("B")="YES"

 +3        SET DIR("?",1)="Enter YES to rebuild this list."

 +4        SET DIR("?",2)="Enter NO or '^' to leave the list alone."

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

 +6        SET DIR("??")="FSC U 1 NOIS"

 +7        DO ^DIR

           KILL DIR

 +8        IF Y=1

               DO LIST

 +9        QUIT

FSCLMPD.m