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

IBINI03X.m

Go to the documentation of this file. 
  1. IBINI03X	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(354.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. 	;;^DD(354.2,.03,21,2,0)
  1. 	;;=exemption of Pharmacy Copay based on Income, only the type
  1. 	;;^DD(354.2,.03,21,3,0)
  1. 	;;=COPAY INCOME EXEMPTION reason can be selected.
  1. 	;;^DD(354.2,.03,21,4,0)
  1. 	;;= 
  1. 	;;^DD(354.2,.03,21,5,0)
  1. 	;;=In a future release additional types of exemptions may be created.
  1. 	;;^DD(354.2,.03,21,6,0)
  1. 	;;=Do not modify this field.
  1. 	;;^DD(354.2,.03,"DT")
  1. 	;;=2921208
  1. 	;;^DD(354.2,.04,0)
  1. 	;;=STATUS^S^0:NON-EXEMPT;1:EXEMPT;^0;4^Q
  1. 	;;^DD(354.2,.04,.1)
  1. 	;;=
  1. 	;;^DD(354.2,.04,1,0)
  1. 	;;=^.1
  1. 	;;^DD(354.2,.04,1,1,0)
  1. 	;;=354.2^AS
  1. 	;;^DD(354.2,.04,1,1,1)
  1. 	;;=S ^IBE(354.2,"AS",$E(X,1,30),DA)=""
  1. 	;;^DD(354.2,.04,1,1,2)
  1. 	;;=K ^IBE(354.2,"AS",$E(X,1,30),DA)
  1. 	;;^DD(354.2,.04,1,1,"%D",0)
  1. 	;;=^^1^1^2921110^
  1. 	;;^DD(354.2,.04,1,1,"%D",1,0)
  1. 	;;=Cross-reference of Status.
  1. 	;;^DD(354.2,.04,1,1,"DT")
  1. 	;;=2921110
  1. 	;;^DD(354.2,.04,3)
  1. 	;;=
  1. 	;;^DD(354.2,.04,21,0)
  1. 	;;=^^3^3^2930430^^^^
  1. 	;;^DD(354.2,.04,21,1,0)
  1. 	;;=This is the status of this type of record.  Whether it is an exempt
  1. 	;;^DD(354.2,.04,21,2,0)
  1. 	;;=or non-exempt reason.  This status will be automatically stored
  1. 	;;^DD(354.2,.04,21,3,0)
  1. 	;;=in the Billing Exemptions file.
  1. 	;;^DD(354.2,.04,"DT")
  1. 	;;=2921208
  1. 	;;^DD(354.2,.05,0)
  1. 	;;=CODE^NJ4,0I^^0;5^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  1. 	;;^DD(354.2,.05,1,0)
  1. 	;;=^.1
  1. 	;;^DD(354.2,.05,1,1,0)
  1. 	;;=354.2^ACODE
  1. 	;;^DD(354.2,.05,1,1,1)
  1. 	;;=S ^IBE(354.2,"ACODE",$E(X,1,30),DA)=""
  1. 	;;^DD(354.2,.05,1,1,2)
  1. 	;;=K ^IBE(354.2,"ACODE",$E(X,1,30),DA)
  1. 	;;^DD(354.2,.05,1,1,3)
  1. 	;;=DO NOT DELETE
  1. 	;;^DD(354.2,.05,1,1,"%D",0)
  1. 	;;=^^3^3^2921110^
  1. 	;;^DD(354.2,.05,1,1,"%D",1,0)
  1. 	;;=Cross-reference of code field.  To be used in routines to look up correct
  1. 	;;^DD(354.2,.05,1,1,"%D",2,0)
  1. 	;;=entry.  The internal codes will be used in routines to locate the correct
  1. 	;;^DD(354.2,.05,1,1,"%D",3,0)
  1. 	;;=entry.
  1. 	;;^DD(354.2,.05,1,1,"DT")
  1. 	;;=2921110
  1. 	;;^DD(354.2,.05,1,2,0)
  1. 	;;=354.2^C
  1. 	;;^DD(354.2,.05,1,2,1)
  1. 	;;=S ^IBE(354.2,"C",$E(X,1,30),DA)=""
  1. 	;;^DD(354.2,.05,1,2,2)
  1. 	;;=K ^IBE(354.2,"C",$E(X,1,30),DA)
  1. 	;;^DD(354.2,.05,1,2,"DT")
  1. 	;;=2930105
  1. 	;;^DD(354.2,.05,3)
  1. 	;;=Type a Number between 1 and 9999, 0 Decimal Digits
  1. 	;;^DD(354.2,.05,9)
  1. 	;;=^
  1. 	;;^DD(354.2,.05,21,0)
  1. 	;;=^^2^2^2930430^^^^
  1. 	;;^DD(354.2,.05,21,1,0)
  1. 	;;=This is the internal code used to look up entries by the billing
  1. 	;;^DD(354.2,.05,21,2,0)
  1. 	;;=system.  This should not be altered except by the developing ISC.
  1. 	;;^DD(354.2,.05,23,0)
  1. 	;;=^^9^9^2930430^^^^
  1. 	;;^DD(354.2,.05,23,1,0)
  1. 	;;=The data in this field is returned as the third piece from the call to
  1. 	;;^DD(354.2,.05,23,2,0)
  1. 	;;=RXST^IBARXEU and RXEXMT^IBARXEU0.  Programmers can determine certain
  1. 	;;^DD(354.2,.05,23,3,0)
  1. 	;;=attributes from the code.  Codes of 2 digits are reserved for exemption
  1. 	;;^DD(354.2,.05,23,4,0)
  1. 	;;=reasons that can automatically be determined by the system but not
  1. 	;;^DD(354.2,.05,23,5,0)
  1. 	;;=based on income.  Codes of 3 digits are reserved for exemptions based
  1. 	;;^DD(354.2,.05,23,6,0)
  1. 	;;=on income.  Codes of 4 digits are reserved for exemptions that only
  1. 	;;^DD(354.2,.05,23,7,0)
  1. 	;;=can be manually entered that would generally over-ride all other
  1. 	;;^DD(354.2,.05,23,8,0)
  1. 	;;=determinations.
  1. 	;;^DD(354.2,.05,23,9,0)
  1. 	;;= 
  1. 	;;^DD(354.2,.05,"DT")
  1. 	;;=2930115
  1. 	;;^DD(354.2,.1,0)
  1. 	;;=ACTIVE^S^1:ACTIVE;0:INACTIVE;^10;1^Q
  1. 	;;^DD(354.2,.1,1,0)
  1. 	;;=^.1
  1. 	;;^DD(354.2,.1,1,1,0)
  1. 	;;=354.2^AA
  1. 	;;^DD(354.2,.1,1,1,1)
  1. 	;;=S ^IBE(354.2,"AA",$E(X,1,30),DA)=""
  1. 	;;^DD(354.2,.1,1,1,2)
  1. 	;;=K ^IBE(354.2,"AA",$E(X,1,30),DA)
  1. 	;;^DD(354.2,.1,1,1,"%D",0)
  1. 	;;=^^1^1^2921110^
  1. 	;;^DD(354.2,.1,1,1,"%D",1,0)
  1. 	;;=Cross-reference of Active records.