Routine: RABWORD2

Information

RABWORD2 ;HOIFO/KAR - Radiology Billing Awareness ;12/20/04 3:55pm

Name	Comments	DBIA/ICR reference
ORDER	; List Exam Orders to select to copy ICD-9 SC/EC Indicator values from
HDR	; Header
PREV	;Prompt for Copying a previous Order's DX/SC/EC values.
ELIG	;List the Service Connected ratios for the patient
ADDEXAM	;Add DX/SC/EI data to new order when adding order to Last Visit

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ORDER+16
Function Call: WRITE	Prompt: !!,"#",?10,"Last Procedures/New Orders",?39,"Order Date",?52,"Imaging Loc." Line Location: HDR+2
Function Call: WRITE	Prompt: !,"------",?10,"----------------------------",?39,"------------",?52,"------------" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"*Invalid selection" Line Location: PREV+13
Function Call: WRITE	Prompt: !,"*No Previous ICD codes entered for this order" Line Location: PREV+15
Function Call: WRITE	Prompt: @IOF,!,VADM(1)_" ("_VA("PID")_") ",$P(VAEL(6),"^",2),!!," * * * Eligibility Information and Service Connected Conditions * * *" Line Location: ELIG+7
Function Call: WRITE	Prompt: !!,?5,"Primary Eligibility: "_RAELIG,!,?5,"A/O Exp.: "_RAAO,?22,"ION Rad.: "_RAIR,?40,"SWAC: "_RAEC,?57,"SHAD: "_RASHAD,! Line Location: ELIG+8