From 1ea109f5ee97da123a3f1696cad21aa252e79c12 Mon Sep 17 00:00:00 2001 From: sam Date: Mon, 25 Jul 2011 14:33:19 +0000 Subject: [PATCH] BMXMON fix; updated all routines to v 2.31 --- m/BMXADE1.m | 2 +- m/BMXADE2.m | 2 +- m/BMXADO.m | 2 +- m/BMXADO2.m | 2 +- m/BMXADOF.m | 2 +- m/BMXADOF1.m | 2 +- m/BMXADOF2.m | 2 +- m/BMXADOFD.m | 2 +- m/BMXADOFS.m | 2 +- m/BMXADOI.m | 2 +- m/BMXADOS.m | 2 +- m/BMXADOS1.m | 2 +- m/BMXADOV.m | 2 +- m/BMXADOV1.m | 2 +- m/BMXADOV2.m | 2 +- m/BMXADOVJ.m | 2 +- m/BMXADOX.m | 2 +- m/BMXADOX1.m | 2 +- m/BMXADOX2.m | 2 +- m/BMXADOXX.m | 2 +- m/BMXADOXY.m | 2 +- m/BMXE01.m | 2 +- m/BMXFIND.m | 2 +- m/BMXG.m | 2 +- m/BMXGETS.m | 2 +- m/BMXMBRK.m | 2 +- m/BMXMBRK2.m | 2 +- m/BMXMEVN.m | 2 +- m/BMXMON.m | 15 ++++++++++++--- m/BMXMSEC.m | 2 +- m/BMXNTEG.m | 2 +- m/BMXPO.m | 2 +- m/BMXPRS.m | 2 +- m/BMXRPC.m | 2 +- m/BMXRPC1.m | 2 +- m/BMXRPC2.m | 2 +- m/BMXRPC3.m | 2 +- m/BMXRPC4.m | 2 +- m/BMXRPC5.m | 2 +- m/BMXRPC6.m | 2 +- m/BMXRPC7.m | 2 +- m/BMXRPC8.m | 2 +- m/BMXRPC9.m | 2 +- m/BMXSQL.m | 2 +- m/BMXSQL1.m | 2 +- m/BMXSQL2.m | 2 +- m/BMXSQL3.m | 2 +- m/BMXSQL4.m | 2 +- m/BMXSQL5.m | 2 +- m/BMXSQL6.m | 2 +- m/BMXSQL7.m | 2 +- m/BMXSQL91.m | 2 +- m/BMXTABLE.m | 2 +- m/BMXTRS.m | 2 +- m/BMXUTL1.m | 2 +- m/BMXUTL2.m | 2 +- m/BMXUTL5.m | 2 +- m/BMXUTL6.m | 2 +- m/BMXUTL7.m | 2 +- 59 files changed, 70 insertions(+), 61 deletions(-) diff --git a/m/BMXADE1.m b/m/BMXADE1.m index 30efd52..cffc4bb 100644 --- a/m/BMXADE1.m +++ b/m/BMXADE1.m @@ -1,5 +1,5 @@ BMXADE1 ; IHS/OIT/HMW - BMXNet ADO.NET PROVIDER ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; ;Dental Excel report demo diff --git a/m/BMXADE2.m b/m/BMXADE2.m index 32a59ff..6b7bbeb 100644 --- a/m/BMXADE2.m +++ b/m/BMXADE2.m @@ -1,5 +1,5 @@ BMXADE2 ; IHS/OIT/HMW - BMXNet ADO.NET PROVIDER ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; ;Dental Excel report demo diff --git a/m/BMXADO.m b/m/BMXADO.m index 2b4c12e..7100b11 100644 --- a/m/BMXADO.m +++ b/m/BMXADO.m @@ -1,5 +1,5 @@ BMXADO ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; 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. diff --git a/m/BMXADO2.m b/m/BMXADO2.m index 009a30e..81cab67 100644 --- a/m/BMXADO2.m +++ b/m/BMXADO2.m @@ -1,5 +1,5 @@ BMXADO2 ; IHS/CIHA/GIS - BMX ADO RECORDSET UTILS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; GEN(BMXY,BMXF) ;EP - Generate an ADO Schema string from a list of fields diff --git a/m/BMXADOF.m b/m/BMXADOF.m index 415b862..e77aa2a 100644 --- a/m/BMXADOF.m +++ b/m/BMXADOF.m @@ -1,5 +1,5 @@ BMXADOF ; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; THIS IS THE ADO RECORDSET FILER: ADO -> FILEMAN ; VISIT FILE UPDATES REPRESENT A SPECIAL CASE HTAT IS MANAGED IN BMXADOF1 ; INCLUDES TRANSACTION CONTROLS diff --git a/m/BMXADOF1.m b/m/BMXADOF1.m index 3af1bb5..65efebb 100644 --- a/m/BMXADOF1.m +++ b/m/BMXADOF1.m @@ -1,5 +1,5 @@ BMXADOF1 ; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; UPDATE FILEMAN WITH AN ADO RECORD SET FROM A WINDOWS/WEB APPLICATION ; ; diff --git a/m/BMXADOF2.m b/m/BMXADOF2.m index 824939f..9e6b60f 100644 --- a/m/BMXADOF2.m +++ b/m/BMXADOF2.m @@ -1,5 +1,5 @@ BMXADOF2 ; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; THIS ROUTINE CONTAINS SPECIAL ENTRY POINTS FOR UPDATING RPMS ; ; diff --git a/m/BMXADOFD.m b/m/BMXADOFD.m index 166c3f8..64790f0 100644 --- a/m/BMXADOFD.m +++ b/m/BMXADOFD.m @@ -1,5 +1,5 @@ BMXADOFD ; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; THIS IS THE ADO RECORDSET FILER: ADO -> FILEMAN ; CONTAINS SPECIAL ENTRY POINT FOR RPMS DATA ENTRY ; diff --git a/m/BMXADOFS.m b/m/BMXADOFS.m index 0b1b969..30c7d16 100644 --- a/m/BMXADOFS.m +++ b/m/BMXADOFS.m @@ -1,5 +1,5 @@ BMXADOFS ; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; THIS IS THE ADO RECORDSET FILER: ADO -> FILEMAN ; CONTAINS SPECIAL CODE RELATED TO FILING PROPLEMS, POVS, FAMILY HX, PERSONAL HX AND NOTES. ; diff --git a/m/BMXADOI.m b/m/BMXADOI.m index 35f741b..7c5c890 100644 --- a/m/BMXADOI.m +++ b/m/BMXADOI.m @@ -1,5 +1,5 @@ BMXADOI ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; CUSTOM IDENTIFIERS ; ; diff --git a/m/BMXADOS.m b/m/BMXADOS.m index 5212954..a1954fd 100644 --- a/m/BMXADOS.m +++ b/m/BMXADOS.m @@ -1,5 +1,5 @@ BMXADOS ; IHS/CIHA/GIS - UPDATE THE BMX ADO SCHEMA FILE ; 12/7/10 4:07pm - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ENABLES NAVIGATION TO SUBFILES PRIOR TO UPDATING THE SCHEMA FILE ENTRY ; ; Change log: diff --git a/m/BMXADOS1.m b/m/BMXADOS1.m index 40b2de5..a34f030 100644 --- a/m/BMXADOS1.m +++ b/m/BMXADOS1.m @@ -1,5 +1,5 @@ BMXADOS1 ; IHS/CIHA/GIS - UPDATE THE BMX ADO SCHEMA FILE GUI VERSION ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; RPC CALLS ; ; diff --git a/m/BMXADOV.m b/m/BMXADOV.m index 39ed881..3405a1c 100644 --- a/m/BMXADOV.m +++ b/m/BMXADOV.m @@ -1,5 +1,5 @@ BMXADOV ; CIHA/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; ; diff --git a/m/BMXADOV1.m b/m/BMXADOV1.m index b1b35c5..01841d0 100644 --- a/m/BMXADOV1.m +++ b/m/BMXADOV1.m @@ -1,5 +1,5 @@ BMXADOV1 ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ; 12/7/10 4:12pm - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; 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 diff --git a/m/BMXADOV2.m b/m/BMXADOV2.m index f7c20ae..e12a8ad 100644 --- a/m/BMXADOV2.m +++ b/m/BMXADOV2.m @@ -1,5 +1,5 @@ BMXADOV2 ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; CUSTOM ITERATORS FOR RPMS ; ; diff --git a/m/BMXADOVJ.m b/m/BMXADOVJ.m index 7f6dbd9..6882fd5 100644 --- a/m/BMXADOVJ.m +++ b/m/BMXADOVJ.m @@ -1,5 +1,5 @@ BMXADOVJ ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; THIS ROUTINE MANAGES THE JOINS ; ; diff --git a/m/BMXADOX.m b/m/BMXADOX.m index 0c3c592..b694ebb 100644 --- a/m/BMXADOX.m +++ b/m/BMXADOX.m @@ -1,5 +1,5 @@ BMXADOX ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; EXMAPLES OF RPMS SCHEMAE GENERATION ; ; diff --git a/m/BMXADOX1.m b/m/BMXADOX1.m index d18cbe9..4b797d3 100644 --- a/m/BMXADOX1.m +++ b/m/BMXADOX1.m @@ -1,5 +1,5 @@ BMXADOX1 ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; EXMAPLES OF FILEMAN SCHEMA GENERATION ; ; diff --git a/m/BMXADOX2.m b/m/BMXADOX2.m index 5deacd6..9af5073 100644 --- a/m/BMXADOX2.m +++ b/m/BMXADOX2.m @@ -1,5 +1,5 @@ BMXADOX2 ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; EXMAPLES OF FILEMAN SCHEMA GENERATION ; DISP(OUT) ; diff --git a/m/BMXADOXX.m b/m/BMXADOXX.m index 393703e..d4044fe 100644 --- a/m/BMXADOXX.m +++ b/m/BMXADOXX.m @@ -1,5 +1,5 @@ BMXADOXX ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; EXMAPLES OF RPMS SCHEMAE GENERATION ; ; diff --git a/m/BMXADOXY.m b/m/BMXADOXY.m index a47cb65..80d157e 100644 --- a/m/BMXADOXY.m +++ b/m/BMXADOXY.m @@ -1,5 +1,5 @@ BMXADOXY ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; EXMAPLES OF FILEMAN SCHEMA GENERATION ; ; diff --git a/m/BMXE01.m b/m/BMXE01.m index b242f71..4349386 100644 --- a/m/BMXE01.m +++ b/m/BMXE01.m @@ -1,5 +1,5 @@ BMXE01 ; IHS/OIT/FJE - ENVIRONMENT CHECK FOR BMX 2.0 ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; S $P(LINE,"*",81)="" S XPDNOQUE="NO QUE" ;NO QUEUING ALLOWED diff --git a/m/BMXFIND.m b/m/BMXFIND.m index 736eb2a..7b6d0f6 100644 --- a/m/BMXFIND.m +++ b/m/BMXFIND.m @@ -1,5 +1,5 @@ BMXFIND ; IHS/OIT/HMW - BMX GENERIC FIND ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; TABLE(BMXGBL,BMXFL) ;EP diff --git a/m/BMXG.m b/m/BMXG.m index 9c80d8c..55b9612 100644 --- a/m/BMXG.m +++ b/m/BMXG.m @@ -1,5 +1,5 @@ BMXG ; IHS/OIT/HMW - UTIL: GET DATA ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER * ; ; diff --git a/m/BMXGETS.m b/m/BMXGETS.m index ad9970f..0261fe9 100644 --- a/m/BMXGETS.m +++ b/m/BMXGETS.m @@ -1,5 +1,5 @@ BMXGETS ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ;;Horace Whitt ;;Interface to GETS^DIQ diff --git a/m/BMXMBRK.m b/m/BMXMBRK.m index 55d59dd..dce4714 100644 --- a/m/BMXMBRK.m +++ b/m/BMXMBRK.m @@ -1,5 +1,5 @@ BMXMBRK ; IHS/OIT/HMW - BMXNet MONITOR ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; PRSP(P) ;EP -Parse Protocol diff --git a/m/BMXMBRK2.m b/m/BMXMBRK2.m index e2cc5e9..d13cafe 100644 --- a/m/BMXMBRK2.m +++ b/m/BMXMBRK2.m @@ -1,5 +1,5 @@ BMXMBRK2 ; IHS/OIT/HMW - BMXNet MONITOR ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; CAPI(BMXY,TAG,NAM,PAR) ;EP - make API call diff --git a/m/BMXMEVN.m b/m/BMXMEVN.m index 4befb6e..38f39df 100644 --- a/m/BMXMEVN.m +++ b/m/BMXMEVN.m @@ -1,5 +1,5 @@ BMXMEVN ; IHS/OIT/HMW - BMXNet MONITOR ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; Q ; diff --git a/m/BMXMON.m b/m/BMXMON.m index 5261d43..f822c3a 100644 --- a/m/BMXMON.m +++ b/m/BMXMON.m @@ -1,5 +1,5 @@ -BMXMON ; IHS/OIT/HMW - BMXNet MONITOR ; 7/20/2009 ; 12/7/10 3:20pm - ;;2.3;BMX;;Jan 25, 2011 +BMXMON ; IHS/OIT/HMW,VW/SMH - BMXNet MONITOR ; 7/20/2009 ; 7/25/11 9:32am + ;;2.31;BMX;;Jul 25, 2011 ; ;IHS/OIT/HMW Patch 1 added validity check for passed-in namespace ; 7/20/2009: Release of patch to support GT.M WV/SMH @@ -15,6 +15,10 @@ BMXMON ; IHS/OIT/HMW - BMXNet MONITOR ; 7/20/2009 ; 12/7/10 3:20pm ; write error, it's not logged to the Error Trap ; Set Process Name crashed on Cache due to undefined IO("GT.M"). ; Now this is surrounded by $Get to prevent this error. + ; 6/25/2011: Fix to error trapping introduced by last patch. + ; Having N $ETRAP before setting $ETRAP as the backup trap causes + ; an infinite loop because of the restoration of the old trap + ; which lead it there in the first place. Removing N $ETRAP. ; STRT(BMXPORT,NS,IS,VB) ;EP ;Interactive monitor start @@ -331,7 +335,12 @@ ETRAP ; -- on trapped error, send error info to client N BMXERC,BMXERR,BMXLGR ; ; Change trapping during trap. - N $ETRAP S $ETRAP="D ^%ZTER HALT" + ; V:2.31: Removed N $ETRAP as it caused an infinite loop + ; when combined with the penultimate line of this trap. + ; N $ETRAP causes it to revert back to the old trap which + ; is this EP when a quit happens to pop the $STACK. + ; + S $ETRAP="D ^%ZTER HALT" ; ; If the error is simply that we can't write to the TCP device ; clear and log out diff --git a/m/BMXMSEC.m b/m/BMXMSEC.m index 87cf26a..6f4f8b9 100644 --- a/m/BMXMSEC.m +++ b/m/BMXMSEC.m @@ -1,5 +1,5 @@ BMXMSEC ; IHS/OIT/HMW - BMXNet MONITOR ; 7/20/2009 - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; 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 diff --git a/m/BMXNTEG.m b/m/BMXNTEG.m index d6d0fa3..f162921 100644 --- a/m/BMXNTEG.m +++ b/m/BMXNTEG.m @@ -1,5 +1,5 @@ BMXNTEG ;INTEGRITY CHECKER;FEB 26, 2007 - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; START ; NEW BYTE,COUNT,RTN diff --git a/m/BMXPO.m b/m/BMXPO.m index ce7032a..d239697 100644 --- a/m/BMXPO.m +++ b/m/BMXPO.m @@ -1,5 +1,5 @@ BMXPO ; IHS/CMI/MAW - Populate appcontext with all namespaced RPC's ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; MAIN ;EP - this is the main routine driver diff --git a/m/BMXPRS.m b/m/BMXPRS.m index 1565b77..bbad769 100644 --- a/m/BMXPRS.m +++ b/m/BMXPRS.m @@ -1,5 +1,5 @@ BMXPRS ; IHS/OIT/HMW - BMX WINDOWS UTILS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; PARSE(X) ;EP-Parse SQL Statement into array diff --git a/m/BMXRPC.m b/m/BMXRPC.m index b7f9a83..cb140e8 100644 --- a/m/BMXRPC.m +++ b/m/BMXRPC.m @@ -1,5 +1,5 @@ BMXRPC ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; 9/7/10 5:04am - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER * ;; GENERIC LOOKUP UTILITY FOR RETURNING MATCHING RECORDS ;; OR TABLES TO RPC'S. diff --git a/m/BMXRPC1.m b/m/BMXRPC1.m index f7c899b..04afdb1 100644 --- a/m/BMXRPC1.m +++ b/m/BMXRPC1.m @@ -1,5 +1,5 @@ BMXRPC1 ; IHS/OIT/HMW - UTIL: REMOTE PROCEDURE CALLS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER * ;; UTILITY: CODE FOR REMOTE PROCEDURE CALLS. ;; RETURNS PATIENT DATA, HEALTH SUMMARY, FACE SHEET. diff --git a/m/BMXRPC2.m b/m/BMXRPC2.m index e9fb6ea..7d30a22 100644 --- a/m/BMXRPC2.m +++ b/m/BMXRPC2.m @@ -1,5 +1,5 @@ BMXRPC2 ; IHS/OIT/HMW - FIELD LIST ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; FLDLIST(BMXGBL,BMXFL,BMXATTR,BMXSCR) ;EP ;TODO: Change all this to be a hard-coded $O thru ^DD diff --git a/m/BMXRPC3.m b/m/BMXRPC3.m index e3c68eb..855b9d1 100644 --- a/m/BMXRPC3.m +++ b/m/BMXRPC3.m @@ -1,5 +1,5 @@ BMXRPC3 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; ; 8/30/10 2:56pm - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ;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 diff --git a/m/BMXRPC4.m b/m/BMXRPC4.m index dc4049e..ba21a87 100644 --- a/m/BMXRPC4.m +++ b/m/BMXRPC4.m @@ -1,5 +1,5 @@ BMXRPC4 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; PTINFORS(BMXY,BMXIEN) ;EP Patient Info Recordset ; diff --git a/m/BMXRPC5.m b/m/BMXRPC5.m index 78d4169..8f410de 100644 --- a/m/BMXRPC5.m +++ b/m/BMXRPC5.m @@ -1,5 +1,5 @@ BMXRPC5 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ;Stolen from Mike Remillard. If it doesn't work, it's his fault. HS(BMXGBL,BMXDFN,BMXTYPE,BMXRDL,BMXFDL) ;EP diff --git a/m/BMXRPC6.m b/m/BMXRPC6.m index 0e8b37a..9b6497e 100644 --- a/m/BMXRPC6.m +++ b/m/BMXRPC6.m @@ -1,5 +1,5 @@ BMXRPC6 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; USRKEYRS(BMXY,BMXDUZ) ;EP - Returns recordset of user's keys diff --git a/m/BMXRPC7.m b/m/BMXRPC7.m index 79ac385..44e6a82 100644 --- a/m/BMXRPC7.m +++ b/m/BMXRPC7.m @@ -1,5 +1,5 @@ BMXRPC7 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; WINVAL(BMXRET,BMXWINID) ;EP diff --git a/m/BMXRPC8.m b/m/BMXRPC8.m index 1e8ebfe..4730c6b 100644 --- a/m/BMXRPC8.m +++ b/m/BMXRPC8.m @@ -1,5 +1,5 @@ BMXRPC8 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; 12/7/10 8:12am - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; BMXLOCKD(BMXY,BMXVAR,BMXINC,BMXTIME) ;EP diff --git a/m/BMXRPC9.m b/m/BMXRPC9.m index c0679a9..878e19d 100644 --- a/m/BMXRPC9.m +++ b/m/BMXRPC9.m @@ -1,5 +1,5 @@ BMXRPC9 ; IHS/OIT/HMW - RPC CALL FOR EXTENDED BROKER FUNCTIONALITY ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; UPDATE FILEMAN WITH AN ADO RECORD SET FROM A WINDOWS APPLICATION ; ; diff --git a/m/BMXSQL.m b/m/BMXSQL.m index a4b02f8..99e0b2c 100644 --- a/m/BMXSQL.m +++ b/m/BMXSQL.m @@ -1,5 +1,5 @@ BMXSQL ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; Q diff --git a/m/BMXSQL1.m b/m/BMXSQL1.m index 8b19ddc..400b43c 100644 --- a/m/BMXSQL1.m +++ b/m/BMXSQL1.m @@ -1,5 +1,5 @@ BMXSQL1 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; KW(BMXTK) ;EP diff --git a/m/BMXSQL2.m b/m/BMXSQL2.m index 0f8fb0c..304a2db 100644 --- a/m/BMXSQL2.m +++ b/m/BMXSQL2.m @@ -1,5 +1,5 @@ BMXSQL2 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; FLDFILE(BMXIN) ;EP - Returns name of file containing field BMXIN diff --git a/m/BMXSQL3.m b/m/BMXSQL3.m index d4a095b..f33ced5 100644 --- a/m/BMXSQL3.m +++ b/m/BMXSQL3.m @@ -1,5 +1,5 @@ BMXSQL3 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; PLEVEL(BMXFF,BMXLVL,BMXRET) ;EP diff --git a/m/BMXSQL4.m b/m/BMXSQL4.m index 604107f..941cef5 100644 --- a/m/BMXSQL4.m +++ b/m/BMXSQL4.m @@ -1,5 +1,5 @@ BMXSQL4 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; JOIN ;EP - Join processing diff --git a/m/BMXSQL5.m b/m/BMXSQL5.m index c449fdc..b094743 100644 --- a/m/BMXSQL5.m +++ b/m/BMXSQL5.m @@ -1,5 +1,5 @@ BMXSQL5 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; SELECT ;EP - Get field names into BMXFLD("NAME")="FILE#^FIELD#" diff --git a/m/BMXSQL6.m b/m/BMXSQL6.m index 1271c94..70e5ade 100644 --- a/m/BMXSQL6.m +++ b/m/BMXSQL6.m @@ -1,5 +1,5 @@ BMXSQL6 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; 7/20/2009 - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; 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. diff --git a/m/BMXSQL7.m b/m/BMXSQL7.m index 5e50a7c..ba76894 100644 --- a/m/BMXSQL7.m +++ b/m/BMXSQL7.m @@ -1,5 +1,5 @@ BMXSQL7 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; CHKCR(BMXFNUM,BMXFLDNU,BMXRET) ;Returns cross reference to iterate on for related file diff --git a/m/BMXSQL91.m b/m/BMXSQL91.m index e1fc1ab..37f8aac 100644 --- a/m/BMXSQL91.m +++ b/m/BMXSQL91.m @@ -1,5 +1,5 @@ BMXSQL91 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ;Below is dead code, but keep for later SETX2 ;Don't need this unless porting to machine with diff --git a/m/BMXTABLE.m b/m/BMXTABLE.m index b36d563..0b09d8a 100644 --- a/m/BMXTABLE.m +++ b/m/BMXTABLE.m @@ -1,5 +1,5 @@ BMXTABLE ; IHS/OIT/HMW - BMX RETURN ENTIRE TABLE ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; TABLE(BMXGBL,BMXFL,BMXMX) ;EP ; diff --git a/m/BMXTRS.m b/m/BMXTRS.m index ec2a5eb..7645888 100644 --- a/m/BMXTRS.m +++ b/m/BMXTRS.m @@ -1,5 +1,5 @@ BMXTRS ; IHS/OIT/HMW - UPPERCASE-LOWERCASE ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; T(X) ;EP ;---> Translate word to mixed case. diff --git a/m/BMXUTL1.m b/m/BMXUTL1.m index b303519..e241f5a 100644 --- a/m/BMXUTL1.m +++ b/m/BMXUTL1.m @@ -1,5 +1,5 @@ BMXUTL1 ; IHS/OIT/HMW - UTIL: PATIENT DEMOGRAPHICS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER * ;; UTILITY: PATIENT DEMOGRAPHICS. ; diff --git a/m/BMXUTL2.m b/m/BMXUTL2.m index 39f84ca..74c3f15 100644 --- a/m/BMXUTL2.m +++ b/m/BMXUTL2.m @@ -1,5 +1,5 @@ BMXUTL2 ; IHS/OIT/HMW - UTIL: PATIENT INFO ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER * ;; UTILITY: PATIENT FUNCTIONS: CONTRAS, INPATIENT, HIDOSE. ; diff --git a/m/BMXUTL5.m b/m/BMXUTL5.m index e745568..e232e5e 100644 --- a/m/BMXUTL5.m +++ b/m/BMXUTL5.m @@ -1,5 +1,5 @@ BMXUTL5 ; IHS/OIT/HMW - DATE FORMAT ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER * ;; UTILITY: SETVARS, CENTERT, COPYLET, ;; UPPERCASE XREFS, DATE FORMATS, PADS/SPACES. diff --git a/m/BMXUTL6.m b/m/BMXUTL6.m index fdb4b5b..5861ccb 100644 --- a/m/BMXUTL6.m +++ b/m/BMXUTL6.m @@ -1,5 +1,5 @@ BMXUTL6 ; IHS/OIT/HMW - BMXNET INSTALLATION CALLS ; - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; POST ;EP - Called from BMX Installation postinit diff --git a/m/BMXUTL7.m b/m/BMXUTL7.m index 275f6f0..1e10ca3 100644 --- a/m/BMXUTL7.m +++ b/m/BMXUTL7.m @@ -1,5 +1,5 @@ BMXUTL7 ; IHS/OIT/HMW - BMXNET INSTALLATION CALLS ; 9/7/10 9:34am - ;;2.3;BMX;;Jan 25, 2011 + ;;2.31;BMX;;Jul 25, 2011 ; ; ENV ;EP Environment Check