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

IBINI02F.m

Go to the documentation of this file. 
  1. IBINI02F	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(350.9)  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(350.9,.1,21,2,0)
  1. 	;;='NO' when the queued job is started.  It will be used to prevent queueing
  1. 	;;^DD(350.9,.1,21,3,0)
  1. 	;;=two or more jobs before the first job starts.
  1. 	;;^DD(350.9,.1,"DT")
  1. 	;;=2910228
  1. 	;;^DD(350.9,.11,0)
  1. 	;;=CATEGORY C BILLING MAIL GROUP^P3.8'^XMB(3.8,^0;11^Q
  1. 	;;^DD(350.9,.11,21,0)
  1. 	;;=^^3^3^2920106^^
  1. 	;;^DD(350.9,.11,21,1,0)
  1. 	;;=Members of this mail group will receive bulletins when Means Test/Category
  1. 	;;^DD(350.9,.11,21,2,0)
  1. 	;;=C billing processing errors have been encountered, and when movements and
  1. 	;;^DD(350.9,.11,21,3,0)
  1. 	;;=Means Tests for Category C patients have been edited or deleted.
  1. 	;;^DD(350.9,.11,"DT")
  1. 	;;=2911209
  1. 	;;^DD(350.9,.12,0)
  1. 	;;=PER DIEM START DATE^D^^0;12^S %DT="EX" D ^%DT S X=Y K:3991231<X!(2901105>X) X
  1. 	;;^DD(350.9,.12,3)
  1. 	;;=This is the date this hospital began the $5 and $10 Per Diem Billing.  Enter a date no earlier than 11/5/90.
  1. 	;;^DD(350.9,.12,21,0)
  1. 	;;=^^10^10^2920205^^^^
  1. 	;;^DD(350.9,.12,21,1,0)
  1. 	;;=This is the date that this facility counseled category C patients that
  1. 	;;^DD(350.9,.12,21,2,0)
  1. 	;;=they would have to pay the new Per Diem charges and began the Per Diem
  1. 	;;^DD(350.9,.12,21,3,0)
  1. 	;;=billing.
  1. 	;;^DD(350.9,.12,21,4,0)
  1. 	;;= 
  1. 	;;^DD(350.9,.12,21,5,0)
  1. 	;;=This field represents the earliest date for which the Hospital ($10) or
  1. 	;;^DD(350.9,.12,21,6,0)
  1. 	;;=Nursing Home ($5) Per Diem charge may be billed to a Category C patient.
  1. 	;;^DD(350.9,.12,21,7,0)
  1. 	;;=This billing is mandated by Public Law 101-508, which was implemented
  1. 	;;^DD(350.9,.12,21,8,0)
  1. 	;;=on November 5, 1990.
  1. 	;;^DD(350.9,.12,21,9,0)
  1. 	;;= 
  1. 	;;^DD(350.9,.12,21,10,0)
  1. 	;;=Please note that the Per Diem billing will not occur if this field is null.
  1. 	;;^DD(350.9,.12,"DT")
  1. 	;;=2920205
  1. 	;;^DD(350.9,.13,0)
  1. 	;;=COPAY EXEMPTION MAIL GROUP^P3.8^XMB(3.8,^0;13^Q
  1. 	;;^DD(350.9,.13,3)
  1. 	;;=Type a Number between 1 and 99, 0 Decimal Digits
  1. 	;;^DD(350.9,.13,21,0)
  1. 	;;=^^2^2^2940209^^^
  1. 	;;^DD(350.9,.13,21,1,0)
  1. 	;;=This mail group will be sent the copay exemption bulletins and error
  1. 	;;^DD(350.9,.13,21,2,0)
  1. 	;;=messages.
  1. 	;;^DD(350.9,.13,21,3,0)
  1. 	;;= 
  1. 	;;^DD(350.9,.13,21,4,0)
  1. 	;;=The value of this field is the number of fiscal years, prior to the
  1. 	;;^DD(350.9,.13,21,5,0)
  1. 	;;=current fiscal year, for which Category C Billing Clock data should be
  1. 	;;^DD(350.9,.13,21,6,0)
  1. 	;;=retained in the system when the option to purge billing clock records
  1. 	;;^DD(350.9,.13,21,7,0)
  1. 	;;=is run.  If that option is tasked to run automatically, then this
  1. 	;;^DD(350.9,.13,21,8,0)
  1. 	;;=parameter is directly accessed and used to determine which data shall
  1. 	;;^DD(350.9,.13,21,9,0)
  1. 	;;=be purged from the database (if the value of this field is null or less
  1. 	;;^DD(350.9,.13,21,10,0)
  1. 	;;=than one, one previous year's worth of data is retained).  If the option
  1. 	;;^DD(350.9,.13,21,11,0)
  1. 	;;=is manually invoked, the value of this field is defaulted when the user
  1. 	;;^DD(350.9,.13,21,12,0)
  1. 	;;=is prompted for the number of year's worth of data to retain.
  1. 	;;^DD(350.9,.13,"DT")
  1. 	;;=2930115
  1. 	;;^DD(350.9,.14,0)
  1. 	;;=USE ALERTS^*S^1:YES;0:NO;^0;14^Q
  1. 	;;^DD(350.9,.14,12)
  1. 	;;=Version 7 of Kernel must be installed inorder to turn this feature on.
  1. 	;;^DD(350.9,.14,12.1)
  1. 	;;=S DIC("S")="I 'Y!(+$G(^DD(200,0,""VR""))'<7)"
  1. 	;;^DD(350.9,.14,21,0)
  1. 	;;=^^7^7^2930204^^
  1. 	;;^DD(350.9,.14,21,1,0)
  1. 	;;=If a facility has installed Version 7 or higher of Kernel, then the
  1. 	;;^DD(350.9,.14,21,2,0)
  1. 	;;=site may decide whether to use Alerts or Bulletins for internal messages
  1. 	;;^DD(350.9,.14,21,3,0)
  1. 	;;=in Integrated Billing.  Initially this functionality will only be