source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBNCPDPV.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 628 bytes
Line 
1IBNCPDPV ;DALOI/SS - for ECME SCREEN VIEW PATIENT INSURANCE ;28-OCT-05
2 ;;2.0;INTEGRATED BILLING;**276**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ; -- main entry point
5 Q
6INSVIEW ;
7 D EN^VALM("IBCNS VIEW INS CO")
8 S VALMBCK="R"
9 Q
10 ;
11EN1(DFN) ;
12 I $G(DFN)'>0 Q
13 D EN
14 Q
15EN ; -- main entry point for IBNCPDP VIEW PAT INS
16 D EN^VALM("IBNCPDP VIEW PAT INS")
17 Q
18 ;
19HDR ; -- header code
20 D HDR^IBCNSM4
21 Q
22 ;
23INIT ; -- init variables and list array
24 D INIT^IBCNSM4
25 Q
26 ;
27HELP ; -- help code
28 S X="?" D DISP^XQORM1 W !!
29 Q
30 ;
31EXIT ; -- exit code
32 D FNL^IBCNSM4
33 Q
34 ;
35EXPND ; -- expand code
36 Q
37 ;
Note: See TracBrowser for help on using the repository browser.