22 lines
590 B
Mathematica
22 lines
590 B
Mathematica
SDPARM2 ;ALB/CAW - Edit Main and Division Parmaters; 3/10/92
|
|
;;5.3;Scheduling;**27,132**;08/13/93
|
|
;
|
|
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
|