Last change
on this file since 1569 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.