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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSXHSYS1 1458 printed Dec 13, 2024@01:44:18 Page 2
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
