24 lines
892 B
Mathematica
24 lines
892 B
Mathematica
|
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
|