source: FOIAVistA/trunk/r/CMOP-PSX/PSXHSYS1.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1PSXHSYS1 ;BIR/WPB/PDW-EDIT INTERAGENCY PARAMETERS ;MAR 1,2002@16:11:17
2 ;;2.0;CMOP;**38**;11 Apr 97
3EDITDOD ; 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
10EDIT ;
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
Note: See TracBrowser for help on using the repository browser.