source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCLMPD.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1FSCLMPD ;SLC/STAFF-NOIS List Manager Protocol Display ;1/11/98 18:35
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4LC ; 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 ;
14LIST ; 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 ;
22ASKLIST ; 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
Note: See TracBrowser for help on using the repository browser.