| 1 | FSCLMPD ;SLC/STAFF-NOIS List Manager Protocol Display ;1/11/98 18:35
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | LC ; from FSCLMP
|
|---|
| 5 | I '@VALMAR W !,"No calls to View." H 2 Q
|
|---|
| 6 | N CHOICE,DEFAULT,FIELD,FORMAT,OK
|
|---|
| 7 | S CHOICE="1-"_+@VALMAR,DEFAULT=CHOICE D SELECT^FSCUL(CHOICE,"",DEFAULT,"VVALUES",.OK) I OK D
|
|---|
| 8 | .S FORMAT="",OK=1 D EXPAND^FSCUX(.FORMAT,.OK,$$VFORMAT^FSCUF(DUZ)) I OK D
|
|---|
| 9 | ..K FSCSTYLE S FSCSTYLE=$$STYLE^FSCU(FORMAT),FIELD="" F S FIELD=$O(FORMAT(FIELD)) Q:FIELD="" S FSCSTYLE(FIELD)=FORMAT(FIELD)
|
|---|
| 10 | ..D VIEW^FSCLM(VALMAR,"VVALUES",.FSCSTYLE)
|
|---|
| 11 | S VALMBCK=$S($G(FSCEXIT):"Q",1:"R")
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | LIST ; from FSCLMP
|
|---|
| 15 | I '$$CHECK^FSCLMPM(FSCLNUM,DUZ) W !,"You cannot update this list.",$C(7) H 2 Q
|
|---|
| 16 | I $P(^FSC("LIST",FSCLNUM,0),U,3)'="A" W !,"You cannot update this type of list.",$C(7) H 2 Q
|
|---|
| 17 | W !,"Upating ",FSCLNAME,!
|
|---|
| 18 | D UPDATE^FSCLP(,FSCLNUM)
|
|---|
| 19 | K FSCQEDIT
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | ASKLIST ; from FSCLMPC, FSCLMPO
|
|---|
| 23 | N DIR,X,Y K DIR,FSCQEDIT
|
|---|
| 24 | S DIR(0)="YAO",DIR("A")="Do you want to rebuild this list? ",DIR("B")="YES"
|
|---|
| 25 | S DIR("?",1)="Enter YES to rebuild this list."
|
|---|
| 26 | S DIR("?",2)="Enter NO or '^' to leave the list alone."
|
|---|
| 27 | S DIR("?")="^D HELP^FSCU(.DIR)"
|
|---|
| 28 | S DIR("??")="FSC U 1 NOIS"
|
|---|
| 29 | D ^DIR K DIR
|
|---|
| 30 | I Y=1 D LIST
|
|---|
| 31 | Q
|
|---|
