IBCIBW.m

IBCIBW ;DSI/JSR - IBCI CLAIMS MANAGER MGR WORKSHEET ;6-MAR-2001

 ;;2.0;INTEGRATED BILLING;**161**;21-MAR-94

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ;; Program Description

 ;  This routine is a ListManager routine envoked when the user

 ;  selects to view the error messages for a claim in browse mode only.

 ;  Browse Mode is active during the following conditions:

 ;  1) Test sending claims to CM

 ;  2) When user selects to print a ClaimsManager Worksheet.

 ;  The data is extracted using ^IBCIWK which envokes this LM template.

 ;  The visual formating is done in ^IBCIMG.

EN ; -- main entry point

 D EN^VALM("IBCI CLAIMSMANAGER WK BROWSE")

 Q

 ;

HDR ; -- header code

 D HDR^IBCIMG

 Q

 ;

INIT ; -- init variables and list array

 D INIT^IBCIMG

 Q

 ;

HELP ; -- help code

 S X="?" D DISP^XQORM1 W !!

 Q

 ;

EXIT ; -- exit code

 K ^TMP("IBCIMG",$J),^TMP("IBCIMG1",$J)

 K ^TMP("IBCILM",$J)

 D CLEAR^VALM1,CLEAN^VALM10

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBCIBW   985     printed  Apr 09, 2024@21:32:26                                                                                                                                                                                                       Page 2

IBCIBW    ;DSI/JSR - IBCI CLAIMS MANAGER MGR WORKSHEET ;6-MAR-2001

 +1       ;;2.0;INTEGRATED BILLING;**161**;21-MAR-94

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;; Program Description

 +4       ;  This routine is a ListManager routine envoked when the user

 +5       ;  selects to view the error messages for a claim in browse mode only.

 +6       ;  Browse Mode is active during the following conditions:

 +7       ;  1) Test sending claims to CM

 +8       ;  2) When user selects to print a ClaimsManager Worksheet.

 +9       ;  The data is extracted using ^IBCIWK which envokes this LM template.

 +10      ;  The visual formating is done in ^IBCIMG.

EN        ; -- main entry point

 +1        DO EN^VALM("IBCI CLAIMSMANAGER WK BROWSE")

 +2        QUIT 

 +3       ;

HDR       ; -- header code

 +1        DO HDR^IBCIMG

 +2        QUIT 

 +3       ;

INIT      ; -- init variables and list array

 +1        DO INIT^IBCIMG

 +2        QUIT 

 +3       ;

HELP      ; -- help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ; -- exit code

 +1        KILL ^TMP("IBCIMG",$JOB),^TMP("IBCIMG1",$JOB)

 +2        KILL ^TMP("IBCILM",$JOB)

 +3        DO CLEAR^VALM1

           DO CLEAN^VALM10

 +4        QUIT 

 +5       ;