source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCICL.m@ 699

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

initial load of WorldVistAEHR

File size: 851 bytes
Line 
1IBCICL ;DSI/JSR - IBCI CLAIMS MANAGER CLERK 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 is in
6 ; bill edit screen.
7 ; Clerk Mode is active under the following conditions:
8 ; 1) When the user does not have IBCI Security Key
9 ; 2) Only during the Bill Edit process -- part of core IB.
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 CLERK WK")
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 D EXIT^IBCIMG
30 Q
Note: See TracBrowser for help on using the repository browser.