| 1 | TIUPRF3 ; SLC/JMH - More Modules for Patient Record Flags ; 4/18/05
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**184**;Jun 20, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | LKDETAIL(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
|
|---|
