IBNCPDPV ;DALOI/SS - for ECME SCREEN VIEW PATIENT INSURANCE ;28-OCT-05
;;2.0;INTEGRATED BILLING;**276**;21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
; -- main entry point
Q
INSVIEW ;
D EN^VALM("IBCNS VIEW INS CO")
S VALMBCK="R"
Q
;
EN1(DFN) ;
I $G(DFN)'>0 Q
D EN
Q
EN ; -- main entry point for IBNCPDP VIEW PAT INS
D EN^VALM("IBNCPDP VIEW PAT INS")
Q
;
HDR ; -- header code
D HDR^IBCNSM4
Q
;
INIT ; -- init variables and list array
D INIT^IBCNSM4
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
D FNL^IBCNSM4
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBNCPDPV 665 printed Dec 13, 2024@02:24:49 Page 2
IBNCPDPV ;DALOI/SS - for ECME SCREEN VIEW PATIENT INSURANCE ;28-OCT-05
+1 ;;2.0;INTEGRATED BILLING;**276**;21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ; -- main entry point
+4 QUIT
INSVIEW ;
+1 DO EN^VALM("IBCNS VIEW INS CO")
+2 SET VALMBCK="R"
+3 QUIT
+4 ;
EN1(DFN) ;
+1 IF $GET(DFN)'>0
QUIT
+2 DO EN
+3 QUIT
EN ; -- main entry point for IBNCPDP VIEW PAT INS
+1 DO EN^VALM("IBNCPDP VIEW PAT INS")
+2 QUIT
+3 ;
HDR ; -- header code
+1 DO HDR^IBCNSM4
+2 QUIT
+3 ;
INIT ; -- init variables and list array
+1 DO INIT^IBCNSM4
+2 QUIT
+3 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 DO FNL^IBCNSM4
+2 QUIT
+3 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
