Changeset 786 for ccr/trunk/p

Timestamp:

May 25, 2010, 4:46:35 PM (15 years ago)

Author:

George Lilly

Message:

encounters

File:

• ccr/trunk/p/C0CENC.m (modified) (2 diffs)

ccr/trunk/p/C0CENC.m

@@ -112 +112 @@
  N ZS,ZC
  S ZC="" S ZS=""
- S ZTXT=""
+ S (ZTXT,ZCDE,ZSYS)=""
  F  S ZC=$O(@ZARY@("CPT",ZC)) Q:ZC=""  D  ; TRY AND FIND A "99" CPT CODE
  . N ZT
@@ -131 +131 @@
  ; 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 ZK,ZL
+ S ZK="" S ZL=""
+ F  S ZK=$O(@ZVST@("CPT",ZK)) Q:ZK=""  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)
+ . S ZT=$G(@ZVST@("CPT",ZK)) ; LOOK AT THIS CPT MULTIPLE
+ . I $P(ZT,U,2)_" "_$P(ZT,U,3)'=" " S ZL=$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
+ I ZL="" S ZL=$G(@ZVST@("CLASS")) ; USE THE NOTE DOCUMENT CLASS FOR ENCOUTNER TYPE
+ Q ZL
  ;
 PRV(IARY) ; RETURNS THE PRIMARY PROVIDER FROM THE "PRV" ARRAY PASSED BY NAME