ADGPARA.m

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

 ;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999

 ;;MAS VERSION 5.0;

 ;

 I '$D(^DG(43,1)) D  Q:'$D(^DG(43,1))

 . S (DIC,DLAYGO)=43,DIC(0)="L",X=1 D ^DIC

 ;

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

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

 S DIE=43,DA=1,DR="[ADGPARA]" D ^DIE L -^DG(43,1)

Q K DLAYGO,DIC,DIE,X,DR,DA,Y Q

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

 +1       ;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999

 +2       ;;MAS VERSION 5.0;

 +3       ;

 +4        IF '$DATA(^DG(43,1))

               Begin DoDot:1

 +5                SET (DIC,DLAYGO)=43

                   SET DIC(0)="L"

                   SET X=1

                   DO ^DIC

               End DoDot:1

               IF '$DATA(^DG(43,1))

                   QUIT 

 +6       ;

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

           IF '$TEST

               Begin DoDot:1

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

               End DoDot:1

               QUIT 

 +9        SET DIE=43

           SET DA=1

           SET DR="[ADGPARA]"

           DO ^DIE

           LOCK -^DG(43,1)

Q          KILL DLAYGO,DIC,DIE,X,DR,DA,Y

           QUIT