encoutners

p/C0CCMT.m

@@ -45,6 +45,7 @@ MAP(NOTEXML,C0CNTE,NOTEOUT) ; MAP PROCEDURES XML
  . S ZVAR=$NA(@C0CNTE@(ZI)) ;THIS NOTE VARIABLES
  . D MAP^C0CXPATH("ZINNER",ZVAR,ZTMP) ; MAP THE PROCEDURE
  . N ZNOTE,ZN
+ . D CLEAN($NA(@C0CNTE@(ZI,"TEXT"))) ;REMOVE CONTROL CHARS AND XML RESERVED
  . M ZNOTE=@C0CNTE@(ZI,"TEXT") ;THE NOTE TO ADD TO THE BUILD
  . S ZNOTE(0)=$O(ZNOTE(""),-1) ;LENGTH OF THE NOTE
  . D INSERT^C0CXPATH(ZTMP,"ZNOTE","//Comment/Description/Text")
@@ -54,4 +55,12 @@ MAP(NOTEXML,C0CNTE,NOTEOUT) ; MAP PROCEDURES XML
  D BUILD^C0CXPATH(ZBLD,NOTEOUT) ;BUILD FINAL XML
  K @ZTEMP,@ZBLD,@C0CNTE
  Q
- ;  
+ ;  
+CLEAN(INARY) ; INARY IS PASSED BY NAME
+ ; REMOVE CONTROL CHARACTERS AND XML RESERVED SYMBOLS FROM THE ARRAY
+ N ZI,ZJ S ZI=""
+ F  S ZI=$O(@INARY@(ZI)) Q:ZI=""  D  ;
+ . S @INARY@(ZI)=$$CLEAN^C0CXPATH(@INARY@(ZI)) ; CONTROL CHARS
+ . S @INARY@(ZI)=$$SYMENC^MXMLUTL(@INARY@(ZI)) ; XML RESERVED SYMBOLS
+ Q
+ ;

p/C0CENC.m

@@ -25,7 +25,9 @@ EXTRACT(ENCXML,DFN,ENCOUT) ; EXTRACT ENCOUNTERS INTO  XML TEMPLATE
  ; ENCXML AND ENCOUT ARE PASSED BY NAME SO GLOBALS CAN BE USED
  ;
  D SETVARS^C0CPROC ; SET UP VARIABLES FOR PROCEDUCRES, ENCOUNTERS, AND NOTES
- I '$D(@C0CENC) D TIUGET(DFN,C0CENC,C0CPRC,C0CNTE) ; GET VARS IF NOT THERE
+ ;I '$D(@C0CENC) D TIUGET(DFN,C0CENC,C0CPRC,C0CNTE) ; GET VARS IF NOT THERE
+ K @C0CENC
+ D TIUGET(DFN,C0CENC,C0CPRC,C0CNTE) ; GET ENCOUNTERS
  D MAP(ENCXML,C0CENC,ENCOUT) ;MAP RESULTS FOR ENCOUNTERS
  Q
  ;
@@ -108,16 +110,36 @@ GETTYPE(ZARY,ZTXT,ZCDE,ZSYS) ; EXTRINSIC WHICH RETURNS FALSE IF NO ENCOUNTER TYP
  ; THIS ROUTINE SHOULD BE UPDATED TO SEARCH FOR AN ADMINISTRATIVE CPT CODE
  ; INSTEAD OF JUST THE FIRST ONE IN THE LIST - GPL 1/23/10
  N ZS,ZC
- S ZC=$O(@ZARY@("CPT","")) ; FIRST CPT IN THE VISIT
- S ZS=$G(@ZARY@("CPT",ZC)) ; PIECES OF THE FIRST CPT
- I ZS="" Q 0 ; OOPS NO TEXT FOR THE TYPE QUIT
- S ZTXT=$P(ZS,U,3) ; TEXT OF THE FIRST CPT
- I ZTXT="" Q 0 ; NO ENCOUNTER TYPE FOUND
- S ZCDE=$P($$CPT^C0CPROC(ZS),U,1) ; CPT CODE FOR ENCOUTER
- S ZSYS=""
- I ZCDE'="" S ZSYS="CPT-4" ; ONLY HAVE A CODING SYSTEM IF THERE IS A CODE
+ S ZC="" S ZS=""
+ S ZTXT=""
+ F  S ZC=$O(@ZARY@("CPT",ZC)) Q:ZC=""  D  ; TRY AND FIND A "99" CPT CODE
+ . N ZT
+ . S ZT=$$CPT^C0CPROC(@ZARY@("CPT",ZC)) ; VALUES IN A CPT MULTIPLE
+ . I $E($P(ZT,U,1),1,2)="99" S ZS=ZT ; IS IT AN ADMIN CPT CODE?
+ I ZS'="" D  ; CODED ENCOUNTER TYPE FOUND
+ . S ZTXT=$P(ZS,U,2)_" "_$P(ZS,U,3) ; USE BOTH PIECES FOR THE TYPE
+ . S ZCDE=$P($$CPT^C0CPROC(ZS),U,1) ; CPT CODE FOR ENCOUTER
+ . S ZSYS=""
+ . I ZCDE'="" S ZSYS="CPT-4" ; ONLY HAVE A CODING SYSTEM IF THERE IS A CODE
+ I ZS="" S ZTXT=$$ANYTXT(ZARY) ; TRY AND GET FREE FORM TEXT FROM CPT MULTIPLES
+ I ZTXT="" Q 0 ; FAILED
+ W !,ZTXT
  Q 1 ; SUCCESS
  ;
+ANYTXT(ZVST) ; EXTRINSIC WHICH RETURNS TEXT FROM THE CPT MULTIPLE
+ ; OF A VISIT ARRAY WITHOUT CHECKING THE CPT CODE (THAT HAVING FAILED)
+ ; ZVST IS THE VISIT ARRAY AND IS PASSED BY NAME
+ ; RETURNS TEXT TO USE AS ENCOUNTER TYPE IF ANY
+ N ZI,ZJ
+ S ZI="" S ZJ=""
+ F  S ZI=$O(@ZVST@("CPT",ZI)) Q:ZI=""  D  ; LOOK FOR SOME TEXT TO USE
+ . N ZT
+ . S ZT=$G(@ZVST@("CPT",ZI)) ; LOOK AT THIS CPT MULTIPLE
+ . I $P(ZT,U,2)_" "_$P(ZT,U,3)'=" " S ZJ=$P(ZT,U,2)_" "_$P(ZT,U,3)
+ . ; CONCATENATE PIECE 2 AND 3 OF THE CPT MULTIPLE FOR A TYPE
+ I ZJ="" S ZJ=$G(@ZVST@("CLASS")) ; USE THE NOTE DOCUMENT CLASS FOR ENCOUTNER TYPE
+ Q ZJ
+ ;
 PRV(IARY) ; RETURNS THE PRIMARY PROVIDER FROM THE "PRV" ARRAY PASSED BY NAME
  N ZI,ZR,ZRTN S ZI="" S ZR="" S ZRTN=""
  F  S ZI=$O(@IARY@(ZI)) Q:ZI=""  D  ; FOR EACH PRV SEG

p/C0CXPATH.m

@@ -323,12 +323,14 @@ MKLASD(OUTBUF,INARY) ; CREATE A LOOKASIDE BUFFER FOR MULTILPLES
  . . S ZA=ZA+1
  Q
  ;
-CLEAN(STR) ; extrinsic function; returns string
+CLEAN(STR,TR) ; extrinsic function; returns string
  ;; Removes all non printable characters from a string.
  ;; STR by Value
+ ;; TR IS OPTIONAL TO IMPROVE PERFORMANCE
  N TR,I
- F I=0:1:31 S TR=$G(TR)_$C(I)
- S TR=TR_$C(127)
+ I '$D(TR) D  ;
+ . F I=0:1:31 S TR=$G(TR)_$C(I)
+ . S TR=TR_$C(127)
  QUIT $TR(STR,TR)
  ;
 QUERY(IARY,XPATH,OARY)	 ; RETURNS THE XML ARRAY MATCHING THE XPATH EXPRESSION