Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCSTUP

FSCSTUP.m

Go to the documentation of this file.
  1. FSCSTUP ;SLC/STAFF-NOIS Site Tracking Update Reporting ;11/15/97 20:56
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. PATCH ; from FSCLMP
  1. N DIR,X,Y K DIR
  1. W !!,"******* VALID for patches verified since 1/1/98 **********"
  1. W !!,"Choose method of reviewing PATCH installs"
  1. W !,"Installed:"
  1. W !?5,"1) Sites that have a patch installed"
  1. W !?5,"2) All patches installed at a site"
  1. W !?5,"3) Patches installed at a site for a package"
  1. W !!,"Not installed:"
  1. W !?5,"4) Sites that do not have a patch installed"
  1. W !?5,"5) All patches not installed at a site"
  1. W !?5,"6) Patches not installed at a site for a package"
  1. W !!,"Patches being tested:"
  1. W !?5,"7) Test patches installed"
  1. W !?5,"8) Test patches installed at a site"
  1. W !?5,"9) Test patches installed for a package"
  1. S DIR(0)="NOA^1:9:0",DIR("A")="Select number: "
  1. S DIR("?",1)="Enter the number of the selection."
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I $D(DIRUT) Q
  1. I Y=1 D SITE Q
  1. I Y=2 D ALL Q
  1. I Y=3 D PACK Q
  1. I Y=4 D SITENOT Q
  1. I Y=5 D ALLNOT Q
  1. I Y=6 D PACKNOT Q
  1. I Y=7 D TEST Q
  1. I Y=8 D TESTSITE Q
  1. I Y=9 D TESTPACK Q
  1. Q
  1. ;
  1. SITE ;
  1. N OK,PATCH
  1. D PATCHES(.PATCH,"V",.OK) I 'OK Q
  1. S FSCSTU="PATCH SITE" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
  1. Q
  1. ;
  1. ALL ;
  1. N DATE,OK,SITE
  1. D SITES^FSCSTUR(.SITE,.OK) I 'OK Q
  1. D DATE^FSCSTUR(.DATE,.OK) I 'OK Q
  1. S FSCSTU="PATCH ALL" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
  1. Q
  1. ;
  1. PACK ;
  1. N MODULE,OK,SITE
  1. D SITES^FSCSTUR(.SITE,.OK) I 'OK Q
  1. D MOD(.MODULE,.OK) I 'OK Q
  1. S FSCSTU="PATCH PACK" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
  1. Q
  1. ;
  1. SITENOT ;
  1. N OK,PATCH
  1. D PATCHES(.PATCH,"V",.OK) I 'OK Q
  1. S FSCSTU="PATCH SITENOT" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
  1. Q
  1. ;
  1. ALLNOT ;
  1. N OK,SITE
  1. D SITES^FSCSTUR(.SITE,.OK) I 'OK Q
  1. S FSCSTU="PATCH ALLNOT" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
  1. Q
  1. ;
  1. PACKNOT ;
  1. N MODULE,OK,SITE
  1. D SITES^FSCSTUR(.SITE,.OK) I 'OK Q
  1. D MOD(.MODULE,.OK) I 'OK Q
  1. S FSCSTU="PATCH PACKNOT" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
  1. Q
  1. ;
  1. TEST ;
  1. N OK,PATCH
  1. D PATCHES(.PATCH,"N",.OK) I 'OK Q
  1. S FSCSTU="PATCH TEST" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
  1. Q
  1. ;
  1. TESTSITE ;
  1. N OK,SITE
  1. D SITES^FSCSTUR(.SITE,.OK) I 'OK Q
  1. S FSCSTU="PATCH TESTSITE" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
  1. Q
  1. ;
  1. TESTPACK ;
  1. N MODULE,OK
  1. D MOD(.MODULE,.OK) I 'OK Q
  1. S FSCSTU="PATCH TESTPACK" D ENTRY^FSCLMIPX,HEADER^FSCLMIPX
  1. Q
  1. ;
  1. PATCHES(PATCH,VERIFY,OK) ;
  1. S OK=0
  1. N DIC,X,Y K DIC
  1. S DIC=11005,DIC(0)="AEMOQ",DIC("A")="Select Patch: "
  1. I VERIFY="V" D
  1. .S DIC("S")="I $P(^(0),U,11),$D(^NTS(2050.2,""B"",+Y))"
  1. .W !,"Only patches that are verified and tracked can be selected."
  1. I VERIFY="N" D
  1. .S DIC("S")="I '$P(^(0),U,11),$D(^NTS(2050.2,""B"",+Y))"
  1. .W !,"Only patches that are not verified and tracked can be selected."
  1. F D ^DIC Q:Y<1 Q:$D(^NTS(2050.2,"B",+Y)) W !,"This patch has no tracking information."
  1. K DIC I Y<1 Q
  1. S PATCH=+Y,OK=1
  1. I $P(^A1AE(11005,PATCH,0),U,8)="e" D
  1. .W !,"This patch was Entered in Error." H 2
  1. Q
  1. ;
  1. MOD(MODULE,OK) ;
  1. S OK=0
  1. N DIR,Y K DIR
  1. S DIR(0)="PAO^7105.4:EM",DIR("A")="Module: "
  1. S DIR("?",1)="Enter the module/version# to review."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I $D(DIRUT) Q
  1. S MODULE=+Y,OK=1
  1. Q