source: FOIAVistA/trunk/r/NOIS-FSC/FSCSTUP.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: 3.0 KB
Line 
1FSCSTUP ;SLC/STAFF-NOIS Site Tracking Update Reporting ;11/15/97 20:56
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4PATCH ; from FSCLMP
5 N DIR,X,Y K DIR
6 W !!,"******* VALID for patches verified since 1/1/98 **********"
7 W !!,"Choose method of reviewing PATCH installs"
8 W !,"Installed:"
9 W !?5,"1) Sites that have a patch installed"
10 W !?5,"2) All patches installed at a site"
11 W !?5,"3) Patches installed at a site for a package"
12 W !!,"Not installed:"
13 W !?5,"4) Sites that do not have a patch installed"
14 W !?5,"5) All patches not installed at a site"
15 W !?5,"6) Patches not installed at a site for a package"
16 W !!,"Patches being tested:"
17 W !?5,"7) Test patches installed"
18 W !?5,"8) Test patches installed at a site"
19 W !?5,"9) Test patches installed for a package"
20 S DIR(0)="NOA^1:9:0",DIR("A")="Select number: "
21 S DIR("?",1)="Enter the number of the selection."
22 S DIR("??")="FSC U1 NOIS"
23 D ^DIR K DIR
24 I $D(DIRUT) Q
25 I Y=1 D SITE Q
26 I Y=2 D ALL Q
27 I Y=3 D PACK Q
28 I Y=4 D SITENOT Q
29 I Y=5 D ALLNOT Q
30 I Y=6 D PACKNOT Q
31 I Y=7 D TEST Q
32 I Y=8 D TESTSITE Q
33 I Y=9 D TESTPACK Q
34 Q
35 ;
36SITE ;
37 N OK,PATCH
38 D PATCHES(.PATCH,"V",.OK) I 'OK Q
39 S FSCSTU="PATCH SITE" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
40 Q
41 ;
42ALL ;
43 N DATE,OK,SITE
44 D SITES^FSCSTUR(.SITE,.OK) I 'OK Q
45 D DATE^FSCSTUR(.DATE,.OK) I 'OK Q
46 S FSCSTU="PATCH ALL" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
47 Q
48 ;
49PACK ;
50 N MODULE,OK,SITE
51 D SITES^FSCSTUR(.SITE,.OK) I 'OK Q
52 D MOD(.MODULE,.OK) I 'OK Q
53 S FSCSTU="PATCH PACK" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
54 Q
55 ;
56SITENOT ;
57 N OK,PATCH
58 D PATCHES(.PATCH,"V",.OK) I 'OK Q
59 S FSCSTU="PATCH SITENOT" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
60 Q
61 ;
62ALLNOT ;
63 N OK,SITE
64 D SITES^FSCSTUR(.SITE,.OK) I 'OK Q
65 S FSCSTU="PATCH ALLNOT" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
66 Q
67 ;
68PACKNOT ;
69 N MODULE,OK,SITE
70 D SITES^FSCSTUR(.SITE,.OK) I 'OK Q
71 D MOD(.MODULE,.OK) I 'OK Q
72 S FSCSTU="PATCH PACKNOT" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
73 Q
74 ;
75TEST ;
76 N OK,PATCH
77 D PATCHES(.PATCH,"N",.OK) I 'OK Q
78 S FSCSTU="PATCH TEST" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
79 Q
80 ;
81TESTSITE ;
82 N OK,SITE
83 D SITES^FSCSTUR(.SITE,.OK) I 'OK Q
84 S FSCSTU="PATCH TESTSITE" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
85 Q
86 ;
87TESTPACK ;
88 N MODULE,OK
89 D MOD(.MODULE,.OK) I 'OK Q
90 S FSCSTU="PATCH TESTPACK" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
91 Q
92 ;
93PATCHES(PATCH,VERIFY,OK) ;
94 S OK=0
95 N DIC,X,Y K DIC
96 S DIC=11005,DIC(0)="AEMOQ",DIC("A")="Select Patch: "
97 I VERIFY="V" D
98 .S DIC("S")="I $P(^(0),U,11),$D(^NTS(2050.2,""B"",+Y))"
99 .W !,"Only patches that are verified and tracked can be selected."
100 I VERIFY="N" D
101 .S DIC("S")="I '$P(^(0),U,11),$D(^NTS(2050.2,""B"",+Y))"
102 .W !,"Only patches that are not verified and tracked can be selected."
103 F D ^DIC Q:Y<1 Q:$D(^NTS(2050.2,"B",+Y)) W !,"This patch has no tracking information."
104 K DIC I Y<1 Q
105 S PATCH=+Y,OK=1
106 I $P(^A1AE(11005,PATCH,0),U,8)="e" D
107 .W !,"This patch was Entered in Error." H 2
108 Q
109 ;
110MOD(MODULE,OK) ;
111 S OK=0
112 N DIR,Y K DIR
113 S DIR(0)="PAO^7105.4:EM",DIR("A")="Module: "
114 S DIR("?",1)="Enter the module/version# to review."
115 S DIR("?")="^D HELP^FSCU(.DIR)"
116 S DIR("??")="FSC U1 NOIS"
117 D ^DIR K DIR
118 I $D(DIRUT) Q
119 S MODULE=+Y,OK=1
120 Q
Note: See TracBrowser for help on using the repository browser.