PSXHSYS1.m

PSXHSYS1 ;BIR/WPB/PDW-EDIT INTERAGENCY PARAMETERS ;MAR 1,2002@16:11:17

 ;;2.0;CMOP;**38**;11 Apr 97

EDITDOD ; this entry point grants access to the setting of the host directories 

 ; and the scheduling of the interface option for importing other agencies CMOP RXs

 ; Called from PSXHSYS the user must have the PSXDOD key

 ; 

 N TSK,DATE,HOUR,HOST,PSXOPTDA

 D EDIT

 Q

EDIT ;

 N PSXT,XX S XX="PSX DOD CMOP INTERFACE" D OPTSTAT^XUTMOPT(XX,.PSXT)

 I '+PSXT D  Q

 .W !,"You must first use Kernel Option Scheduling to setup the option 'PSX DOD CMOP INTERFACE'."

 ; gather existing information

 S XX="PSX DOD CMOP INTERFACE"

 K TSK D OPTSTAT^XUTMOPT(XX,.TSK) S TSK(1)=$G(TSK(1))

 S TSK=+TSK(1),DATE=$P(TSK(1),U,2),HOUR=$P(TSK(1),U,3)

 S Y=DATE X ^DD("DD") S DATE=Y

 K HOST D GETS^DIQ(554,1,"20:23","","HOST"),TOP^PSXUTL("HOST")

 ;display information

 W @IOF W !,"Host Directory Paths",?40,"Schedule"

 W !!,"In",?10,HOST(20),?40,"Next Run",?60,DATE

 W !,"Out",?10,HOST(21),?40,"Frequency",?60,HOUR

 W !,"Archive",?10,HOST(22),?40,"Tasking ID",?60,TSK

 W !,"Pending",?10,HOST(23)

 ;request edit information or quit

 K DIR S DIR(0)="SO^P:Paths;S:Schedule",DIR("A")="Edit  Paths <P>  or  Schedule <S>, or Exit <cr>"

 D ^DIR K DIR

 I Y'="S",Y'="P" Q

 ;edit information

 I Y="S" D EDIT^XUTMOPT("PSX DOD CMOP INTERFACE") G EDIT

 L +^PSX(554,1):600

 K DIE,DR,DA S DIE="^PSX(554,",DA=1,DR="20;21;22;23" D ^DIE

 L -^PSX(554,1)

 G EDIT

 Q

PSXHSYS1  ;BIR/WPB/PDW-EDIT INTERAGENCY PARAMETERS ;MAR 1,2002@16:11:17

 +1       ;;2.0;CMOP;**38**;11 Apr 97

EDITDOD   ; this entry point grants access to the setting of the host directories 

 +1       ; and the scheduling of the interface option for importing other agencies CMOP RXs

 +2       ; Called from PSXHSYS the user must have the PSXDOD key

 +3       ; 

 +4        NEW TSK,DATE,HOUR,HOST,PSXOPTDA

 +5        DO EDIT

 +6        QUIT 

EDIT      ;

 +1        NEW PSXT,XX

           SET XX="PSX DOD CMOP INTERFACE"

           DO OPTSTAT^XUTMOPT(XX,.PSXT)

 +2        IF '+PSXT

               Begin DoDot:1

 +3                WRITE !,"You must first use Kernel Option Scheduling to setup the option 'PSX DOD CMOP INTERFACE'."

               End DoDot:1

               QUIT 

 +4       ; gather existing information

 +5        SET XX="PSX DOD CMOP INTERFACE"

 +6        KILL TSK

           DO OPTSTAT^XUTMOPT(XX,.TSK)

           SET TSK(1)=$GET(TSK(1))

 +7        SET TSK=+TSK(1)

           SET DATE=$PIECE(TSK(1),U,2)

           SET HOUR=$PIECE(TSK(1),U,3)

 +8        SET Y=DATE

           XECUTE ^DD("DD")

           SET DATE=Y

 +9        KILL HOST

           DO GETS^DIQ(554,1,"20:23","","HOST")

           DO TOP^PSXUTL("HOST")

 +10      ;display information

 +11       WRITE @IOF

           WRITE !,"Host Directory Paths",?40,"Schedule"

 +12       WRITE !!,"In",?10,HOST(20),?40,"Next Run",?60,DATE

 +13       WRITE !,"Out",?10,HOST(21),?40,"Frequency",?60,HOUR

 +14       WRITE !,"Archive",?10,HOST(22),?40,"Tasking ID",?60,TSK

 +15       WRITE !,"Pending",?10,HOST(23)

 +16      ;request edit information or quit

 +17       KILL DIR

           SET DIR(0)="SO^P:Paths;S:Schedule"

           SET DIR("A")="Edit  Paths <P>  or  Schedule <S>, or Exit <cr>"

 +18       DO ^DIR

           KILL DIR

 +19       IF Y'="S"

               IF Y'="P"

                   QUIT 

 +20      ;edit information

 +21       IF Y="S"

               DO EDIT^XUTMOPT("PSX DOD CMOP INTERFACE")

               GOTO EDIT

 +22       LOCK +^PSX(554,1):600

 +23       KILL DIE,DR,DA

           SET DIE="^PSX(554,"

           SET DA=1

           SET DR="20;21;22;23"

           DO ^DIE

 +24       LOCK -^PSX(554,1)

 +25       GOTO EDIT

 +26       QUIT