Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
323 bytes
|
Rev | Line | |
---|
[613] | 1 | SD422 ;BP/JML; 1/13/05 2:50pm
|
---|
| 2 | ;;5.3;Scheduling;**422**;Jan 13, 2005
|
---|
| 3 | ;
|
---|
| 4 | ;
|
---|
| 5 | N DIC,X,Y,DA,DR,DIE
|
---|
| 6 | Q:$D(^SD(409.45,"B",643))
|
---|
| 7 | S DIC="^SD(409.45,",DIC(0)=""
|
---|
| 8 | S X=643 D FILE^DICN
|
---|
| 9 | S DA(1)=$P(Y,"^")
|
---|
| 10 | S DIC="^SD(409.45,"_DA(1)_",""E"","
|
---|
| 11 | S X=3050101 D FILE^DICN
|
---|
| 12 | S DR=".02////1",DA=1,DIE="^SD(409.45,"_DA(1)_",""E"","
|
---|
| 13 | D ^DIE
|
---|
| 14 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.