- 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 Mar 13, 2025@21:29:47 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 ;
