| 1 | GMRYXENV ;HIRMFO/FT-Environment Check for intake & Output v4.0 ;1/21/97 14:26
|
|---|
| 2 | ;;4.0;Intake/Output;;Apr 25, 1997
|
|---|
| 3 | GMRY ;
|
|---|
| 4 | I +$$VERSION^XPDUTL("REGISTRATION")<5.3 D BMES^XPDUTL("PIMS (MAS) V5.3 OR GREATER IS REQUIRED - CANNOT CONTINUE") S XPDABORT=2 Q
|
|---|
| 5 | Q:+$$VERSION^XPDUTL("GMRY")'>0 ;quit if virgin install
|
|---|
| 6 | ; find how many entries exist in Package File (#9.4)
|
|---|
| 7 | K GMRYIEN,GMRYERR
|
|---|
| 8 | D FIND^DIC(9.4,"","","X","GMRY","","C","","","GMRYIEN","GMRYERR")
|
|---|
| 9 | ; quit if FileMan lookup errors out
|
|---|
| 10 | I +$G(GMRYERR("DIERR")) D S GMRYSTOP=1 D KILL Q
|
|---|
| 11 | .K GMRYMSG
|
|---|
| 12 | .S GMRYMSG(1)="Error trying to lookup Intake & Output in the PACKAGE (#9.4) file."
|
|---|
| 13 | .S GMRYMSG(2)="Halting."
|
|---|
| 14 | .D BMES^XPDUTL(.GMRYMSG)
|
|---|
| 15 | .Q
|
|---|
| 16 | ; delete duplicates
|
|---|
| 17 | ; keep GEN. MED. REC. - I/O entry
|
|---|
| 18 | S GMRYSEQ=0
|
|---|
| 19 | F S GMRYSEQ=$O(GMRYIEN("DILIST",1,GMRYSEQ)) Q:GMRYSEQ'>0 D
|
|---|
| 20 | . S GMRYNAME=$G(GMRYIEN("DILIST",1,GMRYSEQ)) Q:GMRYNAME=""
|
|---|
| 21 | . I GMRYNAME="GEN. MED. REC. - I/O" Q
|
|---|
| 22 | . S DA=$G(GMRYIEN("DILIST",2,GMRYSEQ))
|
|---|
| 23 | . I DA S DIK="^DIC(9.4," D ^DIK
|
|---|
| 24 | . Q
|
|---|
| 25 | KILL ;
|
|---|
| 26 | S:$G(GMRYSTOP) XPDABORT=2 ;don't install transport global/leave in ^XTMP
|
|---|
| 27 | K DA,DIK,GMRYERR,GMRYIEN,GMRYMSG,GMRYNAME,GMRYSEQ,X,Y
|
|---|
| 28 | Q
|
|---|
