FSCSTUP ;SLC/STAFF-NOIS Site Tracking Update Reporting ;11/15/97 20:56
;;1.1;NOIS;;Sep 06, 1998
;
PATCH ; from FSCLMP
N DIR,X,Y K DIR
W !!,"******* VALID for patches verified since 1/1/98 **********"
W !!,"Choose method of reviewing PATCH installs"
W !,"Installed:"
W !?5,"1) Sites that have a patch installed"
W !?5,"2) All patches installed at a site"
W !?5,"3) Patches installed at a site for a package"
W !!,"Not installed:"
W !?5,"4) Sites that do not have a patch installed"
W !?5,"5) All patches not installed at a site"
W !?5,"6) Patches not installed at a site for a package"
W !!,"Patches being tested:"
W !?5,"7) Test patches installed"
W !?5,"8) Test patches installed at a site"
W !?5,"9) Test patches installed for a package"
S DIR(0)="NOA^1:9:0",DIR("A")="Select number: "
S DIR("?",1)="Enter the number of the selection."
S DIR("??")="FSC U1 NOIS"
D ^DIR K DIR
I $D(DIRUT) Q
I Y=1 D SITE Q
I Y=2 D ALL Q
I Y=3 D PACK Q
I Y=4 D SITENOT Q
I Y=5 D ALLNOT Q
I Y=6 D PACKNOT Q
I Y=7 D TEST Q
I Y=8 D TESTSITE Q
I Y=9 D TESTPACK Q
Q
;
SITE ;
N OK,PATCH
D PATCHES(.PATCH,"V",.OK) I 'OK Q
S FSCSTU="PATCH SITE" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
Q
;
ALL ;
N DATE,OK,SITE
D SITES^FSCSTUR(.SITE,.OK) I 'OK Q
D DATE^FSCSTUR(.DATE,.OK) I 'OK Q
S FSCSTU="PATCH ALL" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
Q
;
PACK ;
N MODULE,OK,SITE
D SITES^FSCSTUR(.SITE,.OK) I 'OK Q
D MOD(.MODULE,.OK) I 'OK Q
S FSCSTU="PATCH PACK" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
Q
;
SITENOT ;
N OK,PATCH
D PATCHES(.PATCH,"V",.OK) I 'OK Q
S FSCSTU="PATCH SITENOT" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
Q
;
ALLNOT ;
N OK,SITE
D SITES^FSCSTUR(.SITE,.OK) I 'OK Q
S FSCSTU="PATCH ALLNOT" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
Q
;
PACKNOT ;
N MODULE,OK,SITE
D SITES^FSCSTUR(.SITE,.OK) I 'OK Q
D MOD(.MODULE,.OK) I 'OK Q
S FSCSTU="PATCH PACKNOT" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
Q
;
TEST ;
N OK,PATCH
D PATCHES(.PATCH,"N",.OK) I 'OK Q
S FSCSTU="PATCH TEST" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
Q
;
TESTSITE ;
N OK,SITE
D SITES^FSCSTUR(.SITE,.OK) I 'OK Q
S FSCSTU="PATCH TESTSITE" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
Q
;
TESTPACK ;
N MODULE,OK
D MOD(.MODULE,.OK) I 'OK Q
S FSCSTU="PATCH TESTPACK" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
Q
;
PATCHES(PATCH,VERIFY,OK) ;
S OK=0
N DIC,X,Y K DIC
S DIC=11005,DIC(0)="AEMOQ",DIC("A")="Select Patch: "
I VERIFY="V" D
.S DIC("S")="I $P(^(0),U,11),$D(^NTS(2050.2,""B"",+Y))"
.W !,"Only patches that are verified and tracked can be selected."
I VERIFY="N" D
.S DIC("S")="I '$P(^(0),U,11),$D(^NTS(2050.2,""B"",+Y))"
.W !,"Only patches that are not verified and tracked can be selected."
F D ^DIC Q:Y<1 Q:$D(^NTS(2050.2,"B",+Y)) W !,"This patch has no tracking information."
K DIC I Y<1 Q
S PATCH=+Y,OK=1
I $P(^A1AE(11005,PATCH,0),U,8)="e" D
.W !,"This patch was Entered in Error." H 2
Q
;
MOD(MODULE,OK) ;
S OK=0
N DIR,Y K DIR
S DIR(0)="PAO^7105.4:EM",DIR("A")="Module: "
S DIR("?",1)="Enter the module/version# to review."
S DIR("?")="^D HELP^FSCU(.DIR)"
S DIR("??")="FSC U1 NOIS"
D ^DIR K DIR
I $D(DIRUT) Q
S MODULE=+Y,OK=1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCSTUP 3233 printed Oct 16, 2024@18:20:48 Page 2
FSCSTUP ;SLC/STAFF-NOIS Site Tracking Update Reporting ;11/15/97 20:56
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
PATCH ; from FSCLMP
+1 NEW DIR,X,Y
KILL DIR
+2 WRITE !!,"******* VALID for patches verified since 1/1/98 **********"
+3 WRITE !!,"Choose method of reviewing PATCH installs"
+4 WRITE !,"Installed:"
+5 WRITE !?5,"1) Sites that have a patch installed"
+6 WRITE !?5,"2) All patches installed at a site"
+7 WRITE !?5,"3) Patches installed at a site for a package"
+8 WRITE !!,"Not installed:"
+9 WRITE !?5,"4) Sites that do not have a patch installed"
+10 WRITE !?5,"5) All patches not installed at a site"
+11 WRITE !?5,"6) Patches not installed at a site for a package"
+12 WRITE !!,"Patches being tested:"
+13 WRITE !?5,"7) Test patches installed"
+14 WRITE !?5,"8) Test patches installed at a site"
+15 WRITE !?5,"9) Test patches installed for a package"
+16 SET DIR(0)="NOA^1:9:0"
SET DIR("A")="Select number: "
+17 SET DIR("?",1)="Enter the number of the selection."
+18 SET DIR("??")="FSC U1 NOIS"
+19 DO ^DIR
KILL DIR
+20 IF $DATA(DIRUT)
QUIT
+21 IF Y=1
DO SITE
QUIT
+22 IF Y=2
DO ALL
QUIT
+23 IF Y=3
DO PACK
QUIT
+24 IF Y=4
DO SITENOT
QUIT
+25 IF Y=5
DO ALLNOT
QUIT
+26 IF Y=6
DO PACKNOT
QUIT
+27 IF Y=7
DO TEST
QUIT
+28 IF Y=8
DO TESTSITE
QUIT
+29 IF Y=9
DO TESTPACK
QUIT
+30 QUIT
+31 ;
SITE ;
+1 NEW OK,PATCH
+2 DO PATCHES(.PATCH,"V",.OK)
IF 'OK
QUIT
+3 SET FSCSTU="PATCH SITE"
DO ENTRY^FSCLMIPX
DO HEADER^FSCLMIPX
+4 QUIT
+5 ;
ALL ;
+1 NEW DATE,OK,SITE
+2 DO SITES^FSCSTUR(.SITE,.OK)
IF 'OK
QUIT
+3 DO DATE^FSCSTUR(.DATE,.OK)
IF 'OK
QUIT
+4 SET FSCSTU="PATCH ALL"
DO ENTRY^FSCLMIPX
DO HEADER^FSCLMIPX
+5 QUIT
+6 ;
PACK ;
+1 NEW MODULE,OK,SITE
+2 DO SITES^FSCSTUR(.SITE,.OK)
IF 'OK
QUIT
+3 DO MOD(.MODULE,.OK)
IF 'OK
QUIT
+4 SET FSCSTU="PATCH PACK"
DO ENTRY^FSCLMIPX
DO HEADER^FSCLMIPX
+5 QUIT
+6 ;
SITENOT ;
+1 NEW OK,PATCH
+2 DO PATCHES(.PATCH,"V",.OK)
IF 'OK
QUIT
+3 SET FSCSTU="PATCH SITENOT"
DO ENTRY^FSCLMIPX
DO HEADER^FSCLMIPX
+4 QUIT
+5 ;
ALLNOT ;
+1 NEW OK,SITE
+2 DO SITES^FSCSTUR(.SITE,.OK)
IF 'OK
QUIT
+3 SET FSCSTU="PATCH ALLNOT"
DO ENTRY^FSCLMIPX
DO HEADER^FSCLMIPX
+4 QUIT
+5 ;
PACKNOT ;
+1 NEW MODULE,OK,SITE
+2 DO SITES^FSCSTUR(.SITE,.OK)
IF 'OK
QUIT
+3 DO MOD(.MODULE,.OK)
IF 'OK
QUIT
+4 SET FSCSTU="PATCH PACKNOT"
DO ENTRY^FSCLMIPX
DO HEADER^FSCLMIPX
+5 QUIT
+6 ;
TEST ;
+1 NEW OK,PATCH
+2 DO PATCHES(.PATCH,"N",.OK)
IF 'OK
QUIT
+3 SET FSCSTU="PATCH TEST"
DO ENTRY^FSCLMIPX
DO HEADER^FSCLMIPX
+4 QUIT
+5 ;
TESTSITE ;
+1 NEW OK,SITE
+2 DO SITES^FSCSTUR(.SITE,.OK)
IF 'OK
QUIT
+3 SET FSCSTU="PATCH TESTSITE"
DO ENTRY^FSCLMIPX
DO HEADER^FSCLMIPX
+4 QUIT
+5 ;
TESTPACK ;
+1 NEW MODULE,OK
+2 DO MOD(.MODULE,.OK)
IF 'OK
QUIT
+3 SET FSCSTU="PATCH TESTPACK"
DO ENTRY^FSCLMIPX
DO HEADER^FSCLMIPX
+4 QUIT
+5 ;
PATCHES(PATCH,VERIFY,OK) ;
+1 SET OK=0
+2 NEW DIC,X,Y
KILL DIC
+3 SET DIC=11005
SET DIC(0)="AEMOQ"
SET DIC("A")="Select Patch: "
+4 IF VERIFY="V"
Begin DoDot:1
+5 SET DIC("S")="I $P(^(0),U,11),$D(^NTS(2050.2,""B"",+Y))"
+6 WRITE !,"Only patches that are verified and tracked can be selected."
End DoDot:1
+7 IF VERIFY="N"
Begin DoDot:1
+8 SET DIC("S")="I '$P(^(0),U,11),$D(^NTS(2050.2,""B"",+Y))"
+9 WRITE !,"Only patches that are not verified and tracked can be selected."
End DoDot:1
+10 FOR
DO ^DIC
if Y<1
QUIT
if $DATA(^NTS(2050.2,"B",+Y))
QUIT
WRITE !,"This patch has no tracking information."
+11 KILL DIC
IF Y<1
QUIT
+12 SET PATCH=+Y
SET OK=1
+13 IF $PIECE(^A1AE(11005,PATCH,0),U,8)="e"
Begin DoDot:1
+14 WRITE !,"This patch was Entered in Error."
HANG 2
End DoDot:1
+15 QUIT
+16 ;
MOD(MODULE,OK) ;
+1 SET OK=0
+2 NEW DIR,Y
KILL DIR
+3 SET DIR(0)="PAO^7105.4:EM"
SET DIR("A")="Module: "
+4 SET DIR("?",1)="Enter the module/version# to review."
+5 SET DIR("?")="^D HELP^FSCU(.DIR)"
+6 SET DIR("??")="FSC U1 NOIS"
+7 DO ^DIR
KILL DIR
+8 IF $DATA(DIRUT)
QUIT
+9 SET MODULE=+Y
SET OK=1
+10 QUIT
