iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

encounters

This commit is contained in:
george 2010-05-25 20:46:35 +00:00
parent 99958aa11e
commit f98ad2dfdf
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
p/C0CENC.m
View File

@ -111,7 +111,7 @@ GETTYPE(ZARY,ZTXT,ZCDE,ZSYS) ; EXTRINSIC WHICH RETURNS FALSE IF NO ENCOUNTER TYP
; INSTEAD OF JUST THE FIRST ONE IN THE LIST - GPL 1/23/10 ; INSTEAD OF JUST THE FIRST ONE IN THE LIST - GPL 1/23/10
N ZS,ZC N ZS,ZC
S ZC="" S ZS="" 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 F S ZC=$O(@ZARY@("CPT",ZC)) Q:ZC="" D ; TRY AND FIND A "99" CPT CODE
. N ZT . N ZT
. S ZT=$$CPT^C0CPROC(@ZARY@("CPT",ZC)) ; VALUES IN A CPT MULTIPLE . S ZT=$$CPT^C0CPROC(@ZARY@("CPT",ZC)) ; VALUES IN A CPT MULTIPLE
@ -130,15 +130,15 @@ ANYTXT(ZVST) ; EXTRINSIC WHICH RETURNS TEXT FROM THE CPT MULTIPLE
; OF A VISIT ARRAY WITHOUT CHECKING THE CPT CODE (THAT HAVING FAILED) ; OF A VISIT ARRAY WITHOUT CHECKING THE CPT CODE (THAT HAVING FAILED)
; ZVST IS THE VISIT ARRAY AND IS PASSED BY NAME ; ZVST IS THE VISIT ARRAY AND IS PASSED BY NAME
; RETURNS TEXT TO USE AS ENCOUNTER TYPE IF ANY ; RETURNS TEXT TO USE AS ENCOUNTER TYPE IF ANY
N ZI,ZJ N ZK,ZL
S ZI="" S ZJ="" S ZK="" S ZL=""
F S ZI=$O(@ZVST@("CPT",ZI)) Q:ZI="" D ; LOOK FOR SOME TEXT TO USE F S ZK=$O(@ZVST@("CPT",ZK)) Q:ZK="" D ; LOOK FOR SOME TEXT TO USE
. N ZT . N ZT
. S ZT=$G(@ZVST@("CPT",ZI)) ; LOOK AT THIS CPT MULTIPLE . S ZT=$G(@ZVST@("CPT",ZK)) ; LOOK AT THIS CPT MULTIPLE
. I $P(ZT,U,2)_" "_$P(ZT,U,3)'=" " S ZJ=$P(ZT,U,2)_" "_$P(ZT,U,3) . 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 . ; 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 I ZL="" S ZL=$G(@ZVST@("CLASS")) ; USE THE NOTE DOCUMENT CLASS FOR ENCOUTNER TYPE
Q ZJ Q ZL
; ;
PRV(IARY) ; RETURNS THE PRIMARY PROVIDER FROM THE "PRV" ARRAY PASSED BY NAME PRV(IARY) ; RETURNS THE PRIMARY PROVIDER FROM THE "PRV" ARRAY PASSED BY NAME
N ZI,ZR,ZRTN S ZI="" S ZR="" S ZRTN="" N ZI,ZR,ZRTN S ZI="" S ZR="" S ZRTN=""