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 ---[H[J[2J[HIBCIBW 985 printed Nov 22, 2024@17:23:14 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 ;
