Last change
on this file since 1608 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
590 bytes
|
Line | |
---|
1 | SDPARM2 ;ALB/CAW - Edit Main and Division Parmaters; 3/10/92
|
---|
2 | ;;5.3;Scheduling;**27,132**;08/13/93
|
---|
3 | ;
|
---|
4 | 1 ;Edit Main Parameters
|
---|
5 | ;
|
---|
6 | D FULL^VALM1
|
---|
7 | S DIE="^DG(43,",DA=1,DR="212;215;216;32;217;226;227;224T" D ^DIE K DIE I $D(DTOUT) G Q1
|
---|
8 | D EN^SDPARM S VALMBCK="R"
|
---|
9 | Q1 Q
|
---|
10 | ;
|
---|
11 | 2 ;Edit Division Parameters
|
---|
12 | ;
|
---|
13 | D FULL^VALM1
|
---|
14 | I '$P($G(^DG(43,1,"GL")),U,2) S Y=1 D DIE Q
|
---|
15 | DIC W ! S DIC="^DG(40.8,",DIC(0)="AEMQ" D ^DIC I Y<0 S VALMBCK="" G RDSPLY
|
---|
16 | DIE S DIE="^DG(40.8,",(SD,DA)=+Y,DR="30.01:30.04" D ^DIE K DIE
|
---|
17 | I $D(DTOUT) G Q2
|
---|
18 | I $P($G(^DG(43,1,"GL")),U,2) G DIC
|
---|
19 | ;
|
---|
20 | RDSPLY D EN^SDPARM S VALMBCK="R"
|
---|
21 | Q2 Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.