Last change
on this file since 1147 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
954 bytes
|
Rev | Line | |
---|
[613] | 1 | SOWKPREI ;B'HAM ISC/SAB-PRE-INIT ROUTINE; 12/02/91 15:08 [ 03/27/97 10:04 AM ]
|
---|
| 2 | ;;3.0; Social Work ;**49**;27 Apr 93
|
---|
| 3 | S SOWKPUR=0 I $G(^SOWK(650.1,1,"VER"))'<3 G PUR
|
---|
| 4 | I $O(^SOWK(650,0))]"" F Q=0:0 W !!,"THERE IS DATA IN THE SOCIAL WORK CASE FILE. DO YOU WANT TO CONTINUE" S %=2 D YN^DICN Q:% I %Y["?" D YN^SOWKHELP,EXP
|
---|
| 5 | I $G(%)=2!$G(%)=-1 K DIFQ,%,%Y,Q,DTOUT W !,"INSTALLATION TERMINATED !" Q
|
---|
| 6 | S:$G(%)=1 SOWKPUR=1
|
---|
| 7 | PUR S SOWKOPT=0 I $D(^DD(650,0)) F Q=0:0 W !!,"DO YOU WANT TO DELETE OLD NAMESPACE (SW) TEMPLATES AND OPTIONS NOW" S %=2 D YN^DICN Q:% I %Y["?" D YN^SOWKHELP
|
---|
| 8 | S:$G(%)=1 SOWKOPT=1
|
---|
| 9 | I $G(^SOWK(650.1,1,"VER"))'<3 S DIK="^SOWK(651,",DIK(1)="4^AC" D ENALL^DIK F CDC=0:0 S CDC=$O(^SOWK(651,"AC",CDC)) Q:'CDC S CDC(CDC)=^SOWK(651,CDC,0)
|
---|
| 10 | K DIK
|
---|
| 11 | Q
|
---|
| 12 | EXP W !!,"IF 'YES' ALL SOCIAL WORK CASE DATA WILL BE DELETED.",!,"IF 'NO' THE INSTALL WILL TERMINATE, BUT ALL CASES MUST BE CLOSED,",!,"TRANSMITTED TO AUSTIN, AND CASE DATA MUST BE PURGED.",!
|
---|
| 13 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.