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

This commit is contained in:
jbell 2017-03-02 19:43:54 +00:00
parent 992ab05d4d
commit d4da486f57
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
VWREGIT.m
View File

@ -98,6 +98,7 @@ NPT(RESULT,TNAME) ;
K RESULT S (FNUM,FCAP)="" K RESULT S (FNUM,FCAP)=""
F I=1:1:$L(FIELDS,";")-1 D F I=1:1:$L(FIELDS,";")-1 D
. S F=$P(FIELDS,";",I) . 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 . 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 FNAME=$S($L($G(FNAME)):FNAME,$L($G(^DD(2,F,.1))):$P(^(.1),"^"),1:$P(^DD(2,F,0),"^"))
. S FVALUE="" ;Patient Data . S FVALUE="" ;Patient Data