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