source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SD422.m@ 846

Last change on this file since 846 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 323 bytes
Line 
1SD422 ;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.