iSharkFly-Open
/
VistA-BMXNET_RPMS_dotNET_UTILITIES-BMX
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

oops... forgot to add new UTF-8 RPC to BMXRPC context

This commit is contained in:
sam 2010-09-08 07:25:23 +00:00
parent b2d0bb4390
commit 3f114e031a
1 changed files with 66 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

130
k/BMX_0220_WV.k
View File

@ -1,5 +1,5 @@
KIDS Distribution saved on Sep 07, 2010@09:37:36
BMX .net utilities v 2.2
KIDS Distribution saved on Sep 07, 2010@11:25:01
BMX.net Utilties for WV v2.2
**KIDS**:BMX 2.2^
**INSTALL NAME**
@ -75,7 +75,7 @@ y^y^f^^n^^y^a^n
"BLD",7651,4,"B",90093.99,90093.99)
"BLD",7651,6.3)
8
9
"BLD",7651,"ABPKG")
n
"BLD",7651,"INIT")
@ -2605,11 +2605,11 @@ BMX MONITOR EDIT^3040928.1231^@^90093.5^^@^3061103
"KRN",19,10982,-1)
0^5
"KRN",19,10982,0)
BMXRPC^BMX Procedure Calls^^B^^^^^^^^
BMXRPC^BMX Procedure Calls^^B^^^^^^^^BMXNET RPMS .NET UTILITIES
"KRN",19,10982,99.1)
59512,54859
"KRN",19,10982,"RPC",0)
^19.05P^81^81
^19.05P^82^82
"KRN",19,10982,"RPC",1,0)
BMX SQL
"KRN",19,10982,"RPC",2,0)
@ -2698,6 +2698,8 @@ BMX TIMER TEST
BMX ASYNC GET
"KRN",19,10982,"RPC",81,0)
BMX ASYNC QUEUE
"KRN",19,10982,"RPC",82,0)
BMX UTF-8
"KRN",19,10982,"U")
BMX PROCEDURE CALLS
"KRN",19,10983,-1)
@ -3131,7 +3133,7 @@ D XPZ2^XPDIQ
"RTN","BMXADE1",1,0)
BMXADE1 ; IHS/OIT/HMW - BMXNet ADO.NET PROVIDER ;
"RTN","BMXADE1",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADE1",3,0)
;
"RTN","BMXADE1",4,0)
@ -3299,7 +3301,7 @@ CALCMIN(BMXIEN,BMXSVC,BMXMIN,BMXFEE) ;
"RTN","BMXADE2",1,0)
BMXADE2 ; IHS/OIT/HMW - BMXNet ADO.NET PROVIDER ;
"RTN","BMXADE2",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADE2",3,0)
;
"RTN","BMXADE2",4,0)
@ -3481,7 +3483,7 @@ CODLVL(BMXCODP,BMXCOD,BMXLVL) ;
"RTN","BMXADO",1,0)
BMXADO ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
"RTN","BMXADO",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADO",3,0)
; SS^BMXADO: RPC EP FROM WINDOWS/WEB APP TO GENERATE A SCHEMEA STRING (& OPTIONALLY, A DATA SET AS WELL)
"RTN","BMXADO",4,0)
@ -3797,7 +3799,7 @@ ERR(ERR) ;EP - BMX ADO SCHEMA ERROR PROCESSOR
"RTN","BMXADO2",1,0)
BMXADO2 ; IHS/CIHA/GIS - BMX ADO RECORDSET UTILS ;
"RTN","BMXADO2",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADO2",3,0)
;
"RTN","BMXADO2",4,0)
@ -3959,7 +3961,7 @@ PTYPE(BMXDD) ;
"RTN","BMXADOF",1,0)
BMXADOF ; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ;
"RTN","BMXADOF",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOF",3,0)
; THIS IS THE ADO RECORDSET FILER: ADO -> FILEMAN
"RTN","BMXADOF",4,0)
@ -4417,7 +4419,7 @@ MERR ; MUMPS ERROR TRAP
"RTN","BMXADOF1",1,0)
BMXADOF1 ; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ;
"RTN","BMXADOF1",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOF1",3,0)
; UPDATE FILEMAN WITH AN ADO RECORD SET FROM A WINDOWS/WEB APPLICATION
"RTN","BMXADOF1",4,0)
@ -4569,7 +4571,7 @@ ERR(ERR) ;
"RTN","BMXADOF2",1,0)
BMXADOF2 ; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ;
"RTN","BMXADOF2",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOF2",3,0)
; THIS ROUTINE CONTAINS SPECIAL ENTRY POINTS FOR UPDATING RPMS
"RTN","BMXADOF2",4,0)
@ -4685,7 +4687,7 @@ XMATCH(NARR) ; IF THERE IS AN EXACT MATCH IN THE PROVIDER NARRATIVE FILE, RETURN
"RTN","BMXADOFD",1,0)
BMXADOFD ; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ;
"RTN","BMXADOFD",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOFD",3,0)
; THIS IS THE ADO RECORDSET FILER: ADO -> FILEMAN
"RTN","BMXADOFD",4,0)
@ -4855,7 +4857,7 @@ NEXTNOTE(PIEN,FIEN) ; RETRUN THE NEXT NOTE NUMBER FOR A PROBLEM AND FACILITY
"RTN","BMXADOFS",1,0)
BMXADOFS ; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ;
"RTN","BMXADOFS",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOFS",3,0)
; THIS IS THE ADO RECORDSET FILER: ADO -> FILEMAN
"RTN","BMXADOFS",4,0)
@ -5265,7 +5267,7 @@ PIENN(PIEN) ; GIVEN A PROBLEM IEN, RETURN PROBLEM NARRATIVE (ICD)
"RTN","BMXADOI",1,0)
BMXADOI ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
"RTN","BMXADOI",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOI",3,0)
; CUSTOM IDENTIFIERS
"RTN","BMXADOI",4,0)
@ -5431,7 +5433,7 @@ TD1 S %=$$UP^XLFSTR(%)
"RTN","BMXADOS",1,0)
BMXADOS ; IHS/CIHA/GIS - UPDATE THE BMX ADO SCHEMA FILE ;
"RTN","BMXADOS",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOS",3,0)
; ENABLES NAVIGATION TO SUBFILES PRIOR TO UPDATING THE SCHEMA FILE ENTRY
"RTN","BMXADOS",4,0)
@ -5961,7 +5963,7 @@ F2 S SS=""
"RTN","BMXADOS1",1,0)
BMXADOS1 ; IHS/CIHA/GIS - UPDATE THE BMX ADO SCHEMA FILE GUI VERSION ;
"RTN","BMXADOS1",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOS1",3,0)
; RPC CALLS
"RTN","BMXADOS1",4,0)
@ -6175,7 +6177,7 @@ SFT(FNAME) ; TRIGGER "YES" TO INDICATE THAT A SUBFILE IS PRESENT WITHIN A FILE
"RTN","BMXADOV",1,0)
BMXADOV ; CIHA/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET
"RTN","BMXADOV",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOV",3,0)
;
"RTN","BMXADOV",4,0)
@ -6421,7 +6423,7 @@ IXFLD(FIEN,IX) ;EP - GIVEN AN FILE NUMMER AND INDEX NAME, RETURIN THE FIELD NUMB
"RTN","BMXADOV1",1,0)
BMXADOV1 ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
"RTN","BMXADOV1",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOV1",3,0)
; CONTINUATION FILE FOR BMXADOV
"RTN","BMXADOV1",4,0)
@ -6881,7 +6883,7 @@ TESTID(DA) ; TEST IDENTIFIERS
"RTN","BMXADOV2",1,0)
BMXADOV2 ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
"RTN","BMXADOV2",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOV2",3,0)
; CUSTOM ITERATORS FOR RPMS
"RTN","BMXADOV2",4,0)
@ -7157,7 +7159,7 @@ APRV(PARAM,IENS,MAX,OUT,TOT) ; EP - RETURN A LIST OF ALL ACTIVE PROVIDERS
"RTN","BMXADOVJ",1,0)
BMXADOVJ ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
"RTN","BMXADOVJ",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOVJ",3,0)
; THIS ROUTINE MANAGES THE JOINS
"RTN","BMXADOVJ",4,0)
@ -7315,7 +7317,7 @@ JFLD ; EP-STUFF JOIN FIELD IDS INTO THE INTRO SEGMENT OF THE SCHEMA
"RTN","BMXADOX",1,0)
BMXADOX ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
"RTN","BMXADOX",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOX",3,0)
; EXMAPLES OF RPMS SCHEMAE GENERATION
"RTN","BMXADOX",4,0)
@ -8319,7 +8321,7 @@ DXGRID ; POPULATE THE DX GRID
"RTN","BMXADOX1",1,0)
BMXADOX1 ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
"RTN","BMXADOX1",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOX1",3,0)
; EXMAPLES OF FILEMAN SCHEMA GENERATION
"RTN","BMXADOX1",4,0)
@ -8971,7 +8973,7 @@ DELVAL ; DELETE A VALUE IN A FIELD
"RTN","BMXADOX2",1,0)
BMXADOX2 ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
"RTN","BMXADOX2",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOX2",3,0)
; EXMAPLES OF FILEMAN SCHEMA GENERATION
"RTN","BMXADOX2",4,0)
@ -9219,7 +9221,7 @@ IMAGE ; LIST SEGMENT IMAGE CONTROL PARAMETERS
"RTN","BMXADOXX",1,0)
BMXADOXX ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
"RTN","BMXADOXX",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOXX",3,0)
; EXMAPLES OF RPMS SCHEMAE GENERATION
"RTN","BMXADOXX",4,0)
@ -10099,7 +10101,7 @@ ADDREPRO ; UPDATE REPRODUCTIVE FACTORS
"RTN","BMXADOXY",1,0)
BMXADOXY ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
"RTN","BMXADOXY",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXADOXY",3,0)
; EXMAPLES OF FILEMAN SCHEMA GENERATION
"RTN","BMXADOXY",4,0)
@ -10693,7 +10695,7 @@ DELVAL ; DELETE A VALUE IN A FIELD
"RTN","BMXE01",1,0)
BMXE01 ; IHS/OIT/FJE - ENVIRONMENT CHECK FOR BMX 2.0 ;
"RTN","BMXE01",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXE01",3,0)
;
"RTN","BMXE01",4,0)
@ -10809,7 +10811,7 @@ SORRY ;
"RTN","BMXFIND",1,0)
BMXFIND ; IHS/OIT/HMW - BMX GENERIC FIND ;
"RTN","BMXFIND",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXFIND",3,0)
;
"RTN","BMXFIND",4,0)
@ -11331,7 +11333,7 @@ PASSERR(BMXGBL,BMXERR) ;EP
"RTN","BMXG",1,0)
BMXG ; IHS/OIT/HMW - UTIL: GET DATA ;
"RTN","BMXG",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXG",3,0)
;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
"RTN","BMXG",4,0)
@ -11441,7 +11443,7 @@ GET(FILE,Y,PC) ;EP
"RTN","BMXGETS",1,0)
BMXGETS ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
"RTN","BMXGETS",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXGETS",3,0)
;
"RTN","BMXGETS",4,0)
@ -11735,7 +11737,7 @@ PASSERR(BMXGBL,BMXERR) ;EP
"RTN","BMXMBRK",1,0)
BMXMBRK ; IHS/OIT/HMW - BMXNet MONITOR ;
"RTN","BMXMBRK",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXMBRK",3,0)
;
"RTN","BMXMBRK",4,0)
@ -12169,7 +12171,7 @@ CLRBUF ;p10 Empties Input buffer
"RTN","BMXMBRK2",1,0)
BMXMBRK2 ; IHS/OIT/HMW - BMXNet MONITOR ;
"RTN","BMXMBRK2",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXMBRK2",3,0)
;
"RTN","BMXMBRK2",4,0)
@ -12513,7 +12515,7 @@ TRANSPRT() ;Determine the Transport Method
"RTN","BMXMEVN",1,0)
BMXMEVN ; IHS/OIT/HMW - BMXNet MONITOR ;
"RTN","BMXMEVN",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXMEVN",3,0)
;
"RTN","BMXMEVN",4,0)
@ -13019,7 +13021,7 @@ ASYNCERR(BMXI,BMXERID) ;Error processing
"RTN","BMXMON",1,0)
BMXMON ; IHS/OIT/HMW - BMXNet MONITOR ; 7/20/2009 ; 9/7/10 7:47am
"RTN","BMXMON",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXMON",3,0)
;
"RTN","BMXMON",4,0)
@ -13741,7 +13743,7 @@ MENU ;EP - ENTRY ACTION FROM BMXMENU OPTION
"RTN","BMXMSEC",1,0)
BMXMSEC ; IHS/OIT/HMW - BMXNet MONITOR ; 7/20/2009
"RTN","BMXMSEC",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXMSEC",3,0)
; Edit History
"RTN","BMXMSEC",4,0)
@ -13897,7 +13899,7 @@ KILL(%) ;Kill state variable
"RTN","BMXNTEG",1,0)
BMXNTEG ;INTEGRITY CHECKER;FEB 26, 2007
"RTN","BMXNTEG",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXNTEG",3,0)
;
"RTN","BMXNTEG",4,0)
@ -14055,7 +14057,7 @@ LIST ;
"RTN","BMXPO",1,0)
BMXPO ; IHS/CMI/MAW - Populate appcontext with all namespaced RPC's ;
"RTN","BMXPO",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXPO",3,0)
;
"RTN","BMXPO",4,0)
@ -14199,7 +14201,7 @@ XIT ;-- clean vars
"RTN","BMXPRS",1,0)
BMXPRS ; IHS/OIT/HMW - BMX WINDOWS UTILS ;
"RTN","BMXPRS",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXPRS",3,0)
;
"RTN","BMXPRS",4,0)
@ -14409,7 +14411,7 @@ ERROR ;W !,"ERROR=",BMXERR,! Q
"RTN","BMXRPC",1,0)
BMXRPC ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; 9/7/10 5:04am
"RTN","BMXRPC",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXRPC",3,0)
;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
"RTN","BMXRPC",4,0)
@ -14767,7 +14769,7 @@ UTF8(BMXRET)
"RTN","BMXRPC1",1,0)
BMXRPC1 ; IHS/OIT/HMW - UTIL: REMOTE PROCEDURE CALLS ;
"RTN","BMXRPC1",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXRPC1",3,0)
;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
"RTN","BMXRPC1",4,0)
@ -15245,7 +15247,7 @@ FACE(BMXGBL,BMXDFN) ;EP
"RTN","BMXRPC2",1,0)
BMXRPC2 ; IHS/OIT/HMW - FIELD LIST ;
"RTN","BMXRPC2",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXRPC2",3,0)
;
"RTN","BMXRPC2",4,0)
@ -15471,7 +15473,7 @@ MLTLIST(BMXGBL,BMXFL,BMXONEOK) ;EP
"RTN","BMXRPC3",1,0)
BMXRPC3 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; ; 8/30/10 2:56pm
"RTN","BMXRPC3",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXRPC3",3,0)
;Mods by WV/SMH
"RTN","BMXRPC3",4,0)
@ -15945,7 +15947,7 @@ SIGCHK(BMXY,BMXSIG) ;EP
"RTN","BMXRPC4",1,0)
BMXRPC4 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
"RTN","BMXRPC4",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXRPC4",3,0)
;
"RTN","BMXRPC4",4,0)
@ -16243,7 +16245,7 @@ ZZZ ;
"RTN","BMXRPC5",1,0)
BMXRPC5 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
"RTN","BMXRPC5",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXRPC5",3,0)
;
"RTN","BMXRPC5",4,0)
@ -16493,7 +16495,7 @@ HS(BMXGBL,BMXDFN,BMXTYPE,BMXRDL,BMXFDL) ;EP
"RTN","BMXRPC6",1,0)
BMXRPC6 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
"RTN","BMXRPC6",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXRPC6",3,0)
;
"RTN","BMXRPC6",4,0)
@ -16719,7 +16721,7 @@ PDERR ;Error trap for PDEMO
"RTN","BMXRPC7",1,0)
BMXRPC7 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
"RTN","BMXRPC7",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXRPC7",3,0)
;
"RTN","BMXRPC7",4,0)
@ -16989,7 +16991,7 @@ ZZ ;;Halt;Error Messages
"RTN","BMXRPC8",1,0)
BMXRPC8 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
"RTN","BMXRPC8",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXRPC8",3,0)
;
"RTN","BMXRPC8",4,0)
@ -17169,7 +17171,7 @@ IMHERE(BMXRES) ;EP
"RTN","BMXRPC9",1,0)
BMXRPC9 ; IHS/OIT/HMW - RPC CALL FOR EXTENDED BROKER FUNCTIONALITY ;
"RTN","BMXRPC9",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXRPC9",3,0)
; UPDATE FILEMAN WITH AN ADO RECORD SET FROM A WINDOWS APPLICATION
"RTN","BMXRPC9",4,0)
@ -17501,7 +17503,7 @@ EX D ^XBFMK ; CLEANUP
"RTN","BMXSQL",1,0)
BMXSQL ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
"RTN","BMXSQL",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXSQL",3,0)
;
"RTN","BMXSQL",4,0)
@ -18315,7 +18317,7 @@ ERRTRAP ;
"RTN","BMXSQL1",1,0)
BMXSQL1 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
"RTN","BMXSQL1",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXSQL1",3,0)
;
"RTN","BMXSQL1",4,0)
@ -18989,7 +18991,7 @@ EXP ;Extended pointer
"RTN","BMXSQL2",1,0)
BMXSQL2 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
"RTN","BMXSQL2",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXSQL2",3,0)
;
"RTN","BMXSQL2",4,0)
@ -19185,7 +19187,7 @@ SETX(BMXX,BMXFG,BMXSCR) ;EP
"RTN","BMXSQL3",1,0)
BMXSQL3 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
"RTN","BMXSQL3",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXSQL3",3,0)
;
"RTN","BMXSQL3",4,0)
@ -19847,7 +19849,7 @@ BLDIT2 ;Pointer
"RTN","BMXSQL4",1,0)
BMXSQL4 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
"RTN","BMXSQL4",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXSQL4",3,0)
;
"RTN","BMXSQL4",4,0)
@ -19915,7 +19917,7 @@ JOIN ;EP - Join processing
"RTN","BMXSQL5",1,0)
BMXSQL5 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
"RTN","BMXSQL5",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXSQL5",3,0)
;
"RTN","BMXSQL5",4,0)
@ -20279,7 +20281,7 @@ PTYPE(BMXGNOD1) ;
"RTN","BMXSQL6",1,0)
BMXSQL6 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; 7/20/2009
"RTN","BMXSQL6",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXSQL6",3,0)
; Line EOR+3 used a 2 argument form of $Q which is not
"RTN","BMXSQL6",4,0)
@ -20967,7 +20969,7 @@ LAST(VAR) ; Get last entry in an array //SMH new code
"RTN","BMXSQL7",1,0)
BMXSQL7 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
"RTN","BMXSQL7",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXSQL7",3,0)
;
"RTN","BMXSQL7",4,0)
@ -21433,7 +21435,7 @@ ERROR Q
"RTN","BMXSQL91",1,0)
BMXSQL91 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
"RTN","BMXSQL91",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXSQL91",3,0)
;
"RTN","BMXSQL91",4,0)
@ -21717,7 +21719,7 @@ ZZZ Q
"RTN","BMXTABLE",1,0)
BMXTABLE ; IHS/OIT/HMW - BMX RETURN ENTIRE TABLE ;
"RTN","BMXTABLE",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXTABLE",3,0)
;
"RTN","BMXTABLE",4,0)
@ -21733,7 +21735,7 @@ TABLE(BMXGBL,BMXFL,BMXMX) ;EP
"RTN","BMXTRS",1,0)
BMXTRS ; IHS/OIT/HMW - UPPERCASE-LOWERCASE ;
"RTN","BMXTRS",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXTRS",3,0)
;
"RTN","BMXTRS",4,0)
@ -21819,7 +21821,7 @@ CHAR ;
"RTN","BMXUTL1",1,0)
BMXUTL1 ; IHS/OIT/HMW - UTIL: PATIENT DEMOGRAPHICS ;
"RTN","BMXUTL1",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXUTL1",3,0)
;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
"RTN","BMXUTL1",4,0)
@ -22481,7 +22483,7 @@ PERSON(X,ORDER) ;EP
"RTN","BMXUTL2",1,0)
BMXUTL2 ; IHS/OIT/HMW - UTIL: PATIENT INFO ;
"RTN","BMXUTL2",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXUTL2",3,0)
;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
"RTN","BMXUTL2",4,0)
@ -22547,7 +22549,7 @@ NEXTAPPT(BMXDFN) ;EP
"RTN","BMXUTL5",1,0)
BMXUTL5 ; IHS/OIT/HMW - DATE FORMAT ;
"RTN","BMXUTL5",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXUTL5",3,0)
;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
"RTN","BMXUTL5",4,0)
@ -22983,7 +22985,7 @@ STRIP(X) ;EP
"RTN","BMXUTL6",1,0)
BMXUTL6 ; IHS/OIT/HMW - BMXNET INSTALLATION CALLS ;
"RTN","BMXUTL6",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXUTL6",3,0)
;
"RTN","BMXUTL6",4,0)
@ -23057,7 +23059,7 @@ POST ;EP - Called from BMX Installation postinit
"RTN","BMXUTL7",1,0)
BMXUTL7 ; IHS/OIT/HMW - BMXNET INSTALLATION CALLS ; 9/7/10 9:34am
"RTN","BMXUTL7",2,0)
;;2.2;BMX;;Sep 07, 2010;Build 8
;;2.2;BMX;;Sep 07, 2010;Build 9
"RTN","BMXUTL7",3,0)
;
"RTN","BMXUTL7",4,0)