source: FOIAVistA/tag/r/MEDICINE-MC/MCARENV.m@ 1767

Last change on this file since 1767 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1MCARENV ;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
Note: See TracBrowser for help on using the repository browser.