IBACCWLVERUR ;EDE/TAZ - ACC (Automated Community Care) Claims - VIEW ENCOUNTER FOR RUR ; 12-SEP-2023 ; 12-SEP-2023
;;2.0;INTEGRATED BILLING;**770**;21-MAR-94;Build 119
;;Per VA Directive 6402, this routine should not be modified.
Q
;ROUTINE CLONED FROM IBACCWLVE
;NEW ROUTINE IN TPF;IB*2*770vPURPLE;EBILL-5721
;THIS IS A RTN USED TO INITIATE THE 'IBACC WL IBACCRUR VE' LIST TEMPLATE WITH AN RUR ACTION MENU
;ALL THE CODE IS IN IBACCWLVE*. ALL OTHER WORKGROUPS USE THE 'IBACC WL IBACC EE' TEMPLATES WITH NO MENU
;
;EN(IBDA) ;EP -
EN(IBDA,IBFROMVALMDDF) ;TPF;IB*2*770v38;EBILL-5485
N D,D1,SBR,VALMAR,VALMCNT,VALMHDR,VALMSG
;
N IBPARENT S IBPARENT=0 ;TPF;IB*2*770vPURPLE;EBILL-5385 EE DISPLAYS ONE RECORD - CHILD
S IBACCWLVELEV=$G(IBACCWLVELEV)+1
D EN^VALM("IBACC WL IBACCRUR VE")
;
Q
;
HDR ; -- header code
;
Q
;
INIT ;EP -- init variables and list array
;
INITQ ;Exit
;
Q
;
EXIT ; -- exit code
;
Q
;
EXPND ; -- expand code
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBACCWLVERUR 990 printed May 25, 2026@12:10:24 Page 2
IBACCWLVERUR ;EDE/TAZ - ACC (Automated Community Care) Claims - VIEW ENCOUNTER FOR RUR ; 12-SEP-2023 ; 12-SEP-2023
+1 ;;2.0;INTEGRATED BILLING;**770**;21-MAR-94;Build 119
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;ROUTINE CLONED FROM IBACCWLVE
+5 ;NEW ROUTINE IN TPF;IB*2*770vPURPLE;EBILL-5721
+6 ;THIS IS A RTN USED TO INITIATE THE 'IBACC WL IBACCRUR VE' LIST TEMPLATE WITH AN RUR ACTION MENU
+7 ;ALL THE CODE IS IN IBACCWLVE*. ALL OTHER WORKGROUPS USE THE 'IBACC WL IBACC EE' TEMPLATES WITH NO MENU
+8 ;
+9 ;EN(IBDA) ;EP -
EN(IBDA,IBFROMVALMDDF) ;TPF;IB*2*770v38;EBILL-5485
+1 NEW D,D1,SBR,VALMAR,VALMCNT,VALMHDR,VALMSG
+2 ;
+3 ;TPF;IB*2*770vPURPLE;EBILL-5385 EE DISPLAYS ONE RECORD - CHILD
NEW IBPARENT
SET IBPARENT=0
+4 SET IBACCWLVELEV=$GET(IBACCWLVELEV)+1
+5 DO EN^VALM("IBACC WL IBACCRUR VE")
+6 ;
+7 QUIT
+8 ;
HDR ; -- header code
+1 ;
+2 QUIT
+3 ;
INIT ;EP -- init variables and list array
+1 ;
INITQ ;Exit
+1 ;
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 ;
+2 QUIT
+3 ;
EXPND ; -- expand code
+1 QUIT
