Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBCNSM4

IBCNSM4.m

Go to the documentation of this file.
  1. IBCNSM4 ;ALB/AAS - INSURANCE MANAGEMENT, LIST MANAGER INIT ROUTINE ;21-OCT-92
  1. ;;2.0;INTEGRATED BILLING;**56,82,199,276,528**;21-MAR-94;Build 163
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ;also used for IA #4694
  1. ;
  1. % ; -- main entry point
  1. EN ;
  1. D DT^DICRW
  1. K XQORS,VALMEVL,DFN,IBFASTXT
  1. I '$G(IBVIEW) D EN^VALM("IBCNS PATIENT INSURANCE")
  1. I $G(IBVIEW) D EN^VALM("IBCNS VIEW PAT INS")
  1. ENQ K DFN,IBFASTXT,IBEXP1,IBEXP2,IBCDFN,IBFILE,IBI,IBLCNT,IBN,IBCGN,IBCNT,IBDA,IBDIF,IBPPOL,IBDUZ,IBCPOL,IBCDFND1,IBCDFN,IBCNS,IBYE
  1. Q
  1. ;
  1. ;
  1. INIT ; -- set up inital variables
  1. S U="^",VALMCNT=0,VALMBG=1
  1. K ^TMP("IBNSM",$J),^TMP("IBNSMDX",$J)
  1. D:'$D(DFN) PAT G:$D(VALMQUIT) INITQ
  1. D BLD^IBCNSM
  1. ;
  1. INITQ Q
  1. ;
  1. ;
  1. PAT ; -- select patient you are working with
  1. N DIC,DPTNOFZY S DPTNOFZY=1 ;Suppress PATIENT file fuzzy lookups
  1. S DIC(0)="AEQMN",DIC="^DPT(" D ^DIC I +Y<1 S VALMQUIT="" Q
  1. S DFN=+Y
  1. Q
  1. ;
  1. HDR ; -- screen header for initial screen
  1. D PID^VADPT
  1. S VALMHDR(1)="Insurance Management for Patient: "_$E($P($G(^DPT(DFN,0)),"^"),1,20)_" "_$E($G(^(0)),1)_VA("BID")_" "_$$FMTE^XLFDT($P($G(^DPT(DFN,0)),"^",3),5) ; *528 - baa
  1. S VALMHDR(2)=" "
  1. I +$$BUFFER^IBCNBU1(DFN) S VALMHDR(2)="*** Patient has Insurance Buffer Records"
  1. Q
  1. ;
  1. FNL ; -- exit and clean up
  1. K ^TMP("IBNSM",$J),^TMP("IBNSMDX",$J)
  1. ; for patch 56
  1. ;K IBFASTXT
  1. D CLEAN^VALM10
  1. Q