| 1 | FSCSTUP ;SLC/STAFF-NOIS Site Tracking Update Reporting ;11/15/97 20:56
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | PATCH ; 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 | ;
|
|---|
| 36 | SITE ;
|
|---|
| 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 | ;
|
|---|
| 42 | ALL ;
|
|---|
| 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 | ;
|
|---|
| 49 | PACK ;
|
|---|
| 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 | ;
|
|---|
| 56 | SITENOT ;
|
|---|
| 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 | ;
|
|---|
| 62 | ALLNOT ;
|
|---|
| 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 | ;
|
|---|
| 68 | PACKNOT ;
|
|---|
| 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 | ;
|
|---|
| 75 | TEST ;
|
|---|
| 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 | ;
|
|---|
| 81 | TESTSITE ;
|
|---|
| 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 | ;
|
|---|
| 87 | TESTPACK ;
|
|---|
| 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 | ;
|
|---|
| 93 | PATCHES(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 | ;
|
|---|
| 110 | MOD(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
|
|---|
