Routine: RCXFMSPR

Information

RCXFMSPR ;WISC/RFJ-print revenue source codes ;8/31/10 11:34am

Name	Comments	DBIA/ICR reference
DQ	; queue starts here
Q
GETDESC(RSC)	; return the description for the revenue source code
CONVERT(DECIMAL)	; convert decimal number to binary (5 digits)
WRITEIT	; display the rsc
PAUSE	; pause at end of page
H	; header
A1	;;Hospital Care (NSC)
A2	;;Outpatient Care (NSC)
A3	;;Nursing Home Care (NSC)
A4	;;Ineligible Hospitalization
A5	;;Reimbursable Health Insurance
A6	;;Tort Feasor
A7	;;Workmans Compensation (Non-Federal)
A8	;;C (Means Test)
A9	;;Emergency/Humanitarian
AA	;;No Fault Auto Accident
AB	;;Pharmacy Co-Pay (SC Vet)
AC	;;Pharmacy Co-Pay (NSC Vet)
AD	;;Nursing Home Care Per Diem
AE	;;Hospital Care Per Diem
AF	;;Medicare
AG	;;Adult Day Health Care (LTC)
AH	;;Domiciliary (LTC)
AI	;;Respite Care-Institutional (LTC)
AJ	;;Respite Care-Non-Institutional (LTC)
AK	;;Geriatric Eval-Institutional (LTC)
AL	;;Geriatric Eval-Non-Institutional (LTC)
AM	;;Nursing Home Care-Long Term Care (LTC)
AN	;;EDI 3RD PARTY LOCKBOX
AQ	;;Pharmacy No Fault Auto Acc
AR	;;Pharmacy Reimburs Health Ins
AS	;;Pharmacy Tort Feasor
AT	;;Pharmacy Workman's Comp
B00	;;Inpatient (Hosp)
B01	;;Outpatient
B10	;;Nursing Home
B11	;;Other
C0	;;SC for NSC
C1	;;NSC Vet
D0	;;MT Cat A
D1	;;MT Cat C
E0	;;Age <65
E1	;;Age 65+
CCADRSC	;;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This option will print out a list of the revenue source codes sent from" Line Location: RCXFMSPR+3
Function Call: WRITE	Prompt: !,"the VISTA system to FMS." Line Location: RCXFMSPR+4
Function Call: WRITE	Prompt: ! Line Location: RCXFMSPR+7
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: RCXFMSPR+11
Function Call: WRITE	Prompt: !!?6,"For REIMBURSABLE HEALTH INSURANCE [85*Z]:" Line Location: DQ+27
Function Call: WRITE	Prompt: !!?6,"For FEE REIMBURSABLE HEALTH INSURANCE [8F*Z]:" Line Location: DQ+44
Function Call: WRITE	Prompt: !!?6,"For EMERGENCY/HUMANITARIAN REIMBURSABLE HEALTH INSURANCE [8*ZZ]:" Line Location: DQ+54
Function Call: WRITE	Prompt: !!?6,"For COMMUNITY CARE:" Line Location: Q+4
Function Call: WRITE	Prompt: !,COLUMN1,COLUMN2,COLUMN3,COLUMN4,?6,DESCRIP Line Location: WRITEIT+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: PAUSE+1
Function Call: WRITE	Prompt: @IOF Line Location: H+1
Function Call: WRITE	Prompt: $C(13),"REVENUE SOURCE CODE REPORT (VISTA TO FMS)",?(80-$L(%)),% Line Location: H+2
Function Call: WRITE	Prompt: !,"RSC",?6,"Description" Line Location: H+3
Function Call: WRITE	Prompt: !,% Line Location: H+5