source: FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPRF3.m@ 1394

Last change on this file since 1394 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 892 bytes
Line 
1TIUPRF3 ; SLC/JMH - More Modules for Patient Record Flags ; 4/18/05
2 ;;1.0;TEXT INTEGRATION UTILITIES;**184**;Jun 20, 1997
3 ;
4LKDETAIL(TIUDA,TIUL) ; Add note's PRF LINK info to Detail Disp array TIUL
5 N TIUTTL,FLAGNM,LINE,TIULINK
6 N HASFLAG
7 S TIUL=TIUL+1 D BLANK^TIUSRV(TIUL) S TIUL=TIUL+1
8 D SET^TIUSRV(TIUL,1,"Linked PRF Action ",$G(IORVON),$G(IORVOFF))
9 S TIUTTL=$P(^TIU(8925,TIUDA,0),U),HASFLAG=1
10 S LINE="Flag: "
11 S FLAGNM=$$FNDFLAG^TIUPRFL(TIUTTL)
12 I 'FLAGNM S FLAGNM="This PRF Note Title is not associated with a Flag.",HASFLAG=0
13 I HASFLAG S FLAGNM=$P(FLAGNM,U,2)
14 S LINE=LINE_FLAGNM
15 S TIUL=TIUL+1
16 D SET^TIUSRV(TIUL,13,"Flag: "_FLAGNM) Q:'HASFLAG
17 S LINE="Flag Action: "
18 S TIULINK=$$GETLINK^DGPFAPI1(TIUDA)
19 I 'TIULINK S LINE=LINE_"Note not linked." D SET^TIUSRV(TIUL+1,6,LINE) S TIUL=TIUL+1 Q
20 S LINE=LINE_$$CFLDACT^TIUPRFL(TIUDA)
21 D SET^TIUSRV(TIUL+1,6,LINE)
22 S TIUL=TIUL+1
23 Q
Note: See TracBrowser for help on using the repository browser.