| 
            Last change
 on this file since 891 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.