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

FSCSTUR.m

Go to the documentation of this file.
  1. FSCSTUR ;SLC/STAFF-NOIS Site Tracking Update Reporting ;9/6/98 22:12
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. PACK ; from FSCLMP
  1. N DIR,X,Y K DIR
  1. W !!,"Choose method of reviewing package installs"
  1. W !,"1) All packages installed"
  1. W !,"2) Sites that have installed a package"
  1. W !,"3) Packages installed at a site"
  1. S DIR(0)="NOA^1:3: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 ALL Q
  1. I Y=2 D PACKAGE Q
  1. I Y=3 D SITE Q
  1. Q
  1. ;
  1. ALERT ; from FSCSTU via alerts
  1. S FSCSTU="ALERT" D INSTALLS^FSCLM
  1. Q
  1. ;
  1. IN ; from FSCLMP
  1. I $G(VALMAR)["FSC INSTALLS" W !,"You are already using this option.",$C(7) H 2 Q
  1. I $G(VALMAR)["FSC MODIFY LISTS" W !,"Unable to use this option from this screen.",$C(7) H 2 Q
  1. S FSCSTU="" D INSTALLS^FSCLM
  1. S VALMBCK=$S($G(FSCEXIT):"Q",1:"R")
  1. Q
  1. ;
  1. ALL ; from FSCLMP
  1. N DATE,OK
  1. D DATE(.DATE,.OK) I 'OK Q
  1. S FSCSTU="ALL" D ENTRY^FSCLMI,HEADER^FSCLMI
  1. Q
  1. ;
  1. PACKAGE ; from FSCLMP
  1. N DATE,OK,PACKAGE
  1. D PACKS(.PACKAGE,.OK) I 'OK Q
  1. D DATE(.DATE,.OK) I 'OK Q
  1. S FSCSTU="PACKAGE" D ENTRY^FSCLMI,HEADER^FSCLMI
  1. Q
  1. ;
  1. SITE ; from FSCLMP
  1. N DATE,OK,SITE
  1. D SITES(.SITE,.OK) I 'OK Q
  1. D DATE(.DATE,.OK) I 'OK Q
  1. S FSCSTU="SITE" D ENTRY^FSCLMI,HEADER^FSCLMI
  1. Q
  1. ;
  1. DATE(DATE,OK) ; from FSCSTUP
  1. N DIR,X,Y K DIR
  1. S OK=1
  1. S DIR(0)="DA^2900101:DT:EPX",DIR("A")="Display beginning date: " S DIR("B")="T-7"
  1. S DIR("?",1)="Enter the date to display backto from today."
  1. S DIR("?",2)="Enter '^' to exit or '??' for more help."
  1. S DIR("?")="^D HELP^%DTC,HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I $D(DIRUT) S OK=0 Q
  1. S DATE=Y
  1. Q
  1. ;
  1. PACKS(PACKAGE,OK) ;
  1. S OK=0
  1. N DIR,Y K DIR
  1. S DIR(0)="PAO^7105.5:EM",DIR("A")="Package: "
  1. S DIR("?",1)="Enter the package 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 PACKAGE=+Y,OK=1
  1. Q
  1. ;
  1. SITES(SITE,OK) ; from FSCSTUP
  1. S OK=0
  1. N DIR,Y K DIR
  1. S DIR(0)="PAO^7105.1:EM",DIR("A")="Site: "
  1. S DIR("?",1)="Enter the site 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 SITE=+Y,OK=1
  1. Q
  1. ;
  1. XREF(USER) ; from dd 7105.2, 7105.241, 7105.242, 7105.243, 7105.244
  1. S USER=+$G(USER),^FSC("SPEC","AX",USER)="" K ^FSC("SPEC","AU",USER)
  1. Q