FSCSTUR ;SLC/STAFF-NOIS Site Tracking Update Reporting ;9/6/98 22:12
;;1.1;NOIS;;Sep 06, 1998
;
PACK ; from FSCLMP
N DIR,X,Y K DIR
W !!,"Choose method of reviewing package installs"
W !,"1) All packages installed"
W !,"2) Sites that have installed a package"
W !,"3) Packages installed at a site"
S DIR(0)="NOA^1:3: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 ALL Q
I Y=2 D PACKAGE Q
I Y=3 D SITE Q
Q
;
ALERT ; from FSCSTU via alerts
S FSCSTU="ALERT" D INSTALLS^FSCLM
Q
;
IN ; from FSCLMP
I $G(VALMAR)["FSC INSTALLS" W !,"You are already using this option.",$C(7) H 2 Q
I $G(VALMAR)["FSC MODIFY LISTS" W !,"Unable to use this option from this screen.",$C(7) H 2 Q
S FSCSTU="" D INSTALLS^FSCLM
S VALMBCK=$S($G(FSCEXIT):"Q",1:"R")
Q
;
ALL ; from FSCLMP
N DATE,OK
D DATE(.DATE,.OK) I 'OK Q
S FSCSTU="ALL" D ENTRY^FSCLMI,HEADER^FSCLMI
Q
;
PACKAGE ; from FSCLMP
N DATE,OK,PACKAGE
D PACKS(.PACKAGE,.OK) I 'OK Q
D DATE(.DATE,.OK) I 'OK Q
S FSCSTU="PACKAGE" D ENTRY^FSCLMI,HEADER^FSCLMI
Q
;
SITE ; from FSCLMP
N DATE,OK,SITE
D SITES(.SITE,.OK) I 'OK Q
D DATE(.DATE,.OK) I 'OK Q
S FSCSTU="SITE" D ENTRY^FSCLMI,HEADER^FSCLMI
Q
;
DATE(DATE,OK) ; from FSCSTUP
N DIR,X,Y K DIR
S OK=1
S DIR(0)="DA^2900101:DT:EPX",DIR("A")="Display beginning date: " S DIR("B")="T-7"
S DIR("?",1)="Enter the date to display backto from today."
S DIR("?",2)="Enter '^' to exit or '??' for more help."
S DIR("?")="^D HELP^%DTC,HELP^FSCU(.DIR)"
S DIR("??")="FSC U1 NOIS"
D ^DIR K DIR
I $D(DIRUT) S OK=0 Q
S DATE=Y
Q
;
PACKS(PACKAGE,OK) ;
S OK=0
N DIR,Y K DIR
S DIR(0)="PAO^7105.5:EM",DIR("A")="Package: "
S DIR("?",1)="Enter the package to review."
S DIR("?")="^D HELP^FSCU(.DIR)"
S DIR("??")="FSC U1 NOIS"
D ^DIR K DIR
I $D(DIRUT) Q
S PACKAGE=+Y,OK=1
Q
;
SITES(SITE,OK) ; from FSCSTUP
S OK=0
N DIR,Y K DIR
S DIR(0)="PAO^7105.1:EM",DIR("A")="Site: "
S DIR("?",1)="Enter the site to review."
S DIR("?")="^D HELP^FSCU(.DIR)"
S DIR("??")="FSC U1 NOIS"
D ^DIR K DIR
I $D(DIRUT) Q
S SITE=+Y,OK=1
Q
;
XREF(USER) ; from dd 7105.2, 7105.241, 7105.242, 7105.243, 7105.244
S USER=+$G(USER),^FSC("SPEC","AX",USER)="" K ^FSC("SPEC","AU",USER)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCSTUR 2365 printed Dec 13, 2024@02:20:15 Page 2
FSCSTUR ;SLC/STAFF-NOIS Site Tracking Update Reporting ;9/6/98 22:12
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
PACK ; from FSCLMP
+1 NEW DIR,X,Y
KILL DIR
+2 WRITE !!,"Choose method of reviewing package installs"
+3 WRITE !,"1) All packages installed"
+4 WRITE !,"2) Sites that have installed a package"
+5 WRITE !,"3) Packages installed at a site"
+6 SET DIR(0)="NOA^1:3:0"
SET DIR("A")="Select number: "
+7 SET DIR("?",1)="Enter the number of the selection."
+8 SET DIR("??")="FSC U1 NOIS"
+9 DO ^DIR
KILL DIR
+10 IF $DATA(DIRUT)
QUIT
+11 IF Y=1
DO ALL
QUIT
+12 IF Y=2
DO PACKAGE
QUIT
+13 IF Y=3
DO SITE
QUIT
+14 QUIT
+15 ;
ALERT ; from FSCSTU via alerts
+1 SET FSCSTU="ALERT"
DO INSTALLS^FSCLM
+2 QUIT
+3 ;
IN ; from FSCLMP
+1 IF $GET(VALMAR)["FSC INSTALLS"
WRITE !,"You are already using this option.",$CHAR(7)
HANG 2
QUIT
+2 IF $GET(VALMAR)["FSC MODIFY LISTS"
WRITE !,"Unable to use this option from this screen.",$CHAR(7)
HANG 2
QUIT
+3 SET FSCSTU=""
DO INSTALLS^FSCLM
+4 SET VALMBCK=$SELECT($GET(FSCEXIT):"Q",1:"R")
+5 QUIT
+6 ;
ALL ; from FSCLMP
+1 NEW DATE,OK
+2 DO DATE(.DATE,.OK)
IF 'OK
QUIT
+3 SET FSCSTU="ALL"
DO ENTRY^FSCLMI
DO HEADER^FSCLMI
+4 QUIT
+5 ;
PACKAGE ; from FSCLMP
+1 NEW DATE,OK,PACKAGE
+2 DO PACKS(.PACKAGE,.OK)
IF 'OK
QUIT
+3 DO DATE(.DATE,.OK)
IF 'OK
QUIT
+4 SET FSCSTU="PACKAGE"
DO ENTRY^FSCLMI
DO HEADER^FSCLMI
+5 QUIT
+6 ;
SITE ; from FSCLMP
+1 NEW DATE,OK,SITE
+2 DO SITES(.SITE,.OK)
IF 'OK
QUIT
+3 DO DATE(.DATE,.OK)
IF 'OK
QUIT
+4 SET FSCSTU="SITE"
DO ENTRY^FSCLMI
DO HEADER^FSCLMI
+5 QUIT
+6 ;
DATE(DATE,OK) ; from FSCSTUP
+1 NEW DIR,X,Y
KILL DIR
+2 SET OK=1
+3 SET DIR(0)="DA^2900101:DT:EPX"
SET DIR("A")="Display beginning date: "
SET DIR("B")="T-7"
+4 SET DIR("?",1)="Enter the date to display backto from today."
+5 SET DIR("?",2)="Enter '^' to exit or '??' for more help."
+6 SET DIR("?")="^D HELP^%DTC,HELP^FSCU(.DIR)"
+7 SET DIR("??")="FSC U1 NOIS"
+8 DO ^DIR
KILL DIR
+9 IF $DATA(DIRUT)
SET OK=0
QUIT
+10 SET DATE=Y
+11 QUIT
+12 ;
PACKS(PACKAGE,OK) ;
+1 SET OK=0
+2 NEW DIR,Y
KILL DIR
+3 SET DIR(0)="PAO^7105.5:EM"
SET DIR("A")="Package: "
+4 SET DIR("?",1)="Enter the package 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 PACKAGE=+Y
SET OK=1
+10 QUIT
+11 ;
SITES(SITE,OK) ; from FSCSTUP
+1 SET OK=0
+2 NEW DIR,Y
KILL DIR
+3 SET DIR(0)="PAO^7105.1:EM"
SET DIR("A")="Site: "
+4 SET DIR("?",1)="Enter the site 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 SITE=+Y
SET OK=1
+10 QUIT
+11 ;
XREF(USER) ; from dd 7105.2, 7105.241, 7105.242, 7105.243, 7105.244
+1 SET USER=+$GET(USER)
SET ^FSC("SPEC","AX",USER)=""
KILL ^FSC("SPEC","AU",USER)
+2 QUIT
