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 ---[H[J[2J[HIBCICL 881 printed Nov 22, 2024@17:23:15 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
