Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
516 bytes
|
Line | |
---|
1 | XOBVPRE ;; mjk/alb - VistaLimk Pre-Init ; 07/27/2002 13:00
|
---|
2 | ;;1.5;VistALink;;Sep 09, 2005
|
---|
3 | ;;Foundations Toolbox Release v1.5 [Build: 1.5.0.026]
|
---|
4 | ;
|
---|
5 | QUIT
|
---|
6 | ;
|
---|
7 | EN ; -- add pre-init code here
|
---|
8 | ; -- delete VISTALINK MESSAGE TYPE file (18.05)
|
---|
9 | DO DEL(18.05)
|
---|
10 | ;
|
---|
11 | QUIT
|
---|
12 | ;
|
---|
13 | DEL(XOBFILE) ; -- delete file
|
---|
14 | NEW DIU,XOBRES
|
---|
15 | ;
|
---|
16 | DO FILE^DID(XOBFILE,"","NAME","XOBRES")
|
---|
17 | ;
|
---|
18 | ; -- if file present then delete
|
---|
19 | IF $GET(XOBRES("NAME"))'="" DO
|
---|
20 | . ; -- delete security provider file
|
---|
21 | . SET DIU=XOBFILE,DIU(0)="TD" DO EN^DIU2
|
---|
22 | ;
|
---|
23 | QUIT
|
---|
24 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.