BTIUBR.m

BTIUBR ; IHS/ITSC/LJF - Browse Action Subroutines ;

 ;;1.0;TEXT INTEGRATION UTILITIES;;NOV 04, 2004

 ; Called by ^TIUBR - IHS mods to browse display

 ;

LT1 ;EP; -- set unsigned data into display

 NEW X S X=$$GET1^DIQ(8925,+TIUDA,.05)

 I (X="UNSIGNED")!(X="UNCOSIGNED") D

 . S TIUL=TIUL+1

 . S @VALMAR@(TIUL,0)=$$UNSIG^BTIURPT(+TIUDA,X)

 Q

 ;

 ;

LT2 ;EP; -- sets cosigner data into display

 S TIUY=$$SETSTR^VALM1("COSIGNER REQ: "_TIUREC(8925,+TIUDA,1506),$G(TIUY),1,32)

 S TIUY=$$SETSTR^VALM1("EXP COSIGNER: "_TIUREC(8925,+TIUDA,1208),$G(TIUY),36,40)

 S TIUL=TIUL+1,TIUY=""

 S @VALMAR@(TIUL,0)=TIUY

 Q

 ;

 ;

LT3 ;EP; -- sets visit data into display

 S TIUL=+$G(TIUL)+1,@VALMAR@(TIUL,0)=$$VLINE^BTIUPCC(+TIUDA)

 S TIUL=+$G(TIUL)+1,@VALMAR@(TIUL,0)=$$REPEAT^XLFSTR("-",78)

 Q

 ;

 ;

 ;

BLANKS(LINE) ;EP; -- returns line with blanks highlighted ;IHS added

 NEW ARRAY,BLANK

 I '$D(TIUPRM1) D SETPARM^TIULE

 S BLANK=$P(TIUPRM1,U,6) I BLANK="" Q LINE

 S ARRAY(BLANK)=IORVON_BLANK_IORVOFF

 Q $$REPLACE^XLFSTR(LINE,.ARRAY)

BTIUBR    ; IHS/ITSC/LJF - Browse Action Subroutines ;

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;;NOV 04, 2004

 +2       ; Called by ^TIUBR - IHS mods to browse display

 +3       ;

LT1       ;EP; -- set unsigned data into display

 +1        NEW X

           SET X=$$GET1^DIQ(8925,+TIUDA,.05)

 +2        IF (X="UNSIGNED")!(X="UNCOSIGNED")

               Begin DoDot:1

 +3                SET TIUL=TIUL+1

 +4                SET @VALMAR@(TIUL,0)=$$UNSIG^BTIURPT(+TIUDA,X)

               End DoDot:1

 +5        QUIT 

 +6       ;

 +7       ;

LT2       ;EP; -- sets cosigner data into display

 +1        SET TIUY=$$SETSTR^VALM1("COSIGNER REQ: "_TIUREC(8925,+TIUDA,1506),$GET(TIUY),1,32)

 +2        SET TIUY=$$SETSTR^VALM1("EXP COSIGNER: "_TIUREC(8925,+TIUDA,1208),$GET(TIUY),36,40)

 +3        SET TIUL=TIUL+1

           SET TIUY=""

 +4        SET @VALMAR@(TIUL,0)=TIUY

 +5        QUIT 

 +6       ;

 +7       ;

LT3       ;EP; -- sets visit data into display

 +1        SET TIUL=+$GET(TIUL)+1

           SET @VALMAR@(TIUL,0)=$$VLINE^BTIUPCC(+TIUDA)

 +2        SET TIUL=+$GET(TIUL)+1

           SET @VALMAR@(TIUL,0)=$$REPEAT^XLFSTR("-",78)

 +3        QUIT 

 +4       ;

 +5       ;

 +6       ;

BLANKS(LINE) ;EP; -- returns line with blanks highlighted ;IHS added

 +1        NEW ARRAY,BLANK

 +2        IF '$DATA(TIUPRM1)

               DO SETPARM^TIULE

 +3        SET BLANK=$PIECE(TIUPRM1,U,6)

           IF BLANK=""

               QUIT LINE

 +4        SET ARRAY(BLANK)=IORVON_BLANK_IORVOFF

 +5        QUIT $$REPLACE^XLFSTR(LINE,.ARRAY)