Changeset 1342 for ccr/branches/ohum/p


Ignore:
Timestamp:
Jan 10, 2012, 8:53:25 PM (13 years ago)
Author:
George Lilly
Message:

T7 ohum version with parameters

Location:
ccr/branches/ohum/p
Files:
69 edited

Legend:

Unmodified
Added
Removed
  • ccr/branches/ohum/p/C0CACTOR.m

    r1338 r1342  
    11C0CACTOR  ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008,2009 George Lilly, University of Minnesota.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CALERT.m

    r1338 r1342  
    11C0CALERT  ; CCDCCR/CKU/GPL - CCR/CCD PROCESSING FOR ALERTS ; 09/11/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008,2009 George Lilly, University of Minnesota and others.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CBAT.m

    r1338 r1342  
    11C0CBAT   ; CCDCCR/GPL - CCR Batch utilities; 4/21/09
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CCCD.m

    r1338 r1342  
    11C0CCCD   ; CCDCCR/GPL - CCD MAIN PROCESSING; 6/6/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008,2009 George Lilly, University of Minnesota.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CCCD1.m

    r1338 r1342  
    11C0CCCD1 ; CCDCCR/GPL - CCD TEMPLATE AND ACCESS ROUTINES; 6/7/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008,2009 George Lilly, University of Minnesota.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CCCR.m

    r1338 r1342  
    11C0CCCR   ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008,2009 George Lilly, University of Minnesota.
    44 ;Licensed under the terms of the GNU General Public License.
     
    2626 I Y<1 Q  ; EXIT
    2727 S DFN=$P(Y,U,1) ; SET THE PATIENT
    28  ;OHUM/RUT 3120102 To take inputs from user for date limits and notes
    29  D ^C0CVALID
     28 ;OHUM/RUT 3120109 commented
     29 ;;OHUM/RUT 3120102 To take inputs from user for date limits and notes
     30 ;D ^C0CVALID
     31 ;;OHUM/RUT
    3032 ;OHUM/RUT
    3133 D XPAT(DFN) ; EXPORT TO A FILE
     
    171173 ;D PUSH^C0CXPATH(TAB,"EXTRACT;C0CENC;//ContinuityOfCareRecord/Body/Encounters;^TMP(""C0CCCR"",$J,DFN,""ENCOUNTERS"")")
    172174 ; gpl - turned off Encounters for Certification
    173  ;OHUM/RUT 3111228 Condition for Notes ; It should be included or not
    174  I ^TMP("C0CCCR","TIULIMIT")'="" D PUSH^C0CXPATH(TAB,"EXTRACT;C0CENC;//ContinuityOfCareRecord/Body/Encounters;^TMP(""C0CCCR"",$J,DFN,""ENCOUNTERS"")")
     175 ;OHUM/RUT 3120109 Changed the condition
     176 ;;OHUM/RUT 3111228 Condition for Notes ; It should be included or not
     177 ;;I ^TMP("C0CCCR","TIULIMIT")'="" D PUSH^C0CXPATH(TAB,"EXTRACT;C0CENC;//ContinuityOfCareRecord/Body/Encounters;^TMP(""C0CCCR"",$J,DFN,""ENCOUNTERS"")")
     178 I $P(^C0CPARM(1,2),"^",3)=1 D PUSH^C0CXPATH(TAB,"EXTRACT;C0CENC;//ContinuityOfCareRecord/Body/Encounters;^TMP(""C0CCCR"",$J,DFN,""ENCOUNTERS"")")
     179 ;;OHUM/RUT
    175180 ;OHUM/RUT
    176181 Q
  • ccr/branches/ohum/p/C0CCCR0.m

    r1338 r1342  
    11C0CCCR0 ; CCDCCR/GPL - CCR TEMPLATE AND ACCESS ROUTINES; 5/31/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008,2009 George Lilly, University of Minnesota.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CCMT.m

    r1338 r1342  
    11C0CCMT  ; CCDCCR/GPL - CCR/CCD PROCESSING FOR COMMENTS ; 05/21/10
    2  ;;1.0;C0C;;May 21, 2010;Build 1
     2 ;;1.0;C0C;;May 21, 2010;Build 2
    33 ;Copyright 2010 George Lilly, University of Minnesota and others.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CCPT.m

    r1338 r1342  
    11C0CCPT ;;BSL;RETURN CPT DATA;
    2  ;Sequence Managers Software GPL;;;;;Build 1
     2 ;Sequence Managers Software GPL;;;;;Build 2
    33 ;Copied into C0C namespace from SQMCPT with permission from
    44 ;Brian Lord - and with our thanks. gpl 01/20/2010
     
    1919        ;NOW DELETE ANY NOTES THAT DON'T FALL INTO DATE RANGE
    2020        ;GET DATE OF NOTE
    21  ;OHUM/RUT 3111228 Date Range for Notes
    22         S STDT=^TMP("C0CCCR","TIULIMIT") D NOW^%DTC S ENDDT=X
    23         ;OHUM/RUT
     21 ;RUT 3120109 Changing DATE in FILMAN's FORMAT
     22 ;;OHUM/RUT 3111228 Date Range for Notes
     23        ;S STDT=^TMP("C0CCCR","TIULIMIT") D NOW^%DTC S ENDDT=X
     24 N FLAGS1,FLAGS2
     25 S FLAGS1=$P(^C0CPARM(1,2),"^",1) S STDT=$$HTOF^C0CVALID(FLAGS1)
     26 S FLAGS2=$P(^C0CPARM(1,2),"^",2) S ENDDT=$$HTOF^C0CVALID(FLAGS2)
     27 ;S STDT=^TMP("C0CCCR","TIULIMIT"),ENDDT=^TMP("C0CCCR","TIUSTART")
     28        ;;OHUM/RUT
     29 ;RUT
    2430        S Z=""
    2531        F  S Z=$O(NOTE(Z)) Q:Z=""  D
  • ccr/branches/ohum/p/C0CDIC.m

    r1338 r1342  
    11C0CDIC   ; CCDCCR/GPL - CCR Dictionary utilities; 6/1/08
    2  ;;0.1;CCDCCR;nopatch;noreleasedate;Build 1
     2 ;;0.1;CCDCCR;nopatch;noreleasedate;Build 2
    33 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CDOM.m

    r1338 r1342  
    11C0CDOM   ; GPL - DOM PROCESSING ROUTINES ;6/6/11  17:05
    2  ;;0.1;C0C;nopatch;noreleasedate;Build 1
     2 ;;0.1;C0C;nopatch;noreleasedate;Build 2
    33 ;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CDPT.m

    r1338 r1342  
    11C0CDPT ;WV/CCRCCD/SMH - Routines to Extract Patient Data for CCDCCR; 6/15/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;
    44 ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
  • ccr/branches/ohum/p/C0CENC.m

    r1338 r1342  
    11C0CENC  ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ENCOUNTERS ; 05/21/10
    2  ;;1.0;C0C;;May 21, 2010;Build 1
     2 ;;1.0;C0C;;May 21, 2010;Build 2
    33 ;Copyright 2010 George Lilly, University of Minnesota and others.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CENV.m

    r1338 r1342  
    11C0CENV ;WV/JMC - CCD/CCR Environment Check/Install Routine ; Aug 16, 2009
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;
    44 ;
  • ccr/branches/ohum/p/C0CEVC.m

    r1338 r1342  
    11C0CEVC   ; CCDCCR/GPL - SUPPORT FOR EWD VISTCOM PAGES ; 3/1/2010
    2  ;;1.0;C0C;;Mar 1, 2010;Build 1
     2 ;;1.0;C0C;;Mar 1, 2010;Build 2
    33gpltest2 ; experiment with sending a CCR to an ewd page
    44 N ZI
  • ccr/branches/ohum/p/C0CEWD.m

    r1338 r1342  
    11C0CEWD   ; CCDCCR/GPL - CCR EWD utilities; 1/6/11
    2  ;;0.1;CCDCCR;nopatch;noreleasedate;Build 1
     2 ;;0.1;CCDCCR;nopatch;noreleasedate;Build 2
    33 ;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CEWD1.m

    r1338 r1342  
    11C0CEWD1   ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
    2  ;;0.1;CCDCCR;nopatch;noreleasedate;Build 1
     2 ;;0.1;CCDCCR;nopatch;noreleasedate;Build 2
    33 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CFM1.m

    r1338 r1342  
    11C0CFM1   ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CFM2.m

    r1338 r1342  
    11C0CFM2   ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CFM3.m

    r1338 r1342  
    11C0CFM3   ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
    2  ;;0.1;CCDCCR;nopatch;noreleasedate;Build 1
     2 ;;0.1;CCDCCR;nopatch;noreleasedate;Build 2
    33 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CIM2.m

    r1338 r1342  
    11C0CIM2  ; CCDCCR/GPL/CJE - CCR/CCD PROCESSING FOR IMMUNIZATIONS ; 01/27/10
    2  ;;1.0;C0C;;Feb 16, 2010;Build 1
     2 ;;1.0;C0C;;Feb 16, 2010;Build 2
    33 ;Copyright 2010 George Lilly, University of Minnesota and others.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CIMMU.m

    r1338 r1342  
    11C0CIMMU ; CCDCCR/GPL - CCR/CCD PROCESSING FOR IMMUNIZATIONS ; 2/2/09
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008,2009 George Lilly, University of Minnesota.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CIN.m

    r1338 r1342  
    11C0CIN   ; CCDCCR/GPL - CCR IMPORT utilities; 9/20/08
    2  ;;1.0;C0C;;Sep 20, 2009;Build 1
     2 ;;1.0;C0C;;Sep 20, 2009;Build 2
    33 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CLA7DD.m

    r1338 r1342  
    11C0CLA7DD ;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine ; Aug 31, 2009
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;
    44 ; Tasked by C0C post-install routine C0CENV to create C0C cross-references on V LAB file.
  • ccr/branches/ohum/p/C0CLA7Q.m

    r1338 r1342  
    11C0CLA7Q ;WV/JMC - CCD/CCR Lab HL7 Query Utility ;Jul 6, 2009
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;
    44 ;
  • ccr/branches/ohum/p/C0CLABS.m

    r1338 r1342  
    11C0CALABS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR LAB RESULTS ; 10/01/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008,2009 George Lilly, University of Minnesota.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CMAIL.m

    r1338 r1342  
    11C0CMAIL ; Communications for MIME Documents and MultiMIME ; 3110420 ; rcr/rcr
    2 V ;;0.1;C0C;nopatch;noreleasedate;Build 1
     2V ;;0.1;C0C;nopatch;noreleasedate;Build 2
    33 ;Copyright 2011 Chris Richardson, Richardson Computer Research
    44 ; Modified 3110516@1818
  • ccr/branches/ohum/p/C0CMAIL2.m

    r1338 r1342  
    11C0CMAIL ; Communications for MIME Documents and MultiMIME ; 3110420 ; rcr/rcr
    2  ;;0.1;C0C;nopatch;noreleasedate;Build 1
     2 ;;0.1;C0C;nopatch;noreleasedate;Build 2
    33 ;Copyright 2011 Chris Richardson, Richardson Computer Research
    44 ; Modified 3110615@1040
  • ccr/branches/ohum/p/C0CMAIL3.m

    r1338 r1342  
    11C0CMAIL ; Communications for MIME Documents and MultiMIME ; 3110420 ; rcr/rcr
    2  ;;0.1;C0C;nopatch;noreleasedate;Build 1
     2 ;;0.1;C0C;nopatch;noreleasedate;Build 2
    33 ;Copyright 2011 Chris Richardson, Richardson Computer Research
    44 ; Modified 3110619@2038
  • ccr/branches/ohum/p/C0CMCCD.m

    r1338 r1342  
    11C0CMCCD   ; GPL - MXML based CCD utilities;12/04/09  17:05
    2  ;;0.1;C0C;nopatch;noreleasedate;Build 1
     2 ;;0.1;C0C;nopatch;noreleasedate;Build 2
    33 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CMED.m

    r1338 r1342  
    11C0CMED ; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel.
    44 ; Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CMED1.m

    r1338 r1342  
    11C0CMED1 ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;01/10/09
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;;Last modified Sat Jan 10 21:42:27 PST 2009
    44 ; Copyright 2009 WorldVistA.  Licensed under the terms of the GNU
  • ccr/branches/ohum/p/C0CMED2.m

    r1338 r1342  
    11C0CMED2 ; WV/CCDCCR/SMH - CCR/CCD Meds - Pending for Vista
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;;Last Modified Sat Jan 10 21:41:14 PST 2009
    44 ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
  • ccr/branches/ohum/p/C0CMED3.m

    r1338 r1342  
    11C0CMED3 ; WV/CCDCCR/SMH - Meds: Non-VA/Outside Meds for Vista
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;;Last Modified: Sun Jan 11 05:45:03 UTC 2009
    44 ; Copyright 2009 WorldVistA.  Licensed under the terms of the GNU
  • ccr/branches/ohum/p/C0CMED4.m

    r1338 r1342  
    11C0CMED4         ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS - Inpatient Meds/Unit Dose ;10/13/08
    2  ;;0.1;CCDCCR;;;Build 1
     2 ;;0.1;CCDCCR;;;Build 2
    33 ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
    44 ; General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CMED6.m

    r1338 r1342  
    11C0CMED6 ; WV/CCDCCR/SMH - Meds from RPMS: Outpatient Meds;01/10/09
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
    44 ; General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CMIME.m

    r1338 r1342  
    11C0CMIME ; CCDCCR/GPL - MIME manipulation utilities; 3/8/11 ; 5/16/11 2:32pm
    2  ;;1.0;C0C;;Mar 8, 2011;Build 1
     2 ;;1.0;C0C;;Mar 8, 2011;Build 2
    33 ;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CMXML.m

    r1338 r1342  
    11C0CMXML   ; GPL - MXML based XPath utilities;10/13/09  17:05
    2  ;;0.1;C0C;nopatch;noreleasedate;Build 1
     2 ;;0.1;C0C;nopatch;noreleasedate;Build 2
    33 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CMXMLB.m

    r1338 r1342  
    11MXMLBLD ;;ISF/RWF - Tool to build XML ;07/09/09  16:55
    2  ;;8.0;KERNEL;;;Build 1
     2 ;;8.0;KERNEL;;;Build 2
    33 QUIT
    44 ;
  • ccr/branches/ohum/p/C0CMXP.m

    r1338 r1342  
    11C0CMXP   ; GPL - MXML based XPath utilities;12/04/09  17:05
    2  ;;0.1;C0C;nopatch;noreleasedate;Build 1
     2 ;;0.1;C0C;nopatch;noreleasedate;Build 2
    33 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CNHIN.m

    r1338 r1342  
    11C0CNHIN   ; GPL - PROCESSING FOR OUTPUT OF NHINV ROUTINES;6/3/11  17:05
    2  ;;0.1;C0C;nopatch;noreleasedate;Build 1
     2 ;;0.1;C0C;nopatch;noreleasedate;Build 2
    33 ;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CNMED2.m

    r1338 r1342  
    11C0CMED ; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel.
    44 ; Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CNMED4.m

    r1338 r1342  
    11C0CMED4         ; WV/CCDCCR/SMH/gpl - CCR/CCD PROCESSING FOR MEDICATIONS - Inpatient Meds/Unit Dose ;10/13/08
    2  ;;0.1;CCDCCR;;;Build 1
     2 ;;0.1;CCDCCR;;;Build 2
    33 ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
    44 ; General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CORSLT.m

    r1338 r1342  
    11C0CORSLT ; CCDCCR/GPL - CCR/CCD PROCESSING ADDITIONAL RESULTS ; 06/27/11
    2  ;;1.0;C0C;;Jan 21, 2010;Build 1
     2 ;;1.0;C0C;;Jan 21, 2010;Build 2
    33 ;Copyright 2011 George Lilly.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CPARMS.m

    r1338 r1342  
    11C0CPARMS ; CCDCCR/GPL - CCR/CCD PARAMETER PROCESSING ; 1/29/09
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
     
    4848 ;I '$D(@C0CPARMS@("MEDPENDING")) S @C0CPARMS@("MEDPENDING")=0 ; NO
    4949 ;I '$D(@C0CPARMS@("MEDALL")) S @C0CPARMS@("MEDALL")=0 ; NON-PENDING NON-ACTIVE
    50  S @C0CPARMS@("LABLIMIT")=^TMP("C0CCCR","LABLIMIT"),@C0CPARMS@("VITLIMIT")=^TMP("C0CCCR","VITLIMIT"),@C0CPARMS@("TIULIMIT")=^TMP("C0CCCR","TIULIMIT"),@C0CPARMS@("MEDLIMIT")=^TMP("C0CCCR","MEDLIMIT")
    51  I '$D(@C0CPARMS@("LABSTART")) S @C0CPARMS@("LABSTART")="T" ;TODAY
    52  I '$D(@C0CPARMS@("VITSTART")) S @C0CPARMS@("VITSTART")="T" ;TODAY
    53  I '$D(@C0CPARMS@("MEDSTART")) S @C0CPARMS@("MEDSTART")="T" ; TODAY
    54  I '$D(@C0CPARMS@("MEDACTIVE")) S @C0CPARMS@("MEDACTIVE")=1 ; YES
    55  I '$D(@C0CPARMS@("MEDPENDING")) S @C0CPARMS@("MEDPENDING")=0 ; NO
    56  I '$D(@C0CPARMS@("MEDALL")) S @C0CPARMS@("MEDALL")=1 ; NON-PENDING NON-ACTIVE
    57  ;I '$D(@C0CPARMS@("RALIMIT")) S @C0CPARMS@("RALIMIT")="T-36500" ;ONE YR WORTH
    58  ;I '$D(@C0CPARMS@("RASTART")) S @C0CPARMS@("RASTART")="T" ;TODAY
    59  I '$D(@C0CPARMS@("TIUSTART")) S @C0CPARMS@("TIUSTART")="T" ;TODAY
     50 ;OHUM/RUT 3120109 ; commented all limits
     51 ;S @C0CPARMS@("LABLIMIT")=^TMP("C0CCCR","LABLIMIT"),@C0CPARMS@("VITLIMIT")=^TMP("C0CCCR","VITLIMIT"),@C0CPARMS@("TIULIMIT")=^TMP("C0CCCR","TIULIMIT"),@C0CPARMS@("MEDLIMIT")=^TMP("C0CCCR","MEDLIMIT")
     52 ;I '$D(@C0CPARMS@("LABSTART")) S @C0CPARMS@("LABSTART")="T" ;TODAY
     53 ;I '$D(@C0CPARMS@("VITSTART")) S @C0CPARMS@("VITSTART")="T" ;TODAY
     54 ;I '$D(@C0CPARMS@("MEDSTART")) S @C0CPARMS@("MEDSTART")="T" ; TODAY
     55 ;I '$D(@C0CPARMS@("MEDACTIVE")) S @C0CPARMS@("MEDACTIVE")=1 ; YES
     56 ;I '$D(@C0CPARMS@("MEDPENDING")) S @C0CPARMS@("MEDPENDING")=0 ; NO
     57 ;I '$D(@C0CPARMS@("MEDALL")) S @C0CPARMS@("MEDALL")=1 ; NON-PENDING NON-ACTIVE
     58 ;;I '$D(@C0CPARMS@("RALIMIT")) S @C0CPARMS@("RALIMIT")="T-36500" ;ONE YR WORTH
     59 ;;I '$D(@C0CPARMS@("RASTART")) S @C0CPARMS@("RASTART")="T" ;TODAY
     60 ;I '$D(@C0CPARMS@("TIUSTART")) S @C0CPARMS@("TIUSTART")="T" ;TODAY
     61 ;;OHUM/RUT
     62 S @C0CPARMS@("LABLIMIT")=$P(^C0CPARM(1,0),"^",2),@C0CPARMS@("LABSTART")=$P(^C0CPARM(1,0),"^",3),@C0CPARMS@("VITLIMIT")=$P(^C0CPARM(1,0),"^",4),@C0CPARMS@("VITSTART")=$P(^C0CPARM(1,1),"^",1),@C0CPARMS@("MEDLIMIT")=$P(^C0CPARM(1,1),"^",2),@C0CPARMS@("MEDSTART")=$P(^C0CPARM(1,1),"^",3)
     63 I $P(^C0CPARM(1,1),"^",4)="ACT" S @C0CPARMS@("MEDACTIVE")=1
     64 I $P(^C0CPARM(1,1),"^",4)="PEN" S @C0CPARMS@("MEDPENDING")=1
     65 I $P(^C0CPARM(1,1),"^",4)="ALL" S @C0CPARMS@("MEDALL")=1
     66 ;S ^TMP("C0CCCR","TIULIMIT")="",^TMP("C0CCCR","TIUSTART")=""
     67 I $P(^C0CPARM(1,2),"^",3)=1 S @C0CPARMS@("TIULIMIT")=$P(^C0CPARM(1,2),"^",1),@C0CPARMS@("TIUSTART")=$P(^C0CPARM(1,2),"^",2)
    6068 ;OHUM/RUT
    6169 Q
  • ccr/branches/ohum/p/C0CPROBS.m

    r1338 r1342  
    11C0CPROBS ; CCDCCR/GPL/CJE - CCR/CCD PROCESSING FOR PROBLEMS ; 6/6/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008,2009 George Lilly, University of Minnesota.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CPROC.m

    r1338 r1342  
    11C0CPROC  ; CCDCCR/GPL - CCR/CCD PROCESSING FOR PROCEDURES ; 01/21/10
    2  ;;1.0;C0C;;Jan 21, 2010;Build 1
     2 ;;1.0;C0C;;Jan 21, 2010;Build 2
    33 ;Copyright 2010 George Lilly, University of Minnesota and others.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CQRY1.m

    r1338 r1342  
    11LA7QRY1 ;DALOI/JMC - Lab HL7 Query Utility ;01/19/99  13:48
    2         ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61**;Sep 27, 1994;Build 1
     2        ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61**;Sep 27, 1994;Build 2
    33        ;
    44        Q
  • ccr/branches/ohum/p/C0CQRY2.m

    r1338 r1342  
    11LA7QRY2 ;DALOI/JMC - Lab HL7 Query Utility ; 04/13/09
    2  ;;5.2;AUTOMATED LAB INSTRUMENTS;**46**;Sep 27, 1994;Build 1
     2 ;;5.2;AUTOMATED LAB INSTRUMENTS;**46**;Sep 27, 1994;Build 2
    33 ; JMC - mods to check for IHS V LAB file
    44 ;
  • ccr/branches/ohum/p/C0CRIMA.m

    r1338 r1342  
    11C0CRIMA   ; CCDCCR/GPL - RIM REPORT ROUTINES; 6/6/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008,2009 George Lilly, University of Minnesota.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CRNF.m

    r1338 r1342  
    11C0CRNF   ; CCDCCR/GPL - Reference Name Format (RNF) utilities; 12/6/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CRNFRP.m

    r1338 r1342  
    11C0CRNFRPC   ; CCDCCR/GPL - Reference Name Format (RNF) RPCs; 12/9/09
    2  ;;1.0;C0C;;Dec 9, 2009;Build 1
     2 ;;1.0;C0C;;Dec 9, 2009;Build 2
    33 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CRPMS.m

    r1338 r1342  
    11C0CRPMS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR RPMS ;1/14/09  14:33
    2  ;;0.1;CCDCCR;;JUL 16,2008;Build 1
     2 ;;0.1;CCDCCR;;JUL 16,2008;Build 2
    33 ;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CRXN.m

    r1338 r1342  
    11C0CRXN   ; CCDCCR/GPL - CCR RXN utilities; 12/6/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CRXNRD.m

    r1338 r1342  
    11C0CRXNRD ; WV/SMH - CCR/CCD PROJECT: Routine to Read RxNorm files;11/15/08
    2  ;;0.1;C0C;nopatch;noreleasedate;Build 1
     2 ;;0.1;C0C;nopatch;noreleasedate;Build 2
    33 W "No entry from top" Q
    44IMPORT(PATH)
  • ccr/branches/ohum/p/C0CSNOA.m

    r1338 r1342  
    11C0CSNOA   ; CCDCCR/GPL - SNOMED CT ANALYSIS ROUTINES; 10/14/08
    2  ;;0.1;CCDCCR;nopatch;noreleasedate;Build 1
     2 ;;0.1;CCDCCR;nopatch;noreleasedate;Build 2
    33 ;Copyright 2008,2009 George Lilly, University of Minnesota.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CSOAP.m

    r1338 r1342  
    11C0CSOAP  ; CCDCCR/GPL - SOAP WEB SERVICE utilities; 8/25/09
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CSUB1.m

    r1338 r1342  
    11C0CSUB1   ; CCDCCR/GPL - CCR SUBSCRIPTION utilities; 12/6/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CSYS.m

    r1338 r1342  
    11C0CSYS ;WV/C0C/SMH - Routine to Get EHR System Information;6JUL2008
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
    44 ; General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CUNIT.m

    r1338 r1342  
    11C0CUNIT ; CCDCCR/GPL - Unit Testing Library; 5/07/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008 George Lilly. Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CUTIL.m

    r1338 r1342  
    11C0CUTIL ;WV/C0C/SMH - Various Utilites for generating the CCR/CCD;06/15/08
    2  ;;0.1;C0C;;Jun 15, 2008;Build 1
     2 ;;0.1;C0C;;Jun 15, 2008;Build 2
    33 ;Copyright 2008-2009 Sam Habiel & George Lilly. 
    44 ;Licensed under the terms of the GNU
  • ccr/branches/ohum/p/C0CVA200.m

    r1338 r1342  
    11C0CVA200 ;WV/C0C/SMH - Routine to get Provider Data;07/13/2008
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008 Sam Habiel.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CVIT2.m

    r1338 r1342  
    11C0CVIT2 ; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08
    2  ;;1.0;C0C;;Feb 16, 2010;Build 1
     2 ;;1.0;C0C;;Feb 16, 2010;Build 2
    33 ;Copyright 2008,2009 George Lilly, University of Minnesota and others.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CVITAL.m

    r1338 r1342  
    11C0CVITAL ; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008,2009 George Lilly, University of Minnesota and others.
    44 ;Licensed under the terms of the GNU General Public License.
  • ccr/branches/ohum/p/C0CVOBX1.m

    r1338 r1342  
    11LA7VOBX1 ;DALOI/JMC - LAB OBX Segment message builder (CH subscript) cont'd; 04/21/09
    2  ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61,63**;Sep 27, 1994;Build 1
     2 ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61,63**;Sep 27, 1994;Build 2
    33 ; JMC - mods to check for IHS V LAB file
    44 ;
  • ccr/branches/ohum/p/C0CVORU.m

    r1338 r1342  
    11C0C7VORU ;WV/JMC - Builder of HL7 Lab Results OBR/OBX/NTE based on RPMS V LAB file ;Jun 16, 2009
    2  ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994;Build 1
     2 ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994;Build 2
    33 ;
    44EN(LA) ; called from C0CVLAB
  • ccr/branches/ohum/p/C0CXEWD.m

    r1338 r1342  
    11C0CXEWD   ; C0C/GPL - EWD based XPath utilities; 10/11/09
    2  ;;0.1;C0C;nopatch;noreleasedate;Build 1
     2 ;;0.1;C0C;nopatch;noreleasedate;Build 2
    33 ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CXPAT0.m

    r1338 r1342  
    11C0CXPAT0   ; CCDCCR/GPL - XPATH TEST CASES ; 6/1/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
  • ccr/branches/ohum/p/C0CXPATH.m

    r1338 r1342  
    11C0CXPATH   ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08
    2  ;;1.0;C0C;;May 19, 2009;Build 1
     2 ;;1.0;C0C;;May 19, 2009;Build 2
    33 ;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
    44 ;General Public License See attached copy of the License.
Note: See TracChangeset for help on using the changeset viewer.