| Last change
 on this file since 1132 was             613, checked in by George Lilly, 16 years ago | 
        
          | 
initial load of WorldVistAEHR
 | 
        
          | File size:
            851 bytes | 
      
      
| Line |  | 
|---|
| 1 | IBCICL ;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. | 
|---|
| 12 | EN ; -- main entry point | 
|---|
| 13 | D EN^VALM("IBCI CLAIMSMANAGER CLERK WK") | 
|---|
| 14 | Q | 
|---|
| 15 | ; | 
|---|
| 16 | HDR ; -- header code | 
|---|
| 17 | D HDR^IBCIMG | 
|---|
| 18 | Q | 
|---|
| 19 | ; | 
|---|
| 20 | INIT ; -- init variables and list array | 
|---|
| 21 | D INIT^IBCIMG | 
|---|
| 22 | Q | 
|---|
| 23 | ; | 
|---|
| 24 | HELP ; -- help code | 
|---|
| 25 | S X="?" D DISP^XQORM1 W !! | 
|---|
| 26 | Q | 
|---|
| 27 | ; | 
|---|
| 28 | EXIT ; -- exit code | 
|---|
| 29 | D EXIT^IBCIMG | 
|---|
| 30 | Q | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.