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

IBINI02N.m

Go to the documentation of this file. 
  1. IBINI02N	; ; 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,2.06,21,0)
  1. 	;;=^^1^1^2920204^
  1. 	;;^DD(350.9,2.06,21,1,0)
  1. 	;;=This is the phone number for the agent cashier.
  1. 	;;^DD(350.9,2.06,"DT")
  1. 	;;=2920204
  1. 	;;^DD(350.9,2.07,0)
  1. 	;;=CANCELLATION REMARK FOR FISCAL^F^^2;7^K:$L(X)>75!($L(X)<3)!'(X?1A.E) X
  1. 	;;^DD(350.9,2.07,3)
  1. 	;;=Enter the remark (reason for cancellation) which will be sent to Fiscal Service every time a bill is cancelled in MAS.  Answer must be 3-75 characters in length.
  1. 	;;^DD(350.9,2.07,21,0)
  1. 	;;=^^6^6^2940209^^
  1. 	;;^DD(350.9,2.07,21,1,0)
  1. 	;;=This is the remark which will be sent to Fiscal every time a bill is
  1. 	;;^DD(350.9,2.07,21,2,0)
  1. 	;;=cancelled in MAS.  This remark will explain to Fiscal why the IFCAP
  1. 	;;^DD(350.9,2.07,21,3,0)
  1. 	;;=billing record is being amended or cancelled.  The generic remark,
  1. 	;;^DD(350.9,2.07,21,4,0)
  1. 	;;="BILL CANCELLED IN MAS" will be transmitted to Fiscal Service if no
  1. 	;;^DD(350.9,2.07,21,5,0)
  1. 	;;=remark is entered in this field.  The site may enter any remark which
  1. 	;;^DD(350.9,2.07,21,6,0)
  1. 	;;=is meaningful to MAS and Fiscal.
  1. 	;;^DD(350.9,2.07,"DT")
  1. 	;;=2920204
  1. 	;;^DD(350.9,3.01,0)
  1. 	;;=*CONVERSION LAST BILL DATE^D^^3;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(350.9,3.01,21,0)
  1. 	;;=^^10^10^2940127^^^
  1. 	;;^DD(350.9,3.01,21,1,0)
  1. 	;;=This field will only be used for the Means Test conversion which is part
  1. 	;;^DD(350.9,3.01,21,2,0)
  1. 	;;=of the Integrated Billing v1.5 post init.  The field will be deleted
  1. 	;;^DD(350.9,3.01,21,3,0)
  1. 	;;=with the next version of Integrated Billing.
  1. 	;;^DD(350.9,3.01,21,4,0)
  1. 	;;= 
  1. 	;;^DD(350.9,3.01,21,5,0)
  1. 	;;=This field is updated during the IB v1.5 post init.  The value of this
  1. 	;;^DD(350.9,3.01,21,6,0)
  1. 	;;=field designates the last day through which Means Test charges will be
  1. 	;;^DD(350.9,3.01,21,7,0)
  1. 	;;=created during the conversion.
  1. 	;;^DD(350.9,3.01,21,8,0)
  1. 	;;= 
  1. 	;;^DD(350.9,3.01,21,9,0)
  1. 	;;=Please note that this field has been starred for deletion in IB v2.0.
  1. 	;;^DD(350.9,3.01,21,10,0)
  1. 	;;=This field will be deleted in the version of IB which follows v2.0.
  1. 	;;^DD(350.9,3.01,"DT")
  1. 	;;=2940127
  1. 	;;^DD(350.9,3.02,0)
  1. 	;;=*CONVERSION BREAK DATE^D^^3;2^S %DT="EX" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(350.9,3.02,3)
  1. 	;;=
  1. 	;;^DD(350.9,3.02,21,0)
  1. 	;;=^^17^17^2940209^^^^
  1. 	;;^DD(350.9,3.02,21,1,0)
  1. 	;;=This field will only be used for the Means Test conversion which is part
  1. 	;;^DD(350.9,3.02,21,2,0)
  1. 	;;=of the Integrated Billing v1.5 post init.  The field will be deleted
  1. 	;;^DD(350.9,3.02,21,3,0)
  1. 	;;=with the next version of Integrated Billing.
  1. 	;;^DD(350.9,3.02,21,4,0)
  1. 	;;= 
  1. 	;;^DD(350.9,3.02,21,5,0)
  1. 	;;=This field is updated during the IB v1.5 post init.  The value of this
  1. 	;;^DD(350.9,3.02,21,6,0)
  1. 	;;=field is used by the conversion when creating Hospital/NHCU per diem
  1. 	;;^DD(350.9,3.02,21,7,0)
  1. 	;;=charges.  If a patient owes the per diem on this date, and has
  1. 	;;^DD(350.9,3.02,21,8,0)
  1. 	;;=accumulated other charges prior to this date, a charge is filed for
  1. 	;;^DD(350.9,3.02,21,9,0)
  1. 	;;=all previous charges up through the date.  The intent of "splitting"
  1. 	;;^DD(350.9,3.02,21,10,0)
  1. 	;;=charges in this manner is to allow facilities to select a "final" date
  1. 	;;^DD(350.9,3.02,21,11,0)
  1. 	;;=through which Means Test billing will have been completed
  1. 	;;^DD(350.9,3.02,21,12,0)
  1. 	;;=manually so that charges created by the conversion may
  1. 	;;^DD(350.9,3.02,21,13,0)
  1. 	;;=easily be passed to the Accounts Receivable package (and thus billed
  1. 	;;^DD(350.9,3.02,21,14,0)
  1. 	;;=to the patient).
  1. 	;;^DD(350.9,3.02,21,15,0)
  1. 	;;= 
  1. 	;;^DD(350.9,3.02,21,16,0)
  1. 	;;=Please note that this field has been starred for deletion in IB v2.0.