Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: A1B2MAIN

Package: ODS

Routine: A1B2MAIN


Information

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

Source Information

Source file <A1B2MAIN.m>

Entry Points

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

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls