Changeset 931


Ignore:
Timestamp:
Sep 7, 2010, 7:38:31 AM (14 years ago)
Author:
Sam Habiel
Message:

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

Location:
BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m
Files:
59 edited

Legend:

Unmodified
Added
Removed
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADE1.m

    r645 r931  
    11BMXADE1 ; IHS/OIT/HMW - BMXNet ADO.NET PROVIDER ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADE2.m

    r645 r931  
    11BMXADE2 ; IHS/OIT/HMW - BMXNet ADO.NET PROVIDER ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADO.m

    r645 r931  
    11BMXADO  ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; SS^BMXADO: RPC EP FROM WINDOWS/WEB APP TO GENERATE A SCHEMEA STRING (& OPTIONALLY, A DATA SET AS WELL)
    44        ; THE SCHEMA DEFINITION AND MAP IS STORED IN THE 'BMX ADO SCHEMA' FILE
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADO2.m

    r645 r931  
    11BMXADO2 ; IHS/CIHA/GIS - BMX ADO RECORDSET UTILS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOF.m

    r645 r931  
    11BMXADOF ; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; THIS IS THE ADO RECORDSET FILER: ADO -> FILEMAN
    44        ; VISIT FILE UPDATES REPRESENT A SPECIAL CASE HTAT IS MANAGED IN BMXADOF1
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOF1.m

    r645 r931  
    11BMXADOF1        ; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; UPDATE FILEMAN WITH AN ADO RECORD SET FROM A WINDOWS/WEB APPLICATION
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOF2.m

    r645 r931  
    11BMXADOF2        ; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; THIS ROUTINE CONTAINS SPECIAL ENTRY POINTS FOR UPDATING RPMS
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOFD.m

    r645 r931  
    11BMXADOFD        ; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; THIS IS THE ADO RECORDSET FILER: ADO -> FILEMAN
    44        ; CONTAINS SPECIAL ENTRY POINT FOR RPMS DATA ENTRY
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOFS.m

    r645 r931  
    11BMXADOFS        ; IHS/CIHA/GIS - RPC CALL FOR EXTENDED FUNCTIONALITY OF BMXNet UTILITIES ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; THIS IS THE ADO RECORDSET FILER: ADO -> FILEMAN
    44        ; CONTAINS SPECIAL CODE RELATED TO FILING PROPLEMS, POVS, FAMILY HX, PERSONAL HX AND NOTES.
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOI.m

    r645 r931  
    11BMXADOI ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; CUSTOM IDENTIFIERS
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOS.m

    r645 r931  
    11BMXADOS ; IHS/CIHA/GIS - UPDATE THE BMX ADO SCHEMA FILE ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; ENABLES NAVIGATION TO SUBFILES PRIOR TO UPDATING THE SCHEMA FILE ENTRY
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOS1.m

    r645 r931  
    11BMXADOS1        ; IHS/CIHA/GIS - UPDATE THE BMX ADO SCHEMA FILE GUI VERSION ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; RPC CALLS
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOV.m

    r645 r931  
    11BMXADOV ; CIHA/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOV1.m

    r645 r931  
    11BMXADOV1        ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; CONTINUATION FILE FOR BMXADOV
    44        ; MANAGES ITERATION FOR INDIVIDUAL INDEX TYPES
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOV2.m

    r645 r931  
    11BMXADOV2        ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; CUSTOM ITERATORS FOR RPMS
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOVJ.m

    r645 r931  
    11BMXADOVJ        ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; THIS ROUTINE MANAGES THE JOINS
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOX.m

    r645 r931  
    11BMXADOX ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; EXMAPLES OF RPMS SCHEMAE GENERATION
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOX1.m

    r645 r931  
    11BMXADOX1        ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; EXMAPLES OF FILEMAN SCHEMA GENERATION
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOX2.m

    r645 r931  
    11BMXADOX2        ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; EXMAPLES OF FILEMAN SCHEMA GENERATION
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOXX.m

    r645 r931  
    11BMXADOXX        ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; EXMAPLES OF RPMS SCHEMAE GENERATION
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOXY.m

    r645 r931  
    11BMXADOXY        ; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; EXMAPLES OF FILEMAN SCHEMA GENERATION
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXE01.m

    r645 r931  
    11BMXE01  ; IHS/OIT/FJE - ENVIRONMENT CHECK FOR BMX 2.0 ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        S $P(LINE,"*",81)=""
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXFIND.m

    r645 r931  
    11BMXFIND ; IHS/OIT/HMW - BMX GENERIC FIND ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXG.m

    r645 r931  
    11BMXG    ; IHS/OIT/HMW - UTIL: GET DATA ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXGETS.m

    r645 r931  
    11BMXGETS ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;;Horace Whitt
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXMBRK.m

    r645 r931  
    11BMXMBRK ; IHS/OIT/HMW - BMXNet MONITOR ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXMBRK2.m

    r645 r931  
    11BMXMBRK2        ; IHS/OIT/HMW - BMXNet MONITOR ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXMEVN.m

    r645 r931  
    11BMXMEVN ; IHS/OIT/HMW - BMXNet MONITOR ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        Q
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXMON.m

    r645 r931  
    1 BMXMON  ; IHS/OIT/HMW - BMXNet MONITOR ; 7/20/2009
    2         ;;2.1;BMX;;Jul 26, 2009
     1BMXMON  ; IHS/OIT/HMW - BMXNet MONITOR ; 7/20/2009 ; 9/7/10 7:47am
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;IHS/OIT/HMW Patch 1 added validity check for passed-in namespace
     
    77        ; Addition of XINETD and GTMLNX entry points for support of GT.M
    88        ; Changes of W *-3 (which only works on Cache) to W !
     9           ; 9/7/2009: Minor bug fixes and enhancements
     10           ; In GTMLNX: Set process name
     11           ; In GTMLNX: Time out based now on the Kernel Broker Timeout field
     12           ; in kernel system parameters file
    913        ;
    1014STRT(BMXPORT,NS,IS,VB)  ;EP
     
    175179        ; Read message type
    176180        N BMXACT,BMXDTIME
    177         S BMXDTIME=999999
     181        S BMXDTIME=10  ; change in 2.2 instead of 9999999 - initial conn timout
    178182        R BMXACT#5:BMXDTIME
    179183        Q:BMXACT'="{BMX}"  ; Not a BMX message - quit.
     
    184188        N BMXDTIME,BMXLEN,BMXACT,BMXWIN,BMXNS
    185189        S BMXNSJ="",BMXWIN=0  ; No NS on GT.M, no Windows Authentication
    186         S BMXDTIME(1)=.5,BMXDTIME=999999
     190        S BMXDTIME(1)=.5,BMXDTIME=180  ; sign on timeout
    187191        R BMXACT#5:BMXDTIME ;Read next 5 chars - message length
    188192        S BMXLEN=+BMXACT
     
    197201SESSRES ;EP - reentry point from trap
    198202        ;IHS/OIT/HMW SAC Exemption Applied For
     203        S BMXDTIME(1)=.5,BMXDTIME=$$BAT^XUPARAM  ; new in 2.2: Use kernel rpc timeout instead of 9999999
     204           D SETNM^%ZOSV("BMX:ip"_$P(IO("GTM-IP"),".",3,4)) ; new in 2.2: set proces name
    199205        N $ESTACK S $ETRAP="D ETRAP^BMXMON"
    200206        S DIQUIET=1,U="^" D DT^DICRW
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXMSEC.m

    r645 r931  
    11BMXMSEC ; IHS/OIT/HMW - BMXNet MONITOR ; 7/20/2009
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; Edit History
    44        ; Line SETUP+2 has been changed to support GT.M //SMH 7/5/09
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXNTEG.m

    r645 r931  
    11BMXNTEG ;INTEGRITY CHECKER;FEB 26, 2007
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44START   ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXPO.m

    r645 r931  
    11BMXPO   ; IHS/CMI/MAW - Populate appcontext with all namespaced RPC's ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXPRS.m

    r645 r931  
    11BMXPRS  ; IHS/OIT/HMW - BMX WINDOWS UTILS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXRPC.m

    r930 r931  
    11BMXRPC  ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; 9/7/10 5:04am
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
    44        ;;  GENERIC LOOKUP UTILITY FOR RETURNING MATCHING RECORDS
     
    1212        ;
    1313        ;----------
    14     ; Change Log:
    15     ; UJO/SMH on 7 Sep 2010 -- added RPC for determining UTF-8 support
    16     ; Tag: UTF-8
     14           ; Change Log:
     15           ; UJO/SMH on 7 Sep 2010 -- added RPC for determining UTF-8 support
     16           ; Tag: UTF-8
    1717LOOKUP(BMXGBL,BMXFL,BMXFLDS,BMXFLG,BMXIN,BMXMX,BMXIX,BMXSCR,BMXMC)      ;EP
    1818        ;---> Places matching records from requested file into a
     
    169169        S ^BMXTEMP($J,1)=BMX31_BMXERR
    170170        Q
    171 UTF8(BMXRET)
    172     ; RPC: BMX UTF-8
    173     ; UJO/SMH - tests if this database supports UTF-8 encoding
    174     ; 0 for FALSE for 1 for TRUE.
    175     I ^%ZOSF("OS")'["GT.M" S BMXRET=0 QUIT
    176     I $ZCHSET="M" S BMXRET=0 QUIT
    177     I $ZCHSET="UTF-8" S BMXRET=1 QUIT
    178     S BMXRET=0 QUIT  ;default
     171UTF8(BMXRET)   
     172           ; RPC: BMX UTF-8
     173           ; UJO/SMH - tests if this database supports UTF-8 encoding
     174           ; 0 for FALSE for 1 for TRUE.
     175           I ^%ZOSF("OS")'["GT.M" S BMXRET=0 QUIT
     176           I $ZCHSET="M" S BMXRET=0 QUIT
     177           I $ZCHSET="UTF-8" S BMXRET=1 QUIT
     178           S BMXRET=0 QUIT  ;default
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXRPC1.m

    r645 r931  
    11BMXRPC1 ; IHS/OIT/HMW - UTIL: REMOTE PROCEDURE CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
    44        ;;  UTILITY: CODE FOR REMOTE PROCEDURE CALLS.
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXRPC2.m

    r645 r931  
    11BMXRPC2 ; IHS/OIT/HMW - FIELD LIST ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44FLDLIST(BMXGBL,BMXFL,BMXATTR,BMXSCR)           ;EP
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXRPC3.m

    r924 r931  
    11BMXRPC3 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;  ; 8/30/10 2:56pm
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;Mods by WV/SMH
    44        ;7/26/09 Removed references to ^AUTTSITE, an IHS file in GETFAC*
    55        ;8/30/10 Changed GETFCRS to return a better list of user divisions
    6     ; - Checks to see if there are any divisions
     6           ; - Checks to see if there are any divisions
    77        ;
    88VARVAL(RESULT,VARIABLE) ;returns value of passed in variable
     
    140140        ;/mods by //smh for WV
    141141        N $ET S $ET="G ERFC^BMXRPC3"
    142     N BMXFN    ; Facility Number
     142           N BMXFN    ; Facility Number
    143143        S BMXDUZ=$TR(BMXDUZ,$C(13)) ; Strip CR,LF,tab
    144144        S BMXDUZ=$TR(BMXDUZ,$C(10))
     
    148148        F  S BMXFN=$O(^VA(200,BMXDUZ,2,BMXFN)) Q:'BMXFN  D
    149149        . ; DD for ^VA(200,DUZ,2,DUZ(2)) is DUZ(2)^default. DUZ(2) is dinummed.
    150     . S BMXY=BMXY_$P(^DIC(4,BMXFN,0),U,1)_U_^VA(200,BMXDUZ,2,BMXFN,0)_$C(30)
    151     ; Crazy line: if we have no results, then use kernel's DUZ(2) set
    152     ; during sign-on
    153     I $L(BMXY,$C(30))<3 S BMXY=BMXY_$P(^DIC(4,DUZ(2),0),U,1)_U_DUZ(2)_$C(30)
     150           . S BMXY=BMXY_$P(^DIC(4,BMXFN,0),U,1)_U_^VA(200,BMXDUZ,2,BMXFN,0)_$C(30)
     151           ; Crazy line: if we have no results, then use kernel's DUZ(2) set
     152           ; during sign-on
     153           I $L(BMXY,$C(30))<3 S BMXY=BMXY_$P(^DIC(4,DUZ(2),0),U,1)_U_DUZ(2)_$C(30)
    154154        S BMXY=BMXY_$C(31)
    155155        Q
     
    167167        I '+BMXFAC S BMXY=BMXY_DUZ_"^"_0_"^"_0_$C(30)_$C(31) Q
    168168        ; //SMH Line below is incorrect. Facility valid if not in user profile
    169     ; if it is default kernel facility
    170     ; I '$D(^VA(200,DUZ,2,+BMXFAC)) S BMXY=BMXY_DUZ_"^"_0_"^"_0_$C(30)_$C(31) Q
     169           ; if it is default kernel facility
     170           ; I '$D(^VA(200,DUZ,2,+BMXFAC)) S BMXY=BMXY_DUZ_"^"_0_"^"_0_$C(30)_$C(31) Q
    171171        S DUZ(2)=BMXFAC ;IHS/OIT/HMW SAC Exemption Applied For
    172172        S BMXFACN=$G(^DIC(4,+DUZ(2),0))
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXRPC4.m

    r645 r931  
    11BMXRPC4 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44PTINFORS(BMXY,BMXIEN)          ;EP Patient Info Recordset
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXRPC5.m

    r645 r931  
    11BMXRPC5 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;Stolen from Mike Remillard.  If it doesn't work, it's his fault.
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXRPC6.m

    r645 r931  
    11BMXRPC6 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXRPC7.m

    r645 r931  
    11BMXRPC7 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXRPC8.m

    r645 r931  
    11BMXRPC8 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXRPC9.m

    r645 r931  
    11BMXRPC9 ; IHS/OIT/HMW - RPC CALL FOR EXTENDED BROKER FUNCTIONALITY ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; UPDATE FILEMAN WITH AN ADO RECORD SET FROM A WINDOWS APPLICATION
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXSQL.m

    r645 r931  
    11BMXSQL  ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXSQL1.m

    r645 r931  
    11BMXSQL1 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXSQL2.m

    r645 r931  
    11BMXSQL2 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXSQL3.m

    r645 r931  
    11BMXSQL3 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXSQL4.m

    r645 r931  
    11BMXSQL4 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXSQL5.m

    r645 r931  
    11BMXSQL5 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXSQL6.m

    r645 r931  
    11BMXSQL6 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; 7/20/2009
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ; Line EOR+3 used a 2 argument form of $Q which is not
    44        ; in the M 95 standard. Replaced this with a call to $$LAST,
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXSQL7.m

    r645 r931  
    11BMXSQL7 ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXSQL91.m

    r645 r931  
    11BMXSQL91        ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;Below is dead code, but keep for later
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXTABLE.m

    r645 r931  
    11BMXTABLE        ; IHS/OIT/HMW - BMX RETURN ENTIRE TABLE ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44TABLE(BMXGBL,BMXFL,BMXMX)          ;EP
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXTRS.m

    r645 r931  
    11BMXTRS  ; IHS/OIT/HMW - UPPERCASE-LOWERCASE ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44T(X)    ;EP
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXUTL1.m

    r645 r931  
    11BMXUTL1 ; IHS/OIT/HMW - UTIL: PATIENT DEMOGRAPHICS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
    44        ;;  UTILITY: PATIENT DEMOGRAPHICS.
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXUTL2.m

    r645 r931  
    11BMXUTL2 ; IHS/OIT/HMW - UTIL: PATIENT INFO ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
    44        ;;  UTILITY: PATIENT FUNCTIONS: CONTRAS, INPATIENT, HIDOSE.
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXUTL5.m

    r645 r931  
    11BMXUTL5 ; IHS/OIT/HMW - DATE FORMAT ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
    44        ;;  UTILITY: SETVARS, CENTERT, COPYLET,
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXUTL6.m

    r645 r931  
    11BMXUTL6 ; IHS/OIT/HMW - BMXNET INSTALLATION CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXUTL7.m

    r645 r931  
    11BMXUTL7 ; IHS/OIT/HMW - BMXNET INSTALLATION CALLS ;
    2         ;;2.1;BMX;;Jul 26, 2009
     2        ;;2.2;BMX;;Sep 07, 2010
    33        ;
    44        ;
Note: See TracChangeset for help on using the changeset viewer.