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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DENTE1

Package: Dental

Routine: DENTE1


Information

DENTE1 ;ISC2/SAW,HAG-EDIT DENTAL TREATMENT DATA ;1/26/98 15:10

Source Information

Source file <DENTE1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Dental 4 EN^DENTD  (CHK,Q1,Q2)^DENTE0  ^DENTEC  ^DENTUPD  
VA FileMan 4 ^DIC  YN^DICN  ^DIE  ^DIK  

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: 14

Package Total Caller Graph
Dental 14 DENTADM EDIT  DENTCRD1  DENTCRD2  DENTE0  DENTE2  DENTE3  DENTFEE EDIT  DENTPERS EDIT  
DENTSCR  DENTTREAT DELETE  DENTTREAT EDIT  DENTTREAT LINE EDIT  ^DENT(221  ^DENT(226  

Entry Points

Name Comments DBIA/ICR reference
TREAT0 ;REVIEW SERVICE REPORT DATA FULL SCREEN (TERMINAL INPUT)
TREAT ;REVIEW SERVICE REPORT DATA LINE BY LINE (TERMINAL INPUT)
TRT
TREAT1
PERS ;PERSONNEL SERVICE REPORT DATA
PERS1
FEE ;FEE BASIS SERVICE REPORT DATA
FEE1
Q
ADMIN ;CLASS I-VI ADMIN SERVICE REPORT INFO
ADMIN1
DELTR ;DELETE TREATMENT DATA
TR1
TR2
IEN1 ;GENERATE INTERNAL ENTRY NUMBER FOR FILE 221
IEN6 ;GENERATE INTERNAL ENTRY NUMBER FOR FILE 226
CHECK(FILE,CD) ;FIND A PLACE TO PUT THE NEW RECORD
IEN(CD) ;GENERATE INTERNAL ENTRY NUMBER
LEAP(LYR) ; Pass 4 digit YR to calculate whether Feb is 28 or 29 days.
DATE ;;31;28;31;30;31;30;31;31;30;31;30;31
LOCK ;LOCK GLOBAL THAT IS BEING ACCESSED BY ANOTHER USER
EXIT

External References

Name Field # of Occurrence
EN^DENTD TREAT1, PERS1, FEE1, ADMIN1, TR1+1
CHK^DENTE0 PERS+1, FEE+1, ADMIN+1
Q1^DENTE0 TR1
Q2^DENTE0 TR2
^DENTEC TRT+1, TREAT1+1
^DENTUPD TRT+1
^DIC TREAT+2, PERS+1, FEE+1, ADMIN+1, DELTR+1
YN^DICN TR1, TR2
^DIE TRT+1
^DIK TR2+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You may select a treatment date by entering the patient's name or SSN,",!,"the provider's number or the treatment date (without time).",!!
  • Line Location: TREAT+1
Function Call: READ
  • Variable: Z
  • Timeout: 5
  • Line Location: TREAT+3
Function Call: WRITE
  • Prompt: *7,!!,"Note: This treatment data has already been RELEASED.",!,?6,"RELEASED data can not be edited it can only be viewed.",!
  • Line Location: TREAT+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PERS+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: FEE+1
Function Call: WRITE
  • Prompt: *7,!!,"FEE TREAT COMP value was incorrect and has been recalculated for you."
  • Line Location: FEE1+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADMIN+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DELTR+1
Function Call: WRITE
  • Prompt: !!,"Would you like a display of the data for this Treatment Data entry"
  • Line Location: TR1+0
Function Call: WRITE
  • Prompt: !,"Nothing Deleted"
  • Line Location: TR2+0
Function Call: READ
  • Variable: X
  • Timeout: 2
  • Line Location: TR2+1
Function Call: WRITE
  • Prompt: !!,"Entry deleted."
  • Line Location: TR2+1
Function Call: WRITE
  • Prompt: !!,*7,"THIS ENTRY IS BEING EDITED BY ANOTHER USER. TRY LATER."
  • Line Location: LOCK+1
Routine Call
  • DIC
  • Line Location:
    • TREAT+2
    • PERS+1
    • FEE+1
    • ADMIN+1
    • DELTR+1
Routine Call
  • DIE
  • Line Location:
    • TRT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DENT(221 - [#221] Classic Fileman Calls
^DENT(222 - [#222] Classic Fileman Calls
^DENT(223 - [#223] Classic Fileman Calls
^DENT(224 - [#224] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DENT( CHECK+2, CHECK+18
^DENT(221 - [#221] TREAT+3, TREAT1, TREAT1+1
^DENT(222 - [#222] FEE1, FEE1+1

Label References

Name Line Occurrences
$$CHECK IEN1+1, IEN6+1
$$IEN IEN1+1, IEN6+1
$$LEAP CHECK+13
ADMIN ADMIN+1, ADMIN+2, ADMIN1
DATE CHECK+12
DELTR DELTR+1, TR1, TR2, TR2+1
EXIT TREAT+2, PERS+1, FEE+1, ADMIN+1, DELTR+1, TR1+1
FEE FEE+1, FEE+2, Q
LOCK TREAT+2, PERS+2, FEE+2, ADMIN+2, DELTR+1
PERS PERS+1, PERS+2, PERS1
Q FEE1
TR1 TR1
TR2 TR1, TR2
TREAT TREAT+2, TRT+1, TREAT1+1
TREAT1 TREAT+3

Naked Globals

Name Field # of Occurrence
^(0 FEE1+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TR1*, TR2*
AD CHECK+1~, CHECK+5*, CHECK+12*, CHECK+14, CHECK+15*, CHECK+17
CD CHECK~, CHECK+2, CHECK+3, CHECK+5, CHECK+6*, CHECK+7, CHECK+8*, CHECK+9, CHECK+10*, CHECK+11
, CHECK+17*, CHECK+18, CHECK+19, IEN~, IEN+1
DA TREAT+2*, TREAT+3, TRT+1, TREAT1, TREAT1+1*, PERS+1*, PERS1, FEE+1*, FEE1, ADMIN+1*
, ADMIN1, DELTR+1*, TR1+1*, TR2+1*, LOCK+1, EXIT!
DENT PERS+1*, FEE+1*, FEE1, FEE1+1, ADMIN+1*, DELTR+1*, TR1+1, TR2+1, EXIT!
DENTDA TRT+1*, TREAT1*, TREAT1+1, PERS+1*, FEE+1*, ADMIN+1*, EXIT!
DENTDR TRT*, TRT+1*, EXIT!
DENTF PERS+1!, FEE+1!, ADMIN+1!, EXIT!
DENTFUL TREAT+2!*, TRT, TRT+1, EXIT!
DENTFULS TREAT0+1*, TREAT+2, EXIT!
DENTK1 TRT+1*, EXIT!
DENTL TREAT+2, PERS+2, FEE+2, ADMIN+2, DELTR+1, LOCK+1*, EXIT!
>> DENTREL TRT+1, TREAT1, TREAT1+1, PERS1, FEE1, Q, ADMIN1
DENTSC TREAT1*, EXIT!
DENTSTA EXIT!
DENTSTA2 EXIT!
DIC TREAT+2*, PERS+1*, FEE+1*, ADMIN+1*, DELTR+1*, TR2+1*, LOCK+1, EXIT!
DIC("DR" TREAT+2*
DIC("S" PERS+1*, FEE+1*, ADMIN+1*
DIC(0 TREAT+2*, PERS+1*, FEE+1*, ADMIN+1*, DELTR+1*
DIE TRT*, EXIT!
>> DIK TR2+1*
>> DINUM IEN1+1*, IEN6+1*
>> DJDIS TREAT1*, TR1+1*
DJDN TREAT1*, PERS1*, FEE1*, ADMIN1*, TR1+1*, EXIT!
>> DJRJ TR1+1
DJSC TREAT1*, PERS1*, FEE1*, ADMIN1*, TR1+1*, EXIT!
DLAYGO TREAT+2*!, PERS+1*!, FEE+1*!, ADMIN+1*!
DR TRT!*, TRT+1*, EXIT!
DT1 EXIT!
FILE CHECK~, CHECK+2, CHECK+18
FL CHECK+1~, CHECK+2*, CHECK+3, CHECK+4, CHECK+5*, CHECK+18*
FLG LEAP+1~, LEAP+2*, LEAP+3
H PERS+1*, FEE+1*, ADMIN+1*, EXIT!
I FEE1*, EXIT!
K EXIT!
K1 EXIT!
LYR LEAP~, LEAP+2
>> MD CHECK+12*, CHECK+13*, CHECK+14
MO CHECK+1~, CHECK+5*, CHECK+12, CHECK+13, CHECK+15*, CHECK+16*, CHECK+17
STA PERS+1*, FEE+1*, ADMIN+1*, EXIT!
V EXIT!
X TREAT+2*, TRT*, TREAT1, FEE1*, FEE1+1, TR2+1*, IEN1+1*, IEN6+1*, EXIT!
X1 FEE1*, EXIT!
>> Y TREAT+2, PERS+1, FEE+1, ADMIN+1, DELTR+1
>> Y(0 TREAT+2, TRT
YR CHECK+1~, CHECK+5*, CHECK+13, CHECK+16*, CHECK+17
Z TREAT+3*, EXIT!

Marked Items

Name Field # of Occurrence
$T(DATE CHECK+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All