includes C0CPROC AND C0CCPT
This commit is contained in:
george
parent
5f423ee03b
commit
6562be14b8
|
|
@ -1,5 +1,5 @@
|
|||
KIDS Distribution saved on May 18, 2010@15:37:09
|
||||
includes de-identification mode for testing
|
||||
KIDS Distribution saved on May 18, 2010@16:32:54
|
||||
includes C0CPROC AND C0CCPT
|
||||
**KIDS**:C0C 1.0^
|
||||
|
||||
**INSTALL NAME**
|
||||
|
|
@ -75,7 +75,7 @@ y^y^f^^n^^y^o^n
|
|||
"BLD",6967,4,"B",178.301,178.301)
|
||||
|
||||
"BLD",6967,6.3)
|
||||
34
|
||||
35
|
||||
"BLD",6967,"INI")
|
||||
PRE^C0CENV
|
||||
"BLD",6967,"INIT")
|
||||
|
|
@ -129,7 +129,7 @@ C0C ENTER EDIT INCOMING XML FILE #175^175^0
|
|||
"BLD",6967,"KRN",9.8,0)
|
||||
9.8
|
||||
"BLD",6967,"KRN",9.8,"NM",0)
|
||||
^9.68A^74^43
|
||||
^9.68A^76^45
|
||||
"BLD",6967,"KRN",9.8,"NM",22,0)
|
||||
C0CRXN^^0^B103277157
|
||||
"BLD",6967,"KRN",9.8,"NM",23,0)
|
||||
|
|
@ -216,6 +216,10 @@ C0CXEWD^^0^B15380480
|
|||
C0CVIT2^^0^B35038793
|
||||
"BLD",6967,"KRN",9.8,"NM",74,0)
|
||||
C0CIM2^^0^B20157375
|
||||
"BLD",6967,"KRN",9.8,"NM",75,0)
|
||||
C0CPROC^^0^B21479864
|
||||
"BLD",6967,"KRN",9.8,"NM",76,0)
|
||||
C0CCPT^^0^B13565934
|
||||
"BLD",6967,"KRN",9.8,"NM","B","C0CACTOR",47)
|
||||
|
||||
"BLD",6967,"KRN",9.8,"NM","B","C0CALERT",46)
|
||||
|
|
@ -230,6 +234,8 @@ C0CIM2^^0^B20157375
|
|||
|
||||
"BLD",6967,"KRN",9.8,"NM","B","C0CCCR0",42)
|
||||
|
||||
"BLD",6967,"KRN",9.8,"NM","B","C0CCPT",76)
|
||||
|
||||
"BLD",6967,"KRN",9.8,"NM","B","C0CDPT",53)
|
||||
|
||||
"BLD",6967,"KRN",9.8,"NM","B","C0CFM1",24)
|
||||
|
|
@ -268,6 +274,8 @@ C0CIM2^^0^B20157375
|
|||
|
||||
"BLD",6967,"KRN",9.8,"NM","B","C0CPROBS",39)
|
||||
|
||||
"BLD",6967,"KRN",9.8,"NM","B","C0CPROC",75)
|
||||
|
||||
"BLD",6967,"KRN",9.8,"NM","B","C0CQRY1",66)
|
||||
|
||||
"BLD",6967,"KRN",9.8,"NM","B","C0CQRY2",63)
|
||||
|
|
@ -86423,13 +86431,13 @@ NO
|
|||
"QUES","XPZ2","M")
|
||||
D XPZ2^XPDIQ
|
||||
"RTN")
|
||||
44
|
||||
46
|
||||
"RTN","C0CACTOR")
|
||||
0^47^B98962571
|
||||
"RTN","C0CACTOR",1,0)
|
||||
C0CACTOR ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
|
||||
"RTN","C0CACTOR",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CACTOR",3,0)
|
||||
;Copyright 2008,2009 George Lilly, University of Minnesota.
|
||||
"RTN","C0CACTOR",4,0)
|
||||
|
|
@ -86975,7 +86983,7 @@ PROVIDER(INXML,AIEN,AOID,OUTXML) ; PROCESS A PROVIDER TYPE ACTOR
|
|||
"RTN","C0CALERT",1,0)
|
||||
C0CALERT ; CCDCCR/CKU/GPL - CCR/CCD PROCESSING FOR ALERTS ; 09/11/08
|
||||
"RTN","C0CALERT",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CALERT",3,0)
|
||||
;Copyright 2008,2009 George Lilly, University of Minnesota and others.
|
||||
"RTN","C0CALERT",4,0)
|
||||
|
|
@ -87225,7 +87233,7 @@ PRSGLB(INGLB) ; EXTRINSIC TO PARSE GLOBALS AND RETURN THE FILE NUMBER
|
|||
"RTN","C0CBAT",1,0)
|
||||
C0CBAT ; CCDCCR/GPL - CCR Batch utilities; 4/21/09
|
||||
"RTN","C0CBAT",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CBAT",3,0)
|
||||
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
|
||||
"RTN","C0CBAT",4,0)
|
||||
|
|
@ -87695,7 +87703,7 @@ ZVALUE(ZFN,ZTAB) ;EXTRINSIC TO RETURN VALUE FOR FIELD NAME PASSED
|
|||
"RTN","C0CCCD",1,0)
|
||||
C0CCCD ; CCDCCR/GPL - CCD MAIN PROCESSING; 6/6/08
|
||||
"RTN","C0CCCD",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CCCD",3,0)
|
||||
;Copyright 2008,2009 George Lilly, University of Minnesota.
|
||||
"RTN","C0CCCD",4,0)
|
||||
|
|
@ -88241,7 +88249,7 @@ TLIST ; LIST THE TESTS
|
|||
"RTN","C0CCCD1",1,0)
|
||||
C0CCCD1 ; CCDCCR/GPL - CCD TEMPLATE AND ACCESS ROUTINES; 6/7/08
|
||||
"RTN","C0CCCD1",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CCCD1",3,0)
|
||||
;Copyright 2008,2009 George Lilly, University of Minnesota.
|
||||
"RTN","C0CCCD1",4,0)
|
||||
|
|
@ -88779,7 +88787,7 @@ MARKUP ;<MARKUP>
|
|||
"RTN","C0CCCR",1,0)
|
||||
C0CCCR ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
|
||||
"RTN","C0CCCR",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CCCR",3,0)
|
||||
;Copyright 2008,2009 George Lilly, University of Minnesota.
|
||||
"RTN","C0CCCR",4,0)
|
||||
|
|
@ -89311,7 +89319,7 @@ TLIST ; LIST THE TESTS
|
|||
"RTN","C0CCCR0",1,0)
|
||||
C0CCCR0 ; CCDCCR/GPL - CCR TEMPLATE AND ACCESS ROUTINES; 5/31/08
|
||||
"RTN","C0CCCR0",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CCCR0",3,0)
|
||||
;Copyright 2008,2009 George Lilly, University of Minnesota.
|
||||
"RTN","C0CCCR0",4,0)
|
||||
|
|
@ -91074,12 +91082,194 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
|
|||
;;</ContinuityOfCareRecord>
|
||||
"RTN","C0CCCR0",883,0)
|
||||
;</TEMPLATE>
|
||||
"RTN","C0CCPT")
|
||||
0^76^B13565934
|
||||
"RTN","C0CCPT",1,0)
|
||||
C0CCPT ;;BSL;RETURN CPT DATA;
|
||||
"RTN","C0CCPT",2,0)
|
||||
;Sequence Managers Software GPL;;;;;Build 35
|
||||
"RTN","C0CCPT",3,0)
|
||||
;Copied into C0C namespace from SQMCPT with permission from
|
||||
"RTN","C0CCPT",4,0)
|
||||
;Brian Lord - and with our thanks. gpl 01/20/2010
|
||||
"RTN","C0CCPT",5,0)
|
||||
ENTRY(DFN,STDT,ENDDT,TXT) ;BUILD TOTAL ARRAY OF ALL IEN'S FOR TIU NOTES
|
||||
"RTN","C0CCPT",6,0)
|
||||
;DFN=PATIENT IEN
|
||||
"RTN","C0CCPT",7,0)
|
||||
;STDT=START DATE IN 3100101 FORMAT (VA YEAR YYYMMDD)
|
||||
"RTN","C0CCPT",8,0)
|
||||
;ENDDT=END DATE IN 3100101 FORMAT
|
||||
"RTN","C0CCPT",9,0)
|
||||
;TXT=INCLUDE TEXT FROM ENCOUNTER NOTE
|
||||
"RTN","C0CCPT",10,0)
|
||||
;THAT FALL INSIDE DATA RANGE. IF NO STDT OR ENDDT ASSUME
|
||||
"RTN","C0CCPT",11,0)
|
||||
;ALL INCLUSIVE IN THAT DIRECTION
|
||||
"RTN","C0CCPT",12,0)
|
||||
;LIST OF TIU DOCS IN ^TIU(8925,"ACLPT",3,DFN)
|
||||
"RTN","C0CCPT",13,0)
|
||||
;BUILD INTO NOTE(Y)=""
|
||||
"RTN","C0CCPT",14,0)
|
||||
S U="^",X=""
|
||||
"RTN","C0CCPT",15,0)
|
||||
F S X=$O(^TIU(8925,"ACLPT",3,DFN,X)) Q:X="" D
|
||||
"RTN","C0CCPT",16,0)
|
||||
. S Y=""
|
||||
"RTN","C0CCPT",17,0)
|
||||
. F S Y=$O(^TIU(8925,"ACLPT",3,DFN,X,Y)) Q:Y="" D
|
||||
"RTN","C0CCPT",18,0)
|
||||
.. S NOTE(Y)=""
|
||||
"RTN","C0CCPT",19,0)
|
||||
;NOW DELETE ANY NOTES THAT DON'T FALL INTO DATE RANGE
|
||||
"RTN","C0CCPT",20,0)
|
||||
;GET DATE OF NOTE
|
||||
"RTN","C0CCPT",21,0)
|
||||
S Z=""
|
||||
"RTN","C0CCPT",22,0)
|
||||
F S Z=$O(NOTE(Z)) Q:Z="" D
|
||||
"RTN","C0CCPT",23,0)
|
||||
. S DT=$P(^TIU(8925,Z,0),U,7)
|
||||
"RTN","C0CCPT",24,0)
|
||||
. I $G(STDT)]"" D
|
||||
"RTN","C0CCPT",25,0)
|
||||
.. I STDT>DT S NOTE(Z)="D" ;SET NOTE TO BE DELETED
|
||||
"RTN","C0CCPT",26,0)
|
||||
. I $G(ENDDT)]"" D
|
||||
"RTN","C0CCPT",27,0)
|
||||
.. I ENDDT<DT S NOTE(Z)="D"
|
||||
"RTN","C0CCPT",28,0)
|
||||
. I NOTE(Z)="D" K NOTE(Z)
|
||||
"RTN","C0CCPT",29,0)
|
||||
D VISIT
|
||||
"RTN","C0CCPT",30,0)
|
||||
Q
|
||||
"RTN","C0CCPT",31,0)
|
||||
VISIT ;GET VISIT INFO FOR A GIVEN NOTE. BUILD INTO RETURN ARRAY .VISIT
|
||||
"RTN","C0CCPT",32,0)
|
||||
S ILST=1,X0="",X12="",VISIT="",LST="",X811=""
|
||||
"RTN","C0CCPT",33,0)
|
||||
S IEN="" F S IEN=$O(NOTE(IEN)) Q:IEN="" D
|
||||
"RTN","C0CCPT",34,0)
|
||||
. S X0=^TIU(8925,IEN,0),X12=$G(^(12))
|
||||
"RTN","C0CCPT",35,0)
|
||||
. S VISIT=$P(X12,U,7)
|
||||
"RTN","C0CCPT",36,0)
|
||||
. I 'VISIT S VISIT=$P(X0,U,3)
|
||||
"RTN","C0CCPT",37,0)
|
||||
. K ^TMP("PXKENC",$J)
|
||||
"RTN","C0CCPT",38,0)
|
||||
. Q:VISIT=""!(VISIT'>0)
|
||||
"RTN","C0CCPT",39,0)
|
||||
. D ENCEVENT^PXKENC(VISIT,1)
|
||||
"RTN","C0CCPT",40,0)
|
||||
. I '$D(^TMP("PXKENC",$J,VISIT,"VST",VISIT,0)) Q
|
||||
"RTN","C0CCPT",41,0)
|
||||
. S IPRV=0 F S IPRV=$O(^TMP("PXKENC",$J,VISIT,"PRV",IPRV)) Q:'IPRV D
|
||||
"RTN","C0CCPT",42,0)
|
||||
.. S X0=^TMP("PXKENC",$J,VISIT,"PRV",IPRV,0)
|
||||
"RTN","C0CCPT",43,0)
|
||||
.. ;Q:$P(X0,U,4)'="P"
|
||||
"RTN","C0CCPT",44,0)
|
||||
.. S CODE=$P(X0,U),NARR=$P($G(^VA(200,CODE,0)),U)
|
||||
"RTN","C0CCPT",45,0)
|
||||
.. S PRIM=($P(X0,U,4)="P")
|
||||
"RTN","C0CCPT",46,0)
|
||||
.. S ILST=ILST+1
|
||||
"RTN","C0CCPT",47,0)
|
||||
.. S LST(ILST)="PRV"_U_CODE_"^^^"_NARR_"^"_PRIM
|
||||
"RTN","C0CCPT",48,0)
|
||||
.. S VISIT(IEN,"PRV",ILST)=CODE_"^^^"_NARR_"^"_PRIM
|
||||
"RTN","C0CCPT",49,0)
|
||||
. S IPOV=0 F S IPOV=$O(^TMP("PXKENC",$J,VISIT,"POV",IPOV)) Q:'IPOV D
|
||||
"RTN","C0CCPT",50,0)
|
||||
.. S X0=^TMP("PXKENC",$J,VISIT,"POV",IPOV,0),X802=$G(^(802)),X811=$G(^(811))
|
||||
"RTN","C0CCPT",51,0)
|
||||
.. S CODE=$P(X0,U)
|
||||
"RTN","C0CCPT",52,0)
|
||||
.. S:CODE CODE=$P(^ICD9(CODE,0),U)
|
||||
"RTN","C0CCPT",53,0)
|
||||
.. S CAT=$P(X802,U)
|
||||
"RTN","C0CCPT",54,0)
|
||||
.. S:CAT CAT=$P(^AUTNPOV(CAT,0),U)
|
||||
"RTN","C0CCPT",55,0)
|
||||
.. S NARR=$P(X0,U,4)
|
||||
"RTN","C0CCPT",56,0)
|
||||
.. S:NARR NARR=$P(^AUTNPOV(NARR,0),U)
|
||||
"RTN","C0CCPT",57,0)
|
||||
.. S PRIM=($P(X0,U,12)="P")
|
||||
"RTN","C0CCPT",58,0)
|
||||
.. S PRV=$P(X12,U,4)
|
||||
"RTN","C0CCPT",59,0)
|
||||
.. S ILST=ILST+1
|
||||
"RTN","C0CCPT",60,0)
|
||||
.. S LST(ILST)="POV"_U_CODE_U_CAT_U_NARR_U_PRIM_U_PRV
|
||||
"RTN","C0CCPT",61,0)
|
||||
.. S VISIT(IEN,"POV",ILST)=CODE_U_CAT_U_NARR_U_PRIM_U_PRV
|
||||
"RTN","C0CCPT",62,0)
|
||||
. S ICPT=0 F S ICPT=$O(^TMP("PXKENC",$J,VISIT,"CPT",ICPT)) Q:'ICPT D
|
||||
"RTN","C0CCPT",63,0)
|
||||
.. S X0=^TMP("PXKENC",$J,VISIT,"CPT",ICPT,0),X802=$G(^(802)),X12=$G(^(12)),X811=$G(^(811))
|
||||
"RTN","C0CCPT",64,0)
|
||||
.. ;S CODE=$P(X0,U)
|
||||
"RTN","C0CCPT",65,0)
|
||||
.. S CODE=$O(^ICPT("B",$P(X0,U),0))
|
||||
"RTN","C0CCPT",66,0)
|
||||
.. S:CODE CODE=$P(^ICPT(CODE,0),U)
|
||||
"RTN","C0CCPT",67,0)
|
||||
.. S CAT=$P(X802,U)
|
||||
"RTN","C0CCPT",68,0)
|
||||
.. S:CAT CAT=$P(^AUTNPOV(CAT,0),U)
|
||||
"RTN","C0CCPT",69,0)
|
||||
.. S NARR=$P(X0,U,4)
|
||||
"RTN","C0CCPT",70,0)
|
||||
.. S:NARR NARR=$P(^AUTNPOV(NARR,0),U)
|
||||
"RTN","C0CCPT",71,0)
|
||||
.. S QTY=$P(X0,U,16)
|
||||
"RTN","C0CCPT",72,0)
|
||||
.. S PRV=$P(X12,U,4)
|
||||
"RTN","C0CCPT",73,0)
|
||||
.. S MCNT=0,MIDX=0,MODS=""
|
||||
"RTN","C0CCPT",74,0)
|
||||
.. F S MIDX=$O(^TMP("PXKENC",$J,VISIT,"CPT",ICPT,1,MIDX)) Q:'MIDX D
|
||||
"RTN","C0CCPT",75,0)
|
||||
... S MIEN=$G(^TMP("PXKENC",$J,VISIT,"CPT",ICPT,1,MIDX,0))
|
||||
"RTN","C0CCPT",76,0)
|
||||
... I +MIEN S MCNT=MCNT+1,MODS=MODS_";/"_MIEN
|
||||
"RTN","C0CCPT",77,0)
|
||||
.. I +MCNT S MODS=MCNT_MODS
|
||||
"RTN","C0CCPT",78,0)
|
||||
.. S ILST=ILST+1
|
||||
"RTN","C0CCPT",79,0)
|
||||
.. S LST(ILST)="CPT"_U_CODE_U_CAT_U_NARR_U_QTY_U_PRV_U_U_U_MODS
|
||||
"RTN","C0CCPT",80,0)
|
||||
.. S VISIT(IEN,"CPT",ILST)=CODE_U_CAT_U_NARR_U_QTY_U_PRV_U_U_U_MODS
|
||||
"RTN","C0CCPT",81,0)
|
||||
. S VISIT(IEN,"DATE",0)=$P($P(^TIU(8925,IEN,0),U,7),".")
|
||||
"RTN","C0CCPT",82,0)
|
||||
. I $G(TXT)=1 D GETNOTE(IEN)
|
||||
"RTN","C0CCPT",83,0)
|
||||
Q
|
||||
"RTN","C0CCPT",84,0)
|
||||
GETNOTE(IEN) ;GET THE TEXT THAT GOES WITH VISIT
|
||||
"RTN","C0CCPT",85,0)
|
||||
;EXTRACT NOTE TEXT FROM ^TIU(8925,IEN,"TEXT"
|
||||
"RTN","C0CCPT",86,0)
|
||||
Q:'$D(VISIT(IEN,"CPT"))
|
||||
"RTN","C0CCPT",87,0)
|
||||
S TXTCNT=0
|
||||
"RTN","C0CCPT",88,0)
|
||||
F S TXTCNT=TXTCNT+1 Q:'$D(^TIU(8925,IEN,"TEXT",TXTCNT,0)) D
|
||||
"RTN","C0CCPT",89,0)
|
||||
. S VISIT(IEN,"TEXT",TXTCNT)=^TIU(8925,IEN,"TEXT",TXTCNT,0)
|
||||
"RTN","C0CCPT",90,0)
|
||||
Q
|
||||
"RTN","C0CDPT")
|
||||
0^53^B45566634
|
||||
"RTN","C0CDPT",1,0)
|
||||
C0CDPT ;WV/CCRCCD/SMH - Routines to Extract Patient Data for CCDCCR; 6/15/08
|
||||
"RTN","C0CDPT",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CDPT",3,0)
|
||||
;
|
||||
"RTN","C0CDPT",4,0)
|
||||
|
|
@ -91619,7 +91809,7 @@ EMERSAME(DFN) ; Is EMER's Address the same the NOK?
|
|||
"RTN","C0CENV",1,0)
|
||||
C0CENV ;WV/JMC - CCD/CCR Environment Check/Install Routine ; Aug 16, 2009
|
||||
"RTN","C0CENV",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CENV",3,0)
|
||||
;
|
||||
"RTN","C0CENV",4,0)
|
||||
|
|
@ -92011,7 +92201,7 @@ SAVE(OLD,NEW) ; restore routine X
|
|||
"RTN","C0CFM1",1,0)
|
||||
C0CFM1 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
|
||||
"RTN","C0CFM1",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CFM1",3,0)
|
||||
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
|
||||
"RTN","C0CFM1",4,0)
|
||||
|
|
@ -92367,7 +92557,7 @@ ZVALUE(ZFN,ZTAB) ;EXTRINSIC TO RETURN VALUE FOR FIELD NAME PASSED
|
|||
"RTN","C0CFM2",1,0)
|
||||
C0CFM2 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
|
||||
"RTN","C0CFM2",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CFM2",3,0)
|
||||
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
|
||||
"RTN","C0CFM2",4,0)
|
||||
|
|
@ -93093,7 +93283,7 @@ ZVALUE(ZFN,ZTAB) ;EXTRINSIC TO RETURN VALUE FOR FIELD NAME PASSED
|
|||
"RTN","C0CIM2",1,0)
|
||||
C0CIM2 ; CCDCCR/GPL/CJE - CCR/CCD PROCESSING FOR IMMUNIZATIONS ; 01/27/10
|
||||
"RTN","C0CIM2",2,0)
|
||||
;;1.0;C0C;;Feb 16, 2010;Build 34
|
||||
;;1.0;C0C;;Feb 16, 2010;Build 35
|
||||
"RTN","C0CIM2",3,0)
|
||||
;Copyright 2010 George Lilly, University of Minnesota and others.
|
||||
"RTN","C0CIM2",4,0)
|
||||
|
|
@ -93361,7 +93551,7 @@ MAP(IMMXML,C0CIMM,IMMOUT) ; MAP IMMUNIZATION XML
|
|||
"RTN","C0CIMMU",1,0)
|
||||
C0CIMMU ; CCDCCR/GPL - CCR/CCD PROCESSING FOR IMMUNIZATIONS ; 2/2/09
|
||||
"RTN","C0CIMMU",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CIMMU",3,0)
|
||||
;Copyright 2008,2009 George Lilly, University of Minnesota.
|
||||
"RTN","C0CIMMU",4,0)
|
||||
|
|
@ -93577,7 +93767,7 @@ EXTRACT(IPXML,DFN,OUTXML) ; EXTRACT IMMUNIZATIONS INTO VARIABLES
|
|||
"RTN","C0CIN",1,0)
|
||||
C0CIN ; CCDCCR/GPL - CCR IMPORT utilities; 9/20/08
|
||||
"RTN","C0CIN",2,0)
|
||||
;;1.0;C0C;;Sep 20, 2009;Build 34
|
||||
;;1.0;C0C;;Sep 20, 2009;Build 35
|
||||
"RTN","C0CIN",3,0)
|
||||
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
|
||||
"RTN","C0CIN",4,0)
|
||||
|
|
@ -93965,7 +94155,7 @@ UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
|
|||
"RTN","C0CLA7DD",1,0)
|
||||
C0CLA7DD ;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine ; Aug 31, 2009
|
||||
"RTN","C0CLA7DD",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CLA7DD",3,0)
|
||||
;
|
||||
"RTN","C0CLA7DD",4,0)
|
||||
|
|
@ -94485,7 +94675,7 @@ SENDXQA(MSG) ; Send alert for reindex status
|
|||
"RTN","C0CLA7Q",1,0)
|
||||
C0CLA7Q ;WV/JMC - CCD/CCR Lab HL7 Query Utility ;Jul 6, 2009
|
||||
"RTN","C0CLA7Q",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CLA7Q",3,0)
|
||||
;
|
||||
"RTN","C0CLA7Q",4,0)
|
||||
|
|
@ -94825,7 +95015,7 @@ FINDDT ; Find entry in V LAB for the date/time or one close to it.
|
|||
"RTN","C0CLABS",1,0)
|
||||
C0CALABS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR LAB RESULTS ; 10/01/08
|
||||
"RTN","C0CLABS",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CLABS",3,0)
|
||||
;Copyright 2008,2009 George Lilly, University of Minnesota.
|
||||
"RTN","C0CLABS",4,0)
|
||||
|
|
@ -95607,7 +95797,7 @@ SETTBL ;
|
|||
"RTN","C0CMCCD",1,0)
|
||||
C0CMCCD ; GPL - MXML based CCD utilities;12/04/09 17:05
|
||||
"RTN","C0CMCCD",2,0)
|
||||
;;0.1;C0C;nopatch;noreleasedate;Build 34
|
||||
;;0.1;C0C;nopatch;noreleasedate;Build 35
|
||||
"RTN","C0CMCCD",3,0)
|
||||
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
|
||||
"RTN","C0CMCCD",4,0)
|
||||
|
|
@ -96189,7 +96379,7 @@ UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
|
|||
"RTN","C0CMED",1,0)
|
||||
C0CMED ; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009
|
||||
"RTN","C0CMED",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CMED",3,0)
|
||||
; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel.
|
||||
"RTN","C0CMED",4,0)
|
||||
|
|
@ -96383,7 +96573,7 @@ VISTA
|
|||
"RTN","C0CMED1",1,0)
|
||||
C0CMED1 ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;01/10/09
|
||||
"RTN","C0CMED1",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CMED1",3,0)
|
||||
;;Last modified Sat Jan 10 21:42:27 PST 2009
|
||||
"RTN","C0CMED1",4,0)
|
||||
|
|
@ -96861,7 +97051,7 @@ EXTRACT(MINXML,DFN,OUTXML,MEDCOUNT,FLAGS) ; EXTRACT MEDICATIONS INTO PROVIDED XM
|
|||
"RTN","C0CMED2",1,0)
|
||||
C0CMED2 ; WV/CCDCCR/SMH - CCR/CCD Meds - Pending for Vista
|
||||
"RTN","C0CMED2",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CMED2",3,0)
|
||||
;;Last Modified Sat Jan 10 21:41:14 PST 2009
|
||||
"RTN","C0CMED2",4,0)
|
||||
|
|
@ -97397,7 +97587,7 @@ EXTRACT(MINXML,DFN,OUTXML,MEDCOUNT) ; EXTRACT MEDICATIONS INTO PROVIDE
|
|||
"RTN","C0CMED3",1,0)
|
||||
C0CMED3 ; WV/CCDCCR/SMH - Meds: Non-VA/Outside Meds for Vista
|
||||
"RTN","C0CMED3",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CMED3",3,0)
|
||||
;;Last Modified: Sun Jan 11 05:45:03 UTC 2009
|
||||
"RTN","C0CMED3",4,0)
|
||||
|
|
@ -97923,7 +98113,7 @@ EXTRACT(MINXML,DFN,OUTXML,MEDCOUNT) ; Extract medications into provided xml temp
|
|||
"RTN","C0CMED6",1,0)
|
||||
C0CMED6 ; WV/CCDCCR/SMH - Meds from RPMS: Outpatient Meds;01/10/09
|
||||
"RTN","C0CMED6",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CMED6",3,0)
|
||||
; Copyright 2008 WorldVistA. Licensed under the terms of the GNU
|
||||
"RTN","C0CMED6",4,0)
|
||||
|
|
@ -98587,7 +98777,7 @@ GETRXN(NDC) ; Extrinsic Function; PUBLIC; NDC to RxNorm
|
|||
"RTN","C0CMXML",1,0)
|
||||
C0CMXML ; GPL - MXML based XPath utilities;10/13/09 17:05
|
||||
"RTN","C0CMXML",2,0)
|
||||
;;0.1;C0C;nopatch;noreleasedate;Build 34
|
||||
;;0.1;C0C;nopatch;noreleasedate;Build 35
|
||||
"RTN","C0CMXML",3,0)
|
||||
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
|
||||
"RTN","C0CMXML",4,0)
|
||||
|
|
@ -99039,7 +99229,7 @@ UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
|
|||
"RTN","C0CMXP",1,0)
|
||||
C0CMXP ; GPL - MXML based XPath utilities;12/04/09 17:05
|
||||
"RTN","C0CMXP",2,0)
|
||||
;;0.1;C0C;nopatch;noreleasedate;Build 34
|
||||
;;0.1;C0C;nopatch;noreleasedate;Build 35
|
||||
"RTN","C0CMXP",3,0)
|
||||
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
|
||||
"RTN","C0CMXP",4,0)
|
||||
|
|
@ -99625,7 +99815,7 @@ UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
|
|||
"RTN","C0CPARMS",1,0)
|
||||
C0CPARMS ; CCDCCR/GPL - CCR/CCD PARAMETER PROCESSING ; 1/29/09
|
||||
"RTN","C0CPARMS",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CPARMS",3,0)
|
||||
;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
|
||||
"RTN","C0CPARMS",4,0)
|
||||
|
|
@ -99751,7 +99941,7 @@ GET(WHICHP) ;EXTRINSIC TO RETURN THE VALUE OF PARAMETER WHICHP
|
|||
"RTN","C0CPROBS",1,0)
|
||||
C0CPROBS ; CCDCCR/GPL/CJE - CCR/CCD PROCESSING FOR PROBLEMS ; 6/6/08
|
||||
"RTN","C0CPROBS",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CPROBS",3,0)
|
||||
;Copyright 2008,2009 George Lilly, University of Minnesota.
|
||||
"RTN","C0CPROBS",4,0)
|
||||
|
|
@ -100108,12 +100298,272 @@ MISSINGVARS
|
|||
Q
|
||||
"RTN","C0CPROBS",180,0)
|
||||
;
|
||||
"RTN","C0CPROC")
|
||||
0^75^B21479864
|
||||
"RTN","C0CPROC",1,0)
|
||||
C0CPROC ; CCDCCR/GPL - CCR/CCD PROCESSING FOR PROCEDURES ; 01/21/10
|
||||
"RTN","C0CPROC",2,0)
|
||||
;;1.0;C0C;;Jan 21, 2010;Build 35
|
||||
"RTN","C0CPROC",3,0)
|
||||
;Copyright 2010 George Lilly, University of Minnesota and others.
|
||||
"RTN","C0CPROC",4,0)
|
||||
;Licensed under the terms of the GNU General Public License.
|
||||
"RTN","C0CPROC",5,0)
|
||||
;See attached copy of the License.
|
||||
"RTN","C0CPROC",6,0)
|
||||
;
|
||||
"RTN","C0CPROC",7,0)
|
||||
;This program is free software; you can redistribute it and/or modify
|
||||
"RTN","C0CPROC",8,0)
|
||||
;it under the terms of the GNU General Public License as published by
|
||||
"RTN","C0CPROC",9,0)
|
||||
;the Free Software Foundation; either version 2 of the License, or
|
||||
"RTN","C0CPROC",10,0)
|
||||
;(at your option) any later version.
|
||||
"RTN","C0CPROC",11,0)
|
||||
;
|
||||
"RTN","C0CPROC",12,0)
|
||||
;This program is distributed in the hope that it will be useful,
|
||||
"RTN","C0CPROC",13,0)
|
||||
;but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
"RTN","C0CPROC",14,0)
|
||||
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
"RTN","C0CPROC",15,0)
|
||||
;GNU General Public License for more details.
|
||||
"RTN","C0CPROC",16,0)
|
||||
;
|
||||
"RTN","C0CPROC",17,0)
|
||||
;You should have received a copy of the GNU General Public License along
|
||||
"RTN","C0CPROC",18,0)
|
||||
;with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
"RTN","C0CPROC",19,0)
|
||||
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
"RTN","C0CPROC",20,0)
|
||||
;
|
||||
"RTN","C0CPROC",21,0)
|
||||
W "NO ENTRY FROM TOP",!
|
||||
"RTN","C0CPROC",22,0)
|
||||
Q
|
||||
"RTN","C0CPROC",23,0)
|
||||
;
|
||||
"RTN","C0CPROC",24,0)
|
||||
EXTRACT(PROCXML,DFN,PROCOUT) ; EXTRACT PROCEDURES INTO XML TEMPLATE
|
||||
"RTN","C0CPROC",25,0)
|
||||
; PROCXML AND PROCOUT ARE PASSED BY NAME SO GLOBALS CAN BE USED
|
||||
"RTN","C0CPROC",26,0)
|
||||
;
|
||||
"RTN","C0CPROC",27,0)
|
||||
S C0CENC=$NA(^TMP("C0CENC",$J,DFN))
|
||||
"RTN","C0CPROC",28,0)
|
||||
S C0CPRC=$NA(^TMP("C0CPRC",$J,DFN))
|
||||
"RTN","C0CPROC",29,0)
|
||||
S C0CNTE=$NA(^TMP("C0CNTE",$J,DFN))
|
||||
"RTN","C0CPROC",30,0)
|
||||
I '$D(@C0CPRC) D TIUGET(DFN,C0CENC,C0CPRC,C0CNTE) ; GET VARS IF NOT THERE
|
||||
"RTN","C0CPROC",31,0)
|
||||
D MAP(PROCXML,C0CPRC,PROCOUT) ;MAP RESULTS FOR PROCEDURES
|
||||
"RTN","C0CPROC",32,0)
|
||||
Q
|
||||
"RTN","C0CPROC",33,0)
|
||||
;
|
||||
"RTN","C0CPROC",34,0)
|
||||
TIUGET(DFN,C0CENC,C0CPRC,C0CNTE) ; CALLS ENTRY^C0CCPT TO GET PROCEDURES,
|
||||
"RTN","C0CPROC",35,0)
|
||||
; ENCOUNTERS AND NOTES. RETURNS THEM IN RNF2 ARRAYS PASSED BY NAME
|
||||
"RTN","C0CPROC",36,0)
|
||||
; C0CENC: ENCOUNTERS, C0CPRC: PROCEDURES, C0CNTE: NOTES
|
||||
"RTN","C0CPROC",37,0)
|
||||
; READY TO BE MAPPED TO XML BY MAP^C0CENC, MAP^C0CPROC, AND MAP^C0CCMT
|
||||
"RTN","C0CPROC",38,0)
|
||||
; THESE RETURN ARRAYS ARE NOT INITIALIZED, BUT ARE ADDED TO IF THEY
|
||||
"RTN","C0CPROC",39,0)
|
||||
; EXIST. THIS IS SO THAT ADDITIONAL PROCEDURES CAN BE OBTAINED FROM
|
||||
"RTN","C0CPROC",40,0)
|
||||
; THE SURGERY PACKGE AND ADDITIONAL COMMENTS FROM OTHER CCR SECTIONS
|
||||
"RTN","C0CPROC",41,0)
|
||||
;
|
||||
"RTN","C0CPROC",42,0)
|
||||
K VISIT,LST,NOTE
|
||||
"RTN","C0CPROC",43,0)
|
||||
D ENTRY^C0CCPT(DFN,,,1) ; RETURNS ALL RESULTS IN VISIT LOCAL VARIABLE
|
||||
"RTN","C0CPROC",44,0)
|
||||
; NEED TO ADD START AND END DATES FROM PARAMETERS
|
||||
"RTN","C0CPROC",45,0)
|
||||
N ZI S ZI=""
|
||||
"RTN","C0CPROC",46,0)
|
||||
N PREVCPT,PREVDT S (PREVCPT,PREVDT)=""
|
||||
"RTN","C0CPROC",47,0)
|
||||
F S ZI=$O(VISIT(ZI),-1) Q:ZI="" D ; REVERSE TIME ORDER - MOST RECENT FIRST
|
||||
"RTN","C0CPROC",48,0)
|
||||
. N ZDATE
|
||||
"RTN","C0CPROC",49,0)
|
||||
. S ZDATE=$$DATE(VISIT(ZI,"DATE",0))
|
||||
"RTN","C0CPROC",50,0)
|
||||
. S ZPRVARY=$NA(VISIT(ZI,"PRV"))
|
||||
"RTN","C0CPROC",51,0)
|
||||
. N ZPRV
|
||||
"RTN","C0CPROC",52,0)
|
||||
. S ZPRV=$$PRV(ZPRVARY) ; THE PRIMARY PROVIDER OBJECT IN THE FORM
|
||||
"RTN","C0CPROC",53,0)
|
||||
. ; ACTORPROVIDER_IEN WHERE IEN IS THE PROVIDER IEN IN NEW PERSON
|
||||
"RTN","C0CPROC",54,0)
|
||||
. N ZJ S ZJ=""
|
||||
"RTN","C0CPROC",55,0)
|
||||
. F S ZJ=$O(VISIT(ZI,"CPT",ZJ)) Q:ZJ="" D ;FOR EACH CPT SEG
|
||||
"RTN","C0CPROC",56,0)
|
||||
. . N ZRNF
|
||||
"RTN","C0CPROC",57,0)
|
||||
. . N ZCPT S ZCPT=$$CPT(VISIT(ZI,"CPT",ZJ)) ;GET CPT CODE AND TEXT
|
||||
"RTN","C0CPROC",58,0)
|
||||
. . I ZCPT'="" D ;IF CPT CODE IS PRESENT
|
||||
"RTN","C0CPROC",59,0)
|
||||
. . . I (ZCPT=PREVCPT)&(ZDATE=PREVDT) Q ; NO DUPS ALLOWED
|
||||
"RTN","C0CPROC",60,0)
|
||||
. . . W !,ZCPT," ",ZDATE," ",ZPRV
|
||||
"RTN","C0CPROC",61,0)
|
||||
. . . S ZRNF("PROCACTOROBJID")=ZPRV
|
||||
"RTN","C0CPROC",62,0)
|
||||
. . . S ZRNF("PROCCODE")=$P(ZCPT,U,1)
|
||||
"RTN","C0CPROC",63,0)
|
||||
. . . S ZRNF("PROCCODESYS")="CPT-4"
|
||||
"RTN","C0CPROC",64,0)
|
||||
. . . S ZRNF("PROCDATETEXT")="Procedure Date"
|
||||
"RTN","C0CPROC",65,0)
|
||||
. . . S ZRNF("PROCDATETIME")=ZDATE
|
||||
"RTN","C0CPROC",66,0)
|
||||
. . . S ZRNF("PROCDESCOBJATTRCODE")="" ;NO PROC ATTRIBUTES YET
|
||||
"RTN","C0CPROC",67,0)
|
||||
. . . S ZRNF("PROCDESCOBJATTR")=""
|
||||
"RTN","C0CPROC",68,0)
|
||||
. . . S ZRNF("PROCDESCOBJATTRCODESYS")="" ;WE DON'T HAVE PROC ATTRIBUTES
|
||||
"RTN","C0CPROC",69,0)
|
||||
. . . S ZRNF("PROCDESCOBJATTRVAL")=""
|
||||
"RTN","C0CPROC",70,0)
|
||||
. . . S ZRNF("PROCDESCTEXT")=$P(ZCPT,U,3)
|
||||
"RTN","C0CPROC",71,0)
|
||||
. . . S ZRNF("PROCLINKID")="" ; NO LINKS YET
|
||||
"RTN","C0CPROC",72,0)
|
||||
. . . S ZRNF("PROCLINKREL")="" ; NO LINKS YET
|
||||
"RTN","C0CPROC",73,0)
|
||||
. . . S ZRNF("PROCOBJECTID")="PROCEDURE_"_ZI
|
||||
"RTN","C0CPROC",74,0)
|
||||
. . . S ZRNF("PROCSTATUS")="Completed" ; Is this right?
|
||||
"RTN","C0CPROC",75,0)
|
||||
. . . S ZRNF("PROCTYPE")=$P(ZCPT,U,2) ; NEED TO ADD THIS TO TEMPLATE
|
||||
"RTN","C0CPROC",76,0)
|
||||
. . . D RNF1TO2^C0CRNF(C0CPRC,"ZRNF") ; ADD THIS ROW TO THE ARRAY
|
||||
"RTN","C0CPROC",77,0)
|
||||
. . . S PREVCPT=ZCPT
|
||||
"RTN","C0CPROC",78,0)
|
||||
. . . S PREVDT=ZDATE
|
||||
"RTN","C0CPROC",79,0)
|
||||
N ZRIM S ZRIM=$NA(^TMP("C0CRIM","VARS",DFN,"PROCEDURES"))
|
||||
"RTN","C0CPROC",80,0)
|
||||
M @ZRIM=@C0CPRC@("V")
|
||||
"RTN","C0CPROC",81,0)
|
||||
Q
|
||||
"RTN","C0CPROC",82,0)
|
||||
;
|
||||
"RTN","C0CPROC",83,0)
|
||||
PRV(IARY) ; RETURNS THE PRIMARY PROVIDER FROM THE "PRV" ARRAY PASSED BY NAME
|
||||
"RTN","C0CPROC",84,0)
|
||||
N ZI,ZR,ZRTN S ZI="" S ZR="" S ZRTN=""
|
||||
"RTN","C0CPROC",85,0)
|
||||
F S ZI=$O(@IARY@(ZI)) Q:ZI="" D ; FOR EACH PRV SEG
|
||||
"RTN","C0CPROC",86,0)
|
||||
. I ZR'="" Q ;ONLY WANT THE FIRST PRIMARY PROVIDER
|
||||
"RTN","C0CPROC",87,0)
|
||||
. I $P(@IARY@(ZI),U,5)=1 S ZR=$P(@IARY@(ZI),U,1)
|
||||
"RTN","C0CPROC",88,0)
|
||||
I ZR'="" S ZRTN="ACTORPROVIDER_"_ZR
|
||||
"RTN","C0CPROC",89,0)
|
||||
Q ZRTN
|
||||
"RTN","C0CPROC",90,0)
|
||||
;
|
||||
"RTN","C0CPROC",91,0)
|
||||
DATE(ISTR) ; EXTRINSIC TO RETURN THE DATE IN CCR FORMAT
|
||||
"RTN","C0CPROC",92,0)
|
||||
Q $$FMDTOUTC^C0CUTIL(ISTR,"DT")
|
||||
"RTN","C0CPROC",93,0)
|
||||
;
|
||||
"RTN","C0CPROC",94,0)
|
||||
CPT(ISTR) ; EXTRINSIC THAT SEARCHES FOR CPT CODES AND RETURNS
|
||||
"RTN","C0CPROC",95,0)
|
||||
; CPT^CATEGORY^TEXT
|
||||
"RTN","C0CPROC",96,0)
|
||||
N Z1,Z2,Z3,ZRTN
|
||||
"RTN","C0CPROC",97,0)
|
||||
S Z1=$P(ISTR,U,1)
|
||||
"RTN","C0CPROC",98,0)
|
||||
I Z1="" D ;
|
||||
"RTN","C0CPROC",99,0)
|
||||
. I ISTR["(CPT-4 " S Z1=$P($P(ISTR,"(CPT-4 ",2),")",1)
|
||||
"RTN","C0CPROC",100,0)
|
||||
I Z1'="" D ; IF THERE IS A CPT CODE IN THERE
|
||||
"RTN","C0CPROC",101,0)
|
||||
. ;S Z1=$P(ISTR,U,1)
|
||||
"RTN","C0CPROC",102,0)
|
||||
. S Z2=$P(ISTR,U,2)
|
||||
"RTN","C0CPROC",103,0)
|
||||
. S Z3=$P(ISTR,U,3)
|
||||
"RTN","C0CPROC",104,0)
|
||||
. S ZRTN=Z1_U_Z2_U_Z3
|
||||
"RTN","C0CPROC",105,0)
|
||||
E S ZRTN=""
|
||||
"RTN","C0CPROC",106,0)
|
||||
Q ZRTN
|
||||
"RTN","C0CPROC",107,0)
|
||||
;
|
||||
"RTN","C0CPROC",108,0)
|
||||
MAP(PROCXML,C0CPRC,PROCOUT) ; MAP PROCEDURES XML
|
||||
"RTN","C0CPROC",109,0)
|
||||
;
|
||||
"RTN","C0CPROC",110,0)
|
||||
N ZTEMP S ZTEMP=$NA(^TMP("C0CCCR",$J,DFN,"PROCTEMP")) ;WORK AREA FOR TEMPLATE
|
||||
"RTN","C0CPROC",111,0)
|
||||
K @ZTEMP
|
||||
"RTN","C0CPROC",112,0)
|
||||
N ZBLD
|
||||
"RTN","C0CPROC",113,0)
|
||||
S ZBLD=$NA(^TMP("C0CCCR",$J,DFN,"PROCBLD")) ; BUILD LIST AREA
|
||||
"RTN","C0CPROC",114,0)
|
||||
D QUEUE^C0CXPATH(ZBLD,PROCXML,1,1) ; FIRST LINE
|
||||
"RTN","C0CPROC",115,0)
|
||||
N ZINNER
|
||||
"RTN","C0CPROC",116,0)
|
||||
D QUERY^C0CXPATH(PROCXML,"//Procedures/Procedure","ZINNER") ;ONE PROC
|
||||
"RTN","C0CPROC",117,0)
|
||||
N ZTMP,ZVAR,ZI
|
||||
"RTN","C0CPROC",118,0)
|
||||
S ZI=""
|
||||
"RTN","C0CPROC",119,0)
|
||||
F S ZI=$O(@C0CPRC@("V",ZI)) Q:ZI="" D ;FOR EACH PROCEDURE
|
||||
"RTN","C0CPROC",120,0)
|
||||
. S ZTMP=$NA(@ZTEMP@(ZI)) ;THIS PROCEDURE XML
|
||||
"RTN","C0CPROC",121,0)
|
||||
. S ZVAR=$NA(@C0CPRC@("V",ZI)) ;THIS PROCEDURE VARIABLES
|
||||
"RTN","C0CPROC",122,0)
|
||||
. D MAP^C0CXPATH("ZINNER",ZVAR,ZTMP) ; MAP THE PROCEDURE
|
||||
"RTN","C0CPROC",123,0)
|
||||
. D QUEUE^C0CXPATH(ZBLD,ZTMP,1,@ZTMP@(0)) ;QUE FOR BUILD
|
||||
"RTN","C0CPROC",124,0)
|
||||
D QUEUE^C0CXPATH(ZBLD,PROCXML,@PROCXML@(0),@PROCXML@(0))
|
||||
"RTN","C0CPROC",125,0)
|
||||
N ZZTMP
|
||||
"RTN","C0CPROC",126,0)
|
||||
D BUILD^C0CXPATH(ZBLD,PROCOUT) ;BUILD FINAL XML
|
||||
"RTN","C0CPROC",127,0)
|
||||
K @ZTEMP,@ZBLD,@C0CPRC
|
||||
"RTN","C0CPROC",128,0)
|
||||
Q
|
||||
"RTN","C0CPROC",129,0)
|
||||
;
|
||||
"RTN","C0CQRY1")
|
||||
0^66^B18992765
|
||||
"RTN","C0CQRY1",1,0)
|
||||
LA7QRY1 ;DALOI/JMC - Lab HL7 Query Utility ;01/19/99 13:48
|
||||
"RTN","C0CQRY1",2,0)
|
||||
;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61**;Sep 27, 1994;Build 34
|
||||
;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61**;Sep 27, 1994;Build 35
|
||||
"RTN","C0CQRY1",3,0)
|
||||
;
|
||||
"RTN","C0CQRY1",4,0)
|
||||
|
|
@ -100361,7 +100811,7 @@ OBX ; Build OBX segment
|
|||
"RTN","C0CQRY2",1,0)
|
||||
LA7QRY2 ;DALOI/JMC - Lab HL7 Query Utility ; 04/13/09
|
||||
"RTN","C0CQRY2",2,0)
|
||||
;;5.2;AUTOMATED LAB INSTRUMENTS;**46**;Sep 27, 1994;Build 34
|
||||
;;5.2;AUTOMATED LAB INSTRUMENTS;**46**;Sep 27, 1994;Build 35
|
||||
"RTN","C0CQRY2",3,0)
|
||||
; JMC - mods to check for IHS V LAB file
|
||||
"RTN","C0CQRY2",4,0)
|
||||
|
|
@ -100731,7 +101181,7 @@ SETDFN(LA7X) ; Setup DFN and other lab variables.
|
|||
"RTN","C0CRIMA",1,0)
|
||||
C0CRIMA ; CCDCCR/GPL - RIM REPORT ROUTINES; 6/6/08
|
||||
"RTN","C0CRIMA",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CRIMA",3,0)
|
||||
;Copyright 2008,2009 George Lilly, University of Minnesota.
|
||||
"RTN","C0CRIMA",4,0)
|
||||
|
|
@ -101793,7 +102243,7 @@ RIM2CSV(DFN) ; WRITE THE RIM VARIABLES FOR A PATIENT TO A CSV FILE
|
|||
"RTN","C0CRNF",1,0)
|
||||
C0CRNF ; CCDCCR/GPL - Reference Name Format (RNF) utilities; 12/6/08
|
||||
"RTN","C0CRNF",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CRNF",3,0)
|
||||
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
|
||||
"RTN","C0CRNF",4,0)
|
||||
|
|
@ -102665,7 +103115,7 @@ ZVALUEI(ZFN,ZTAB) ;EXTRINSIC TO RETURN INTERNAL VALUE FOR FIELD NAME PASSED
|
|||
"RTN","C0CRXN",1,0)
|
||||
C0CRXN ; CCDCCR/GPL - CCR RXN utilities; 12/6/08
|
||||
"RTN","C0CRXN",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CRXN",3,0)
|
||||
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
|
||||
"RTN","C0CRXN",4,0)
|
||||
|
|
@ -103247,7 +103697,7 @@ ZVALUE(ZFN,ZTAB) ;EXTRINSIC TO RETURN VALUE FOR FIELD NAME PASSED
|
|||
"RTN","C0CSOAP",1,0)
|
||||
C0CSOAP ; CCDCCR/GPL - SOAP WEB SERVICE utilities; 8/25/09
|
||||
"RTN","C0CSOAP",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CSOAP",3,0)
|
||||
;Copyright 2008 George Lilly. Licensed under the terms of the GNU
|
||||
"RTN","C0CSOAP",4,0)
|
||||
|
|
@ -103795,7 +104245,7 @@ BIND(RARY,IVARS,INTPTR,INFARY) ;RETURNS AN XPATH ARRAY IN RARY FOR USE WITH MAP
|
|||
"RTN","C0CSUB1",1,0)
|
||||
C0CSUB1 ; CCDCCR/GPL - CCR SUBSCRIPTION utilities; 12/6/08
|
||||
"RTN","C0CSUB1",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CSUB1",3,0)
|
||||
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
|
||||
"RTN","C0CSUB1",4,0)
|
||||
|
|
@ -104069,7 +104519,7 @@ ZVALUE(ZFN,ZTAB) ;EXTRINSIC TO RETURN VALUE FOR FIELD NAME PASSED
|
|||
"RTN","C0CSYS",1,0)
|
||||
C0CSYS ;WV/C0C/SMH - Routine to Get EHR System Information;6JUL2008
|
||||
"RTN","C0CSYS",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CSYS",3,0)
|
||||
; Copyright 2008 WorldVistA. Licensed under the terms of the GNU
|
||||
"RTN","C0CSYS",4,0)
|
||||
|
|
@ -104189,7 +104639,7 @@ PTST(DFN) ;TEST TO SEE IF PATIENT MERGED OR A TEST PATIENT
|
|||
"RTN","C0CUNIT",1,0)
|
||||
C0CUNIT ; CCDCCR/GPL - Unit Testing Library; 5/07/08
|
||||
"RTN","C0CUNIT",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CUNIT",3,0)
|
||||
;Copyright 2008 George Lilly. Licensed under the terms of the GNU
|
||||
"RTN","C0CUNIT",4,0)
|
||||
|
|
@ -104563,7 +105013,7 @@ PAT
|
|||
"RTN","C0CUTIL",1,0)
|
||||
C0CUTIL ;WV/C0C/SMH - Various Utilites for generating the CCR/CCD;06/15/08
|
||||
"RTN","C0CUTIL",2,0)
|
||||
;;0.1;C0C;;Jun 15, 2008;Build 34
|
||||
;;0.1;C0C;;Jun 15, 2008;Build 35
|
||||
"RTN","C0CUTIL",3,0)
|
||||
;Copyright 2008-2009 Sam Habiel & George Lilly.
|
||||
"RTN","C0CUTIL",4,0)
|
||||
|
|
@ -104831,7 +105281,7 @@ OV() ; Are we running on OpenVista?
|
|||
"RTN","C0CVA200",1,0)
|
||||
C0CVA200 ;WV/C0C/SMH - Routine to get Provider Data;07/13/2008
|
||||
"RTN","C0CVA200",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CVA200",3,0)
|
||||
;Copyright 2008 Sam Habiel. Licensed under the terms of the GNU
|
||||
"RTN","C0CVA200",4,0)
|
||||
|
|
@ -105169,7 +105619,7 @@ EMAIL(DUZ) ; Get Provider's Email. PUBLIC; EXTRINSIC
|
|||
"RTN","C0CVIT2",1,0)
|
||||
C0CVIT2 ; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08
|
||||
"RTN","C0CVIT2",2,0)
|
||||
;;1.0;C0C;;Feb 16, 2010;Build 34
|
||||
;;1.0;C0C;;Feb 16, 2010;Build 35
|
||||
"RTN","C0CVIT2",3,0)
|
||||
;Copyright 2008,2009 George Lilly, University of Minnesota and others.
|
||||
"RTN","C0CVIT2",4,0)
|
||||
|
|
@ -106127,7 +106577,7 @@ MAP(VITXML,C0CVIT,VITOUT) ; MAP VITAL SIGNS XML
|
|||
"RTN","C0CVITAL",1,0)
|
||||
C0CVITAL ; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08
|
||||
"RTN","C0CVITAL",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CVITAL",3,0)
|
||||
;Copyright 2008,2009 George Lilly, University of Minnesota and others.
|
||||
"RTN","C0CVITAL",4,0)
|
||||
|
|
@ -106907,7 +107357,7 @@ VITDVISTA(VDT) ; RUN DATE SORTING ALGORITHM FOR VISTA
|
|||
"RTN","C0CVOBX1",1,0)
|
||||
LA7VOBX1 ;DALOI/JMC - LAB OBX Segment message builder (CH subscript) cont'd; 04/21/09
|
||||
"RTN","C0CVOBX1",2,0)
|
||||
;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61,63**;Sep 27, 1994;Build 34
|
||||
;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61,63**;Sep 27, 1994;Build 35
|
||||
"RTN","C0CVOBX1",3,0)
|
||||
; JMC - mods to check for IHS V LAB file
|
||||
"RTN","C0CVOBX1",4,0)
|
||||
|
|
@ -107137,7 +107587,7 @@ CH ; Observation/Result segment for "CH" subscript results.
|
|||
"RTN","C0CXEWD",1,0)
|
||||
C0CXEWD ; C0C/GPL - EWD based XPath utilities; 10/11/09
|
||||
"RTN","C0CXEWD",2,0)
|
||||
;;0.1;C0C;nopatch;noreleasedate;Build 34
|
||||
;;0.1;C0C;nopatch;noreleasedate;Build 35
|
||||
"RTN","C0CXEWD",3,0)
|
||||
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
|
||||
"RTN","C0CXEWD",4,0)
|
||||
|
|
@ -107391,7 +107841,7 @@ DATA(ZT,ZOID) ; RETURNS DATA FOR THE NODE
|
|||
"RTN","C0CXPAT0",1,0)
|
||||
C0CXPAT0 ; CCDCCR/GPL - XPATH TEST CASES ; 6/1/08
|
||||
"RTN","C0CXPAT0",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CXPAT0",3,0)
|
||||
;Copyright 2008 George Lilly. Licensed under the terms of the GNU
|
||||
"RTN","C0CXPAT0",4,0)
|
||||
|
|
@ -107817,7 +108267,7 @@ C0CXPAT0 ; CCDCCR/GPL - XPATH TEST CASES ; 6/1/08
|
|||
"RTN","C0CXPATH",1,0)
|
||||
C0CXPATH ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08
|
||||
"RTN","C0CXPATH",2,0)
|
||||
;;1.0;C0C;;May 19, 2009;Build 34
|
||||
;;1.0;C0C;;May 19, 2009;Build 35
|
||||
"RTN","C0CXPATH",3,0)
|
||||
;Copyright 2008 George Lilly. Licensed under the terms of the GNU
|
||||
"RTN","C0CXPATH",4,0)
|
||||
|
|
|
|||
Loading…
Reference in New Issue