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

IBINI02X.m

Go to the documentation of this file. 
  1. IBINI02X	; ; 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,7.01,21,3,0)
  1. 	;;=If the auto biller should run every night, enter 1.
  1. 	;;^DD(350.9,7.01,21,4,0)
  1. 	;;= 
  1. 	;;^DD(350.9,7.01,21,5,0)
  1. 	;;=This will not effect the date range of the bills themselves, but will
  1. 	;;^DD(350.9,7.01,21,6,0)
  1. 	;;=only effect the date they are created.
  1. 	;;^DD(350.9,7.01,21,7,0)
  1. 	;;= 
  1. 	;;^DD(350.9,7.01,21,8,0)
  1. 	;;=If this is left blank or zero then the auto biller will never run.
  1. 	;;^DD(350.9,7.01,"DT")
  1. 	;;=2931021
  1. 	;;^DD(350.9,7.02,0)
  1. 	;;=LAST AUTO BILLER DATE^D^^7;2^S %DT="EX" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(350.9,7.02,3)
  1. 	;;=This is the last date on which the auto biller ran.
  1. 	;;^DD(350.9,7.02,21,0)
  1. 	;;=^^1^1^2931021^
  1. 	;;^DD(350.9,7.02,21,1,0)
  1. 	;;=This is generally set by the system.
  1. 	;;^DD(350.9,7.02,"DT")
  1. 	;;=2931021
  1. 	;;^DD(350.9,7.03,0)
  1. 	;;=INPATIENT STATUS (AB)^S^1:Closed;2:Released;3:Transmitted;^7;3^Q
  1. 	;;^DD(350.9,7.03,3)
  1. 	;;=Enter the Status that an Inpatients PTF record should have before the automated biller attempts to create a bill for that inpatient stay.
  1. 	;;^DD(350.9,7.03,21,0)
  1. 	;;=^^9^9^2940125^^^^
  1. 	;;^DD(350.9,7.03,21,1,0)
  1. 	;;=This is the status that a PTF record must be in before the automated biller
  1. 	;;^DD(350.9,7.03,21,2,0)
  1. 	;;=will attempt to create an inpatient bill.
  1. 	;;^DD(350.9,7.03,21,3,0)
  1. 	;;= 
  1. 	;;^DD(350.9,7.03,21,4,0)
  1. 	;;=The auto biller will use the Frequency, Billing Cycle and Days Delay
  1. 	;;^DD(350.9,7.03,21,5,0)
  1. 	;;=parameters to decide when to try to create an inpatient bill.  However,
  1. 	;;^DD(350.9,7.03,21,6,0)
  1. 	;;=the auto biller can not set up a bill until the PTF record is Closed.
  1. 	;;^DD(350.9,7.03,21,7,0)
  1. 	;;=Of the two dates, the date calculated from the site parameters or the date
  1. 	;;^DD(350.9,7.03,21,8,0)
  1. 	;;=that the PTF record meets the Status entered here, the bill will be created
  1. 	;;^DD(350.9,7.03,21,9,0)
  1. 	;;=on the later date.
  1. 	;;^DD(350.9,7.03,23,0)
  1. 	;;=^^12^12^2940125^^^^
  1. 	;;^DD(350.9,7.03,23,1,0)
  1. 	;;=This set of codes should exactly mirror the PTF Status (45,6) set of 
  1. 	;;^DD(350.9,7.03,23,2,0)
  1. 	;;=codes, except for Open.
  1. 	;;^DD(350.9,7.03,23,3,0)
  1. 	;;= 
  1. 	;;^DD(350.9,7.03,23,4,0)
  1. 	;;=Some sites want to wait until the PTF is closed before a bill is created
  1. 	;;^DD(350.9,7.03,23,5,0)
  1. 	;;=because they know it will be coded at that time.  Others do not want to
  1. 	;;^DD(350.9,7.03,23,6,0)
  1. 	;;=bill until the PTF record has been transmitted and they know that it is
  1. 	;;^DD(350.9,7.03,23,7,0)
  1. 	;;=complete.
  1. 	;;^DD(350.9,7.03,23,8,0)
  1. 	;;= 
  1. 	;;^DD(350.9,7.03,23,9,0)
  1. 	;;=After this had been added it was decided that an auto bill should not be
  1. 	;;^DD(350.9,7.03,23,10,0)
  1. 	;;=created for inpatients until after the PTF record has been closed.
  1. 	;;^DD(350.9,7.03,23,11,0)
  1. 	;;=So, the option of creating an auto bill when the PTF record was still open
  1. 	;;^DD(350.9,7.03,23,12,0)
  1. 	;;=was removed.
  1. 	;;^DD(350.9,7.03,"DT")
  1. 	;;=2940125