SDPARM2.m

SDPARM2 ;ALB/CAW - Edit Main and Division Parmaters; 3/10/92

 ;;5.3;Scheduling;**27,132,1015**;08/13/93;Build 21

 ;

1 ;Edit Main Parameters

 ;

 D FULL^VALM1

 S DIE="^DG(43,",DA=1,DR="212;215;216;32;217;226;227;224T" D ^DIE K DIE I $D(DTOUT) G Q1

 D EN^SDPARM S VALMBCK="R"

Q1 Q

 ;

2 ;Edit Division Parameters

 ;

 D FULL^VALM1

 I '$P($G(^DG(43,1,"GL")),U,2) S Y=1 D DIE Q

DIC W ! S DIC="^DG(40.8,",DIC(0)="AEMQ" D ^DIC I Y<0 S VALMBCK="" G RDSPLY

DIE S DIE="^DG(40.8,",(SD,DA)=+Y,DR="30.01:30.04" D ^DIE K DIE

 I $D(DTOUT) G Q2

 I $P($G(^DG(43,1,"GL")),U,2) G DIC

 ;

RDSPLY D EN^SDPARM S VALMBCK="R"

Q2 Q

SDPARM2   ;ALB/CAW - Edit Main and Division Parmaters; 3/10/92

 +1       ;;5.3;Scheduling;**27,132,1015**;08/13/93;Build 21

 +2       ;

1         ;Edit Main Parameters

 +1       ;

 +2        DO FULL^VALM1

 +3        SET DIE="^DG(43,"

           SET DA=1

           SET DR="212;215;216;32;217;226;227;224T"

           DO ^DIE

           KILL DIE

           IF $DATA(DTOUT)

               GOTO Q1

 +4        DO EN^SDPARM

           SET VALMBCK="R"

Q1         QUIT 

 +1       ;

2         ;Edit Division Parameters

 +1       ;

 +2        DO FULL^VALM1

 +3        IF '$PIECE($GET(^DG(43,1,"GL")),U,2)

               SET Y=1

               DO DIE

               QUIT 

DIC        WRITE !

           SET DIC="^DG(40.8,"

           SET DIC(0)="AEMQ"

           DO ^DIC

           IF Y<0

               SET VALMBCK=""

               GOTO RDSPLY

DIE        SET DIE="^DG(40.8,"

           SET (SD,DA)=+Y

           SET DR="30.01:30.04"

           DO ^DIE

           KILL DIE

 +1        IF $DATA(DTOUT)

               GOTO Q2

 +2        IF $PIECE($GET(^DG(43,1,"GL")),U,2)

               GOTO DIC

 +3       ;

RDSPLY     DO EN^SDPARM

           SET VALMBCK="R"

Q2         QUIT