Updated license for routines
This commit is contained in:
sam
parent
5d53c9b73a
commit
59866e33d9
28
p/C0SDEM.m
28
p/C0SDEM.m
|
|
@ -1,21 +1,19 @@
|
||||||
C0SDEM ; GPL - Smart Demographics Processing ;2/22/12 17:05
|
C0SDEM ; GPL - Smart Demographics Processing ; 10/30/12 10:59am
|
||||||
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 4
|
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 5
|
||||||
;Copyright 2012 George Lilly. Licensed under the terms of the GNU
|
;Copyright 2012 George Lilly.
|
||||||
;General Public License See attached copy of the License.
|
|
||||||
;
|
;
|
||||||
;This program is free software; you can redistribute it and/or modify
|
; This program is free software: you can redistribute it and/or modify
|
||||||
;it under the terms of the GNU General Public License as published by
|
; it under the terms of the GNU Affero General Public License as
|
||||||
;the Free Software Foundation; either version 2 of the License, or
|
; published by the Free Software Foundation, either version 3 of the
|
||||||
;(at your option) any later version.
|
; License, or (at your option) any later version.
|
||||||
;
|
;
|
||||||
;This program is distributed in the hope that it will be useful,
|
; This program is distributed in the hope that it will be useful,
|
||||||
;but WITHOUT ANY WARRANTY; without even the implied warranty of
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
;GNU General Public License for more details.
|
; GNU Affero General Public License for more details.
|
||||||
;
|
;
|
||||||
;You should have received a copy of the GNU General Public License along
|
; You should have received a copy of the GNU Affero General Public License
|
||||||
;with this program; if not, write to the Free Software Foundation, Inc.,
|
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
||||||
;
|
;
|
||||||
Q
|
Q
|
||||||
;
|
;
|
||||||
|
|
|
||||||
27
p/C0SDOM.m
27
p/C0SDOM.m
|
|
@ -1,22 +1,19 @@
|
||||||
C0SDOM ; GPL - Smart Container - DOM PROCESSING ROUTINES ;6/6/11 17:05
|
C0SDOM ; GPL - Smart Container - DOM PROCESSING ROUTINES ;6/6/11 17:05
|
||||||
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 4
|
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 5
|
||||||
;Copyright 2011,2012 George Lilly. Licensed under the terms of the GNU
|
;Copyright 2011,2012 George Lilly.
|
||||||
;General Public License See attached copy of the License.
|
|
||||||
;
|
;
|
||||||
;This program is free software; you can redistribute it and/or modify
|
; This program is free software: you can redistribute it and/or modify
|
||||||
;it under the terms of the GNU General Public License as published by
|
; it under the terms of the GNU Affero General Public License as
|
||||||
;the Free Software Foundation; either version 2 of the License, or
|
; published by the Free Software Foundation, either version 3 of the
|
||||||
;(at your option) any later version.
|
; License, or (at your option) any later version.
|
||||||
;
|
;
|
||||||
|
; This program is distributed in the hope that it will be useful,
|
||||||
;This program is distributed in the hope that it will be useful,
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
;but WITHOUT ANY WARRANTY; without even the implied warranty of
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
; GNU Affero General Public License for more details.
|
||||||
;GNU General Public License for more details.
|
|
||||||
;
|
;
|
||||||
;You should have received a copy of the GNU General Public License along
|
; You should have received a copy of the GNU Affero General Public License
|
||||||
;with this program; if not, write to the Free Software Foundation, Inc.,
|
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
||||||
;
|
;
|
||||||
Q
|
Q
|
||||||
;
|
;
|
||||||
|
|
|
||||||
26
p/C0SLAB.m
26
p/C0SLAB.m
|
|
@ -1,21 +1,19 @@
|
||||||
C0SLAB ; GPL - Smart Lab Processing ;4/15/12 17:05
|
C0SLAB ; GPL - Smart Lab Processing ;4/15/12 17:05
|
||||||
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 4
|
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 5
|
||||||
;Copyright 2012 George Lilly. Licensed under the terms of the GNU
|
;Copyright 2012 George Lilly.
|
||||||
;General Public License See attached copy of the License.
|
|
||||||
;
|
;
|
||||||
;This program is free software; you can redistribute it and/or modify
|
; This program is free software: you can redistribute it and/or modify
|
||||||
;it under the terms of the GNU General Public License as published by
|
; it under the terms of the GNU Affero General Public License as
|
||||||
;the Free Software Foundation; either version 2 of the License, or
|
; published by the Free Software Foundation, either version 3 of the
|
||||||
;(at your option) any later version.
|
; License, or (at your option) any later version.
|
||||||
;
|
;
|
||||||
;This program is distributed in the hope that it will be useful,
|
; This program is distributed in the hope that it will be useful,
|
||||||
;but WITHOUT ANY WARRANTY; without even the implied warranty of
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
;GNU General Public License for more details.
|
; GNU Affero General Public License for more details.
|
||||||
;
|
;
|
||||||
;You should have received a copy of the GNU General Public License along
|
; You should have received a copy of the GNU Affero General Public License
|
||||||
;with this program; if not, write to the Free Software Foundation, Inc.,
|
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
||||||
;
|
;
|
||||||
Q
|
Q
|
||||||
;
|
;
|
||||||
|
|
|
||||||
26
p/C0SMART.m
26
p/C0SMART.m
|
|
@ -1,21 +1,19 @@
|
||||||
C0SMART ; GPL - Smart Container Entry Points;2/22/12 17:05
|
C0SMART ; GPL - Smart Container Entry Points;2/22/12 17:05
|
||||||
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 4
|
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 5
|
||||||
;Copyright 2012 George Lilly. Licensed under the terms of the GNU
|
;Copyright 2012 George Lilly.
|
||||||
;General Public License See attached copy of the License.
|
|
||||||
;
|
;
|
||||||
;This program is free software; you can redistribute it and/or modify
|
; This program is free software: you can redistribute it and/or modify
|
||||||
;it under the terms of the GNU General Public License as published by
|
; it under the terms of the GNU Affero General Public License as
|
||||||
;the Free Software Foundation; either version 2 of the License, or
|
; published by the Free Software Foundation, either version 3 of the
|
||||||
;(at your option) any later version.
|
; License, or (at your option) any later version.
|
||||||
;
|
;
|
||||||
;This program is distributed in the hope that it will be useful,
|
; This program is distributed in the hope that it will be useful,
|
||||||
;but WITHOUT ANY WARRANTY; without even the implied warranty of
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
;GNU General Public License for more details.
|
; GNU Affero General Public License for more details.
|
||||||
;
|
;
|
||||||
;You should have received a copy of the GNU General Public License along
|
; You should have received a copy of the GNU Affero General Public License
|
||||||
;with this program; if not, write to the Free Software Foundation, Inc.,
|
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
||||||
;
|
;
|
||||||
Q
|
Q
|
||||||
EN(ZRTN,ZPATID,ZTYP,ZFORM,DEBUG) ; return a Smart RDF file section ZTYP
|
EN(ZRTN,ZPATID,ZTYP,ZFORM,DEBUG) ; return a Smart RDF file section ZTYP
|
||||||
|
|
|
||||||
26
p/C0SMED.m
26
p/C0SMED.m
|
|
@ -1,21 +1,19 @@
|
||||||
C0SMED ; GPL - Smart Meds Processing ;2/22/12 17:05
|
C0SMED ; GPL - Smart Meds Processing ;2/22/12 17:05
|
||||||
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 4
|
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 5
|
||||||
;Copyright 2012 George Lilly. Licensed under the terms of the GNU
|
;Copyright 2012 George Lilly.
|
||||||
;General Public License See attached copy of the License.
|
|
||||||
;
|
;
|
||||||
;This program is free software; you can redistribute it and/or modify
|
; This program is free software: you can redistribute it and/or modify
|
||||||
;it under the terms of the GNU General Public License as published by
|
; it under the terms of the GNU Affero General Public License as
|
||||||
;the Free Software Foundation; either version 2 of the License, or
|
; published by the Free Software Foundation, either version 3 of the
|
||||||
;(at your option) any later version.
|
; License, or (at your option) any later version.
|
||||||
;
|
;
|
||||||
;This program is distributed in the hope that it will be useful,
|
; This program is distributed in the hope that it will be useful,
|
||||||
;but WITHOUT ANY WARRANTY; without even the implied warranty of
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
;GNU General Public License for more details.
|
; GNU Affero General Public License for more details.
|
||||||
;
|
;
|
||||||
;You should have received a copy of the GNU General Public License along
|
; You should have received a copy of the GNU Affero General Public License
|
||||||
;with this program; if not, write to the Free Software Foundation, Inc.,
|
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
||||||
;
|
;
|
||||||
Q
|
Q
|
||||||
;
|
;
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,6 @@
|
||||||
MXMLBLD ;;ISF/RWF - Tool to build XML ;07/09/09 16:55 - Smart Container Ver.
|
MXMLBLD ;;ISF/RWF - Tool to build XML ;07/09/09 16:55 - Smart Container Ver.
|
||||||
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 4
|
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 5
|
||||||
|
; Public Domain
|
||||||
QUIT
|
QUIT
|
||||||
;
|
;
|
||||||
;DOC - The top level tag
|
;DOC - The top level tag
|
||||||
|
|
|
||||||
26
p/C0SNHIN.m
26
p/C0SNHIN.m
|
|
@ -1,21 +1,19 @@
|
||||||
C0SNHIN ; GPL - Smart Container - OUTPUT OF NHINV ROUTINES;6/3/11 17:05
|
C0SNHIN ; GPL - Smart Container - OUTPUT OF NHINV ROUTINES;6/3/11 17:05
|
||||||
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 4
|
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 5
|
||||||
;Copyright 2011-2012 George Lilly. Licensed under the terms of the GNU
|
;Copyright 2011-2012 George Lilly.
|
||||||
;General Public License See attached copy of the License.
|
|
||||||
;
|
;
|
||||||
;This program is free software; you can redistribute it and/or modify
|
; This program is free software: you can redistribute it and/or modify
|
||||||
;it under the terms of the GNU General Public License as published by
|
; it under the terms of the GNU Affero General Public License as
|
||||||
;the Free Software Foundation; either version 2 of the License, or
|
; published by the Free Software Foundation, either version 3 of the
|
||||||
;(at your option) any later version.
|
; License, or (at your option) any later version.
|
||||||
;
|
;
|
||||||
;This program is distributed in the hope that it will be useful,
|
; This program is distributed in the hope that it will be useful,
|
||||||
;but WITHOUT ANY WARRANTY; without even the implied warranty of
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
;GNU General Public License for more details.
|
; GNU Affero General Public License for more details.
|
||||||
;
|
;
|
||||||
;You should have received a copy of the GNU General Public License along
|
; You should have received a copy of the GNU Affero General Public License
|
||||||
;with this program; if not, write to the Free Software Foundation, Inc.,
|
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
||||||
;
|
;
|
||||||
Q
|
Q
|
||||||
EN(ZRTN,ZDFN,ZPART,KEEP) ; GENERATE AN NHIN ARRAY FOR A PATIENT
|
EN(ZRTN,ZDFN,ZPART,KEEP) ; GENERATE AN NHIN ARRAY FOR A PATIENT
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
C0SNHINV ;SLC/MKB - Serve VistA data as XML via RPC - Smart Container Version
|
C0SNHINV ;SLC/MKB - Serve VistA data as XML via RPC - Smart Container Version
|
||||||
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 4
|
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 5
|
||||||
;
|
;
|
||||||
; External References DBIA#
|
; External References DBIA#
|
||||||
; ------------------- -----
|
; ------------------- -----
|
||||||
|
|
|
||||||
26
p/C0SPROB.m
26
p/C0SPROB.m
|
|
@ -1,21 +1,19 @@
|
||||||
C0SPROB ; GPL - Smart Problem Processing ;5/01/12 17:05
|
C0SPROB ; GPL - Smart Problem Processing ;5/01/12 17:05
|
||||||
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 4
|
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 5
|
||||||
;Copyright 2012 George Lilly. Licensed under the terms of the GNU
|
;Copyright 2012 George Lilly.
|
||||||
;General Public License See attached copy of the License.
|
|
||||||
;
|
;
|
||||||
;This program is free software; you can redistribute it and/or modify
|
; This program is free software: you can redistribute it and/or modify
|
||||||
;it under the terms of the GNU General Public License as published by
|
; it under the terms of the GNU Affero General Public License as
|
||||||
;the Free Software Foundation; either version 2 of the License, or
|
; published by the Free Software Foundation, either version 3 of the
|
||||||
;(at your option) any later version.
|
; License, or (at your option) any later version.
|
||||||
;
|
;
|
||||||
;This program is distributed in the hope that it will be useful,
|
; This program is distributed in the hope that it will be useful,
|
||||||
;but WITHOUT ANY WARRANTY; without even the implied warranty of
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
;GNU General Public License for more details.
|
; GNU Affero General Public License for more details.
|
||||||
;
|
;
|
||||||
;You should have received a copy of the GNU General Public License along
|
; You should have received a copy of the GNU Affero General Public License
|
||||||
;with this program; if not, write to the Free Software Foundation, Inc.,
|
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
||||||
;
|
;
|
||||||
Q
|
Q
|
||||||
;
|
;
|
||||||
|
|
|
||||||
26
p/C0SPROB2.m
26
p/C0SPROB2.m
|
|
@ -1,21 +1,19 @@
|
||||||
C0SPROB ; GPL - Smart Problem Processing ;5/01/12 17:05
|
C0SPROB ; GPL - Smart Problem Processing ;5/01/12 17:05
|
||||||
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 4
|
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 5
|
||||||
;Copyright 2012 George Lilly. Licensed under the terms of the GNU
|
;Copyright 2012 George Lilly.
|
||||||
;General Public License See attached copy of the License.
|
|
||||||
;
|
;
|
||||||
;This program is free software; you can redistribute it and/or modify
|
; This program is free software: you can redistribute it and/or modify
|
||||||
;it under the terms of the GNU General Public License as published by
|
; it under the terms of the GNU Affero General Public License as
|
||||||
;the Free Software Foundation; either version 2 of the License, or
|
; published by the Free Software Foundation, either version 3 of the
|
||||||
;(at your option) any later version.
|
; License, or (at your option) any later version.
|
||||||
;
|
;
|
||||||
;This program is distributed in the hope that it will be useful,
|
; This program is distributed in the hope that it will be useful,
|
||||||
;but WITHOUT ANY WARRANTY; without even the implied warranty of
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
;GNU General Public License for more details.
|
; GNU Affero General Public License for more details.
|
||||||
;
|
;
|
||||||
;You should have received a copy of the GNU General Public License along
|
; You should have received a copy of the GNU Affero General Public License
|
||||||
;with this program; if not, write to the Free Software Foundation, Inc.,
|
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
||||||
;
|
;
|
||||||
Q
|
Q
|
||||||
;
|
;
|
||||||
|
|
|
||||||
270
p/C0STBL.m
270
p/C0STBL.m
|
|
@ -1,137 +1,135 @@
|
||||||
C0STBL ; GPL - Smart Container CREATE A TABLE OF NHINV VALUES;2/22/12 17:05
|
C0STBL ; GPL - Smart Container CREATE A TABLE OF NHINV VALUES;2/22/12 17:05
|
||||||
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 4
|
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 5
|
||||||
;Copyright 2012 George Lilly. Licensed under the terms of the GNU
|
;Copyright 2012 George Lilly.
|
||||||
;General Public License See attached copy of the License.
|
;
|
||||||
;
|
; This program is free software: you can redistribute it and/or modify
|
||||||
;This program is free software; you can redistribute it and/or modify
|
; it under the terms of the GNU Affero General Public License as
|
||||||
;it under the terms of the GNU General Public License as published by
|
; published by the Free Software Foundation, either version 3 of the
|
||||||
;the Free Software Foundation; either version 2 of the License, or
|
; License, or (at your option) any later version.
|
||||||
;(at your option) any later version.
|
;
|
||||||
;
|
; This program is distributed in the hope that it will be useful,
|
||||||
;This program is distributed in the hope that it will be useful,
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
;but WITHOUT ANY WARRANTY; without even the implied warranty of
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
; GNU Affero General Public License for more details.
|
||||||
;GNU General Public License for more details.
|
;
|
||||||
;
|
; You should have received a copy of the GNU Affero General Public License
|
||||||
;You should have received a copy of the GNU General Public License along
|
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
;with this program; if not, write to the Free Software Foundation, Inc.,
|
;
|
||||||
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
Q
|
||||||
;
|
EN(BEGDFN,DFNCNT,ZPART) ; START IS A DFN
|
||||||
Q
|
I '$D(BEGDFN) S BDGDFN=""
|
||||||
EN(BEGDFN,DFNCNT,ZPART) ; START IS A DFN
|
I '$D(DFNCNT) S DFNCNT=150
|
||||||
I '$D(BEGDFN) S BDGDFN=""
|
I '$D(ZPART) S ZPART=""
|
||||||
I '$D(DFNCNT) S DFNCNT=150
|
N ZTBL S ZTBL=$NA(^TMP("C0STBL"))
|
||||||
I '$D(ZPART) S ZPART=""
|
N ZI,ZCNT,ZG
|
||||||
N ZTBL S ZTBL=$NA(^TMP("C0STBL"))
|
S ZI=$O(^DPT(BEGDFN),-1)
|
||||||
N ZI,ZCNT,ZG
|
S ZCNT=1
|
||||||
S ZI=$O(^DPT(BEGDFN),-1)
|
F S ZI=$O(^DPT(ZI)) Q:((+ZI=0)!(ZCNT>DFNCNT)) D ;
|
||||||
S ZCNT=1
|
. S ZCNT=ZCNT+1
|
||||||
F S ZI=$O(^DPT(ZI)) Q:((+ZI=0)!(ZCNT>DFNCNT)) D ;
|
. W ZI," "
|
||||||
. S ZCNT=ZCNT+1
|
. K ZG
|
||||||
. W ZI," "
|
. D EN^C0SNHIN(.ZG,ZI,ZPART)
|
||||||
. K ZG
|
. M @ZTBL@(ZI)=ZG
|
||||||
. D EN^C0SNHIN(.ZG,ZI,ZPART)
|
. K G
|
||||||
. M @ZTBL@(ZI)=ZG
|
. N GDIR S GDIR="/home/vista/p/"
|
||||||
. K G
|
. D EN^C0SMART(.G,ZI,"med")
|
||||||
. N GDIR S GDIR="/home/vista/p/"
|
. I $D(G) W !,$$output^C0XGET1("G",ZI_"-med.rdf",GDIR)
|
||||||
. D EN^C0SMART(.G,ZI,"med")
|
. k G
|
||||||
. I $D(G) W !,$$output^C0XGET1("G",ZI_"-med.rdf",GDIR)
|
. D EN^C0SMART(.G,ZI,"patient")
|
||||||
. k G
|
. I $D(G) W !,$$output^C0XGET1("G",ZI_"-patient.rdf",GDIR)
|
||||||
. D EN^C0SMART(.G,ZI,"patient")
|
. K G
|
||||||
. I $D(G) W !,$$output^C0XGET1("G",ZI_"-patient.rdf",GDIR)
|
. D EN^C0SMART(.G,ZI,"lab")
|
||||||
. K G
|
. I $D(G) W !,$$output^C0XGET1("G",ZI_"-lab.rdf",GDIR)
|
||||||
. D EN^C0SMART(.G,ZI,"lab")
|
. K G
|
||||||
. I $D(G) W !,$$output^C0XGET1("G",ZI_"-lab.rdf",GDIR)
|
. D EN^C0SMART(.G,ZI,"problem")
|
||||||
. K G
|
. I $D(G) W !,$$output^C0XGET1("G",ZI_"-problem.rdf",GDIR)
|
||||||
. D EN^C0SMART(.G,ZI,"problem")
|
Q
|
||||||
. I $D(G) W !,$$output^C0XGET1("G",ZI_"-problem.rdf",GDIR)
|
;
|
||||||
Q
|
LOADHACK ;
|
||||||
;
|
N ZI
|
||||||
LOADHACK ;
|
F ZI=2:1:374 D ;
|
||||||
N ZI
|
. D IMPORT^C0XF2N("hack"_ZI_".xml","/home/vista/hack/")
|
||||||
F ZI=2:1:374 D ;
|
Q
|
||||||
. D IMPORT^C0XF2N("hack"_ZI_".xml","/home/vista/hack/")
|
;
|
||||||
Q
|
LABCNT ; COUNT LAB TESTS AND LOINC CODES
|
||||||
;
|
K LABCNT,GLOINC,PATCNT
|
||||||
LABCNT ; COUNT LAB TESTS AND LOINC CODES
|
S (LABCNT,GLOINC,PATCNT)=0
|
||||||
K LABCNT,GLOINC,PATCNT
|
N ZI S ZI=""
|
||||||
S (LABCNT,GLOINC,PATCNT)=0
|
N GN S GN=$NA(^TMP("C0STBL"))
|
||||||
N ZI S ZI=""
|
F S ZI=$O(@GN@(ZI)) Q:ZI="" D ;
|
||||||
N GN S GN=$NA(^TMP("C0STBL"))
|
. S PATCNT=PATCNT+1
|
||||||
F S ZI=$O(@GN@(ZI)) Q:ZI="" D ;
|
. I '$D(@GN@(ZI,"lab")) Q ;
|
||||||
. S PATCNT=PATCNT+1
|
. N ZJ S ZJ=""
|
||||||
. I '$D(@GN@(ZI,"lab")) Q ;
|
. F S ZJ=$O(@GN@(ZI,"lab",ZJ)) Q:ZJ="" D ;
|
||||||
. N ZJ S ZJ=""
|
. . S LABCNT=LABCNT+1
|
||||||
. F S ZJ=$O(@GN@(ZI,"lab",ZJ)) Q:ZJ="" D ;
|
. . S X=$G(@GN@(ZI,"lab",ZJ,"loinc@value"))
|
||||||
. . S LABCNT=LABCNT+1
|
. . I X'="" S GLOINC=GLOINC+1
|
||||||
. . S X=$G(@GN@(ZI,"lab",ZJ,"loinc@value"))
|
W !,"Total number of patients: ",PATCNT
|
||||||
. . I X'="" S GLOINC=GLOINC+1
|
W !,"Total number of lab results: ",LABCNT
|
||||||
W !,"Total number of patients: ",PATCNT
|
W !,"Total number of lab results with loinc codes: ",GLOINC
|
||||||
W !,"Total number of lab results: ",LABCNT
|
W !,"Percentage of lab tests with loinc codes: ",$P((GLOINC/LABCNT)*100,".")_"%"
|
||||||
W !,"Total number of lab results with loinc codes: ",GLOINC
|
Q
|
||||||
W !,"Percentage of lab tests with loinc codes: ",$P((GLOINC/LABCNT)*100,".")_"%"
|
;
|
||||||
Q
|
PROBCNT ; COUNT PROBLEMS AND SNOMED CODES
|
||||||
;
|
K PROBCNT,GSNO,PATCNT
|
||||||
PROBCNT ; COUNT PROBLEMS AND SNOMED CODES
|
S (PROBCNT,GSNO,PATCNT)=0
|
||||||
K PROBCNT,GSNO,PATCNT
|
N ZI S ZI=""
|
||||||
S (PROBCNT,GSNO,PATCNT)=0
|
N GN S GN=$NA(^TMP("C0STBL"))
|
||||||
N ZI S ZI=""
|
F S ZI=$O(@GN@(ZI)) Q:ZI="" D ;
|
||||||
N GN S GN=$NA(^TMP("C0STBL"))
|
. S PATCNT=PATCNT+1
|
||||||
F S ZI=$O(@GN@(ZI)) Q:ZI="" D ;
|
. I '$D(@GN@(ZI,"problem")) Q ;
|
||||||
. S PATCNT=PATCNT+1
|
. N ZJ S ZJ=""
|
||||||
. I '$D(@GN@(ZI,"problem")) Q ;
|
. F S ZJ=$O(@GN@(ZI,"problem",ZJ)) Q:ZJ="" D ;
|
||||||
. N ZJ S ZJ=""
|
. . S PROBCNT=PROBCNT+1
|
||||||
. F S ZJ=$O(@GN@(ZI,"problem",ZJ)) Q:ZJ="" D ;
|
. . S X=$G(@GN@(ZI,"problem",ZJ,"icd@value"))
|
||||||
. . S PROBCNT=PROBCNT+1
|
. . S Y=$$SNOMED^C0SPROB2(X)
|
||||||
. . S X=$G(@GN@(ZI,"problem",ZJ,"icd@value"))
|
. . I Y'="" S GSNO=GSNO+1
|
||||||
. . S Y=$$SNOMED^C0SPROB2(X)
|
W !,"Total number of patients: ",PATCNT
|
||||||
. . I Y'="" S GSNO=GSNO+1
|
W !,"Total number of problems: ",PROBCNT
|
||||||
W !,"Total number of patients: ",PATCNT
|
W !,"Total number of problems with snomed codes: ",GSNO
|
||||||
W !,"Total number of problems: ",PROBCNT
|
W !,"Percentage of problems with SNOMED codes: ",$P((GSNO/PROBCNT)*100,".")_"%"
|
||||||
W !,"Total number of problems with snomed codes: ",GSNO
|
Q
|
||||||
W !,"Percentage of problems with SNOMED codes: ",$P((GSNO/PROBCNT)*100,".")_"%"
|
;
|
||||||
Q
|
MEDCNT ; COUNT INPATIENT VS OUTPATIENT MEDICATIONS
|
||||||
;
|
K MEDCNT,OMED,PATCNT,DOSE,UNITS,FORM,SCHED,ROUTE
|
||||||
MEDCNT ; COUNT INPATIENT VS OUTPATIENT MEDICATIONS
|
S (MEDCNT,OMED,GSNO,PATCNT)=0
|
||||||
K MEDCNT,OMED,PATCNT,DOSE,UNITS,FORM,SCHED,ROUTE
|
N ZI S ZI=""
|
||||||
S (MEDCNT,OMED,GSNO,PATCNT)=0
|
N GN S GN=$NA(^TMP("C0STBL"))
|
||||||
N ZI S ZI=""
|
F S ZI=$O(@GN@(ZI)) Q:ZI="" D ;
|
||||||
N GN S GN=$NA(^TMP("C0STBL"))
|
. S PATCNT=PATCNT+1
|
||||||
F S ZI=$O(@GN@(ZI)) Q:ZI="" D ;
|
. I '$D(@GN@(ZI,"med")) Q ;
|
||||||
. S PATCNT=PATCNT+1
|
. N ZJ S ZJ=""
|
||||||
. I '$D(@GN@(ZI,"med")) Q ;
|
. F S ZJ=$O(@GN@(ZI,"med",ZJ)) Q:ZJ="" D ;
|
||||||
. N ZJ S ZJ=""
|
. . S MEDCNT=MEDCNT+1
|
||||||
. F S ZJ=$O(@GN@(ZI,"med",ZJ)) Q:ZJ="" D ;
|
. . I $G(@GN@(ZI,"med",ZJ,"vaStatus@value"))="EXPIRED" D Q ;
|
||||||
. . S MEDCNT=MEDCNT+1
|
. . . I $D(DEBUG) W !,"Expired Mediation, Skipping"
|
||||||
. . I $G(@GN@(ZI,"med",ZJ,"vaStatus@value"))="EXPIRED" D Q ;
|
. . I $G(@GN@(ZI,"med",ZJ,"vaType@value"))="I" D Q ;
|
||||||
. . . I $D(DEBUG) W !,"Expired Mediation, Skipping"
|
. . . I $D(DEBUG) W !,"Inpatient Med, skipping"
|
||||||
. . I $G(@GN@(ZI,"med",ZJ,"vaType@value"))="I" D Q ;
|
. . I $G(@GN@(ZI,"med",ZI,"vaType@value"))="V" D Q ;
|
||||||
. . . I $D(DEBUG) W !,"Inpatient Med, skipping"
|
. . . I $D(DEBUG) W !,"IV Inpatient Med, skipping"
|
||||||
. . I $G(@GN@(ZI,"med",ZI,"vaType@value"))="V" D Q ;
|
. . S OMED=OMED+1
|
||||||
. . . I $D(DEBUG) W !,"IV Inpatient Med, skipping"
|
. . S X=$G(@GN@(ZI,"med",ZJ,"form@value"))
|
||||||
. . S OMED=OMED+1
|
. . S FORM(X)=$G(FORM(X))+1
|
||||||
. . S X=$G(@GN@(ZI,"med",ZJ,"form@value"))
|
. . S X=$G(@GN@(ZI,"med",ZJ,"doses.dose@dose"))
|
||||||
. . S FORM(X)=$G(FORM(X))+1
|
. . I X="" S X="UNKNOWN"
|
||||||
. . S X=$G(@GN@(ZI,"med",ZJ,"doses.dose@dose"))
|
. . S DOSE(X)=$G(DOSE(X))+1
|
||||||
. . I X="" S X="UNKNOWN"
|
. . S X=$G(@GN@(ZI,"med",ZJ,"doses.dose@units"))
|
||||||
. . S DOSE(X)=$G(DOSE(X))+1
|
. . I X="" S X="UNKNOWN"
|
||||||
. . S X=$G(@GN@(ZI,"med",ZJ,"doses.dose@units"))
|
. . S UNITS(X)=$G(UNITS(X))+1
|
||||||
. . I X="" S X="UNKNOWN"
|
. . S X=$G(@GN@(ZI,"med",ZJ,"doses.dose@schedule"))
|
||||||
. . S UNITS(X)=$G(UNITS(X))+1
|
. . I X="" S X="UNKNOWN"
|
||||||
. . S X=$G(@GN@(ZI,"med",ZJ,"doses.dose@schedule"))
|
. . S SCHED(X)=$G(SCHED(X))+1
|
||||||
. . I X="" S X="UNKNOWN"
|
. . S X=$G(@GN@(ZI,"med",ZJ,"doses.dosc@route"))
|
||||||
. . S SCHED(X)=$G(SCHED(X))+1
|
. . I X="" S X="UNKNOWN"
|
||||||
. . S X=$G(@GN@(ZI,"med",ZJ,"doses.dosc@route"))
|
. . S ROUTE(X)=$G(ROUTE(X))+1
|
||||||
. . I X="" S X="UNKNOWN"
|
W !,"Total number of patients: ",PATCNT
|
||||||
. . S ROUTE(X)=$G(ROUTE(X))+1
|
W !,"Total number of medications: ",MEDCNT
|
||||||
W !,"Total number of patients: ",PATCNT
|
W !,"Total number of outpatient medications: ",OMED
|
||||||
W !,"Total number of medications: ",MEDCNT
|
W !,"Percentage of outpatient medications: ",$P((OMED/MEDCNT)*100,".")_"%",!
|
||||||
W !,"Total number of outpatient medications: ",OMED
|
ZWR FORM
|
||||||
W !,"Percentage of outpatient medications: ",$P((OMED/MEDCNT)*100,".")_"%",!
|
ZWR DOSE
|
||||||
ZWR FORM
|
ZWR UNITS
|
||||||
ZWR DOSE
|
ZWR SCHED
|
||||||
ZWR UNITS
|
ZWR ROUTE
|
||||||
ZWR SCHED
|
Q
|
||||||
ZWR ROUTE
|
;
|
||||||
Q
|
|
||||||
;
|
|
||||||
|
|
|
||||||
26
p/C0SUTIL.m
26
p/C0SUTIL.m
|
|
@ -1,21 +1,19 @@
|
||||||
C0SUTIL ; GPL - Smart Processing Utilities ;2/22/12 17:05
|
C0SUTIL ; GPL - Smart Processing Utilities ;2/22/12 17:05
|
||||||
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 4
|
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 5
|
||||||
;Copyright 2012 George Lilly. Licensed under the terms of the GNU
|
;Copyright 2012 George Lilly.
|
||||||
;General Public License See attached copy of the License.
|
|
||||||
;
|
;
|
||||||
;This program is free software; you can redistribute it and/or modify
|
; This program is free software: you can redistribute it and/or modify
|
||||||
;it under the terms of the GNU General Public License as published by
|
; it under the terms of the GNU Affero General Public License as
|
||||||
;the Free Software Foundation; either version 2 of the License, or
|
; published by the Free Software Foundation, either version 3 of the
|
||||||
;(at your option) any later version.
|
; License, or (at your option) any later version.
|
||||||
;
|
;
|
||||||
;This program is distributed in the hope that it will be useful,
|
; This program is distributed in the hope that it will be useful,
|
||||||
;but WITHOUT ANY WARRANTY; without even the implied warranty of
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
;GNU General Public License for more details.
|
; GNU Affero General Public License for more details.
|
||||||
;
|
;
|
||||||
;You should have received a copy of the GNU General Public License along
|
; You should have received a copy of the GNU Affero General Public License
|
||||||
;with this program; if not, write to the Free Software Foundation, Inc.,
|
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
||||||
;
|
;
|
||||||
Q
|
Q
|
||||||
;
|
;
|
||||||
|
|
|
||||||
26
p/C0SXPATH.m
26
p/C0SXPATH.m
|
|
@ -1,21 +1,19 @@
|
||||||
C0SXPATH ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08 ; 9/26/12 10:45am
|
C0SXPATH ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08 ; 9/26/12 10:45am
|
||||||
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 4
|
;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 5
|
||||||
;Copyright 2008-2012 George Lilly. Licensed under the terms of the GNU
|
;Copyright 2008-2012 George Lilly.
|
||||||
;General Public License See attached copy of the License.
|
|
||||||
;
|
;
|
||||||
;This program is free software; you can redistribute it and/or modify
|
; This program is free software: you can redistribute it and/or modify
|
||||||
;it under the terms of the GNU General Public License as published by
|
; it under the terms of the GNU Affero General Public License as
|
||||||
;the Free Software Foundation; either version 2 of the License, or
|
; published by the Free Software Foundation, either version 3 of the
|
||||||
;(at your option) any later version.
|
; License, or (at your option) any later version.
|
||||||
;
|
;
|
||||||
;This program is distributed in the hope that it will be useful,
|
; This program is distributed in the hope that it will be useful,
|
||||||
;but WITHOUT ANY WARRANTY; without even the implied warranty of
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
;GNU General Public License for more details.
|
; GNU Affero General Public License for more details.
|
||||||
;
|
;
|
||||||
;You should have received a copy of the GNU General Public License along
|
; You should have received a copy of the GNU Affero General Public License
|
||||||
;with this program; if not, write to the Free Software Foundation, Inc.,
|
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
||||||
;
|
;
|
||||||
W "This is an XML XPATH utility library",!
|
W "This is an XML XPATH utility library",!
|
||||||
W !
|
W !
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue