Changeset 1786


Ignore:
Timestamp:
Mar 2, 2017, 2:43:54 PM (8 years ago)
Author:
Jim B.
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • VWGUIRegistration/trunk/VWREGIT.m

    r1779 r1786  
    9999        F I=1:1:$L(FIELDS,";")-1 D
    100100        . S F=$P(FIELDS,";",I)
     101        . Q:'$D(^DD(2,F))  ;Not existing in this patient file
    101102        . I F["~" S FNUM=+F,FNAME=$P($P(F,"~"),FNUM,2),F=FNUM K FNUM
    102103        . S FNAME=$S($L($G(FNAME)):FNAME,$L($G(^DD(2,F,.1))):$P(^(.1),"^"),1:$P(^DD(2,F,0),"^"))
Note: See TracChangeset for help on using the changeset viewer.