TIUPRF3.m

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 ---TIUPRF3   915     printed  Apr 09, 2024@21:41:13                                                                                                                                                                                                      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