| 1 | FSCSTUR ;SLC/STAFF-NOIS Site Tracking Update Reporting ;9/6/98 22:12
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | PACK ; from FSCLMP
|
|---|
| 5 | N DIR,X,Y K DIR
|
|---|
| 6 | W !!,"Choose method of reviewing package installs"
|
|---|
| 7 | W !,"1) All packages installed"
|
|---|
| 8 | W !,"2) Sites that have installed a package"
|
|---|
| 9 | W !,"3) Packages installed at a site"
|
|---|
| 10 | S DIR(0)="NOA^1:3:0",DIR("A")="Select number: "
|
|---|
| 11 | S DIR("?",1)="Enter the number of the selection."
|
|---|
| 12 | S DIR("??")="FSC U1 NOIS"
|
|---|
| 13 | D ^DIR K DIR
|
|---|
| 14 | I $D(DIRUT) Q
|
|---|
| 15 | I Y=1 D ALL Q
|
|---|
| 16 | I Y=2 D PACKAGE Q
|
|---|
| 17 | I Y=3 D SITE Q
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | ALERT ; from FSCSTU via alerts
|
|---|
| 21 | S FSCSTU="ALERT" D INSTALLS^FSCLM
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | IN ; from FSCLMP
|
|---|
| 25 | I $G(VALMAR)["FSC INSTALLS" W !,"You are already using this option.",$C(7) H 2 Q
|
|---|
| 26 | I $G(VALMAR)["FSC MODIFY LISTS" W !,"Unable to use this option from this screen.",$C(7) H 2 Q
|
|---|
| 27 | S FSCSTU="" D INSTALLS^FSCLM
|
|---|
| 28 | S VALMBCK=$S($G(FSCEXIT):"Q",1:"R")
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | ALL ; from FSCLMP
|
|---|
| 32 | N DATE,OK
|
|---|
| 33 | D DATE(.DATE,.OK) I 'OK Q
|
|---|
| 34 | S FSCSTU="ALL" D ENTRY^FSCLMI,HEADER^FSCLMI
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | PACKAGE ; from FSCLMP
|
|---|
| 38 | N DATE,OK,PACKAGE
|
|---|
| 39 | D PACKS(.PACKAGE,.OK) I 'OK Q
|
|---|
| 40 | D DATE(.DATE,.OK) I 'OK Q
|
|---|
| 41 | S FSCSTU="PACKAGE" D ENTRY^FSCLMI,HEADER^FSCLMI
|
|---|
| 42 | Q
|
|---|
| 43 | ;
|
|---|
| 44 | SITE ; from FSCLMP
|
|---|
| 45 | N DATE,OK,SITE
|
|---|
| 46 | D SITES(.SITE,.OK) I 'OK Q
|
|---|
| 47 | D DATE(.DATE,.OK) I 'OK Q
|
|---|
| 48 | S FSCSTU="SITE" D ENTRY^FSCLMI,HEADER^FSCLMI
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
| 51 | DATE(DATE,OK) ; from FSCSTUP
|
|---|
| 52 | N DIR,X,Y K DIR
|
|---|
| 53 | S OK=1
|
|---|
| 54 | S DIR(0)="DA^2900101:DT:EPX",DIR("A")="Display beginning date: " S DIR("B")="T-7"
|
|---|
| 55 | S DIR("?",1)="Enter the date to display backto from today."
|
|---|
| 56 | S DIR("?",2)="Enter '^' to exit or '??' for more help."
|
|---|
| 57 | S DIR("?")="^D HELP^%DTC,HELP^FSCU(.DIR)"
|
|---|
| 58 | S DIR("??")="FSC U1 NOIS"
|
|---|
| 59 | D ^DIR K DIR
|
|---|
| 60 | I $D(DIRUT) S OK=0 Q
|
|---|
| 61 | S DATE=Y
|
|---|
| 62 | Q
|
|---|
| 63 | ;
|
|---|
| 64 | PACKS(PACKAGE,OK) ;
|
|---|
| 65 | S OK=0
|
|---|
| 66 | N DIR,Y K DIR
|
|---|
| 67 | S DIR(0)="PAO^7105.5:EM",DIR("A")="Package: "
|
|---|
| 68 | S DIR("?",1)="Enter the package to review."
|
|---|
| 69 | S DIR("?")="^D HELP^FSCU(.DIR)"
|
|---|
| 70 | S DIR("??")="FSC U1 NOIS"
|
|---|
| 71 | D ^DIR K DIR
|
|---|
| 72 | I $D(DIRUT) Q
|
|---|
| 73 | S PACKAGE=+Y,OK=1
|
|---|
| 74 | Q
|
|---|
| 75 | ;
|
|---|
| 76 | SITES(SITE,OK) ; from FSCSTUP
|
|---|
| 77 | S OK=0
|
|---|
| 78 | N DIR,Y K DIR
|
|---|
| 79 | S DIR(0)="PAO^7105.1:EM",DIR("A")="Site: "
|
|---|
| 80 | S DIR("?",1)="Enter the site to review."
|
|---|
| 81 | S DIR("?")="^D HELP^FSCU(.DIR)"
|
|---|
| 82 | S DIR("??")="FSC U1 NOIS"
|
|---|
| 83 | D ^DIR K DIR
|
|---|
| 84 | I $D(DIRUT) Q
|
|---|
| 85 | S SITE=+Y,OK=1
|
|---|
| 86 | Q
|
|---|
| 87 | ;
|
|---|
| 88 | XREF(USER) ; from dd 7105.2, 7105.241, 7105.242, 7105.243, 7105.244
|
|---|
| 89 | S USER=+$G(USER),^FSC("SPEC","AX",USER)="" K ^FSC("SPEC","AU",USER)
|
|---|
| 90 | Q
|
|---|
