Routine: A1B2MAIN

Information

A1B2MAIN ;ALB/AAS - ODS store billing data ; 17-JAN-91

Name	Comments	DBIA/ICR reference
MAIN	;
SPC
PROC	; -- find procedures and surgeries in ptf and store in 11500.62 ; -- find surgeries
PROC1	; --set up to file procedures and surgeries
DIAG	; -- find diagnosis in ptf and file in 11500.63
DIAG1	; -- set up to file
COST	; -- input cost data
COST1
END
WAIT	;
INACT	; -- inactivate existing entries prior to re-running

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>>> Storing Billable Specialties from PTF in ODS file. >>>>" Line Location: SPC+0
Function Call: WRITE	Prompt: !!,">>>> Storing Surgeries and Procedures in ODS files. >>>>" Line Location: SPC+3
Function Call: WRITE	Prompt: !!,">>>> Storing Diagnoses in ODS files. >>>>" Line Location: SPC+4
Function Call: WRITE	Prompt: !!,"You may now enter any additional costs related to this ODS admission.",! Line Location: SPC+5
Function Call: WRITE	Prompt: ! Line Location: COST1+4
Function Call: WRITE	Prompt: !,"..." Line Location: WAIT+1
Function Call: WRITE	Prompt: $P("HMMM^EXCUSE ME^SORRY","^",$R(3)+1),", ",$P("THIS MAY TAKE A FEW MOMENTS^LET ME PUT YOU ON 'HOLD' FOR A SECOND^HOLD ON^JUST A MOMENT PLEASE^I'M WORKING AS FAST AS I CAN^LET ME THINK ABOUT THAT A MOMENT","^",$R(6)+1)_"..." Line Location: WAIT+2