[628] | 1 | MCARENV ;WISC/MLH-MEDICINE PACKAGE INSTALLATION-ENVIRONMENT CHECK ROUTINE #1 ;10/19/92 09:31
|
---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
---|
| 3 | ;
|
---|
| 4 | N AA,DDR,BB,FOUND
|
---|
| 5 | W:$D(IOF) @IOF ; clear screen
|
---|
| 6 | W !,"ENVIRONMENT CHECK:"
|
---|
| 7 | ;
|
---|
| 8 | ; Look at every file in Medicine (690-701 inclusive) for pointers
|
---|
| 9 | ; to files 3-6-16. If any exist, stop here and instruct the user
|
---|
| 10 | ; to repoint these entries to File 200 (NEW PERSON).
|
---|
| 11 | W !,"Before initialization, this routine will verify whether the"
|
---|
| 12 | W !,"package file entries have been converted to the NEW PERSON file."
|
---|
| 13 | W !!,"Checking..."
|
---|
| 14 | S (FOUND,END)=0
|
---|
| 15 | S AA=690
|
---|
| 16 | FOR D Q:FOUND!END
|
---|
| 17 | . W "." ; let user know we're making progress
|
---|
| 18 | . S BB=0
|
---|
| 19 | . FOR S BB=$O(^DD(AA,BB)) Q:'BB D Q:FOUND
|
---|
| 20 | .. S DDR=^DD(AA,BB,0) ; main data dictionary record
|
---|
| 21 | .. F II=1:1:4 S DDR(II)=$P(DDR,"^",II)
|
---|
| 22 | .. ;
|
---|
| 23 | .. S FIL=$P($P(DDR(3),"DIC(",2),",",1)
|
---|
| 24 | .. I (FIL=3)!(FIL=6)!(FIL=16) S FOUND=1
|
---|
| 25 | .. Q
|
---|
| 26 | . ;END FOR
|
---|
| 27 | . IF 'FOUND D
|
---|
| 28 | .. S AA=$O(^DD(AA))
|
---|
| 29 | .. I 'AA!(AA'<705) S END=1
|
---|
| 30 | .. Q
|
---|
| 31 | . ;END IF
|
---|
| 32 | . Q
|
---|
| 33 | I FOUND D ; Abort the init with an explanation.
|
---|
| 34 | . S OKTOGO=0
|
---|
| 35 | E D
|
---|
| 36 | . S OKTOGO=1
|
---|
| 37 | . W !!,"OK, there aren't any unconverted pointers."
|
---|
| 38 | . S DIR(0)="E",DIR("A")="Hit <RETURN> to continue" D ^DIR ; pause before the next round
|
---|
| 39 | Q
|
---|