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

IBINI04J.m

Go to the documentation of this file. 
  1. IBINI04J	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(355.2)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
  1. Q	Q
  1. 	;;^DIC(355.2,0,"GL")
  1. 	;;=^IBE(355.2,
  1. 	;;^DIC("B","TYPE OF INSURANCE COVERAGE",355.2)
  1. 	;;=
  1. 	;;^DIC(355.2,"%D",0)
  1. 	;;=^^8^8^2940214^^^^
  1. 	;;^DIC(355.2,"%D",1,0)
  1. 	;;=This file contains the types of coverages that an insurance company is
  1. 	;;^DIC(355.2,"%D",2,0)
  1. 	;;=generally associated with.  If an insurer is identified with more than 
  1. 	;;^DIC(355.2,"%D",3,0)
  1. 	;;=one type of coverage then  it should be identified as HEALTH INSURANCE as
  1. 	;;^DIC(355.2,"%D",4,0)
  1. 	;;=this encompases all.
  1. 	;;^DIC(355.2,"%D",5,0)
  1. 	;;= 
  1. 	;;^DIC(355.2,"%D",6,0)
  1. 	;;=Sites should not add, edit or delete entries from this file.
  1. 	;;^DIC(355.2,"%D",7,0)
  1. 	;;= 
  1. 	;;^DIC(355.2,"%D",8,0)
  1. 	;;=Per VHA Directive 10-93-142, this file definition should not be modified.
  1. 	;;^DD(355.2,0)
  1. 	;;=FIELD^^10^3
  1. 	;;^DD(355.2,0,"DDA")
  1. 	;;=N
  1. 	;;^DD(355.2,0,"DT")
  1. 	;;=2930603
  1. 	;;^DD(355.2,0,"IX","B",355.2,.01)
  1. 	;;=
  1. 	;;^DD(355.2,0,"IX","C",355.2,.02)
  1. 	;;=
  1. 	;;^DD(355.2,0,"NM","TYPE OF INSURANCE COVERAGE")
  1. 	;;=
  1. 	;;^DD(355.2,0,"PT",36,.13)
  1. 	;;=
  1. 	;;^DD(355.2,.01,0)
  1. 	;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  1. 	;;^DD(355.2,.01,1,0)
  1. 	;;=^.1
  1. 	;;^DD(355.2,.01,1,1,0)
  1. 	;;=355.2^B
  1. 	;;^DD(355.2,.01,1,1,1)
  1. 	;;=S ^IBE(355.2,"B",$E(X,1,30),DA)=""
  1. 	;;^DD(355.2,.01,1,1,2)
  1. 	;;=K ^IBE(355.2,"B",$E(X,1,30),DA)
  1. 	;;^DD(355.2,.01,3)
  1. 	;;=This is the name of the type of policy.  Answer must be 3-30 characters in length.
  1. 	;;^DD(355.2,.01,21,0)
  1. 	;;=^^16^16^2940213^^^^
  1. 	;;^DD(355.2,.01,21,1,0)
  1. 	;;=This is name of the type of coverage that an insurance company generally
  1. 	;;^DD(355.2,.01,21,2,0)
  1. 	;;=provides.  The entries in this file are a limited set of choices
  1. 	;;^DD(355.2,.01,21,3,0)
  1. 	;;=that are exported with the IB package.  The entries may have special
  1. 	;;^DD(355.2,.01,21,4,0)
  1. 	;;=meaning interanally in the billing package.
  1. 	;;^DD(355.2,.01,21,5,0)
  1. 	;;= 
  1. 	;;^DD(355.2,.01,21,6,0)
  1. 	;;=If this insurance carrier provides only one type of coverage then select
  1. 	;;^DD(355.2,.01,21,7,0)
  1. 	;;=the entry that best describes this carriers' type of coverage.  If this
  1. 	;;^DD(355.2,.01,21,8,0)
  1. 	;;=carrier provides more than one type of coverage then select HEALTH
  1. 	;;^DD(355.2,.01,21,9,0)
  1. 	;;=INSURANCE.  The default answer if left unanswered is Health Insurance.
  1. 	;;^DD(355.2,.01,21,10,0)
  1. 	;;= 
  1. 	;;^DD(355.2,.01,21,11,0)
  1. 	;;=This is useful information when contacting carriers, when creating 
  1. 	;;^DD(355.2,.01,21,12,0)
  1. 	;;=claims for reimbursement and when estimating if the payment received is
  1. 	;;^DD(355.2,.01,21,13,0)
  1. 	;;=appropriate.
  1. 	;;^DD(355.2,.01,21,14,0)
  1. 	;;= 
  1. 	;;^DD(355.2,.01,21,15,0)
  1. 	;;=If this field is answered it may affect choices that can be selected when
  1. 	;;^DD(355.2,.01,21,16,0)
  1. 	;;=entering policy or benefit information.
  1. 	;;^DD(355.2,.01,"DT")
  1. 	;;=2930603
  1. 	;;^DD(355.2,.02,0)
  1. 	;;=ABBREVIATION^F^^0;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<2) X
  1. 	;;^DD(355.2,.02,1,0)
  1. 	;;=^.1
  1. 	;;^DD(355.2,.02,1,1,0)
  1. 	;;=355.2^C
  1. 	;;^DD(355.2,.02,1,1,1)
  1. 	;;=S ^IBE(355.2,"C",$E(X,1,30),DA)=""
  1. 	;;^DD(355.2,.02,1,1,2)
  1. 	;;=K ^IBE(355.2,"C",$E(X,1,30),DA)
  1. 	;;^DD(355.2,.02,1,1,"DT")
  1. 	;;=2930602
  1. 	;;^DD(355.2,.02,3)
  1. 	;;=Enter a standard abbreviation.  Answer must be 2-8 characters in length.
  1. 	;;^DD(355.2,.02,21,0)
  1. 	;;=^^3^3^2930603^^
  1. 	;;^DD(355.2,.02,21,1,0)
  1. 	;;=This is the standard abbreviation for this type of coverage.  Enter
  1. 	;;^DD(355.2,.02,21,2,0)
  1. 	;;=the 2 to 8 character abbreviation.  The abbreviation may appear on 
  1. 	;;^DD(355.2,.02,21,3,0)
  1. 	;;=reports that have limited space available.
  1. 	;;^DD(355.2,.02,"DT")
  1. 	;;=2930602
  1. 	;;^DD(355.2,10,0)
  1. 	;;=DESCRIPTION^355.21^^10;0
  1. 	;;^DD(355.2,10,21,0)
  1. 	;;=^^1^1^2930603^^