|
Last change
on this file since 1770 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
532 bytes
|
| Line | |
|---|
| 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.
