source: WorldVistAEHR/trunk/r/GEN_MED_REC_IO-GMRY/GMRYXENV.m@ 846

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1GMRYXENV ;HIRMFO/FT-Environment Check for intake & Output v4.0 ;1/21/97 14:26
2 ;;4.0;Intake/Output;;Apr 25, 1997
3GMRY ;
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
25KILL ;
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
Note: See TracBrowser for help on using the repository browser.