source:
WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SD422.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
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.