| 1 | TIUEN113 ; SLC/JAK - Environment Check for TIU*1*113 ;28-AUG-2001 08:43
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**113**;Jun 20, 1997
|
|---|
| 3 | MAIN ; -- Control Unit
|
|---|
| 4 | ; Check all Hospital Location entries for division and all
|
|---|
| 5 | ; Medical Center Division entries for institution file pointer;
|
|---|
| 6 | ; if not all data present, quit
|
|---|
| 7 | ;
|
|---|
| 8 | N CHKOK,TIULOC S CHKOK=1,TIULOC=0
|
|---|
| 9 | W !!,"Checking DIVISION for all Hospital Location file (#44)"
|
|---|
| 10 | W !,"entries <AND> INSTITUTION FILE POINTER for all Medical"
|
|---|
| 11 | W !,"Center Division file (#40.8) entries..."
|
|---|
| 12 | W !!
|
|---|
| 13 | ;
|
|---|
| 14 | F S TIULOC=$O(^SC(TIULOC)) Q:'TIULOC!('CHKOK) D
|
|---|
| 15 | . N TIUDVHL
|
|---|
| 16 | . S TIUDVHL=+$P($G(^SC(TIULOC,0)),U,15) I 'TIUDVHL S CHKOK=0 Q
|
|---|
| 17 | I CHKOK=1 D
|
|---|
| 18 | . N TIUDIV,TIUIFP S TIUDIV=0
|
|---|
| 19 | . F S TIUDIV=$O(^DG(40.8,TIUDIV)) Q:'TIUDIV!('CHKOK) D
|
|---|
| 20 | . . S TIUIFP=+$G(^DG(40.8,"ADV",TIUDIV)) I 'TIUIFP S CHKOK=0 Q
|
|---|
| 21 | ;
|
|---|
| 22 | I 'CHKOK D
|
|---|
| 23 | . S XPDQUIT=1 ; kill transport global from ^XTMP
|
|---|
| 24 | . W !,"Sorry...DIVISION cannot be determined for all Hospital"
|
|---|
| 25 | . W !,"Location file (#44) entries <AND/OR> INSTITUTION FILE"
|
|---|
| 26 | . W !,"POINTER cannot be determined for all Medical Center"
|
|---|
| 27 | . W !,"Division file (#40.8) entries. Please review and correct"
|
|---|
| 28 | . W !,"both files as necessary."
|
|---|
| 29 | . W !!,"** ABORTING INSTALLATION **"
|
|---|
| 30 | E D
|
|---|
| 31 | . W !,"** Files are OK **"
|
|---|
| 32 | Q
|
|---|
