Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
532 bytes
|
Rev | Line | |
---|
[628] | 1 | SDV53PR ;alb/mjk - SD Application Specific Init Driver for v5.3 ; 3/26/93
|
---|
| 2 | ;;5.3;Scheduling;;Aug 13, 1993
|
---|
| 3 | ;
|
---|
| 4 | EN ; -- main entry point
|
---|
| 5 | D OPT ; change option name
|
---|
| 6 | D PROT ; clean up old protocol for valm conversion
|
---|
| 7 | ENQ Q
|
---|
| 8 | ;
|
---|
| 9 | PROT ; -- delete protocols
|
---|
| 10 | N DIK,DA
|
---|
| 11 | F SDX="SDAM MENU","SD PARM PARAMETERS MENU" D
|
---|
| 12 | .S DA=$O(^ORD(101,"B",SDX,0)),DIK="^ORD(101," D ^DIK:DA
|
---|
| 13 | Q
|
---|
| 14 | ;
|
---|
| 15 | OPT ; -- change option name
|
---|
| 16 | N DR,DA,DIE,DE,DQ
|
---|
| 17 | S DA=+$O(^DIC(19,"B","SDAM APPT CHECK IN",0))
|
---|
| 18 | I DA S DR=".01///SDAM APPT CHECK IN/OUT",DIE="^DIC(19," D ^DIE
|
---|
| 19 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.