Last change
on this file since 1073 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
590 bytes
|
Rev | Line | |
---|
[613] | 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.