IBCICL.m

IBCICL ;DSI/JSR - IBCI CLAIMS MANAGER CLERK 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 is in

 ;  bill edit screen.

 ;  Clerk Mode is active under the following conditions:

 ;  1) When the user does not have IBCI Security Key

 ;  2) Only during the Bill Edit process -- part of core IB.

 ;  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 CLERK WK")

 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

 D EXIT^IBCIMG

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBCICL   881     printed  Apr 09, 2024@21:27:06                                                                                                                                                                                                       Page 2

IBCICL    ;DSI/JSR - IBCI CLAIMS MANAGER CLERK 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 is in

 +5       ;  bill edit screen.

 +6       ;  Clerk Mode is active under the following conditions:

 +7       ;  1) When the user does not have IBCI Security Key

 +8       ;  2) Only during the Bill Edit process -- part of core IB.

 +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 CLERK WK")

 +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        DO EXIT^IBCIMG

 +2        QUIT