Routine: BVPTIU

BVPTIU ; IHS/ITSC/LJF - CALLS TO TIU ;

 ;;1.0;VIEW PATIENT RECORD;;NOV 17, 2004

EN ;EP; generic action to enter TIU package

 NEW VALMY,Y

 D FULL^VALM1

 I '$D(^XUSEC("TIUZCWAD",DUZ)) D VIEW Q   ;go to view, if user can't access CWAD

 D MSG^BVPU($$SP(20)_"CLINICAL NOTES",2,0,0)

 S Y=$$READ^BVPU("SO^1:View/Edit Documents;2:CWAD Display","Choose Action")

 I Y=1 D VIEW Q

 I Y=2 D CWAD^TIULX Q

VIEW ; -- view and edit documents

 I '$D(^XUSEC("TIUZCLIN",DUZ)) D  ;if user not have access to TIU

 . NEW ORVP,TIUCHVW

 . S ORVP=DFN,TIUCHVW=1

 . D EN^VALM("TIU REVIEW SCREEN READ ONLY")

 E  S TIUZIHS=DFN D MAIN^BTIURPT

 K ^TMP("TIUR",$J),^TMP("TIURIDX",$J)

 K TIUF,TIUPRM0,TIUPRM1

PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data

 Q $E(DATA_$$REPEAT^XLFSTR(" ",LENGTH),1,LENGTH)

SP(NUM) ; -- SUBRTN to pad spaces

 Q $$PAD(" ",NUM)

BVPTIU    ; IHS/ITSC/LJF - CALLS TO TIU ;

 +1       ;;1.0;VIEW PATIENT RECORD;;NOV 17, 2004

 +2       ;

EN        ;EP; generic action to enter TIU package

 +1        NEW VALMY,Y

 +2        DO FULL^VALM1

 +3       ;

 +4       ;go to view, if user can't access CWAD

           IF '$DATA(^XUSEC("TIUZCWAD",DUZ))

               DO VIEW

               QUIT

 +5       ;

 +6        DO MSG^BVPU($$SP(20)_"CLINICAL NOTES",2,0,0)

 +7        SET Y=$$READ^BVPU("SO^1:View/Edit Documents;2:CWAD Display","Choose Action")

 +8        IF Y=1

               DO VIEW

               QUIT

 +9        IF Y=2

               DO CWAD^TIULX

               QUIT

 +10       QUIT

 +11      ;

VIEW      ; -- view and edit documents

 +1       ;if user not have access to TIU

           IF '$DATA(^XUSEC("TIUZCLIN",DUZ))

               Begin DoDot:1

 +2                NEW ORVP,TIUCHVW

 +3                SET ORVP=DFN

                   SET TIUCHVW=1

 +4                DO EN^VALM("TIU REVIEW SCREEN READ ONLY")

               End DoDot:1

 +5       IF '$TEST

               SET TIUZIHS=DFN

               DO MAIN^BTIURPT

 +6        KILL ^TMP("TIUR",$JOB),^TMP("TIURIDX",$JOB)

 +7        KILL TIUF,TIUPRM0,TIUPRM1

 +8        QUIT

 +9       ;

PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data

 +1        QUIT $EXTRACT(DATA_$$REPEAT^XLFSTR(" ",LENGTH),1,LENGTH)

 +2       ;

SP(NUM)   ; -- SUBRTN to pad spaces

 +1        QUIT $$PAD(" ",NUM)

BVPTIU.m