Changes in BMXMON to add process name and fix timeouts; change in version number to 2.2

m/BMXADE1.m

@@ -1,5 +1,5 @@
 BMXADE1	; IHS/OIT/HMW - BMXNet ADO.NET PROVIDER ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 	;Dental Excel report demo

m/BMXADE2.m

@@ -1,5 +1,5 @@
 BMXADE2	; IHS/OIT/HMW - BMXNet ADO.NET PROVIDER ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 	;Dental Excel report demo

m/BMXADO.m

@@ -1,5 +1,5 @@
 BMXADO	; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; SS^BMXADO: RPC EP FROM WINDOWS/WEB APP TO GENERATE A SCHEMEA STRING (& OPTIONALLY, A DATA SET AS WELL)
 	; THE SCHEMA DEFINITION AND MAP IS STORED IN THE 'BMX ADO SCHEMA' FILE
 	; THIS ROUTINE GENERATES THE SCHEMA STRING.  BMXADOV GENERATES THE DATA SET THAT GOES WITH THE SCHEMA STRING.

m/BMXADO2.m

@@ -1,5 +1,5 @@
 BMXADO2	; IHS/CIHA/GIS - BMX ADO RECORDSET UTILS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 GEN(BMXY,BMXF)	;EP - Generate an ADO Schema string from a list of fields

m/BMXADOF.m

@@ -1,5 +1,5 @@
 BMXADOF	; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; THIS IS THE ADO RECORDSET FILER: ADO -> FILEMAN
 	; VISIT FILE UPDATES REPRESENT A SPECIAL CASE HTAT IS MANAGED IN BMXADOF1
 	; INCLUDES TRANSACTION CONTROLS

m/BMXADOF1.m

@@ -1,5 +1,5 @@
 BMXADOF1	; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; UPDATE FILEMAN WITH AN ADO RECORD SET FROM A WINDOWS/WEB APPLICATION
 	; 
 	; 

m/BMXADOF2.m

@@ -1,5 +1,5 @@
 BMXADOF2	; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; THIS ROUTINE CONTAINS SPECIAL ENTRY POINTS FOR UPDATING RPMS
 	; 
 	; 

m/BMXADOFD.m

@@ -1,5 +1,5 @@
 BMXADOFD	; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; THIS IS THE ADO RECORDSET FILER: ADO -> FILEMAN
 	; CONTAINS SPECIAL ENTRY POINT FOR RPMS DATA ENTRY
 	; 

m/BMXADOFS.m

@@ -1,5 +1,5 @@
 BMXADOFS	; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; THIS IS THE ADO RECORDSET FILER: ADO -> FILEMAN
 	; CONTAINS SPECIAL CODE RELATED TO FILING PROPLEMS, POVS, FAMILY HX, PERSONAL HX AND NOTES.
 	; 

m/BMXADOI.m

@@ -1,5 +1,5 @@
 BMXADOI	; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; CUSTOM IDENTIFIERS
 	;
 	;

m/BMXADOS.m

@@ -1,5 +1,5 @@
 BMXADOS	; IHS/CIHA/GIS - UPDATE THE BMX ADO SCHEMA FILE ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; ENABLES NAVIGATION TO SUBFILES PRIOR TO UPDATING THE SCHEMA FILE ENTRY
 	; 
 	; 

m/BMXADOS1.m

@@ -1,5 +1,5 @@
 BMXADOS1	; IHS/CIHA/GIS - UPDATE THE BMX ADO SCHEMA FILE GUI VERSION ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; RPC CALLS
 	; 
 	; 

m/BMXADOV.m

@@ -1,5 +1,5 @@
 BMXADOV	; CIHA/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET 
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; 
 	; 
 	; 

m/BMXADOV1.m

@@ -1,5 +1,5 @@
 BMXADOV1	; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; CONTINUATION FILE FOR BMXADOV
 	; MANAGES ITERATION FOR INDIVIDUAL INDEX TYPES
 	; ASSUMES CERTAIN LOCAL VARS: CREF,FIEN,IENS,DAS (<-THESE CAN'T BE NULL),START,STOP,MAX,TOT,NUM,IX

m/BMXADOV2.m

@@ -1,5 +1,5 @@
 BMXADOV2	; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; CUSTOM ITERATORS FOR RPMS
 	;
 	;

m/BMXADOVJ.m

@@ -1,5 +1,5 @@
 BMXADOVJ	; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; THIS ROUTINE MANAGES THE JOINS
 	; 
 	; 

m/BMXADOX.m

@@ -1,5 +1,5 @@
 BMXADOX	; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; EXMAPLES OF RPMS SCHEMAE GENERATION
 	;
 	;

m/BMXADOX1.m

@@ -1,5 +1,5 @@
 BMXADOX1	; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; EXMAPLES OF FILEMAN SCHEMA GENERATION
 	;
 	;

m/BMXADOX2.m

@@ -1,5 +1,5 @@
 BMXADOX2	; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; EXMAPLES OF FILEMAN SCHEMA GENERATION
 	;
 DISP(OUT)	;

m/BMXADOXX.m

@@ -1,5 +1,5 @@
 BMXADOXX	; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; EXMAPLES OF RPMS SCHEMAE GENERATION
 	;
 	;

m/BMXADOXY.m

@@ -1,5 +1,5 @@
 BMXADOXY	; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; EXMAPLES OF FILEMAN SCHEMA GENERATION
 	;
 	;

m/BMXE01.m

@@ -1,5 +1,5 @@
 BMXE01	; IHS/OIT/FJE - ENVIRONMENT CHECK FOR BMX 2.0 ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	S $P(LINE,"*",81)=""
 	S XPDNOQUE="NO QUE"  ;NO QUEUING ALLOWED

m/BMXFIND.m

@@ -1,5 +1,5 @@
 BMXFIND	; IHS/OIT/HMW - BMX GENERIC FIND ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 TABLE(BMXGBL,BMXFL)	   ;EP

m/BMXG.m

@@ -1,5 +1,5 @@
 BMXG	; IHS/OIT/HMW - UTIL: GET DATA ; 
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
 	;
 	;

m/BMXGETS.m

@@ -1,5 +1,5 @@
 BMXGETS	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;;Horace Whitt
 	;;Interface to GETS^DIQ

m/BMXMBRK.m

@@ -1,5 +1,5 @@
 BMXMBRK	; IHS/OIT/HMW - BMXNet MONITOR ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 PRSP(P)	;EP -Parse Protocol

m/BMXMBRK2.m

@@ -1,5 +1,5 @@
 BMXMBRK2	; IHS/OIT/HMW - BMXNet MONITOR ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 CAPI(BMXY,TAG,NAM,PAR)	;EP - make API call

m/BMXMEVN.m

@@ -1,5 +1,5 @@
 BMXMEVN	; IHS/OIT/HMW - BMXNet MONITOR ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	Q
 	;

m/BMXMON.m

@@ -1,11 +1,15 @@
-BMXMON	; IHS/OIT/HMW - BMXNet MONITOR ; 7/20/2009
-	;;2.1;BMX;;Jul 26, 2009
+BMXMON	; IHS/OIT/HMW - BMXNet MONITOR ; 7/20/2009 ; 9/7/10 7:47am
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;IHS/OIT/HMW Patch 1 added validity check for passed-in namespace
 	; 7/20/2009: Release of patch to support GT.M WV/SMH
 	; Changes:
 	; Addition of XINETD and GTMLNX entry points for support of GT.M
 	; Changes of W *-3 (which only works on Cache) to W !
+	   ; 9/7/2009: Minor bug fixes and enhancements
+	   ; In GTMLNX: Set process name
+	   ; In GTMLNX: Time out based now on the Kernel Broker Timeout field 
+	   ; in kernel system parameters file
 	;
 STRT(BMXPORT,NS,IS,VB)	;EP
 	;Interactive monitor start
@@ -174,7 +178,7 @@ XINETD	;PEP Directly from xinetd or inetd for GT.M
 	I %["::ffff:" S IO("GTM-IP")=$P(%,"::ffff:",2) ; IPv6 support
 	; Read message type
 	N BMXACT,BMXDTIME
-	S BMXDTIME=999999
+	S BMXDTIME=10  ; change in 2.2 instead of 9999999 - initial conn timout
 	R BMXACT#5:BMXDTIME
 	Q:BMXACT'="{BMX}"  ; Not a BMX message - quit.
 	; Fall through to below...
@@ -183,7 +187,7 @@ GTMLNX	;EP from XWBTCPM for GT.M
 	; Vars: Read timeout, msg len, msg, windows auth, Namespace
 	N BMXDTIME,BMXLEN,BMXACT,BMXWIN,BMXNS
 	S BMXNSJ="",BMXWIN=0  ; No NS on GT.M, no Windows Authentication
-	S BMXDTIME(1)=.5,BMXDTIME=999999
+	S BMXDTIME(1)=.5,BMXDTIME=180  ; sign on timeout
 	R BMXACT#5:BMXDTIME ;Read next 5 chars - message length
 	S BMXLEN=+BMXACT
 	R BMXACT#BMXLEN:BMXDTIME
@@ -196,6 +200,8 @@ SESSION(BMXWIN)	;EP
 	;BMXWIN = 1: Enable integrated security
 SESSRES	;EP - reentry point from trap
 	;IHS/OIT/HMW SAC Exemption Applied For
+	S BMXDTIME(1)=.5,BMXDTIME=$$BAT^XUPARAM  ; new in 2.2: Use kernel rpc timeout instead of 9999999
+	   D SETNM^%ZOSV("BMX:ip"_$P(IO("GTM-IP"),".",3,4)) ; new in 2.2: set proces name
 	N $ESTACK S $ETRAP="D ETRAP^BMXMON"
 	S DIQUIET=1,U="^" D DT^DICRW
 	D UNREGALL^BMXMEVN ;Unregister all events for this session

m/BMXMSEC.m

@@ -1,5 +1,5 @@
 BMXMSEC	; IHS/OIT/HMW - BMXNet MONITOR ; 7/20/2009
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; Edit History
 	; Line SETUP+2 has been changed to support GT.M //SMH 7/5/09
 	; Per Wally Fort's GT.M code in XWBTCPM, IP for GT.M is stored

m/BMXNTEG.m

@@ -1,5 +1,5 @@
 BMXNTEG	;INTEGRITY CHECKER;FEB 26, 2007
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 START	;
 	NEW BYTE,COUNT,RTN

m/BMXPO.m

@@ -1,5 +1,5 @@
 BMXPO	; IHS/CMI/MAW - Populate appcontext with all namespaced RPC's ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 MAIN	;EP - this is the main routine driver

m/BMXPRS.m

@@ -1,5 +1,5 @@
 BMXPRS	; IHS/OIT/HMW - BMX WINDOWS UTILS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 PARSE(X)	;EP-Parse SQL Statement into array

m/BMXRPC.m

@@ -1,5 +1,5 @@
 BMXRPC	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; 9/7/10 5:04am
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
 	;;  GENERIC LOOKUP UTILITY FOR RETURNING MATCHING RECORDS
 	;;  OR TABLES TO RPC'S.
@@ -11,9 +11,9 @@ BMXRPC	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; 9/7/10 5:04am
 	;           before being used as an RPC.
 	;
 	;----------
-    ; Change Log:
-    ; UJO/SMH on 7 Sep 2010 -- added RPC for determining UTF-8 support
-    ; Tag: UTF-8
+	   ; Change Log:
+	   ; UJO/SMH on 7 Sep 2010 -- added RPC for determining UTF-8 support
+	   ; Tag: UTF-8
 LOOKUP(BMXGBL,BMXFL,BMXFLDS,BMXFLG,BMXIN,BMXMX,BMXIX,BMXSCR,BMXMC)	;EP
 	;---> Places matching records from requested file into a
 	;---> result global, ^BMXTEMP($J).  The exact global name
@@ -168,11 +168,11 @@ PASSERR(BMXGBL,BMXERR)	;EP
 	S BMXGBL="^BMXTEMP("_$J_")"
 	S ^BMXTEMP($J,1)=BMX31_BMXERR
 	Q
-UTF8(BMXRET)
-    ; RPC: BMX UTF-8
-    ; UJO/SMH - tests if this database supports UTF-8 encoding
-    ; 0 for FALSE for 1 for TRUE.
-    I ^%ZOSF("OS")'["GT.M" S BMXRET=0 QUIT
-    I $ZCHSET="M" S BMXRET=0 QUIT
-    I $ZCHSET="UTF-8" S BMXRET=1 QUIT
-    S BMXRET=0 QUIT  ;default
+UTF8(BMXRET)	
+	   ; RPC: BMX UTF-8
+	   ; UJO/SMH - tests if this database supports UTF-8 encoding
+	   ; 0 for FALSE for 1 for TRUE.
+	   I ^%ZOSF("OS")'["GT.M" S BMXRET=0 QUIT
+	   I $ZCHSET="M" S BMXRET=0 QUIT
+	   I $ZCHSET="UTF-8" S BMXRET=1 QUIT
+	   S BMXRET=0 QUIT  ;default

m/BMXRPC1.m

@@ -1,5 +1,5 @@
 BMXRPC1	; IHS/OIT/HMW - UTIL: REMOTE PROCEDURE CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
 	;;  UTILITY: CODE FOR REMOTE PROCEDURE CALLS.
 	;;  RETURNS PATIENT DATA, HEALTH SUMMARY, FACE SHEET.

m/BMXRPC2.m

@@ -1,5 +1,5 @@
 BMXRPC2	; IHS/OIT/HMW - FIELD LIST ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 FLDLIST(BMXGBL,BMXFL,BMXATTR,BMXSCR)	       ;EP
 	;TODO: Change all this to be a hard-coded $O thru ^DD

m/BMXRPC3.m

@@ -1,9 +1,9 @@
 BMXRPC3	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;  ; 8/30/10 2:56pm
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;Mods by WV/SMH
 	;7/26/09 Removed references to ^AUTTSITE, an IHS file in GETFAC*
 	;8/30/10 Changed GETFCRS to return a better list of user divisions
-    ; - Checks to see if there are any divisions
+	   ; - Checks to see if there are any divisions
 	;
 VARVAL(RESULT,VARIABLE)	;returns value of passed in variable
 	S VARIABLE=$TR(VARIABLE,"~","^")
@@ -139,7 +139,7 @@ GETFC(BMXFACS,DUZ)	;Gets all facilities for a user
 GETFCRS(BMXY,BMXDUZ)	;Gets all facilities for a user - returns RECORDSET
 	;/mods by //smh for WV
 	N $ET S $ET="G ERFC^BMXRPC3"
-    N BMXFN    ; Facility Number
+	   N BMXFN    ; Facility Number
 	S BMXDUZ=$TR(BMXDUZ,$C(13)) ; Strip CR,LF,tab
 	S BMXDUZ=$TR(BMXDUZ,$C(10))
 	S BMXDUZ=$TR(BMXDUZ,$C(9))
@@ -147,10 +147,10 @@ GETFCRS(BMXY,BMXDUZ)	;Gets all facilities for a user - returns RECORDSET
 	S BMXFN=0
 	F  S BMXFN=$O(^VA(200,BMXDUZ,2,BMXFN)) Q:'BMXFN  D
 	. ; DD for ^VA(200,DUZ,2,DUZ(2)) is DUZ(2)^default. DUZ(2) is dinummed.
-    . S BMXY=BMXY_$P(^DIC(4,BMXFN,0),U,1)_U_^VA(200,BMXDUZ,2,BMXFN,0)_$C(30)
-    ; Crazy line: if we have no results, then use kernel's DUZ(2) set
-    ; during sign-on
-    I $L(BMXY,$C(30))<3 S BMXY=BMXY_$P(^DIC(4,DUZ(2),0),U,1)_U_DUZ(2)_$C(30)
+	   . S BMXY=BMXY_$P(^DIC(4,BMXFN,0),U,1)_U_^VA(200,BMXDUZ,2,BMXFN,0)_$C(30)
+	   ; Crazy line: if we have no results, then use kernel's DUZ(2) set
+	   ; during sign-on
+	   I $L(BMXY,$C(30))<3 S BMXY=BMXY_$P(^DIC(4,DUZ(2),0),U,1)_U_DUZ(2)_$C(30)
 	S BMXY=BMXY_$C(31)
 	Q
 	;
@@ -166,8 +166,8 @@ SETFCRS(BMXY,BMXFAC)	     ;
 	I '+DUZ S BMXY=BMXY_0_"^"_0_"^"_0_$C(30)_$C(31) Q
 	I '+BMXFAC S BMXY=BMXY_DUZ_"^"_0_"^"_0_$C(30)_$C(31) Q
 	; //SMH Line below is incorrect. Facility valid if not in user profile
-    ; if it is default kernel facility
-    ; I '$D(^VA(200,DUZ,2,+BMXFAC)) S BMXY=BMXY_DUZ_"^"_0_"^"_0_$C(30)_$C(31) Q
+	   ; if it is default kernel facility
+	   ; I '$D(^VA(200,DUZ,2,+BMXFAC)) S BMXY=BMXY_DUZ_"^"_0_"^"_0_$C(30)_$C(31) Q
 	S DUZ(2)=BMXFAC ;IHS/OIT/HMW SAC Exemption Applied For
 	S BMXFACN=$G(^DIC(4,+DUZ(2),0))
 	S BMXFACN=$P(BMXFACN,"^")

m/BMXRPC4.m

@@ -1,5 +1,5 @@
 BMXRPC4	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 PTINFORS(BMXY,BMXIEN)	       ;EP Patient Info Recordset
 	;

m/BMXRPC5.m

@@ -1,5 +1,5 @@
 BMXRPC5	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;Stolen from Mike Remillard.  If it doesn't work, it's his fault.
 HS(BMXGBL,BMXDFN,BMXTYPE,BMXRDL,BMXFDL)	;EP

m/BMXRPC6.m

@@ -1,5 +1,5 @@
 BMXRPC6	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 USRKEYRS(BMXY,BMXDUZ)	       ;EP - Returns recordset of user's keys

m/BMXRPC7.m

@@ -1,5 +1,5 @@
 BMXRPC7	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 WINVAL(BMXRET,BMXWINID)	;EP

m/BMXRPC8.m

@@ -1,5 +1,5 @@
 BMXRPC8	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 BMXLOCKD(BMXY,BMXVAR,BMXINC,BMXTIME)	;EP

m/BMXRPC9.m

@@ -1,5 +1,5 @@
 BMXRPC9	; IHS/OIT/HMW - RPC CALL FOR EXTENDED BROKER FUNCTIONALITY ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; UPDATE FILEMAN WITH AN ADO RECORD SET FROM A WINDOWS APPLICATION
 	;
 	;

m/BMXSQL.m

@@ -1,5 +1,5 @@
 BMXSQL	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 	Q

m/BMXSQL1.m

@@ -1,5 +1,5 @@
 BMXSQL1	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 KW(BMXTK)	         ;EP

m/BMXSQL2.m

@@ -1,5 +1,5 @@
 BMXSQL2	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 FLDFILE(BMXIN)	    ;EP - Returns name of file containing field BMXIN

m/BMXSQL3.m

@@ -1,5 +1,5 @@
 BMXSQL3	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 PLEVEL(BMXFF,BMXLVL,BMXRET)	;EP

m/BMXSQL4.m

@@ -1,5 +1,5 @@
 BMXSQL4	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 JOIN	;EP - Join processing

m/BMXSQL5.m

@@ -1,5 +1,5 @@
 BMXSQL5	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 SELECT	;EP - Get field names into BMXFLD("NAME")="FILE#^FIELD#"

m/BMXSQL6.m

@@ -1,5 +1,5 @@
 BMXSQL6	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; 7/20/2009
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	; Line EOR+3 used a 2 argument form of $Q which is not
 	; in the M 95 standard. Replaced this with a call to $$LAST,
 	; a new Extrinsic in this routine.

m/BMXSQL7.m

@@ -1,5 +1,5 @@
 BMXSQL7	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 CHKCR(BMXFNUM,BMXFLDNU,BMXRET)	;Returns cross reference to iterate on for related file

m/BMXSQL91.m

@@ -1,5 +1,5 @@
 BMXSQL91	; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;Below is dead code, but keep for later
 SETX2	;Don't need this unless porting to machine with

m/BMXTABLE.m

@@ -1,5 +1,5 @@
 BMXTABLE	; IHS/OIT/HMW - BMX RETURN ENTIRE TABLE ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 TABLE(BMXGBL,BMXFL,BMXMX)	   ;EP
 	;

m/BMXTRS.m

@@ -1,5 +1,5 @@
 BMXTRS	; IHS/OIT/HMW - UPPERCASE-LOWERCASE ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 T(X)	;EP
 	;---> Translate word to mixed case.

m/BMXUTL1.m

@@ -1,5 +1,5 @@
 BMXUTL1	; IHS/OIT/HMW - UTIL: PATIENT DEMOGRAPHICS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
 	;;  UTILITY: PATIENT DEMOGRAPHICS.
 	;

m/BMXUTL2.m

@@ -1,5 +1,5 @@
 BMXUTL2	; IHS/OIT/HMW - UTIL: PATIENT INFO ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
 	;;  UTILITY: PATIENT FUNCTIONS: CONTRAS, INPATIENT, HIDOSE.
 	;

m/BMXUTL5.m

@@ -1,5 +1,5 @@
 BMXUTL5	; IHS/OIT/HMW - DATE FORMAT ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
 	;;  UTILITY: SETVARS, CENTERT, COPYLET,
 	;;           UPPERCASE XREFS, DATE FORMATS, PADS/SPACES.

m/BMXUTL6.m

@@ -1,5 +1,5 @@
 BMXUTL6	; IHS/OIT/HMW - BMXNET INSTALLATION CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 POST	;EP - Called from BMX Installation postinit

m/BMXUTL7.m

@@ -1,5 +1,5 @@
 BMXUTL7	; IHS/OIT/HMW - BMXNET INSTALLATION CALLS ;
-	;;2.1;BMX;;Jul 26, 2009
+	;;2.2;BMX;;Sep 07, 2010
 	;
 	;
 ENV	;EP Environment Check