TIUPRF3 ; SLC/JMH - More Modules for Patient Record Flags ; 4/18/05
;;1.0;TEXT INTEGRATION UTILITIES;**184**;Jun 20, 1997
;
LKDETAIL(TIUDA,TIUL) ; Add note's PRF LINK info to Detail Disp array TIUL
N TIUTTL,FLAGNM,LINE,TIULINK
N HASFLAG
S TIUL=TIUL+1 D BLANK^TIUSRV(TIUL) S TIUL=TIUL+1
D SET^TIUSRV(TIUL,1,"Linked PRF Action ",$G(IORVON),$G(IORVOFF))
S TIUTTL=$P(^TIU(8925,TIUDA,0),U),HASFLAG=1
S LINE="Flag: "
S FLAGNM=$$FNDFLAG^TIUPRFL(TIUTTL)
I 'FLAGNM S FLAGNM="This PRF Note Title is not associated with a Flag.",HASFLAG=0
I HASFLAG S FLAGNM=$P(FLAGNM,U,2)
S LINE=LINE_FLAGNM
S TIUL=TIUL+1
D SET^TIUSRV(TIUL,13,"Flag: "_FLAGNM) Q:'HASFLAG
S LINE="Flag Action: "
S TIULINK=$$GETLINK^DGPFAPI1(TIUDA)
I 'TIULINK S LINE=LINE_"Note not linked." D SET^TIUSRV(TIUL+1,6,LINE) S TIUL=TIUL+1 Q
S LINE=LINE_$$CFLDACT^TIUPRFL(TIUDA)
D SET^TIUSRV(TIUL+1,6,LINE)
S TIUL=TIUL+1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPRF3 915 printed Dec 13, 2024@02:43:43 Page 2
TIUPRF3 ; SLC/JMH - More Modules for Patient Record Flags ; 4/18/05
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**184**;Jun 20, 1997
+2 ;
LKDETAIL(TIUDA,TIUL) ; Add note's PRF LINK info to Detail Disp array TIUL
+1 NEW TIUTTL,FLAGNM,LINE,TIULINK
+2 NEW HASFLAG
+3 SET TIUL=TIUL+1
DO BLANK^TIUSRV(TIUL)
SET TIUL=TIUL+1
+4 DO SET^TIUSRV(TIUL,1,"Linked PRF Action ",$GET(IORVON),$GET(IORVOFF))
+5 SET TIUTTL=$PIECE(^TIU(8925,TIUDA,0),U)
SET HASFLAG=1
+6 SET LINE="Flag: "
+7 SET FLAGNM=$$FNDFLAG^TIUPRFL(TIUTTL)
+8 IF 'FLAGNM
SET FLAGNM="This PRF Note Title is not associated with a Flag."
SET HASFLAG=0
+9 IF HASFLAG
SET FLAGNM=$PIECE(FLAGNM,U,2)
+10 SET LINE=LINE_FLAGNM
+11 SET TIUL=TIUL+1
+12 DO SET^TIUSRV(TIUL,13,"Flag: "_FLAGNM)
if 'HASFLAG
QUIT
+13 SET LINE="Flag Action: "
+14 SET TIULINK=$$GETLINK^DGPFAPI1(TIUDA)
+15 IF 'TIULINK
SET LINE=LINE_"Note not linked."
DO SET^TIUSRV(TIUL+1,6,LINE)
SET TIUL=TIUL+1
QUIT
+16 SET LINE=LINE_$$CFLDACT^TIUPRFL(TIUDA)
+17 DO SET^TIUSRV(TIUL+1,6,LINE)
+18 SET TIUL=TIUL+1
+19 QUIT
