Changeset 1786 for VWGUIRegistration/trunk/VWREGIT.m

Timestamp:

Mar 2, 2017, 2:43:54 PM (7 years ago)

Author:

Jim B.

Message:

 

File:

• VWGUIRegistration/trunk/VWREGIT.m (modified) (1 diff)

VWGUIRegistration/trunk/VWREGIT.m

@@ -99 +99 @@
         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),"^"))