- Timestamp:
- May 17, 2012, 6:11:54 PM (13 years ago)
- Location:
- ccr/branches/ohum/p
- Files:
-
- 79 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/branches/ohum/p/C0CACTOR.m
r1428 r1433 1 1 C0CACTOR ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008,2009 George Lilly, University of Minnesota. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CALERT.m
r1428 r1433 1 1 C0CALERT ; CCDCCR/CKU/GPL - CCR/CCD PROCESSING FOR ALERTS ; 09/11/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008,2009 George Lilly, University of Minnesota and others. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CBAT.m
r1428 r1433 1 1 C0CBAT ; CCDCCR/GPL - CCR Batch utilities; 4/21/09 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CCCD.m
r1428 r1433 1 1 C0CCCD ; CCDCCR/GPL - CCD MAIN PROCESSING; 6/6/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008,2009 George Lilly, University of Minnesota. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CCCD1.m
r1428 r1433 1 1 C0CCCD1 ; CCDCCR/GPL - CCD TEMPLATE AND ACCESS ROUTINES; 6/7/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008,2009 George Lilly, University of Minnesota. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CCCR.m
r1428 r1433 1 1 C0CCCR ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008,2009 George Lilly, University of Minnesota. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CCCR0.m
r1428 r1433 1 1 C0CCCR0 ; CCDCCR/GPL - CCR TEMPLATE AND ACCESS ROUTINES; 5/31/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008,2009 George Lilly, University of Minnesota. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CCMT.m
r1428 r1433 1 1 C0CCMT ; CCDCCR/GPL - CCR/CCD PROCESSING FOR COMMENTS ; 05/21/10 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2010 George Lilly, University of Minnesota and others. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CCPT.m
r1428 r1433 1 1 C0CCPT ;;BSL;RETURN CPT DATA; 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Sequence Managers Software GPL;;;;;Build 2 4 4 ;Copied into C0C namespace from SQMCPT with permission from -
ccr/branches/ohum/p/C0CDIC.m
r1428 r1433 1 1 C0CDIC ; CCDCCR/GPL - CCR Dictionary utilities; 6/1/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008 WorldVistA. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CDOM.m
r1428 r1433 1 1 C0CDOM ; GPL - DOM PROCESSING ROUTINES ;6/6/11 17:05 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2011 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CDPT.m
r1428 r1433 1 1 C0CDPT ;WV/CCRCCD/SMH - Routines to Extract Patient Data for CCDCCR; 6/15/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; 4 4 ; Copyright 2008 WorldVistA. Licensed under the terms of the GNU -
ccr/branches/ohum/p/C0CENC.m
r1428 r1433 1 1 C0CENC ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ENCOUNTERS ; 05/21/10 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2010 George Lilly, University of Minnesota and others. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CENV.m
r1428 r1433 1 1 C0CENV ;WV/JMC - CCD/CCR Environment Check/Install Routine ; Aug 16, 2009 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; 4 4 ; -
ccr/branches/ohum/p/C0CEVC.m
r1428 r1433 1 1 C0CEVC ; CCDCCR/GPL - SUPPORT FOR EWD VISTCOM PAGES ; 3/1/2010 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 gpltest2 ; experiment with sending a CCR to an ewd page 4 4 N ZI -
ccr/branches/ohum/p/C0CEWD.m
r1428 r1433 1 1 C0CEWD ; CCDCCR/GPL - CCR EWD utilities; 1/6/11 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2011 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CEWD1.m
r1428 r1433 1 1 C0CEWD1 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CFM1.m
r1428 r1433 1 1 C0CFM1 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CFM2.m
r1428 r1433 1 1 C0CFM2 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CFM3.m
r1428 r1433 1 1 C0CFM3 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CIM2.m
r1428 r1433 1 1 C0CIM2 ; CCDCCR/GPL/CJE - CCR/CCD PROCESSING FOR IMMUNIZATIONS ; 01/27/10 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2010 George Lilly, University of Minnesota and others. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CIMMU.m
r1428 r1433 1 1 C0CIMMU ; CCDCCR/GPL - CCR/CCD PROCESSING FOR IMMUNIZATIONS ; 2/2/09 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008,2009 George Lilly, University of Minnesota. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CIN.m
r1428 r1433 1 1 C0CIN ; CCDCCR/GPL - CCR IMPORT utilities; 9/20/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CLA7DD.m
r1428 r1433 1 1 C0CLA7DD ;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine ; Aug 31, 2009 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; 4 4 ; Tasked by C0C post-install routine C0CENV to create C0C cross-references on V LAB file. -
ccr/branches/ohum/p/C0CLA7Q.m
r1428 r1433 1 1 C0CLA7Q ;WV/JMC - CCD/CCR Lab HL7 Query Utility ;Jul 6, 2009 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; 4 4 ; -
ccr/branches/ohum/p/C0CLABS.m
r1428 r1433 1 1 C0CLABS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR LAB RESULTS ; 10/01/08 ; 5/10/12 2:49pm 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008,2009 George Lilly, University of Minnesota. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CMAIL.m
r1428 r1433 1 1 C0CMAIL ; Communications for MIME Documents and MultiMIME ; 3110420 ; rcr/rcr 2 V ;;1.2;C0C;;May 11, 2012;Build 4 62 V ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2011 Chris Richardson, Richardson Computer Research 4 4 ; Modified 3110516@1818 -
ccr/branches/ohum/p/C0CMAIL2.m
r1428 r1433 1 1 C0CMAIL2 ; Communications for MIME Documents and MultiMIME ; 3110420 ; rcr/rcr ; 5/10/12 2:50pm 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2011 Chris Richardson, Richardson Computer Research 4 4 ; Modified 3110615@1040 -
ccr/branches/ohum/p/C0CMAIL3.m
r1428 r1433 1 1 C0CMAIL3 ; Communications for MIME Documents and MultiMIME ; 3110420 ; rcr/rcr ; 5/10/12 2:51pm 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2011 Chris Richardson, Richardson Computer Research 4 4 ; Modified 3110619@2038 -
ccr/branches/ohum/p/C0CMCCD.m
r1428 r1433 1 1 C0CMCCD ; GPL - MXML based CCD utilities;12/04/09 17:05 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CMED.m
r1428 r1433 1 1 C0CMED ; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel. 4 4 ; Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CMED1.m
r1428 r1433 1 1 C0CMED1 ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;01/10/09 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;;Last modified Sat Jan 10 21:42:27 PST 2009 4 4 ; Copyright 2009 WorldVistA. Licensed under the terms of the GNU … … 43 43 N ALL S ALL=+FLAGS 44 44 N ACTIVE S ACTIVE=$P(FLAGS,U,3) 45 N PENDING S PENDING=$P(FLAGS,U,4) ;OHUM/RUT 3120504 ADDED FOR VALIDATION OF PENDING MEDICATIONS 45 46 ; Below, X1 is today; X2 is the number of days we want to go back 46 47 ; X is the result of this calculation using C^%DTC. … … 62 63 . N MED M MED=MEDS(RXIEN) 63 64 . I 'ALL,ACTIVE,$P(MED(100),U,2)'="ACTIVE" QUIT 65 . I 'ALL,PENDING,$P(MED(100),U,2)'="PENDING" QUIT ;OHUM/RUT 3120504 ADDED FOR VALIDATION OF PENDING MEDICATIONS 64 66 . S MEDCOUNT=MEDCOUNT+1 65 67 . W:$G(DEBUG) "RXIEN IS ",RXIEN,! -
ccr/branches/ohum/p/C0CMED2.m
r1428 r1433 1 1 C0CMED2 ; WV/CCDCCR/SMH - CCR/CCD Meds - Pending for Vista 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;;Last Modified Sat Jan 10 21:41:14 PST 2009 4 4 ; Copyright 2008 WorldVistA. Licensed under the terms of the GNU … … 256 256 . . . D INSERT^C0CXPATH(RESULT,DIRXML2,"//Medications/Medication") 257 257 . I MEDFIRST D ; 258 . . S MEDFIRST=0 ; RESET FIRST FLAG258 . . ;S MEDFIRST=0 ; RESET FIRST FLAG ;OHUM/RUT COMMENTED (1ST PENDING MEDICATION WAS GETTING DUPLICATED) 259 259 . . D CP^C0CXPATH(RESULT,OUTXML) ; First one is a copy 260 260 . D:'MEDFIRST INSINNER^C0CXPATH(OUTXML,RESULT) ; AFTER FIRST, INSERT INNER 261 . I MEDFIRST S MEDFIRST=0 ;OHUM/RUT ADDED 261 262 N MEDTMP,MEDI 262 263 D MISSING^C0CXPATH(OUTXML,"MEDTMP") ; SEARCH XML FOR MISSING VARS -
ccr/branches/ohum/p/C0CMED3.m
r1428 r1433 1 1 C0CMED3 ; WV/CCDCCR/SMH - Meds: Non-VA/Outside Meds for Vista 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;;Last Modified: Sun Jan 11 05:45:03 UTC 2009 4 4 ; Copyright 2009 WorldVistA. Licensed under the terms of the GNU -
ccr/branches/ohum/p/C0CMED4.m
r1428 r1433 1 1 C0CMED4 ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS - Inpatient Meds/Unit Dose ;10/13/08 ; 5/10/12 2:38pm 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; Copyright 2008 WorldVistA. Licensed under the terms of the GNU 4 4 ; General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CMED6.m
r1428 r1433 1 1 C0CMED6 ; WV/CCDCCR/SMH - Meds from RPMS: Outpatient Meds;01/10/09 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; Copyright 2008 WorldVistA. Licensed under the terms of the GNU 4 4 ; General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CMIME.m
r1428 r1433 1 1 C0CMIME ; CCDCCR/GPL - MIME manipulation utilities; 3/8/11 ; 5/16/11 2:32pm 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CMXML.m
r1428 r1433 1 1 C0CMXML ; GPL - MXML based XPath utilities;10/13/09 17:05 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CMXMLB.m
r1428 r1433 1 1 C0CMXMLB ;;ISF/RWF - Tool to build XML ; 5/10/12 2:51pm 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 QUIT 4 4 ; -
ccr/branches/ohum/p/C0CMXP.m
r1428 r1433 1 1 C0CMXP ; GPL - MXML based XPath utilities;12/04/09 17:05 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CNHIN.m
r1428 r1433 1 1 C0CNHIN ; GPL - PROCESSING FOR OUTPUT OF NHINV ROUTINES;6/3/11 17:05 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2011 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CNMED2.m
r1428 r1433 1 1 C0CNMED2 ; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009 ; 5/10/12 2:53pm 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel. 4 4 ; Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CNMED4.m
r1428 r1433 1 1 C0CNMED4 ; WV/CCDCCR/SMH/gpl - CCR/CCD PROCESSING FOR MEDICATIONS - Inpatient Meds/Unit Dose ;10/13/08 ; 5/10/12 2:54pm 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; Copyright 2008 WorldVistA. Licensed under the terms of the GNU 4 4 ; General Public License See attached copy of the License. … … 61 61 S MEDMAP=$NA(^TMP("C0CCCR",$J,"MEDMAP")) 62 62 ;N MEDCOUNT S MEDCOUNT=@MEDMAP@(0) ; We already have meds in the array 63 S C0CMFLAG=$$GET^C0CPARMS("MEDALL")_"^"_$$GET^C0CPARMS("MEDLIMIT")_"^"_$$GET^C0CPARMS("MEDACTIVE")_"^"_$$GET^C0CPARMS("MEDPENDING") ;SETTING FLAG 63 64 N I S I=0 64 65 F S I=$O(MEDS("med",I)) Q:'I D ; For each medication 66 . ;OHUM/RUT 3120507 ;STATUS VALIDATION FOR INPATIENT 67 . I ($P(C0CMFLAG,"^",1)'=1) D 68 . . I ($P(C0CMFLAG,"^",3)=1)&(MEDS("med",I,"vaStatus@value")'="ACTIVE") D 69 . . . K MEDS("med",I) Q 70 . . I ($P(C0CMFLAG,"^",4)=1)&(MEDS("med",I,"vaStatus@value")'="PENDING") D 71 . . . K MEDS("med",I) Q 72 . ;OHUM/RUT 65 73 . N MED M MED=MEDS("med",I) 66 74 . I $G(MED("vaType@value"))'="I" Q ; not inpatient -
ccr/branches/ohum/p/C0CORSLT.m
r1428 r1433 1 1 C0CORSLT ; CCDCCR/GPL - CCR/CCD PROCESSING ADDITIONAL RESULTS ; 06/27/11 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2011 George Lilly. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0COVREL.m
r1428 r1433 1 1 C0COVREL ; CCDCCR/ELN - CCR/CCD PROCESSING FOR LAB,RAD,TIU RESULTS ; 10/12/15 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 LIST ; LIST THE HL7 MESSAGE; ALSO, EXTRACT THE RESULT VARIABLES TO C0CLB 4 4 N C0CI,C0CJ,C0COBT,C0CHB,C0CVAR,C0CLB2,C0CLB,C0CLI,C0CLOBX,C0CTAB,C0CTYP -
ccr/branches/ohum/p/C0COVRES.m
r1428 r1433 1 1 C0COVRES ; CCDCCR/ELN - CCR/CCD PROCESSING FOR LAB,RAD,TIU RESULTS ; 10/12/15 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; 4 4 MAP(MIXML,DFN,MOXML) ;TO MAKE THIS COMPATIBLE WITH OLD CALLING FOR EXTRACT -
ccr/branches/ohum/p/C0COVREU.m
r1428 r1433 1 1 C0COVREU ; CCDCCR/ELN - CCR/CCD PROCESSING FOR LAB,RAD,TIU RESULTS ; 10/12/15 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; 4 4 ; -
ccr/branches/ohum/p/C0CPARMS.m
r1428 r1433 1 1 C0CPARMS ; CCDCCR/GPL - CCR/CCD PARAMETER PROCESSING ; 1/29/09 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008 WorldVistA. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. … … 60 60 ;I '$D(@C0CPARMS@("TIUSTART")) S @C0CPARMS@("TIUSTART")="T" ;TODAY 61 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) 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),@C0CPARMS@("MEDACTIVE")=0,@C0CPARMS@("MEDPENDING")=0,@C0CPARMS@("MEDALL")=0 ;OHUM/RUT 3120504 INITIALISING MEDICATION STATUS VARIABLES WITH ZERO 63 63 I $P(^C0CPARM(1,1),"^",4)="ACT" S @C0CPARMS@("MEDACTIVE")=1 64 64 I $P(^C0CPARM(1,1),"^",4)="PEN" S @C0CPARMS@("MEDPENDING")=1 65 I $P(^C0CPARM(1,1),"^",4)="ALL" S @C0CPARMS@("MEDALL")=1 65 I $P(^C0CPARM(1,1),"^",4)="ALL" S @C0CPARMS@("MEDALL")=1,@C0CPARMS@("MEDPENDING")=1 ;OHUM/RUT 3120504 ADDED FOR INCLUDING PENDING MEDICATIONS FOR STATUS "ALL" 66 66 ;S ^TMP("C0CCCR","TIULIMIT")="",^TMP("C0CCCR","TIUSTART")="" 67 67 I $P(^C0CPARM(1,2),"^",3)=1 S @C0CPARMS@("TIULIMIT")=$P(^C0CPARM(1,2),"^",1),@C0CPARMS@("TIUSTART")=$P(^C0CPARM(1,2),"^",2) -
ccr/branches/ohum/p/C0CPROBS.m
r1428 r1433 1 1 C0CPROBS ; CCDCCR/GPL/CJE - CCR/CCD PROCESSING FOR PROBLEMS ; 6/6/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008,2009 George Lilly, University of Minnesota. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CPROC.m
r1428 r1433 1 1 C0CPROC ; CCDCCR/GPL - CCR/CCD PROCESSING FOR PROCEDURES ; 01/21/10 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2010 George Lilly, University of Minnesota and others. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CPXRM.m
r1428 r1433 1 1 C0CPXRM ; 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 DOIT ; 4 4 S G="PXRMXSEPCLINIC3110302.224804" ZWR ^XTMP(G,*) -
ccr/branches/ohum/p/C0CQRY1.m
r1428 r1433 1 1 LA7QRY1 ;DALOI/JMC - Lab HL7 Query Utility ;01/19/99 13:48 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; 4 4 Q -
ccr/branches/ohum/p/C0CQRY2.m
r1428 r1433 1 1 LA7QRY2 ;DALOI/JMC - Lab HL7 Query Utility ; 04/13/09 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; JMC - mods to check for IHS V LAB file 4 4 ; -
ccr/branches/ohum/p/C0CRAHL7.m
r1428 r1433 1 1 C0CRAHL7 ; C0C/ELN - CCR/CCD PROCESSING FOR RAD REPORT ; 25/10/2010 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;; 4 4 Q -
ccr/branches/ohum/p/C0CRARPT.m
r1428 r1433 1 1 C0CRARPT ; C0C/ELN - CCR/CCD PROCESSING FOR RAD REPORT ; 19/10/2010 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 MAP(MIXML,DFN,MOXML) ;TO MAKE THIS COMPATIBLE WITH OLD CALLING FOR EXTRACT 4 4 ; ASSUMES THAT EXTRACT HAS BEEN RUN AND THE VARIABLES STORED IN MIVAR -
ccr/branches/ohum/p/C0CRIMA.m
r1428 r1433 1 1 C0CRIMA ; CCDCCR/GPL - RIM REPORT ROUTINES; 6/6/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008,2009 George Lilly, University of Minnesota. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CRNF.m
r1428 r1433 1 1 C0CRNF ; CCDCCR/GPL - Reference Name Format (RNF) utilities; 12/6/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CRNFRP.m
r1428 r1433 1 1 C0CRNFRP ; CCDCCR/GPL - Reference Name Format (RNF) RPCs; 12/9/09 ; 5/10/12 2:56pm 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CRPMS.m
r1428 r1433 1 1 C0CRPMS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR RPMS ;1/14/09 14:33 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CRXN.m
r1428 r1433 1 1 C0CRXN ; CCDCCR/GPL - CCR RXN utilities; 12/6/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CRXNRD.m
r1428 r1433 1 1 C0CRXNRD ; WV/SMH - CCR/CCD PROJECT: Routine to Read RxNorm files;11/15/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 W "No entry from top" Q 4 4 IMPORT(PATH) -
ccr/branches/ohum/p/C0CSNOA.m
r1428 r1433 1 1 C0CSNOA ; CCDCCR/GPL - SNOMED CT ANALYSIS ROUTINES; 10/14/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008,2009 George Lilly, University of Minnesota. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CSOAP.m
r1428 r1433 1 1 C0CSOAP ; CCDCCR/GPL - SOAP WEB SERVICE utilities; 8/25/09 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CSQMB.m
r1428 r1433 1 1 C0CSQMB ; SQMCCR/ELN - BATCH PROGRAM ;16/11/2010 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; 4 4 EN ;Traverse the DPT global and export CCR xml for each DFN -
ccr/branches/ohum/p/C0CSUB1.m
r1428 r1433 1 1 C0CSUB1 ; CCDCCR/GPL - CCR SUBSCRIPTION utilities; 12/6/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CSYS.m
r1428 r1433 1 1 C0CSYS ;WV/C0C/SMH - Routine to Get EHR System Information;6JUL2008 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; Copyright 2008 WorldVistA. Licensed under the terms of the GNU 4 4 ; General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CTIU.m
r1428 r1433 1 1 C0CTIU ; C0C/ELN - PROCESSING FOR TIU NOTES ; 19/10/2010 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; 4 4 ; -
ccr/branches/ohum/p/C0CTIU1.m
r1428 r1433 1 1 C0CTIU1 ; C0C/ELN - PROCESSING FOR TIU NOTES Contd. ; 19/10/2010 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;ELN UTILITY PROGRAM TO SUPPORT C0CTIU 4 4 C0CDATE(EDTE) ; Converts external date to internal date format -
ccr/branches/ohum/p/C0CUNIT.m
r1428 r1433 1 1 C0CUNIT ; CCDCCR/GPL - Unit Testing Library; 5/07/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CUTIL.m
r1428 r1433 1 1 C0CUTIL ;WV/C0C/SMH - Various Utilites for generating the CCR/CCD;06/15/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008-2009 Sam Habiel & George Lilly. 4 4 ;Licensed under the terms of the GNU -
ccr/branches/ohum/p/C0CVA200.m
r1428 r1433 1 1 C0CVA200 ;WV/C0C/SMH - Routine to get Provider Data;07/13/2008 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008 Sam Habiel. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CVALID.m
r1428 r1433 1 1 C0CVALID ; C0C/OHUM/RUT - PROCESSING FOR DATE LIMITS, NOTES ; 22/12/2011 2 ;;1.2;C0C;;May 11, 2012;Build 4 6;Build 22 ;;1.2;C0C;;May 11, 2012;Build 47;Build 2 3 3 S ^TMP("C0CCCR","LABLIMIT")="",^TMP("C0CCCR","VITLIMIT")="",^TMP("C0CCCR","MEDLIMIT")="",^TMP("C0CCCR","TIULIMIT")="" 4 4 S %DT="AEX",%DT("A")="LAB Report From: ",%DT("B")="T-36500" D ^%DT S ^TMP("C0CCCR","LABLIMIT")=Y -
ccr/branches/ohum/p/C0CVIT2.m
r1428 r1433 1 1 C0CVIT2 ; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008,2009 George Lilly, University of Minnesota and others. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CVITAL.m
r1428 r1433 1 1 C0CVITAL ; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008,2009 George Lilly, University of Minnesota and others. 4 4 ;Licensed under the terms of the GNU General Public License. -
ccr/branches/ohum/p/C0CVOBX1.m
r1428 r1433 1 1 LA7VOBX1 ;DALOI/JMC - LAB OBX Segment message builder (CH subscript) cont'd; 04/21/09 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; JMC - mods to check for IHS V LAB file 4 4 ; -
ccr/branches/ohum/p/C0CVORU.m
r1428 r1433 1 1 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 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ; 4 4 EN(LA) ; called from C0CVLAB -
ccr/branches/ohum/p/C0CXEWD.m
r1428 r1433 1 1 C0CXEWD ; C0C/GPL - EWD based XPath utilities; 10/11/09 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CXPAT0.m
r1428 r1433 1 1 C0CXPAT0 ; CCDCCR/GPL - XPATH TEST CASES ; 6/1/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
ccr/branches/ohum/p/C0CXPATH.m
r1428 r1433 1 1 C0CXPATH ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08 2 ;;1.2;C0C;;May 11, 2012;Build 4 62 ;;1.2;C0C;;May 11, 2012;Build 47 3 3 ;Copyright 2008 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License.
Note:
See TracChangeset
for help on using the changeset viewer.