ASDPARA.m

ASDPARA ; IHS/ADC/PDW/ENM - SCHDLNG PARAMETER SETUP ; [ 03/25/1999  11:48 AM ]

 ;;5.0;IHS SCHEDULING;;MAR 25, 1999

 ;

EDIT ;EP; called by option SD IHS PARAMETER

 L +^DG(43,1):3 I '$T D MSG Q

 S DIE=43,DA=1,DR="11T" D ^DIE L -^DG(43,1) Q:$D(Y)

 S DIC=40.8,DLAYGO=40,DIC(0)="AEMQLZ" D ^DIC Q:Y<1

 L +^DG(40.8,Y):3 I '$T D MSG Q

 S DIE=40.8,DA=+Y,DR="[ASD PARAMETERS]" D ^DIE L -^DG(40.8,DA) Q

 ;

MSG ;

 W !,*7,"SOMEONE ELSE IS UPDATING PARAMETERS; TRY AGAIN LATER" Q

ASDPARA   ; IHS/ADC/PDW/ENM - SCHDLNG PARAMETER SETUP ; [ 03/25/1999  11:48 AM ]

 +1       ;;5.0;IHS SCHEDULING;;MAR 25, 1999

 +2       ;

EDIT      ;EP; called by option SD IHS PARAMETER

 +1        LOCK +^DG(43,1):3

           IF '$TEST

               DO MSG

               QUIT 

 +2        SET DIE=43

           SET DA=1

           SET DR="11T"

           DO ^DIE

           LOCK -^DG(43,1)

           IF $DATA(Y)

               QUIT 

 +3        SET DIC=40.8

           SET DLAYGO=40

           SET DIC(0)="AEMQLZ"

           DO ^DIC

           IF Y<1

               QUIT 

 +4        LOCK +^DG(40.8,Y):3

           IF '$TEST

               DO MSG

               QUIT 

 +5        SET DIE=40.8

           SET DA=+Y

           SET DR="[ASD PARAMETERS]"

           DO ^DIE

           LOCK -^DG(40.8,DA)

           QUIT 

 +6       ;

MSG       ;

 +1        WRITE !,*7,"SOMEONE ELSE IS UPDATING PARAMETERS; TRY AGAIN LATER"

           QUIT