Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
ODS 3 ^A1B2MSP  (ADM,DICDR1)^A1B2MUT  (ADD,FAC,ON)^A1B2UTL  
VA FileMan 2 ^DIC  ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPTFREL  

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

External References

Name Field # of Occurrence
^A1B2MSP SPC+2
ADM^A1B2MUT MAIN+4
DICDR1^A1B2MUT COST1
ADD^A1B2UTL PROC1+2, DIAG1+2
FAC^A1B2UTL MAIN+3, COST+1
ON^A1B2UTL MAIN+2
^DIC COST1+1
^DIE MAIN+7, PROC1+3, DIAG1+3, COST1+3, INACT+2

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
Routine Call
  • DIC
  • Line Location:
    • COST1+1
Routine Call
  • DIE
  • Line Location:
    • MAIN+7
    • PROC1+3
    • DIAG1+3
    • COST1+3
    • INACT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^A1B2( INACT+2
^A1B2(11500.2 MAIN+5
^A1B2(11500.61 SPC+1
^A1B2(11500.62 PROC+2
^A1B2(11500.63 DIAG+1
^DGP(45.84 - [#45.84] MAIN+6
^DGPT - [#45] MAIN+1, MAIN+6, PROC+3, PROC+5, DIAG+2

Label References

Name Line Occurrences
COST SPC+5
COST1 COST1+4
DIAG SPC+4
DIAG1 DIAG+4, DIAG+6
END MAIN+2, MAIN+3, MAIN+4, MAIN+5, SPC+6, COST+2
INACT SPC+1, PROC+2, DIAG+1
PROC SPC+3
PROC1 PROC+3, PROC+5
WAIT SPC, SPC+3, SPC+4

Naked Globals

Name Field # of Occurrence
^(0 MAIN+1, MAIN+6, PROC+3, PROC+5
^(70 DIAG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A1B270 DIAG+2*, DIAG+4, DIAG+6, DIAG+7!
A1B2ADM MAIN+4, MAIN+5, MAIN+7, SPC+1, PROC+2, DIAG+1, COST+2, END!, INACT+2
A1B2ADM1 END!
A1B2DT PROC+3*, PROC+5*, DIAG+4*, DIAG+6*, DIAG+7!
A1B2DXLS DIAG+4*, DIAG+6*, END!
>> A1B2EDT PROC+3*, PROC+5*
A1B2FL SPC+1*, PROC+2*, PROC1+1*, DIAG+1*, DIAG1+1*, END!, INACT+1, INACT+2, INACT+3!
A1B2FN MAIN+3, END+1!
A1B2FNME END+1!
A1B2I PROC+3*, PROC+5*, DIAG+6*, DIAG+7!, INACT+2*
A1B2J PROC+3*, PROC+5*, END!
>> A1B2NTY END+1
A1B2ODS MAIN+2, END!
A1B2PDT PROC+3*, PROC+5*, END!
A1B2PTF MAIN+4*, MAIN+7, PROC+3, PROC+5, DIAG+2, END!
A1B2PTFC MAIN+6*, MAIN+7, END!
A1B2X PROC+3*, PROC+5*, END!, INACT+1*, INACT+2*
C END!
D0 END!
DA MAIN+7*!, PROC1+3*, DIAG1+3*, COST1+1*, END!, INACT+2*, INACT+3!
>> DGPTIFN MAIN+1, MAIN+4, MAIN+6
DIC COST1*, COST1+1!, END!
DIC("A" COST1*
DIC(0 COST1*
DIE MAIN+7*!, PROC1+3*, DIAG1+3*, COST1+2*, END!, INACT+1*, INACT+3!
DR MAIN+7*!, PROC1+3*, DIAG1+3*, COST1+2*, END!, INACT+1*, INACT+3!
DT MAIN+6
U MAIN+1
X END!
Y PROC1+3, DIAG1+3, COST1+1, END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All