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

Changed license to AGPL. Some clean-up for XINDEX

This commit is contained in:
sam 2012-10-30 17:11:02 +00:00
parent 0da3fa68d0
commit 4ab1d88817
79 changed files with 2378 additions and 2281 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
p/C0CACTOR.m
View File

@ -1,22 +1,19 @@
C0CACTOR ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
;;1.2;C0C;;May 11, 2012;Build 47
C0CACTOR ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08 ; 10/29/12 4:04pm
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008,2009 George Lilly, University of Minnesota.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
; 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
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
; with this program; if not, write to the Free Software Foundation, Inc.,
; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
; PROCESS THE ACTORS SECTION OF THE CCR
;

22
p/C0CALERT.m
View File

@ -1,22 +1,20 @@
C0CALERT ; CCDCCR/CKU/GPL - CCR/CCD PROCESSING FOR ALERTS ; 09/11/08
;;1.2;C0C;;May 11, 2012;Build 47
C0CALERT ; CCDCCR/CKU/GPL - CCR/CCD PROCESSING FOR ALERTS ; 09/11/08 ; 10/29/12 4:04pm
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008,2009 George Lilly, University of Minnesota and others.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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 Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;You should have received a copy of the GNU General Public License along
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
;
W "NO ENTRY FROM TOP",!
Q

30
p/C0CBAT.m
View File

@ -1,21 +1,20 @@
C0CBAT ; CCDCCR/GPL - CCR Batch utilities; 4/21/09
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2009 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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 Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;You should have received a copy of the GNU General Public License along
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
;
W "This is the CCR Batch Utility Library ",!
Q
@ -62,7 +61,7 @@ EN ; BATCH ENTRY POINT
S C0CBB=$NA(^TMP("C0CBATCH",C0CBDT)) ; BATCH WORK AREA
I $D(@C0CBB@(0)) D ; ERROR SHOULDN'T EXIST
. W "WORK AREA ERROR",!
. B
. S $EC=",U1,"
S @C0CBB@(0)="V22" ; VERSION USED TO CREATE THIS WORK AREA
S C0CBH=$NA(@C0CBB@("HOTLIST")) ; BASE FOR HOT LIST
S C0CBS=$NA(^C0CS("B")) ; SUBSCRIPTION LIST BASE
@ -163,7 +162,7 @@ COUNT(ZB) ; EXTRINSIC THAT RETURNS THE NUMBER OF ARRAY ELEMENTS
. S ZN=ZN+1
Q ZN
;
UPDIEVARPTR(ZVAR,ZTYP) ;EXTRINSIC WHICH RETURNS THE POINTER TO ZVAR IN THE
UVARPTR(ZVAR,ZTYP) ;EXTRINSIC WHICH RETURNS THE POINTER TO ZVAR IN THE
; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO
; THE CCR DICTIONARY IF IT IS NOT THERE. ZTYP IS REQUIRED FOR LAYGO
;
@ -189,10 +188,7 @@ UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
K ZERR
D CLEAN^DILF
D UPDATE^DIE("","C0CFDA","","ZERR")
I $D(ZERR) D ;
. W "ERROR",!
. ZWR ZERR
. B
I $D(ZERR) S $EC=",U1,"
K C0CFDA
Q
;

19
p/C0CCCD.m
View File

@ -1,22 +1,19 @@
C0CCCD ; CCDCCR/GPL - CCD MAIN PROCESSING; 6/6/08
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008,2009 George Lilly, University of Minnesota.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
; EXPORT A CCR
;

20
p/C0CCCD1.m
View File

@ -1,22 +1,20 @@
C0CCCD1 ; CCDCCR/GPL - CCD TEMPLATE AND ACCESS ROUTINES; 6/7/08
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008,2009 George Lilly, University of Minnesota.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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 Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;You should have received a copy of the GNU General Public License along
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
;
W "This is a CCD TEMPLATE with processing routines",!
W !

21
p/C0CCCR.m
View File

@ -1,22 +1,19 @@
C0CCCR ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008,2009 George Lilly, University of Minnesota.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
; EXPORT A CCR
;
@ -287,5 +284,3 @@ TLIST ; LIST THE TESTS
;;>>>K C0C S C0C=""
;;>>>D CCRRPC^C0CCCR(.C0C,"2","ALERTS","")
;;>>?@C0C@(@C0C@(0))["</Alerts>"

19
p/C0CCCR0.m
View File

@ -1,22 +1,19 @@
C0CCCR0 ; CCDCCR/GPL - CCR TEMPLATE AND ACCESS ROUTINES; 5/31/08
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008,2009 George Lilly, University of Minnesota.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "This is a CCR TEMPLATE with processing routines",!
W !

20
p/C0CCMT.m
View File

@ -1,22 +1,20 @@
C0CCMT ; CCDCCR/GPL - CCR/CCD PROCESSING FOR COMMENTS ; 05/21/10
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2010 George Lilly, University of Minnesota and others.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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 Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;You should have received a copy of the GNU General Public License along
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
;
W "NO ENTRY FROM TOP",!
Q

24
p/C0CCPT.m
View File

@ -1,8 +1,20 @@
C0CCPT ;;BSL;RETURN CPT DATA;
;;1.2;C0C;;May 11, 2012;Build 47
;Sequence Managers Software GPL;;;;;Build 2
;Copied into C0C namespace from SQMCPT with permission from
;Brian Lord - and with our thanks. gpl 01/20/2010
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
; (C) George Lilly 2010
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
ENTRY(DFN,STDT,ENDDT,TXT) ;BUILD TOTAL ARRAY OF ALL IEN'S FOR TIU NOTES
;DFN=PATIENT IEN
;STDT=START DATE IN 3100101 FORMAT (VA YEAR YYYMMDD)
@ -20,13 +32,13 @@ ENTRY(DFN,STDT,ENDDT,TXT) ;BUILD TOTAL ARRAY OF ALL IEN'S FOR TIU NOTES
;NOW DELETE ANY NOTES THAT DON'T FALL INTO DATE RANGE
;GET DATE OF NOTE
;RUT 3120109 Changing DATE in FILMAN's FORMAT
;;OHUM/RUT 3111228 Date Range for Notes
;OHUM/RUT 3111228 Date Range for Notes
;S STDT=^TMP("C0CCCR","TIULIMIT") D NOW^%DTC S ENDDT=X
N FLAGS1,FLAGS2
S FLAGS1=$P(^C0CPARM(1,2),"^",1) S STDT=$$HTOF^C0CVALID(FLAGS1)
S FLAGS2=$P(^C0CPARM(1,2),"^",2) S ENDDT=$$HTOF^C0CVALID(FLAGS2)
;S STDT=^TMP("C0CCCR","TIULIMIT"),ENDDT=^TMP("C0CCCR","TIUSTART")
;;OHUM/RUT
;OHUM/RUT
;RUT
S Z=""
F S Z=$O(NOTE(Z)) Q:Z="" D

20
p/C0CDIC.m
View File

@ -1,21 +1,19 @@
C0CDIC ; CCDCCR/GPL - CCR Dictionary utilities; 6/1/08
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008 WorldVistA.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "This is the CCR Dictionary Utility Library ",!
W !

21
p/C0CDOM.m
View File

@ -1,21 +1,20 @@
C0CDOM ; GPL - DOM PROCESSING ROUTINES ;6/6/11 17:05
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2011 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2011 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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 Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;You should have received a copy of the GNU General Public License along
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
;
Q
;

18
p/C0CDPT.m
View File

@ -1,17 +1,21 @@
C0CDPT ;WV/CCRCCD/SMH - Routines to Extract Patient Data for CCDCCR; 6/15/08
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;
; Copyright 2008 WorldVistA. Licensed under the terms of the GNU
; General Public License.
; Copyright 2008 WorldVistA.
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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 Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
; You should have received a copy of the GNU General Public License along
; with this program; if not, write to the Free Software Foundation, Inc.,
; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
;
; FAMILY Family Name
; GIVEN Given Name

19
p/C0CENC.m
View File

@ -1,22 +1,19 @@
C0CENC ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ENCOUNTERS ; 05/21/10
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2010 George Lilly, University of Minnesota and others.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "NO ENTRY FROM TOP",!
Q

17
p/C0CENV.m
View File

@ -1,5 +1,20 @@
C0CENV ;WV/JMC - CCD/CCR Environment Check/Install Routine ; Aug 16, 2009
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;
; (C) John McCormack 2009
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;
ENV ; Does not prevent loading of the transport global.

18
p/C0CEVC.m
View File

@ -1,5 +1,21 @@
C0CEVC ; CCDCCR/GPL - SUPPORT FOR EWD VISTCOM PAGES ; 3/1/2010
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;
; (C) Geroge Lilly 2010.
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
gpltest2 ; experiment with sending a CCR to an ewd page
N ZI
S ZI=""

21
p/C0CEWD.m
View File

@ -1,21 +1,20 @@
C0CEWD ; CCDCCR/GPL - CCR EWD utilities; 1/6/11
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2011 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
;Copyright 2011 George Lilly.
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
Q
;

19
p/C0CEWD1.m
View File

@ -1,21 +1,18 @@
C0CEWD1 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
Q
;

23
p/C0CFM1.m
View File

@ -1,21 +1,20 @@
C0CFM1 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2009 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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 Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;You should have received a copy of the GNU General Public License along
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
;
W "This is the CCR FILEMAN Utility Library ",!
W !
@ -68,7 +67,7 @@ PUTELS(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
S C0CFDA(ZF,"?+1,",.04)=ZOCC ;CREATE OCCURANCE
K ZERR
D UPDATE^DIE("","C0CFDA","","ZERR") ;ASSIGN RECORD NUMBER
I $D(ZERR) B ;OOPS
I $D(ZERR) S $EC=",U1,"
K C0CFDA
S ZD0=$O(^C0C(ZF,"C",DFN,ZSRC,ZTYPN,ZOCC,""))
W "RECORD NUMBER: ",ZD0,!

38
p/C0CFM2.m
View File

@ -1,21 +1,20 @@
C0CFM2 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2009 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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 Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;You should have received a copy of the GNU General Public License along
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
;
W "This is the CCR FILEMAN Utility Library ",!
; THIS SET OF ROUTINES USE CCR E2 (^C0CE(, FILE 171.101) INSTEAD OF
@ -148,10 +147,7 @@ UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
K ZERR
D CLEAN^DILF
D UPDATE^DIE("","C0CFDA","","ZERR")
I $D(ZERR) D ;
. W "ERROR",!
. ZWR ZERR
. B
I $D(ZERR) S $EC=",U1,"
K C0CFDA
Q
;
@ -182,7 +178,7 @@ CHKELS(DFN) ; CHECKSUM ALL ELEMENTS FOR A PATIENT
. . S ZCHK=$$CHKSUM^XUSESIG1(ZG) ; CHECKSUM FOR THE ELEMENT
. . W ZCHK,!
. . S @ZGLB@(ZPAT,ZELE,ZSRC)=ZCHK
ZWR ^TMP("C0CCHK",ZPAT,*)
; ZWR ^TMP("C0CCHK",ZPAT,*)
Q
;
DOIT(DFN) ; EXPERIMENT FOR TIMING CALLS USING mumps -dir DOIT^C0CFM2(DFN)
@ -223,7 +219,7 @@ SETXUP ; SET UP ENVIRONMENT
S XQXFLG="^^XUP"
Q
;
PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
PUTELSO(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
; 171.101, ^C0CE DFN IS THE PATIENT IEN PASSED BY VALUE
; ZTYPE IS THE NODE TYPE IE RESULTS,PROBLEMS PASSED BY VALUE
; ZOCC IS THE OCCURANCE NUMBER IE PROBLEM NUMBER 1,2,3 ETC
@ -248,11 +244,10 @@ PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
K ZERR
;B
D UPDATE^DIE("","C0CFDA","","ZERR") ;ASSIGN RECORD NUMBER
I $D(ZERR) B ;OOPS
I $D(ZERR) S $EC=",U1,"
K C0CFDA
S ZD0=$O(^C0CE("C",DFN,ZSRC,ZTYPN,ZOCC,""))
W "RECORD NUMBER: ",ZD0,!
;B
S ZCNT=0
S ZC0CI="" ;
F S ZC0CI=$O(@ZVALS@(ZC0CI)) Q:ZC0CI="" D ;
@ -270,10 +265,7 @@ PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
;S GT1(171.201221,"+1,1,5,1,",1)="THIRD NEW MED DIRECTION TEXT"
D CLEAN^DILF
D UPDATE^DIE("","C0CFDA","","ZERR")
I $D(ZERR) D ;
. W "ERROR",!
. ZWR ZERR
. B
I $D(ZERR) S $EC=",U1,"
K C0CFDA
Q
;

38
p/C0CFM3.m
View File

@ -1,21 +1,20 @@
C0CFM3 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2009 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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 Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;You should have received a copy of the GNU General Public License along
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
;
W "This is the CCR FILEMAN Utility Library ",!
; THIS SET OF ROUTINES USE CCR E2 (^C0CE(, FILE 171.101) INSTEAD OF
@ -134,14 +133,11 @@ UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
K ZERR
D CLEAN^DILF
D UPDATE^DIE("","C0CFDA","","ZERR")
I $D(ZERR) D ;
. W "ERROR",!
. ZWR ZERR
. B
I $D(ZERR) S $EC=",U1,"
K C0CFDA
Q
;
PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
PUTELSO(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
; 171.101, ^C0CE DFN IS THE PATIENT IEN PASSED BY VALUE
; ZTYPE IS THE NODE TYPE IE RESULTS,PROBLEMS PASSED BY VALUE
; ZOCC IS THE OCCURANCE NUMBER IE PROBLEM NUMBER 1,2,3 ETC
@ -166,7 +162,7 @@ PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
K ZERR
;B
D UPDATE^DIE("","C0CFDA","","ZERR") ;ASSIGN RECORD NUMBER
I $D(ZERR) B ;OOPS
I $D(ZERR) S $EC=",U1,"
K C0CFDA
S ZD0=$O(^C0CE("C",DFN,ZSRC,ZTYPN,ZOCC,""))
W "RECORD NUMBER: ",ZD0,!
@ -188,10 +184,7 @@ PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
;S GT1(171.201221,"+1,1,5,1,",1)="THIRD NEW MED DIRECTION TEXT"
D CLEAN^DILF
D UPDATE^DIE("","C0CFDA","","ZERR")
I $D(ZERR) D ;
. W "ERROR",!
. ZWR ZERR
. B
I $D(ZERR) S $EC=",U1,"
K C0CFDA
Q
;
@ -282,6 +275,7 @@ SHOWE4(DFN) ;
;
N ZG
S ZG=""
F S ZG=$O(^C0CE4("P",DFN,ZG)) Q:ZG="" D ZWR ^C0CE4(ZG,*)
F S ZG=$O(^C0CE4("P",DFN,ZG)) Q:ZG="" D
. ; ZWR ^C0CE4(ZG,*)
Q
;

19
p/C0CIM2.m
View File

@ -1,22 +1,19 @@
C0CIM2 ; CCDCCR/GPL/CJE - CCR/CCD PROCESSING FOR IMMUNIZATIONS ; 01/27/10
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2010 George Lilly, University of Minnesota and others.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "NO ENTRY FROM TOP",!
Q

20
p/C0CIMMU.m
View File

@ -1,23 +1,19 @@
C0CIMMU ; CCDCCR/GPL - CCR/CCD PROCESSING FOR IMMUNIZATIONS ; 2/2/09
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008,2009 George Lilly, University of Minnesota.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;GNU General Public License for more details.
;
;You should have received a copy of the GNU General Public License along
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
; PROCESS THE IMMUNIZATIONS SECTION OF THE CCR
;

25
p/C0CIN.m
View File

@ -1,21 +1,19 @@
C0CIN ; CCDCCR/GPL - CCR IMPORT utilities; 9/20/08
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2009 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "This is the CCR Import Utility Library ",!
Q
@ -184,10 +182,7 @@ UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
K ZERR,C0CIEN
D CLEAN^DILF
D UPDATE^DIE("","C0CFDA","C0CIEN","ZERR")
I $D(ZERR) D ;
. W "ERROR",!
. ZWR ZERR
. B
I $D(ZERR) S $EC=",U1,"
K C0CFDA
Q
;

18
p/C0CLA7DD.m
View File

@ -1,5 +1,19 @@
C0CLA7DD ;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine ; Aug 31, 2009
;;1.2;C0C;;May 11, 2012;Build 47
C0CLA7DD ;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine ; Aug 31, 2009 ; 10/30/12 10:16am
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
; (C) 2009 John McCormack
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
; Tasked by C0C post-install routine C0CENV to create C0C cross-references on V LAB file.
;

19
p/C0CLA7Q.m
View File

@ -1,5 +1,20 @@
C0CLA7Q ;WV/JMC - CCD/CCR Lab HL7 Query Utility ;Jul 6, 2009
;;1.2;C0C;;May 11, 2012;Build 47
C0CLA7Q ;WV/JMC - CCD/CCR Lab HL7 Query Utility ;Jul 6, 2009 ; 10/30/12 10:16am
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;
; (C) 2009 John McCormack
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;
Q

21
p/C0CLABS.m
View File

@ -1,22 +1,19 @@
C0CLABS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR LAB RESULTS ; 10/01/08 ; 5/10/12 2:49pm
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008,2009 George Lilly, University of Minnesota.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
MAP(MIXML,DFN,MOXML) ;TO MAKE THIS COMPATIBLE WITH OLD CALLING FOR EXTRACT
; ASSUMES THAT EXTRACT HAS BEEN RUN AND THE VARIABLES STORED IN MIVAR
@ -106,7 +103,7 @@ RPCMAP(RTN,DFN,RMIVAR,RMIXML) ; RPC ENTRY POINT FOR MAPPING RESULTS
. ;D QCLOSE^C0CXPATH("C0CRBLD",C0CRTMP,"//Results/Result/Test") ;END OF XML
. D QUEUE^C0CXPATH("C0CRBLD","C0CRT",C0CRT(0)-1,C0CRT(0)-1) ;</Result>
. ;I C0CI=1 D ; FIRST TIME, COPY INSTEAD OF INSERT
. . ;D CP^C0CXPATH(C0CRTMP,"RTN") ;
. ;. D CP^C0CXPATH(C0CRTMP,"RTN") ;
. ;E D INSINNER^C0CXPATH("RTN",C0CRTMP) ; INSERT THIS TEST REQUEST
D QUEUE^C0CXPATH("C0CRBLD","C0CRT",C0CRT(0),C0CRT(0)) ;</Results>
D BUILD^C0CXPATH("C0CRBLD","RTN") ;RENDER THE XML

19
p/C0CMAIL.m
View File

@ -1,24 +1,21 @@
C0CMAIL ; Communications for MIME Documents and MultiMIME ; 3110420 ; rcr/rcr
V ;;1.2;C0C;;May 11, 2012;Build 47
V ;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2011 Chris Richardson, Richardson Computer Research
; Modified 3110516@1818
; rcr@rcresearch.us
; Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
; ------------------
;Entry Points

19
p/C0CMAIL2.m
View File

@ -1,24 +1,21 @@
C0CMAIL2 ; Communications for MIME Documents and MultiMIME ; 3110420 ; rcr/rcr ; 5/10/12 2:50pm
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2011 Chris Richardson, Richardson Computer Research
; Modified 3110615@1040
; rcr@rcresearch.us
; Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
; ------------------
;Entry Points

19
p/C0CMAIL3.m
View File

@ -1,24 +1,21 @@
C0CMAIL3 ; Communications for MIME Documents and MultiMIME ; 3110420 ; rcr/rcr ; 5/10/12 2:51pm
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2011 Chris Richardson, Richardson Computer Research
; Modified 3110619@2038
; rcr@rcresearch.us
; Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
; ------------------
;Entry Points

25
p/C0CMCCD.m
View File

@ -1,21 +1,19 @@
C0CMCCD ; GPL - MXML based CCD utilities;12/04/09 17:05
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2009 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
Q
;
@ -284,10 +282,7 @@ UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
K ZERR
D CLEAN^DILF
D UPDATE^DIE("","C0CFDA","","ZERR")
I $D(ZERR) D ;
. W "ERROR",!
. ZWR ZERR
. B
I $D(ZERR) S $EC=",U1,"
K C0CFDA
Q
;

25
p/C0CMED.m
View File

@ -1,22 +1,20 @@
C0CMED ; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel.
; Licensed under the terms of the GNU General Public License.
; See attached copy of the License.
;
; 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
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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 Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
; You should have received a copy of the GNU General Public License along
; with this program; if not, write to the Free Software Foundation, Inc.,
; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
;
; --Revision History
; July 2008 - Initial Version/GPL
@ -52,7 +50,7 @@ EXTRACT(MEDXML,DFN,MEDOUTXML) ; Private; Extract medications into provided XML t
W:$G(DEBUG) "Agenecy: ",$G(DUZ("AG"))
I $$RPMS^C0CUTIL() D RPMS QUIT
I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D VISTA QUIT
RPMS
RPMS ;
;D EXTRACT^C0CMED6(MEDXML,DFN,MEDOUTXML,C0CMFLAG) QUIT
N MEDCOUNT S MEDCOUNT=0
K ^TMP($J,"MED")
@ -69,7 +67,7 @@ RPMS
. ;E D CP^C0CXPATH(NVA,MEDOUTXML)
. W:$G(DEBUG) "HAS NON-VA MEDS",!
Q
VISTA
VISTA ;
N MEDCOUNT S MEDCOUNT=0
K ^TMP($J,"MED")
N HIST S HIST=$NA(^TMP($J,"MED","HIST")) ; Meds already dispensed
@ -111,4 +109,3 @@ VISTA
K @NVA
K @IPUD
Q

22
p/C0CMED1.m
View File

@ -1,22 +1,20 @@
C0CMED1 ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;01/10/09
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;;Last modified Sat Jan 10 21:42:27 PST 2009
; Copyright 2009 WorldVistA. Licensed under the terms of the GNU
; General Public License See attached copy of the License.
; Copyright 2009 WorldVistA.
;
; 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
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
; with this program; if not, write to the Free Software Foundation, Inc.,
; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "NO ENTRY FROM TOP",!
Q
@ -57,7 +55,7 @@ EXTRACT(MINXML,DFN,OUTXML,MEDCOUNT,FLAGS) ; EXTRACT MEDICATIONS INTO PROVIDED XM
; @(0) contains the number of meds or -1^NO DATA FOUND
; If it is -1, we quit.
I $P(MEDS(0),U)=-1 S @OUTXML@(0)=0 Q
ZWRITE:$G(DEBUG) MEDS
; ZWRITE:$G(DEBUG) MEDS
N RXIEN S RXIEN=0
F S RXIEN=$O(MEDS(RXIEN)) Q:$G(RXIEN)="" D ; FOR EACH MEDICATION IN THE LIST
. N MED M MED=MEDS(RXIEN)

22
p/C0CMED2.m
View File

@ -1,22 +1,20 @@
C0CMED2 ; WV/CCDCCR/SMH - CCR/CCD Meds - Pending for Vista
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;;Last Modified Sat Jan 10 21:41:14 PST 2009
; Copyright 2008 WorldVistA. Licensed under the terms of the GNU
; General Public License See attached copy of the License.
; Copyright 2008 WorldVistA.
;
; 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
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
; with this program; if not, write to the Free Software Foundation, Inc.,
; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "NO ENTRY FROM TOP",!
Q
@ -47,7 +45,7 @@ EXTRACT(MINXML,DFN,OUTXML,MEDCOUNT) ; EXTRACT MEDICATIONS INTO PROVIDE
; @(0) contains the number of meds or -1^NO DATA FOUND
; If it is -1, we quit.
I $P(MEDS(0),U)=-1 S @OUTXML@(0)=0 QUIT
ZWRITE:$G(DEBUG) MEDS
; ZWRITE:$G(DEBUG) MEDS
N RXIEN S RXIEN=0
N MEDFIRST S MEDFIRST=1 ; FLAG FOR FIRST MED IN THIS SECTION FOR MERGING
F S RXIEN=$O(MEDS(RXIEN)) Q:RXIEN="B" D ; FOR EACH MEDICATION IN THE LIST

22
p/C0CMED3.m
View File

@ -1,22 +1,20 @@
C0CMED3 ; WV/CCDCCR/SMH - Meds: Non-VA/Outside Meds for Vista
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;;Last Modified: Sun Jan 11 05:45:03 UTC 2009
; Copyright 2009 WorldVistA. Licensed under the terms of the GNU
; General Public License See attached copy of the License.
; Copyright 2009 WorldVistA.
;
; 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
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
; with this program; if not, write to the Free Software Foundation, Inc.,
; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "NO ENTRY FROM TOP",!
Q
@ -48,7 +46,7 @@ EXTRACT(MINXML,DFN,OUTXML,MEDCOUNT) ; Extract medications into provided xml temp
; We are done with NVA
K NVA
;
I DEBUG ZWRITE MEDS
; I DEBUG ZWRITE MEDS
N FDAIEN S FDAIEN=0 ; For use in $Order in the MEDS array.
N MEDFIRST S MEDFIRST=1 ; FLAG FOR FIRST MED PROCESSED HERE
F S FDAIEN=$O(MEDS(FDAIEN)) Q:FDAIEN="" D ; FOR EACH MEDICATION IN THE LIST

24
p/C0CMED4.m
View File

@ -1,21 +1,19 @@
C0CMED4 ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS - Inpatient Meds/Unit Dose ;10/13/08 ; 5/10/12 2:38pm
;;1.2;C0C;;May 11, 2012;Build 47
; Copyright 2008 WorldVistA. Licensed under the terms of the GNU
; General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
; Copyright 2008 WorldVistA.
;
; 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
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
; with this program; if not, write to the Free Software Foundation, Inc.,
; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "NO ENTRY FROM TOP",!
Q
@ -48,7 +46,7 @@ EXTRACT(MINXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEM
I ^TMP($J,"UD",0)'>0 S @OUTXML@(0)=0 QUIT ; No Meds - Quit
; Otherwise, we go on...
M MEDS=^TMP($J,"UD")
I DEBUG ZWR MEDS
; I DEBUG ZWR MEDS
S MEDMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
N MEDCOUNT S MEDCOUNT=@MEDMAP@(0) ; We already have meds in the array
N I S I=0
@ -113,7 +111,7 @@ EXTRACT(MINXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEM
. . D DATA^PSS50(MEDIEN,,,,,"QTY")
. . N QTYDATA M QTYDATA=^TMP($J,"QTY",MEDIEN)
. . S @MAP@("MEDQUANTITYUNIT")=QTYDATA(14.5)
E S @MAP@("MEDQUANTITYUNIT")=""
. E S @MAP@("MEDQUANTITYUNIT")=""
. ;
. ; --- START OF DIRECTIONS ---
. ; Dosage is field 2, route is 3, schedule is 4

25
p/C0CMED6.m
View File

@ -1,21 +1,19 @@
C0CMED6 ; WV/CCDCCR/SMH - Meds from RPMS: Outpatient Meds;01/10/09
;;1.2;C0C;;May 11, 2012;Build 47
; Copyright 2008 WorldVistA. Licensed under the terms of the GNU
; General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
; Copyright 2008 WorldVistA.
;
; 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
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
; with this program; if not, write to the Free Software Foundation, Inc.,
; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "NO ENTRY FROM TOP",!
Q
@ -54,7 +52,7 @@ EXTRACT(MINXML,DFN,OUTXML,MEDCOUNT,FLAGS) ; EXTRACT MEDICATIONS INTO PROVIDED X
S @OUTXML@(0)=0 ;By default, no meds
; If MEDS1 is not defined, then no meds
I '$D(MEDS1) QUIT
I DEBUG ZWR MEDS1,MINXML
;I DEBUG ZWR MEDS1,MINXML
N MEDCNT S MEDCNT=0 ; Med Count
; The next line is a super line. It goes through the array return
; and if the first characters are ~OP, it grabs the line.
@ -311,7 +309,7 @@ GETRXN(NDC) ; Extrinsic Function; PUBLIC; NDC to RxNorm
S NDC=$TR(NDC,"-") ; Remove dashes
N RXNORM,C0CZRXN,DIERR
D FIND^DIC(176.002,,"@;.01","PX",NDC,"*","NDC",,,"C0CZRXN","DIERR")
I $D(DIERR) D ^%ZTER BREAK
I $D(DIERR) S $EC=",U1,"
S RXNORM(0)=+C0CZRXN("DILIST",0) ; RxNorm(0) will be # of entries
N I S I=0
F S I=$O(C0CZRXN("DILIST",I)) Q:I="" S RXNORM(I)=$P(C0CZRXN("DILIST",I,0),U,2)
@ -328,4 +326,3 @@ GETRXN(NDC) ; Extrinsic Function; PUBLIC; NDC to RxNorm
. . I +$G(RXNIEN)=0 QUIT ; try the next entry...
. . E S RXNORM=RXNORM(I) QUIT ; We found the right code
QUIT +$G(RXNORM) ; RETURN RXNORM; if we couldn't find a clnical drug, return with 0

32
p/C0CMIME.m
View File

@ -1,21 +1,19 @@
C0CMIME ; CCDCCR/GPL - MIME manipulation utilities; 3/8/11 ; 5/16/11 2:32pm
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2008 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
Q
;
@ -44,7 +42,7 @@ ENCODE(ZRTN,ZARY) ;
D CHUNK(ZRTN,"G",45)
Q
; THIS ROUTINE WAS COPIED FROM LRSRVR4 AND THEN MODIFIED . THANKS JOHN
ENCODEOLD(IARY,LRNODE,LRSTR) ; Encode a string, keep remainder for next line
ENCODEO(IARY,LRNODE,LRSTR) ; Encode a string, keep remainder for next line
; Call with LRSTR by reference, Remainder returned in LRSTR
; IARY IS PASSED BY NAME
S LRQUIT=0,LRLEN=$L(LRSTR)
@ -69,10 +67,10 @@ TESTMAIL ;
. M @ZATTACH=GPL ; PUT IT IN THERE FOR NEXT TIME
S ZSUBJECT="TEST OF THE NEW MAILSEND ROUTINE"
D MAILSEND(.GR,ZFROM,"ZTO",,ZSUBJECT,,ZATTACH)
ZWR GR
; ZWR GR
Q
;
TESTMAIL2 ;
TESTMAI2 ;
; TEST OF MAILSEND TO gpl.mdc-crew.net
N C0CGM
S C0CGM(1)="This is a test message."
@ -98,7 +96,7 @@ TESTMAIL2 ;
. M @ZATTACH=GPL ; PUT IT IN THERE FOR NEXT TIME
S ZSUBJECT="TEST OF THE NEW MAILSEND ROUTINE"
D MAILSEND(.GR,ZFROM,"ZTO",,ZSUBJECT,"C0CGM",ZATTACH,"CCR.xml")
ZWR GR
; ZWR GR
Q
;
LINE(C0CFILE,C0CTO) ; read a file name passed in C0CFILE and send it to
@ -202,7 +200,7 @@ MAILSEND(RTN,FROM,TO,CC,SUBJECT,MESSAGE,ATTACH,FNAME,FLAGS) ; MAIL SENDING INTER
S RTN(1)="OK"
Q
;
MAILSEND0(LRMSUBJ) ; Send extract back to requestor.
MAILSEN0(LRMSUBJ) ; Send extract back to requestor.
;
;D TEST
S GN=$NA(^TMP($J,"C0CMIME"))
@ -250,7 +248,7 @@ MAILSEND0(LRMSUBJ) ; Send extract back to requestor.
;S ^XMB(3.9,LRTASK,1,.1130591,0)="Content-type: multipart/mixed; boundary=000e0cd6ae026c3d4b049e7befe9"
Q
;
MAILSEND2(UDFN,ADDR) ; Send extract back to requestor.
MAILSEN2(UDFN,ADDR) ; Send extract back to requestor.
;
I +$G(UDFN)=0 S UDFN=2 ;
D TEST(UDFN)

31
p/C0CMXML.m
View File

@ -1,21 +1,19 @@
C0CMXML ; GPL - MXML based XPath utilities;10/13/09 17:05
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2009 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
Q
; THIS FILE CONTAINS THE XPATH CREATOR, THE PARSE CALL TO THE MXML PARSER
@ -44,7 +42,7 @@ TEST2 ;
D XPATH(1,"/","GIDX","GARY","",REDUX)
Q
;
TEST3
TEST3 ;
S C0CXMLIN=$NA(^TMP("C0CMXML",$J))
K GARY,GTMP,GIDX
K @C0CXMLIN
@ -113,7 +111,7 @@ TEST4 ; TEST OF OUTPUTING AN XML FILE FROM THE DOM .. this one is the CCR
D NDOUT($$FIRST(1))
D END^C0CMXMLB ;END THE DOCUMENT
M ZCCR=^TMP("MXMLBLD",$J)
ZWR ZCCR
; ZWR ZCCR
Q
;
TEST5 ; SAME AS TEST4, BUT THIS TIME THE CCD
@ -136,7 +134,7 @@ TEST5 ; SAME AS TEST4, BUT THIS TIME THE CCD
;D NDOUT($$FIRST(1))
;D END^C0CMXMLB ;EOND THE DOCUMENT
;M ZCCD=^TMP("MXMLBLD",$J)
ZWR ZCCD(1:30)
; ZWR ZCCD(1:30)
Q
;
XPATH(ZOID,ZPATH,ZXIDX,ZXPARY,ZNUM,ZREDUX) ; RECURSIVE ROUTINE TO POPULATE
@ -245,10 +243,7 @@ UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
K ZERR
D CLEAN^DILF
D UPDATE^DIE("","C0CFDA","","ZERR")
I $D(ZERR) D ;
. W "ERROR",!
. ZWR ZERR
. B
I $D(ZERR) S $EC=",U1,"
K C0CFDA
Q
;

4
p/C0CMXMLB.m
View File

@ -1,7 +1,9 @@
C0CMXMLB ;;ISF/RWF - Tool to build XML ; 5/10/12 2:51pm
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
QUIT
;
; FOIA Routine - Public Domain
;
;DOC - The top level tag
;DOCTYPE - Want to include a DOCTYPE node
;FLAG - Set to 'G' to store the output in the global ^TMP("MXMLBLD",$J,

25
p/C0CMXP.m
View File

@ -1,21 +1,19 @@
C0CMXP ; GPL - MXML based XPath utilities;12/04/09 17:05
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2009 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
Q
;
@ -283,10 +281,7 @@ UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
K ZERR
D CLEAN^DILF
D UPDATE^DIE("","C0CFDA","","ZERR")
I $D(ZERR) D ;
. W "ERROR",!
. ZWR ZERR
. B
I $D(ZERR) S $EC=",U1,"
K C0CFDA
Q
;

20
p/C0CNHIN.m
View File

@ -1,21 +1,19 @@
C0CNHIN ; GPL - PROCESSING FOR OUTPUT OF NHINV ROUTINES;6/3/11 17:05
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2011 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2011 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
Q
EN(ZRTN,ZDFN,ZPART,KEEP) ; GENERATE AN NHIN ARRAY FOR A PATIENT

20
p/C0CNMED2.m
View File

@ -1,22 +1,20 @@
C0CNMED2 ; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009 ; 5/10/12 2:53pm
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel.
; Licensed under the terms of the GNU General Public License.
; See attached copy of the License.
;
; 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
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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 Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
; You should have received a copy of the GNU General Public License along
; with this program; if not, write to the Free Software Foundation, Inc.,
; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
;
; --Revision History
; July 2008 - Initial Version/GPL

22
p/C0CNMED4.m
View File

@ -1,21 +1,19 @@
C0CNMED4 ; WV/CCDCCR/SMH/gpl - CCR/CCD PROCESSING FOR MEDICATIONS - Inpatient Meds/Unit Dose ;10/13/08 ; 5/10/12 2:54pm
;;1.2;C0C;;May 11, 2012;Build 47
; Copyright 2008 WorldVistA. Licensed under the terms of the GNU
; General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
; Copyright 2008 WorldVistA.
;
; 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
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
; with this program; if not, write to the Free Software Foundation, Inc.,
; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "NO ENTRY FROM TOP",!
Q
@ -57,7 +55,7 @@ EXTRACT(MINXML,DFN,OUTXML,MEDCOUNT) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMP
. I $G(MEDS("med",ZI,"vaType@value"))="I" S ZCOUNT=ZCOUNT+1
IF ZCOUNT=0 Q ; no inpatient meds
;M MEDS=^TMP($J,"UD")
I DEBUG ZWR MEDS
;I DEBUG ZWR MEDS
S MEDMAP=$NA(^TMP("C0CCCR",$J,"MEDMAP"))
;N MEDCOUNT S MEDCOUNT=@MEDMAP@(0) ; We already have meds in the array
S C0CMFLAG=$$GET^C0CPARMS("MEDALL")_"^"_$$GET^C0CPARMS("MEDLIMIT")_"^"_$$GET^C0CPARMS("MEDACTIVE")_"^"_$$GET^C0CPARMS("MEDPENDING") ;SETTING FLAG

19
p/C0CORSLT.m
View File

@ -1,22 +1,19 @@
C0CORSLT ; CCDCCR/GPL - CCR/CCD PROCESSING ADDITIONAL RESULTS ; 06/27/11
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2011 George Lilly.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "NO ENTRY FROM TOP",!
Q

17
p/C0COVREL.m
View File

@ -1,5 +1,20 @@
C0COVREL ; CCDCCR/ELN - CCR/CCD PROCESSING FOR LAB,RAD,TIU RESULTS ; 10/12/15
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
; (C) ELN 2012
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
LIST ; LIST THE HL7 MESSAGE; ALSO, EXTRACT THE RESULT VARIABLES TO C0CLB
N C0CI,C0CJ,C0COBT,C0CHB,C0CVAR,C0CLB2,C0CLB,C0CLI,C0CLOBX,C0CTAB,C0CTYP
I '$D(C0CLB) S C0CLB=$NA(^TMP("C0CCCR",$J,"RESULTS")) ; BASE GLB FOR LABS VARS

16
p/C0COVRES.m
View File

@ -1,5 +1,19 @@
C0COVRES ; CCDCCR/ELN - CCR/CCD PROCESSING FOR LAB,RAD,TIU RESULTS ; 10/12/15
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
; (C) ELN 2012
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
MAP(MIXML,DFN,MOXML) ;TO MAKE THIS COMPATIBLE WITH OLD CALLING FOR EXTRACT
; ASSUMES THAT EXTRACT HAS BEEN RUN AND THE VARIABLES STORED IN MIVAR

17
p/C0COVREU.m
View File

@ -1,5 +1,19 @@
C0COVREU ; CCDCCR/ELN - CCR/CCD PROCESSING FOR LAB,RAD,TIU RESULTS ; 10/12/15
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;
GHL7 ; GET HL7 MESSAGE FOR LABS FOR THIS PATIENT
@ -41,7 +55,6 @@ LTYP(OSEG,OTYP,OVARA,OC0CQT) ;
Q
LOBX ;
Q
;
OUT(DFN) ; WRITE OUT A CCR THAT HAS JUST BEEN PROCESSED (FOR TESTING)
N GA,GF,GD
S GA=$NA(^TMP("C0CCCR",$J,DFN,"CCR",1))

20
p/C0CPARMS.m
View File

@ -1,21 +1,19 @@
C0CPARMS ; CCDCCR/GPL - CCR/CCD PARAMETER PROCESSING ; 1/29/09 ; 6/15/12 3:46pm
;;1.2;C0C;;May 11, 2012;Build 49
;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008 WorldVistA.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
SET(INPARMS) ;INITIALIZE RUNTIME PARMS USING INPARMS TO OVERRIDE DEFAULTS
; PARAMETERS ARE PASSED AS A STRING: "PARM1:VALUE1^PARM2:VALUE2^ETC"

28
p/C0CPROBS.m
View File

@ -1,23 +1,19 @@
C0CPROBS ; CCDCCR/GPL/CJE - CCR/CCD PROCESSING FOR PROBLEMS ; 6/6/08
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008,2009 George Lilly, University of Minnesota.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;GNU General Public License for more details.
;
;You should have received a copy of the GNU General Public License along
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
; PROCESS THE PROBLEMS SECTION OF THE CCR
;
@ -91,7 +87,7 @@ RPMS ; GETS THE PROBLEM LIST FOR RPMS
; $$HTML^DILF(
; GENERATE THE NARITIVE HTML FOR THE CCD
I CCD D CCD ; IF THIS IS FOR A CCD
D MISSINGVARS
D MISSVARS
Q
;
VISTA ; GETS THE PROBLEM LIST FOR VISTA
@ -148,9 +144,9 @@ VISTA ; GETS THE PROBLEM LIST FOR VISTA
; $$HTML^DILF(
; GENERATE THE NARITIVE HTML FOR THE CCD
I CCD D CCD ; IF THIS IS FOR A CCD
D MISSINGVARS
D MISSVARS
Q
CCD
CCD ;
N HTMP,HOUT,HTMLO,C0CPROBI,ZX
F C0CPROBI=1:1:RPCRSLT(0) D ; FOR EACH PROBLEM
. S VMAP=$NA(@TVMAP@(C0CPROBI))
@ -174,7 +170,7 @@ CCD
I DEBUG D PARY^C0CXPATH("HTMLO")
D INSB4^C0CXPATH(OUTXML,"HTMLO") ; INSERT AT TOP OF SECTION
Q
MISSINGVARS
MISSVARS ; Missing Variables
N PROBSTMP,I
D MISSING^C0CXPATH(ARYTMP,"PROBSTMP") ; SEARCH XML FOR MISSING VARS
I PROBSTMP(0)>0 D ; IF THERE ARE MISSING VARS -

20
p/C0CPROC.m
View File

@ -1,22 +1,18 @@
C0CPROC ; CCDCCR/GPL - CCR/CCD PROCESSING FOR PROCEDURES ; 01/21/10
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2010 George Lilly, University of Minnesota and others.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "NO ENTRY FROM TOP",!
Q

142
p/C0CPXRM.m
View File

@ -1,74 +1,74 @@
C0CPXRM ;
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
DOIT ;
S G="PXRMXSEPCLINIC3110302.224804" ZWR ^XTMP(G,*)
S G="PXRMXSEPCLINIC3110302.223957" ZWR ^XTMP(G,*)
S G="PXRMXSEPCLINIC3110302.223738" ZWR ^XTMP(G,*)
S G="PXRMXSEPCLINIC3110302.223516" ZWR ^XTMP(G,*)
S G="PXRMXSEPCLINIC3110302.222158" ZWR ^XTMP(G,*)
S G="PXRMXSEPCLINIC3110302.213944" ZWR ^XTMP(G,*)
S G="PXRMXSEPCLINIC3110302.212219" ZWR ^XTMP(G,*)
S G="PXRMXSEPCLINIC3110302.211506" ZWR ^XTMP(G,*)
S G="PXRMXSEPCLINIC3110302.002714" ZWR ^XTMP(G,*)
S G="PXRMXSEPCLINIC3110302.001841" ZWR ^XTMP(G,*)
S G="PXRMXSEPCLINIC3110302.000846" ZWR ^XTMP(G,*)
S G="PXRMXSEPCLINIC3110115.141918" ZWR ^XTMP(G,*)
S G="PXRMXSEPCLINIC3110115.132312" ZWR ^XTMP(G,*)
S G="PXRMXSEPCLINIC3110115.131653" ZWR ^XTMP(G,*)
S G="PXRMXSEPCLINIC3110115.131008" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT988 3110224.210456" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT986 3110224.210456" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT932 3110224.210456" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT932 3110224.210455" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT8015 3110301.215142" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT8015 3110301.215141" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT5265 3110309.124047" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT5265 3110309.124046" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT4742 3101129.221201" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT4742 3101129.215741" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT4710 3101129.215701" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT3297 3101127.123134" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT32495 3110224.194246" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT32493 3110224.194246" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT32354 3110224.194246" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT32354 3110224.194245" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT31106 3110224.175105" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT31090 3110224.175105" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT30339 3110224.175105" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT30339 3110224.175103" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT2761 3110115.174109" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT2761 3110115.174108" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT27327 3110227.013658" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT27327 3110227.013657" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT27327 3110227.013523" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT27327 3110227.013522" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT27253 3110227.012747" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT27253 3110227.012746" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT2559 3110115.170835" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT25549 3110228.231135" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT25549 3110228.231134" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT2205 3101129.215343" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT21092 3110114.195621" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT21092 3110114.193803" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT19640 3110226.032943" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT19640 3110226.032941" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT19353 3101212.162833" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT18780 3110221.215603" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT18156 3101212.152654" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT17800 3110315.202432" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT1650 3110220.192925" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT16110 3110313.224636" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT16004 3110317.151215" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT16004 3110317.150834" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT14955 3110315.165018" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT14816 3110315.164839" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT14816 3110315.164512" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT12415 3110315.135514" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT11797 3110315.131141" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT11573 3110315.131811" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT10728 3110114.025022" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT10578 3110114.021524" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT10243 3110114.020338" ZWR ^XTMP(G,*)
S G="PXRM PXK EVENT10105 3101204.230554" ZWR ^XTMP(G,*)
Q
; S G="PXRMXSEPCLINIC3110302.224804" ZWR ^XTMP(G,*)
; S G="PXRMXSEPCLINIC3110302.223957" ZWR ^XTMP(G,*)
; S G="PXRMXSEPCLINIC3110302.223738" ZWR ^XTMP(G,*)
; S G="PXRMXSEPCLINIC3110302.223516" ZWR ^XTMP(G,*)
; S G="PXRMXSEPCLINIC3110302.222158" ZWR ^XTMP(G,*)
; S G="PXRMXSEPCLINIC3110302.213944" ZWR ^XTMP(G,*)
; S G="PXRMXSEPCLINIC3110302.212219" ZWR ^XTMP(G,*)
; S G="PXRMXSEPCLINIC3110302.211506" ZWR ^XTMP(G,*)
; S G="PXRMXSEPCLINIC3110302.002714" ZWR ^XTMP(G,*)
; S G="PXRMXSEPCLINIC3110302.001841" ZWR ^XTMP(G,*)
; S G="PXRMXSEPCLINIC3110302.000846" ZWR ^XTMP(G,*)
; S G="PXRMXSEPCLINIC3110115.141918" ZWR ^XTMP(G,*)
; S G="PXRMXSEPCLINIC3110115.132312" ZWR ^XTMP(G,*)
; S G="PXRMXSEPCLINIC3110115.131653" ZWR ^XTMP(G,*)
; S G="PXRMXSEPCLINIC3110115.131008" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT988 3110224.210456" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT986 3110224.210456" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT932 3110224.210456" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT932 3110224.210455" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT8015 3110301.215142" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT8015 3110301.215141" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT5265 3110309.124047" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT5265 3110309.124046" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT4742 3101129.221201" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT4742 3101129.215741" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT4710 3101129.215701" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT3297 3101127.123134" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT32495 3110224.194246" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT32493 3110224.194246" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT32354 3110224.194246" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT32354 3110224.194245" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT31106 3110224.175105" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT31090 3110224.175105" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT30339 3110224.175105" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT30339 3110224.175103" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT2761 3110115.174109" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT2761 3110115.174108" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT27327 3110227.013658" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT27327 3110227.013657" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT27327 3110227.013523" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT27327 3110227.013522" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT27253 3110227.012747" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT27253 3110227.012746" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT2559 3110115.170835" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT25549 3110228.231135" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT25549 3110228.231134" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT2205 3101129.215343" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT21092 3110114.195621" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT21092 3110114.193803" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT19640 3110226.032943" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT19640 3110226.032941" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT19353 3101212.162833" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT18780 3110221.215603" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT18156 3101212.152654" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT17800 3110315.202432" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT1650 3110220.192925" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT16110 3110313.224636" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT16004 3110317.151215" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT16004 3110317.150834" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT14955 3110315.165018" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT14816 3110315.164839" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT14816 3110315.164512" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT12415 3110315.135514" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT11797 3110315.131141" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT11573 3110315.131811" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT10728 3110114.025022" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT10578 3110114.021524" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT10243 3110114.020338" ZWR ^XTMP(G,*)
; S G="PXRM PXK EVENT10105 3101204.230554" ZWR ^XTMP(G,*)
; Q
;

2
p/C0CQRY1.m
View File

@ -1,5 +1,5 @@
LA7QRY1 ;DALOI/JMC - Lab HL7 Query Utility ;01/19/99 13:48
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;
Q
;

20
p/C0CQRY2.m
View File

@ -1,7 +1,23 @@
LA7QRY2 ;DALOI/JMC - Lab HL7 Query Utility ; 04/13/09
;;1.2;C0C;;May 11, 2012;Build 47
LA7QRY2 ;DALOI/JMC - Lab HL7 Query Utility ; 04/13/09 ; 10/30/12 10:16am
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
; JMC - mods to check for IHS V LAB file
;
; (C) John McCormack 2009
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;
Q
;
PATID ; Resolve patient id and establish patient environment

20
p/C0CRAHL7.m
View File

@ -1,6 +1,22 @@
C0CRAHL7 ; C0C/ELN - CCR/CCD PROCESSING FOR RAD REPORT ; 25/10/2010
;;1.2;C0C;;May 11, 2012;Build 47
;;
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;
; (C) ELN 2010.
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;
Q
;LENGTH OF SEGMENTS COMPROMISED
GHL7 ; Loop through ^RADPT with RADFN

18
p/C0CRARPT.m
View File

@ -1,5 +1,21 @@
C0CRARPT ; C0C/ELN - CCR/CCD PROCESSING FOR RAD REPORT ; 19/10/2010
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;
; (C) ELN 2010
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
MAP(MIXML,DFN,MOXML) ;TO MAKE THIS COMPATIBLE WITH OLD CALLING FOR EXTRACT
; ASSUMES THAT EXTRACT HAS BEEN RUN AND THE VARIABLES STORED IN MIVAR
; MIXML,MIVAR, AND MOXML ARE PASSED BY NAME

19
p/C0CRIMA.m
View File

@ -1,22 +1,19 @@
C0CRIMA ; CCDCCR/GPL - RIM REPORT ROUTINES; 6/6/08
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008,2009 George Lilly, University of Minnesota.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
; THESE ROUTINES EXAMINE ONE OR MORE, UP TO ALL, OF THE PATIENTS ON THE
; SYSTEM TO DETERMINE HOW COMPLETE THE RESULTING CCR OR CCD WOULD BE FOR

22
p/C0CRNF.m
View File

@ -1,21 +1,19 @@
C0CRNF ; CCDCCR/GPL - Reference Name Format (RNF) utilities; 12/6/08
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2009 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "This is the Reference Name Format (RNF) Utility Library ",!
W !
@ -52,7 +50,7 @@ TESTRNF ; TEST THE RNF1TO2 ROUTINE
S G1("TWO")="STILL2"
S G1("THREE")=3
D RNF1TO2("GPL","G1")
ZWR GPL
; ZWR GPL
Q
;
RNF1TO2(ZOUT,ZIN) ; ADDS AN RNF1 ARRAY (ZIN) TO THE END OF AN RNF2 ARRAY

20
p/C0CRNFRP.m
View File

@ -1,21 +1,19 @@
C0CRNFRP ; CCDCCR/GPL - Reference Name Format (RNF) RPCs; 12/9/09 ; 5/10/12 2:56pm
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2009 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "This is the Reference Name Format (RNF) RPC Library ",!
W !

23
p/C0CRPMS.m
View File

@ -1,21 +1,18 @@
C0CRPMS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR RPMS ;1/14/09 14:33
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2008 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "NO ENTRY FROM TOP",!
Q
@ -26,7 +23,7 @@ DISPLAY ; RUN THE PCC DISPLAY ROUTINE
;
VTYPES ;
D GETN2^C0CRNF("G1",9999999.07)
ZWR G1
; ZWR G1
Q
;
VISITS(C0CDFN,C0CCNT) ;LIST VISIT DATES FOR PATIENT DFN
@ -91,7 +88,7 @@ GETTBL(C0CTBL) ; SCAN FOR AND DISPLAY PATIENTS IN A RIMTBL, PASSED BY VALUE
F S C0CG=$O(@ZG@(C0CG),-1) Q:(C0CG="") D ;
. W "PAT: ",C0CG,!
. D GETNV^C0CRPMS(C0CG)
. K X R X
. K X R X:DTIME
. I X="Q" S C0CQ=1 ; QUIT IF Q
Q
;

31
p/C0CRXN.m
View File

@ -1,21 +1,19 @@
C0CRXN ; CCDCCR/GPL - CCR RXN utilities; 12/6/08
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2009 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "This is the CCR RXNORM Utility Library ",!
W !
@ -52,7 +50,7 @@ EXPAND ; MAIN ROUTINE TO CREATE THE C0C RXNORM VUID EXPANSION FILE (176.112)
. . S NOVUID=NOVUID+1
. . ;D SETFDA("VUID",$$ZVALUE("VUID"))
. E D SETFDA("VUID TEXT",$$ZVALUE("VUID TEXT"))
. . ;ZWR C0CA
. ;ZWR C0CA
. D GETN1^C0CRNF("C0CB",176.001,$$ZVALUE("VUID"),"VUID","ALL")
. I $$ZVALUE("RXCUI","C0CB")'="" D ; RXNORM FOUND
. . S RXFOUND=RXFOUND+1
@ -73,7 +71,7 @@ EXPAND ; MAIN ROUTINE TO CREATE THE C0C RXNORM VUID EXPANSION FILE (176.112)
. D CLEAN^DILF ; MAKE SURE WE ARE CLEANED UP
. S C0CFDA(176.112,"+"_C0CZX_",",.01)=$$ZVALUE("VUID") ; NEW VUID RECORD
. D UPDATE^DIE("","C0CFDA")
. I $D(^TMP("DIERR",$J)) U $P BREAK
. I $D(^TMP("DIERR",$J)) S $EC=",U1,"
W "HAS RXN=",HASRXN,!
W "NO RXN=",NORXN,!
W "NO VUID=",NOVUID,!
@ -149,7 +147,7 @@ EXP2 ; ROUTINE TO CREATE 176.113 C0C RXNORM VUID MAPPING DISCREPANCIES FILE
. D CLEAN^DILF ; MAKE SURE WE ARE CLEANED UP
. S C0CFDA(176.113,"+"_C0CZX_",",.01)=C0CZX ; NEW VUID RECORD
. D UPDATE^DIE("","C0CFDA")
. I $D(^TMP("DIERR",$J)) U $P BREAK
. I $D(^TMP("DIERR",$J)) S $EC=",U1,"
W "VA MAPPING VUID COUNT: ",VAVCNT,!
W "VA MAPPING MISSING: ",VANO,!
W "VA MAPPING TEXT MISMATCH: ",VATCNT,!
@ -215,6 +213,7 @@ CHKNDF ; ROUTINE TO CHECK THE NATIONAL DRUG FILE WITH THE UMLS RXNORM DB
W "ERRORS: ",NOVUID,!
Q
;
D
. I $$ZVALUE("MEDIATION CODE")="" D
. . S NORXN=NORXN+1 ;
. E D ; PROCESS MEDIATION CODE
@ -224,7 +223,7 @@ CHKNDF ; ROUTINE TO CHECK THE NATIONAL DRUG FILE WITH THE UMLS RXNORM DB
. . S NOVUID=NOVUID+1
. . ;D SETFDA("VUID",$$ZVALUE("VUID"))
. E D SETFDA("VUID TEXT",$$ZVALUE("VUID TEXT"))
. . ;ZWR C0CA
. ;ZWR C0CA
. D GETN1^C0CRNF("C0CB",176.001,$$ZVALUE("VUID"),"VUID","ALL")
. I $$ZVALUE("RXCUI","C0CB")'="" D ; RXNORM FOUND
. . S RXFOUND=RXFOUND+1
@ -244,7 +243,7 @@ CHKNDF ; ROUTINE TO CHECK THE NATIONAL DRUG FILE WITH THE UMLS RXNORM DB
. D CLEAN^DILF ; MAKE SURE WE ARE CLEANED UP
. S C0CFDA(176.112,"+"_C0CZX_",",.01)=$$ZVALUE("VUID") ; NEW VUID RECORD
. D UPDATE^DIE("","C0CFDA")
. I $D(^TMP("DIERR",$J)) U $P BREAK
. I $D(^TMP("DIERR",$J)) S $EC=",U1,"
W "HAS RXN=",HASRXN,!
W "NO RXN=",NORXN,!
W "NO VUID=",NOVUID,!

28
p/C0CRXNRD.m
View File

@ -1,7 +1,22 @@
C0CRXNRD ; WV/SMH - CCR/CCD PROJECT: Routine to Read RxNorm files;11/15/08
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
; Copyright Sam Habiel 2008.
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "No entry from top" Q
IMPORT(PATH)
IMPORT(PATH) ; Main entry point
I PATH="" QUIT
D READSRC(PATH),READCON(PATH),READNDC(PATH)
QUIT
@ -20,7 +35,7 @@ GETLINES(PATH,FILENAME) ; Get number of lines in a file
D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
U IO
N I
F I=1:1 R LINE Q:$$STATUS^%ZISH
F I=1:1 R LINE:0 Q:$$STATUS^%ZISH
D CLOSE^%ZISH("FILE")
Q I-1
READCON(PATH,INCRES) ; Open and read concepts file: RXNCONSO.RRF; EP
@ -36,7 +51,7 @@ READCON(PATH,INCRES) ; Open and read concepts file: RXNCONSO.RRF; EP
N C0CCOUNT
F C0CCOUNT=1:1 D Q:$$STATUS^%ZISH
. U IO
. N LINE R LINE
. N LINE R LINE:0
. IF $$STATUS^%ZISH QUIT
. I '(C0CCOUNT#1000) U $P W C0CCOUNT," of ",LINES," read ",! U IO ; update every 1000
. N RXCUI,RXAUI,SAB,TTY,CODE,STR ; Fileman fields numbers below
@ -81,7 +96,7 @@ READNDC(PATH) ; Open and read NDC/RxNorm/VANDF relationship file: RXNSAT.RRF
IF POP W "Error reading file..., Please check...",! G EX2
F C0CCOUNT=1:1 Q:$$STATUS^%ZISH D
. U IO
. N LINE R LINE
. N LINE R LINE:0
. IF $$STATUS^%ZISH QUIT
. I '(C0CCOUNT#1000) U $P W C0CCOUNT," of ",LINES," read ",! U IO ; update every 1000
. IF LINE'["NDC|RXNORM" QUIT
@ -105,7 +120,7 @@ READSRC(PATH) ; Open the read RxNorm Sources file: RXNSAB.RRF
IF POP W "Error reading file..., Please check...",! G EX3
F I=1:1 Q:$$STATUS^%ZISH D
. U IO
. N LINE R LINE
. N LINE R LINE:0
. IF $$STATUS^%ZISH QUIT
. U $P W I,! U IO ; Write I to the screen, then go back to reading the file
. N VCUI,RCUI,VSAB,RSAB,SON,SF,SVER,SRL,SCIT ; Fileman fields numbers below
@ -140,4 +155,3 @@ READSRC(PATH) ; Open the read RxNorm Sources file: RXNSAB.RRF
. D WP^DIE(176.003,I_",",25,,$NA(SCIT))
EX3 D CLOSE^%ZISH("FILE")
Q

25
p/C0CSNOA.m
View File

@ -1,26 +1,19 @@
C0CSNOA ; CCDCCR/GPL - SNOMED CT ANALYSIS ROUTINES; 10/14/08
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008,2009 George Lilly, University of Minnesota.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
;
; THESE ROUTINES ANALYZE THE POTENTIAL RETRIEVAL OF SNOMED CT CODES
; FOR PATIENT DRUG ALLERGIES FOR INCLUSION IN THE CCR OR CCD
; USING THE VISTA LEXICON ^LEX
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
ANALYZE(BEGIEN,IENCNT) ; SNOMED RETRIEVAL ANALYSIS ROUTINE
; BEGINS AT BEGIEN AND GOES FOR IENCNT DRUGS IN GMRD
@ -43,7 +36,7 @@ ANALYZE(BEGIEN,IENCNT) ; SNOMED RETRIEVAL ANALYSIS ROUTINE
. N SNORTN,TTERM ; RETURN ARRAY
. S TTERM=$P(@GMRBASE@(SNOIEN,0),"^",1)_" ALLERGY"
. D TEXTRPC(.SNORTN,TTERM)
. I $D(SNORTN) ZWR SNORTN
. ; I $D(SNORTN) ZWR SNORTN
. K @SNOBASE@("VARS",SNOIEN) ; CLEAR OUT OLD VARS
. I $P(TTMP,"^",1)=1 S @SNOBASE@("VARS",SNOIEN)=TTERM_"^"_TTMP_"^"_SNORTN(0)
. ;

20
p/C0CSOAP.m
View File

@ -1,21 +1,19 @@
C0CSOAP ; CCDCCR/GPL - SOAP WEB SERVICE utilities; 8/25/09
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2008 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "This is an SOAP utility library",!
W !

16
p/C0CSQMB.m
View File

@ -1,5 +1,19 @@
C0CSQMB ; SQMCCR/ELN - BATCH PROGRAM ;16/11/2010
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
; (C) 2010 ELN
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
EN ;Traverse the DPT global and export CCR xml for each DFN
;and write to directory set in ^TMP("C0CCCR","ODIR")=

25
p/C0CSUB1.m
View File

@ -1,21 +1,19 @@
C0CSUB1 ; CCDCCR/GPL - CCR SUBSCRIPTION utilities; 12/6/08
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2009 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "This is the CCR SUBSCRIPTIONN Utility Library ",!
Q
@ -69,10 +67,7 @@ UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
K ZERR
D CLEAN^DILF
D UPDATE^DIE("","C0CFDA","","ZERR")
I $D(ZERR) D ;
. W "ERROR",!
. ZWR ZERR
. B
I $D(ZERR) S $EC=",U1,"
K C0CFDA
Q
;

20
p/C0CSYS.m
View File

@ -1,21 +1,19 @@
C0CSYS ;WV/C0C/SMH - Routine to Get EHR System Information;6JUL2008
;;1.2;C0C;;May 11, 2012;Build 47
; Copyright 2008 WorldVistA. Licensed under the terms of the GNU
; General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
; Copyright 2008 WorldVistA.
;
; 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
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
; with this program; if not, write to the Free Software Foundation, Inc.,
; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "Enter at appropriate points." Q
;

15
p/C0CTIU.m
View File

@ -1,6 +1,19 @@
C0CTIU ; C0C/ELN - PROCESSING FOR TIU NOTES ; 19/10/2010
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
; (C) ELN 2010
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;ELN - Modified Routine of C0CLABS
MAP(MIXML,DFN,MOXML) ;TO MAKE THIS COMPATIBLE WITH OLD CALLING FOR EXTRACT

17
p/C0CTIU1.m
View File

@ -1,6 +1,21 @@
C0CTIU1 ; C0C/ELN - PROCESSING FOR TIU NOTES Contd. ; 19/10/2010
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;ELN UTILITY PROGRAM TO SUPPORT C0CTIU
; (C) ELN 2010.
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
C0CDATE(EDTE) ; Converts external date to internal date format
; INPUT : EXTERNAL DATE (TIME IS OPTIONAL)
; OUTOUT: INTERNAL DATE, STORAGE FORMAT YYYMMMDD

24
p/C0CUNIT.m
View File

@ -1,21 +1,19 @@
C0CUNIT ; CCDCCR/GPL - Unit Testing Library; 5/07/08
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2008 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "This is a unit testing library",!
W !
@ -154,7 +152,7 @@ TLIST(ZARY) ; LIST ALL THE TESTS
. . S K=1
Q
;
MEDS
MEDS ;
N DEBUG S DEBUG=0
N DFN S DFN=5685
K ^TMP($J)
@ -171,7 +169,7 @@ MEDS
D EXTRACT^C0CMED6("INXML",DFN,OUTXML)
D FILEOUT^C0CRNF(OUTXML,"TESTMEDS.xml")
Q
PAT
PAT ;
D ANALYZE^ARJTXRD("C0CDPT",.OUT) ; Analyze a routine in the directory
N X,Y
; Select Patient

22
p/C0CUTIL.m
View File

@ -1,22 +1,19 @@
C0CUTIL ;WV/C0C/SMH - Various Utilites for generating the CCR/CCD;06/15/08
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008-2009 Sam Habiel & George Lilly.
;Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "No Entry at Top!"
Q
@ -39,7 +36,7 @@ FMDTOUTC(DATE,FORMAT) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrins
; FM Date format is "YYYMMDD.HHMMSS" HHMMSS may not be supplied.
; UTC date is formatted as follows: YYYY-MM-DDThh:mm:ss_offsetfromUTC
; UTC, Year, Month, Day, Hours, Minutes, Seconds, Time offset (obtained from Mailman Site Parameters)
N UTC,Y,M,D,H,MM,S,OFF
N UTC,Y,M,D,H,MM,S,OFF,OFFS,OFF0,OFF1,OFF2
S Y=1700+$E(DATE,1,3)
S M=$E(DATE,4,5)
S D=$E(DATE,6,7)
@ -172,4 +169,3 @@ WV() ; Are we running on WorldVista?
Q $G(DUZ("AG"))="E" ; Code for WV.
OV() ; Are we running on OpenVista?
Q $G(DUZ("AG"))="O" ; Code for OpenVista

21
p/C0CVA200.m
View File

@ -1,21 +1,20 @@
C0CVA200 ;WV/C0C/SMH - Routine to get Provider Data;07/13/2008
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2008 Sam Habiel. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008 Sam Habiel.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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 Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;You should have received a copy of the GNU General Public License along
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
Q
; This routine uses Kernel APIs and Direct Global Access to get
; Proivder Data from File 200.

17
p/C0CVALID.m
View File

@ -1,5 +1,20 @@
C0CVALID ; C0C/OHUM/RUT - PROCESSING FOR DATE LIMITS, NOTES ; 22/12/2011
;;1.2;C0C;;May 11, 2012;Build 47;Build 2
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50;Build 2
; (C) RUT 2011.
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
S ^TMP("C0CCCR","LABLIMIT")="",^TMP("C0CCCR","VITLIMIT")="",^TMP("C0CCCR","MEDLIMIT")="",^TMP("C0CCCR","TIULIMIT")=""
S %DT="AEX",%DT("A")="LAB Report From: ",%DT("B")="T-36500" D ^%DT S ^TMP("C0CCCR","LABLIMIT")=Y
S %DT="AEX",%DT("A")="VITAL Report From: ",%DT("B")="T-36500" D ^%DT S ^TMP("C0CCCR","VITLIMIT")=Y

51
p/C0CVIT2.m
View File

@ -1,22 +1,19 @@
C0CVIT2 ; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008,2009 George Lilly, University of Minnesota and others.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "NO ENTRY FROM TOP",!
Q
@ -167,7 +164,7 @@ GETRPMS(DFN,C0CVIT) ; CALLS QUERY^BEHOVM TO GET VITAL SIGNS.
M @ZRIM=@C0CVIT@("V")
Q
;
HEIGHT
HEIGHT ;
I DEBUG W "IN VITAL: HEIGHT",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC ; UNIQUE OBJID
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
@ -184,7 +181,7 @@ HEIGHT
S ZRNF("VITALSIGNSTESTRESULTUNIT")=$P($P(VIT(C0CVI),U,5)," ",2)
Q
;
WEIGHT
WEIGHT ;
I DEBUG W "IN VITAL: WEIGHT",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
@ -201,7 +198,7 @@ WEIGHT
S ZRNF("VITALSIGNSTESTRESULTUNIT")=$P($P(VIT(C0CVI),U,5)," ",2)
Q
;
BP
BP ;
I DEBUG W "IN VITAL: BLOOD PRESSURE",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
@ -218,7 +215,7 @@ BP
S ZRNF("VITALSIGNSTESTRESULTUNIT")=$P($P(VIT(C0CVI),U,5)," ",2)
Q
;
TMP
TMP ;
I DEBUG W "IN VITAL: TEMPERATURE",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
@ -235,7 +232,7 @@ TMP
S ZRNF("VITALSIGNSTESTRESULTUNIT")=$P($P(VIT(C0CVI),U,5)," ",2)
Q
;
RESP
RESP ;
I DEBUG W "IN VITAL: RESPIRATION",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
@ -252,7 +249,7 @@ RESP
S ZRNF("VITALSIGNSTESTRESULTUNIT")=$P($P(VIT(C0CVI),U,5)," ",2)
Q
;
PULSE
PULSE ;
I DEBUG W "IN VITAL: PULSE",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
@ -269,7 +266,7 @@ PULSE
S ZRNF("VITALSIGNSTESTRESULTUNIT")=$P($P(VIT(C0CVI),U,5)," ",2)
Q
;
PAIN
PAIN ;
I DEBUG W "IN VITAL: PAIN",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
@ -286,7 +283,7 @@ PAIN
S ZRNF("VITALSIGNSTESTRESULTUNIT")=$P($P(VIT(C0CVI),U,5)," ",2)
Q
;
OTHER
OTHER ;
I DEBUG W "IN VITAL: OTHER",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
@ -304,7 +301,7 @@ OTHER
Q
;
;TEMPORARY, THINKING ON HOW TO REFACTOR (CJE)
HEIGHT1(DT,ACTOR,VALUE,UNIT)
HEIGHT1(DT,ACTOR,VALUE,UNIT) ;
I DEBUG W "IN VITAL: HEIGHT",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC ; UNIQUE OBJID
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
@ -321,7 +318,7 @@ HEIGHT1(DT,ACTOR,VALUE,UNIT)
S ZRNF("VITALSIGNSTESTRESULTUNIT")=UNIT
Q
;
WEIGHT1(DT,ACTOR,VALUE,UNIT)
WEIGHT1(DT,ACTOR,VALUE,UNIT) ;
I DEBUG W "IN VITAL: WEIGHT",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
@ -338,7 +335,7 @@ WEIGHT1(DT,ACTOR,VALUE,UNIT)
S ZRNF("VITALSIGNSTESTRESULTUNIT")=UNIT
Q
;
BP1(DT,ACTOR,VALUE,UNIT)
BP1(DT,ACTOR,VALUE,UNIT) ;
I DEBUG W "IN VITAL: BLOOD PRESSURE",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
@ -355,7 +352,7 @@ BP1(DT,ACTOR,VALUE,UNIT)
S ZRNF("VITALSIGNSTESTRESULTUNIT")=UNIT
Q
;
TMP1(DT,ACTOR,VALUE,UNIT)
TMP1(DT,ACTOR,VALUE,UNIT) ;
I DEBUG W "IN VITAL: TEMPERATURE",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
@ -372,7 +369,7 @@ TMP1(DT,ACTOR,VALUE,UNIT)
S ZRNF("VITALSIGNSTESTRESULTUNIT")=UNIT
Q
;
RESP1(DT,ACTOR,VALUE,UNIT)
RESP1(DT,ACTOR,VALUE,UNIT) ;
I DEBUG W "IN VITAL: RESPIRATION",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
@ -389,7 +386,7 @@ RESP1(DT,ACTOR,VALUE,UNIT)
S ZRNF("VITALSIGNSTESTRESULTUNIT")=UNIT
Q
;
PULSE1(DT,ACTOR,VALUE,UNIT)
PULSE1(DT,ACTOR,VALUE,UNIT) ;
I DEBUG W "IN VITAL: PULSE",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
@ -406,7 +403,7 @@ PULSE1(DT,ACTOR,VALUE,UNIT)
S ZRNF("VITALSIGNSTESTRESULTUNIT")=UNIT
Q
;
PAIN1(DT,ACTOR,VALUE,UNIT)
PAIN1(DT,ACTOR,VALUE,UNIT) ;
I DEBUG W "IN VITAL: PAIN",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
@ -423,7 +420,7 @@ PAIN1(DT,ACTOR,VALUE,UNIT)
S ZRNF("VITALSIGNSTESTRESULTUNIT")=UNIT
Q
;
OTHER1(DT,TEXT,ACTOR,VALUE,UNIT)
OTHER1(DT,TEXT,ACTOR,VALUE,UNIT) ;
I DEBUG W "IN VITAL: OTHER",!
S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"

30
p/C0CVITAL.m
View File

@ -1,22 +1,18 @@
C0CVITAL ; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2008,2009 George Lilly, University of Minnesota and others.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "NO ENTRY FROM TOP",!
Q
@ -56,8 +52,8 @@ VITVISTA ; EXTRACT VITALS FROM VISTA INTO PROVIDED XML TEMPLATE
S VITTARYTMP=$NA(^TMP("C0CCCR",$J,"VITALARYTMP"))
K @VITTVMAP,@VITTARYTMP ; KILL OLD ARRAY VALUES
N VSORT,VDATES,VCNT ; ARRAY FOR DATE SORTED VITALS INDEX
D VITDVISTA(.VDATES) ; PULL OUT THE DATES INTO AN ARRAY
I DEBUG ZWR VDATES ;DEBUG
D SORTVIST(.VDATES) ; PULL OUT THE DATES INTO AN ARRAY
; I DEBUG ZWR VDATES ;DEBUG
S VCNT=$$SORTDT^C0CUTIL(.VSORT,.VDATES,-1) ; PUT VITALS IN REVERSE
; DATE ORDER AND COUNT THEM. VSORT CONTAINS INDIRECT INDEXES ONLY
S @VITTVMAP@(0)=VCNT ; SAVE NUMBER OF VITALS
@ -238,7 +234,7 @@ VITRPMS ; EXTRACT VITALS FROM RPMS INTO PROVIDED XML TEMPLATE
S VITTARYTMP=$NA(^TMP("C0CCCR",$J,"VITALARYTMP"))
K @VITTVMAP,@VITTARYTMP ; KILL OLD ARRAY VALUES
N VSORT,VDATES,VCNT ; ARRAY FOR DATE SORTED VITALS INDEX
D VITDRPMS(.VDATES) ; PULL OUT THE DATES INTO AN ARRAY
D SORTRPMS(.VDATES) ; PULL OUT THE DATES INTO AN ARRAY
S VCNT=$$SORTDT^C0CUTIL(.VSORT,.VDATES,-1) ; PUT VITALS IN REVERSE
; DATE ORDER AND COUNT THEM. VSORT CONTAINS INDIRECT INDEXES ONLY
S @VITTVMAP@(0)=VCNT ; SAVE NUMBER OF VITALS
@ -385,7 +381,7 @@ VITRPMS ; EXTRACT VITALS FROM RPMS INTO PROVIDED XML TEMPLATE
K ^TMP("CIAVMRPC",$J)
Q
;
VITDRPMS(VDT) ; RUN DATE SORTING ALGORITHM FOR RPMS
SORTRPMS(VDT) ; RUN DATE SORTING ALGORITHM FOR RPMS
; VDT IS PASSED BY REFERENCE AND WILL CONTAIN THE ARRAY
; OF DATES IN THE VITALS RESULTS
N VDTI,VDTJ,VTDCNT
@ -398,7 +394,7 @@ VITDRPMS(VDT) ; RUN DATE SORTING ALGORITHM FOR RPMS
S VDT(0)=VTDCNT
Q
;
VITDVISTA(VDT) ; RUN DATE SORTING ALGORITHM FOR VISTA
SORTVIST(VDT) ; RUN DATE SORTING ALGORITHM FOR VISTA
; VDT IS PASSED BY REFERENCE AND WILL CONTAIN THE ARRAY
; OF DATES IN THE VITALS RESULTS
N VDTI,VDTJ,VTDCNT

16
p/C0CVOBX1.m
View File

@ -1,7 +1,21 @@
LA7VOBX1 ;DALOI/JMC - LAB OBX Segment message builder (CH subscript) cont'd; 04/21/09
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
; JMC - mods to check for IHS V LAB file
;
; (C) 2009 John McCormack
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
CH ; Observation/Result segment for "CH" subscript results.
; Called by LA7VOBX
;

16
p/C0CVORU.m
View File

@ -1,5 +1,19 @@
C0C7VORU ;WV/JMC - Builder of HL7 Lab Results OBR/OBX/NTE based on RPMS V LAB file ;Jun 16, 2009 ; 5/10/12 5:19pm
;;1.2;C0C;;May 11, 2012;Build 47
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;
; (C) 2009 John McCormack
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero General Public License for more details.
;
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
EN(LA) ; called from C0CVLAB
; variables

20
p/C0CXEWD.m
View File

@ -1,21 +1,19 @@
C0CXEWD ; C0C/GPL - EWD based XPath utilities; 10/11/09
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2009 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
Q
;

20
p/C0CXPAT0.m
View File

@ -1,21 +1,19 @@
C0CXPAT0 ; CCDCCR/GPL - XPATH TEST CASES ; 6/1/08
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2008 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "NO ENTRY",!
Q

28
p/C0CXPATH.m
View File

@ -1,21 +1,19 @@
C0CXPATH ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08
;;1.2;C0C;;May 11, 2012;Build 47
;Copyright 2008 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
;Copyright 2008 George Lilly.
;
;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
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero General Public License as
; published by the Free Software Foundation, either version 3 of the
; License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; 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
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
; You should have received a copy of the GNU Affero General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
W "This is an XML XPATH utility library",!
W !
@ -134,7 +132,7 @@ XML2XPG(OUTXPG,INXML) ; CONVERT AN XML ARRAY, PASSED BY NAME TO AN XPG ARRAY
D VDX2XPG(OUTXPG,"G1") ; CONVERTS THE VDX ARRAY TO XPG FORM
Q
;
DO
DO ;
D XPG2XML("^GPL2B","^GPL2A")
Q
;
@ -187,17 +185,17 @@ XPG2XML(OUTXML,INXPG) ;
. . S ZQ=1 ; QUIT NOW
Q
;
ZXO(WHAT)
ZXO(WHAT) ;
D PUSH("GA",WHAT)
D PUSH(OUTXML,"<"_WHAT_">")
Q
;
ZXC(WHAT)
ZXC(WHAT) ;
D POP("GA",.TMP)
D PUSH(OUTXML,"</"_WHAT_">")
Q
;
ZXVAL(WHAT,VAL)
ZXVAL(WHAT,VAL) ;
D PUSH(OUTXML,"<"_WHAT_">"_VAL_"</"_WHAT_">")
Q
;