| [613] | 1 | PSXHSYS1 ;BIR/WPB/PDW-EDIT INTERAGENCY PARAMETERS ;MAR 1,2002@16:11:17
|
|---|
| 2 | ;;2.0;CMOP;**38**;11 Apr 97
|
|---|
| 3 | EDITDOD ; this entry point grants access to the setting of the host directories
|
|---|
| 4 | ; and the scheduling of the interface option for importing other agencies CMOP RXs
|
|---|
| 5 | ; Called from PSXHSYS the user must have the PSXDOD key
|
|---|
| 6 | ;
|
|---|
| 7 | N TSK,DATE,HOUR,HOST,PSXOPTDA
|
|---|
| 8 | D EDIT
|
|---|
| 9 | Q
|
|---|
| 10 | EDIT ;
|
|---|
| 11 | N PSXT,XX S XX="PSX DOD CMOP INTERFACE" D OPTSTAT^XUTMOPT(XX,.PSXT)
|
|---|
| 12 | I '+PSXT D Q
|
|---|
| 13 | .W !,"You must first use Kernel Option Scheduling to setup the option 'PSX DOD CMOP INTERFACE'."
|
|---|
| 14 | ; gather existing information
|
|---|
| 15 | S XX="PSX DOD CMOP INTERFACE"
|
|---|
| 16 | K TSK D OPTSTAT^XUTMOPT(XX,.TSK) S TSK(1)=$G(TSK(1))
|
|---|
| 17 | S TSK=+TSK(1),DATE=$P(TSK(1),U,2),HOUR=$P(TSK(1),U,3)
|
|---|
| 18 | S Y=DATE X ^DD("DD") S DATE=Y
|
|---|
| 19 | K HOST D GETS^DIQ(554,1,"20:23","","HOST"),TOP^PSXUTL("HOST")
|
|---|
| 20 | ;display information
|
|---|
| 21 | W @IOF W !,"Host Directory Paths",?40,"Schedule"
|
|---|
| 22 | W !!,"In",?10,HOST(20),?40,"Next Run",?60,DATE
|
|---|
| 23 | W !,"Out",?10,HOST(21),?40,"Frequency",?60,HOUR
|
|---|
| 24 | W !,"Archive",?10,HOST(22),?40,"Tasking ID",?60,TSK
|
|---|
| 25 | W !,"Pending",?10,HOST(23)
|
|---|
| 26 | ;request edit information or quit
|
|---|
| 27 | K DIR S DIR(0)="SO^P:Paths;S:Schedule",DIR("A")="Edit Paths <P> or Schedule <S>, or Exit <cr>"
|
|---|
| 28 | D ^DIR K DIR
|
|---|
| 29 | I Y'="S",Y'="P" Q
|
|---|
| 30 | ;edit information
|
|---|
| 31 | I Y="S" D EDIT^XUTMOPT("PSX DOD CMOP INTERFACE") G EDIT
|
|---|
| 32 | L +^PSX(554,1):600
|
|---|
| 33 | K DIE,DR,DA S DIE="^PSX(554,",DA=1,DR="20;21;22;23" D ^DIE
|
|---|
| 34 | L -^PSX(554,1)
|
|---|
| 35 | G EDIT
|
|---|
| 36 | Q
|
|---|
