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")
Q
;
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
Q
;
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCLMPD 1203 printed Nov 22, 2024@17:28:13 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
