IBNCPDPL ;DALOI/SS - for ECME RESEARCH SCREEN ELIGIBILITY VIEW ;3/6/08 16:22
;;2.0;INTEGRATED BILLING;**276,384**;21-MAR-94;Build 74
;; Per VHA Directive 2004-038, this routine should not be modified.
;
EN ;
Q
;
; -- main entry point for IBNCPDP LSTMN ELIGIBILITY
;entry point for ECME "VE View Eligibility" menu option
;of the main ECME User Screen
EN1(DFN) ;
I $G(DFN)>0 D EN^VALM("IBNCPDP LSTMN ELIGIBILITY")
Q
;
HDR ; -- header code
D HDR^IBJTEA
Q
;
INIT ; -- init variables and list array
;D INIT^IBJTEA
;borrowed from INIT^IBJTEA with some changes
K ^TMP("IBJTEA",$J)
I '$G(DFN) S VALMQUIT="" Q
D BLD^IBJTEA
Q
;
HELP ; -- help code
D HELP^IBJTEA
Q
;
EXIT ; -- exit code
D EXIT^IBJTEA
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBNCPDPL 788 printed Nov 22, 2024@17:34:49 Page 2
IBNCPDPL ;DALOI/SS - for ECME RESEARCH SCREEN ELIGIBILITY VIEW ;3/6/08 16:22
+1 ;;2.0;INTEGRATED BILLING;**276,384**;21-MAR-94;Build 74
+2 ;; Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
EN ;
+1 QUIT
+2 ;
+3 ; -- main entry point for IBNCPDP LSTMN ELIGIBILITY
+4 ;entry point for ECME "VE View Eligibility" menu option
+5 ;of the main ECME User Screen
EN1(DFN) ;
+1 IF $GET(DFN)>0
DO EN^VALM("IBNCPDP LSTMN ELIGIBILITY")
+2 QUIT
+3 ;
HDR ; -- header code
+1 DO HDR^IBJTEA
+2 QUIT
+3 ;
INIT ; -- init variables and list array
+1 ;D INIT^IBJTEA
+2 ;borrowed from INIT^IBJTEA with some changes
+3 KILL ^TMP("IBJTEA",$JOB)
+4 IF '$GET(DFN)
SET VALMQUIT=""
QUIT
+5 DO BLD^IBJTEA
+6 QUIT
+7 ;
HELP ; -- help code
+1 DO HELP^IBJTEA
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 DO EXIT^IBJTEA
+2 QUIT
+3 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
