source: FOIAVistA/trunk/r/NOIS-FSC/FSCSTUR.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 2.2 KB
Line 
1FSCSTUR ;SLC/STAFF-NOIS Site Tracking Update Reporting ;9/6/98 22:12
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4PACK ; from FSCLMP
5 N DIR,X,Y K DIR
6 W !!,"Choose method of reviewing package installs"
7 W !,"1) All packages installed"
8 W !,"2) Sites that have installed a package"
9 W !,"3) Packages installed at a site"
10 S DIR(0)="NOA^1:3:0",DIR("A")="Select number: "
11 S DIR("?",1)="Enter the number of the selection."
12 S DIR("??")="FSC U1 NOIS"
13 D ^DIR K DIR
14 I $D(DIRUT) Q
15 I Y=1 D ALL Q
16 I Y=2 D PACKAGE Q
17 I Y=3 D SITE Q
18 Q
19 ;
20ALERT ; from FSCSTU via alerts
21 S FSCSTU="ALERT" D INSTALLS^FSCLM
22 Q
23 ;
24IN ; from FSCLMP
25 I $G(VALMAR)["FSC INSTALLS" W !,"You are already using this option.",$C(7) H 2 Q
26 I $G(VALMAR)["FSC MODIFY LISTS" W !,"Unable to use this option from this screen.",$C(7) H 2 Q
27 S FSCSTU="" D INSTALLS^FSCLM
28 S VALMBCK=$S($G(FSCEXIT):"Q",1:"R")
29 Q
30 ;
31ALL ; from FSCLMP
32 N DATE,OK
33 D DATE(.DATE,.OK) I 'OK Q
34 S FSCSTU="ALL" D ENTRY^FSCLMI,HEADER^FSCLMI
35 Q
36 ;
37PACKAGE ; from FSCLMP
38 N DATE,OK,PACKAGE
39 D PACKS(.PACKAGE,.OK) I 'OK Q
40 D DATE(.DATE,.OK) I 'OK Q
41 S FSCSTU="PACKAGE" D ENTRY^FSCLMI,HEADER^FSCLMI
42 Q
43 ;
44SITE ; from FSCLMP
45 N DATE,OK,SITE
46 D SITES(.SITE,.OK) I 'OK Q
47 D DATE(.DATE,.OK) I 'OK Q
48 S FSCSTU="SITE" D ENTRY^FSCLMI,HEADER^FSCLMI
49 Q
50 ;
51DATE(DATE,OK) ; from FSCSTUP
52 N DIR,X,Y K DIR
53 S OK=1
54 S DIR(0)="DA^2900101:DT:EPX",DIR("A")="Display beginning date: " S DIR("B")="T-7"
55 S DIR("?",1)="Enter the date to display backto from today."
56 S DIR("?",2)="Enter '^' to exit or '??' for more help."
57 S DIR("?")="^D HELP^%DTC,HELP^FSCU(.DIR)"
58 S DIR("??")="FSC U1 NOIS"
59 D ^DIR K DIR
60 I $D(DIRUT) S OK=0 Q
61 S DATE=Y
62 Q
63 ;
64PACKS(PACKAGE,OK) ;
65 S OK=0
66 N DIR,Y K DIR
67 S DIR(0)="PAO^7105.5:EM",DIR("A")="Package: "
68 S DIR("?",1)="Enter the package to review."
69 S DIR("?")="^D HELP^FSCU(.DIR)"
70 S DIR("??")="FSC U1 NOIS"
71 D ^DIR K DIR
72 I $D(DIRUT) Q
73 S PACKAGE=+Y,OK=1
74 Q
75 ;
76SITES(SITE,OK) ; from FSCSTUP
77 S OK=0
78 N DIR,Y K DIR
79 S DIR(0)="PAO^7105.1:EM",DIR("A")="Site: "
80 S DIR("?",1)="Enter the site to review."
81 S DIR("?")="^D HELP^FSCU(.DIR)"
82 S DIR("??")="FSC U1 NOIS"
83 D ^DIR K DIR
84 I $D(DIRUT) Q
85 S SITE=+Y,OK=1
86 Q
87 ;
88XREF(USER) ; from dd 7105.2, 7105.241, 7105.242, 7105.243, 7105.244
89 S USER=+$G(USER),^FSC("SPEC","AX",USER)="" K ^FSC("SPEC","AU",USER)
90 Q
Note: See TracBrowser for help on using the repository browser.