2017-03-02 19:43:54 +00:00 · 2017-03-02 19:43:54 +00:00 · d4da486f57
parent 992ab05d4d
commit d4da486f57
1 changed files with 1 additions and 0 deletions
--- a/VWREGIT.m
+++ b/VWREGIT.m
@ -98,6 +98,7 @@ NPT(RESULT,TNAME)	;
 	K RESULT S (FNUM,FCAP)=""
 	F I=1:1:$L(FIELDS,";")-1 D
 	. S F=$P(FIELDS,";",I)
+	. Q:'$D(^DD(2,F))  ;Not existing in this patient file
 	. I F["~" S FNUM=+F,FNAME=$P($P(F,"~"),FNUM,2),F=FNUM K FNUM
 	. S FNAME=$S($L($G(FNAME)):FNAME,$L($G(^DD(2,F,.1))):$P(^(.1),"^"),1:$P(^DD(2,F,0),"^"))
 	. S FVALUE=""  ;Patient Data