- 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 Feb 18, 2025@23:46:42 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