source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCIBW.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 952 bytes
Line 
1IBCIBW ;DSI/JSR - IBCI CLAIMS MANAGER MGR WORKSHEET ;6-MAR-2001
2 ;;2.0;INTEGRATED BILLING;**161**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;; Program Description
5 ; This routine is a ListManager routine envoked when the user
6 ; selects to view the error messages for a claim in browse mode only.
7 ; Browse Mode is active during the following conditions:
8 ; 1) Test sending claims to CM
9 ; 2) When user selects to print a ClaimsManager Worksheet.
10 ; The data is extracted using ^IBCIWK which envokes this LM template.
11 ; The visual formating is done in ^IBCIMG.
12EN ; -- main entry point
13 D EN^VALM("IBCI CLAIMSMANAGER WK BROWSE")
14 Q
15 ;
16HDR ; -- header code
17 D HDR^IBCIMG
18 Q
19 ;
20INIT ; -- init variables and list array
21 D INIT^IBCIMG
22 Q
23 ;
24HELP ; -- help code
25 S X="?" D DISP^XQORM1 W !!
26 Q
27 ;
28EXIT ; -- exit code
29 K ^TMP("IBCIMG",$J),^TMP("IBCIMG1",$J)
30 K ^TMP("IBCILM",$J)
31 D CLEAR^VALM1,CLEAN^VALM10
32 Q
33 ;
Note: See TracBrowser for help on using the repository browser.