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

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1IBCNSM4 ;ALB/AAS - INSURANCE MANAGEMENT, LIST MANAGER INIT ROUTINE ;21-OCT-92
2 ;;2.0;INTEGRATED BILLING;**56,82,199,276**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ;also used for IA #4694
6 ;
7% ; -- main entry point
8EN ;
9 D DT^DICRW
10 K XQORS,VALMEVL,DFN,IBFASTXT
11 I '$G(IBVIEW) D EN^VALM("IBCNS PATIENT INSURANCE")
12 I $G(IBVIEW) D EN^VALM("IBCNS VIEW PAT INS")
13ENQ K DFN,IBFASTXT,IBEXP1,IBEXP2,IBCDFN,IBFILE,IBI,IBLCNT,IBN,IBCGN,IBCNT,IBDA,IBDIF,IBPPOL,IBDUZ,IBCPOL,IBCDFND1,IBCDFN,IBCNS,IBYE
14 Q
15 ;
16 ;
17INIT ; -- set up inital variables
18 S U="^",VALMCNT=0,VALMBG=1
19 K ^TMP("IBNSM",$J),^TMP("IBNSMDX",$J)
20 D:'$D(DFN) PAT G:$D(VALMQUIT) INITQ
21 D BLD^IBCNSM
22 ;
23INITQ Q
24 ;
25 ;
26PAT ; -- select patient you are working with
27 N DPTNOFZY S DPTNOFZY=1 ;Suppress PATIENT file fuzzy lookups
28 S DIC(0)="AEQMN",DIC="^DPT(" D ^DIC I +Y<1 S VALMQUIT="" Q
29 S DFN=+Y
30 Q
31 ;
32HDR ; -- screen header for initial screen
33 D PID^VADPT
34 S VALMHDR(1)="Insurance Management for Patient: "_$E($P($G(^DPT(DFN,0)),"^"),1,20)_" "_$E($G(^(0)),1)_VA("BID")
35 S VALMHDR(2)=" "
36 I +$$BUFFER^IBCNBU1(DFN) S VALMHDR(2)="*** Patient has Insurance Buffer Records"
37 Q
38 ;
39FNL ; -- exit and clean up
40 K ^TMP("IBNSM",$J),^TMP("IBNSMDX",$J)
41 ; for patch 56
42 ;K IBFASTXT
43 D CLEAN^VALM10
44 Q
Note: See TracBrowser for help on using the repository browser.