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 |  Local Variables |  All
Print Page as PDF
Routine: ADEGRL5

Package: IHS Dental System

Routine: ADEGRL5


Information

ADEGRL5 ; IHS/HQT/MJL - DENTAL ENTRY PART 7 ; [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEGRL5.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Dental System 2 LIST^ADEGRL3  ($$DELOP,$$DUPE)^ADEGRL5C  
VA Fileman 2 ^DIC  MIX^DIC1  
Kernel 1 EN^XQH  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Dental System 2 ADEGRL3  ADEGRL5B  

Entry Points

Name Comments DBIA/ICR reference
OPDFLT(ADEDEF) ;Creates default user input string from ADEV(ADECOD)
ADD1
S3 ;
SPLIT(ADEOP) ;Splits Opsites and Surfaces from user input string
OPD1
PARSE ;
VQ
VERSFC(ADEX) ;Verify surface codes - Returns 1 if valid, 0 if not valid
VEROP ;B FHL 9/9/98
OPDEL
ADDOP(ADEOP,ADESFC,ADEVTMP) ;EP - Search for same opsite in existing ADEV(ADECOD).

External References

Name Field # of Occurrence
LIST^ADEGRL3 S3+13, OPDEL+1
$$DELOP^ADEGRL5C OPD1+2, ADD1
$$DUPE^ADEGRL5C PARSE+4
^DIC VEROP+4, VEROP+5
MIX^DIC1 VEROP+2, VEROP+3
EN^XQH S3+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"OPSITE: "
  • Line Location: S3+5
Function Call: READ
  • Timeout: DTIME
  • Variable: ADEOP
  • Line Location: S3+9
Function Call: WRITE
  • Prompt: !,"ADA Code: ",ADECOD
  • Line Location: S3+13
Function Call: WRITE
  • Prompt: !,"FEE: ",$P(ADEV(ADECOD),U,3)
  • Condition for execution: ADECON
  • Line Location: S3+13
Function Call: WRITE
  • Prompt: *7,ADEPC," ??"
  • Line Location: PARSE+3
Function Call: WRITE
  • Prompt: *7," --DUPE OPSITES NOT ALLOWED"
  • Line Location: PARSE+4
Function Call: WRITE
  • Prompt: *7," '",ADEPC,"' IS NOT A VALID SURFACE"
  • Line Location: PARSE+5
Function Call: WRITE
  • Prompt: !!,ADEPC
  • Line Location: VEROP+5
Function Call: WRITE
  • Prompt: !,K
  • Line Location: OPDEL+1
Function Call: WRITE
  • Prompt: !!,?2,ADECOD,?13,"DELETE WHICH OPSITE: "
  • Line Location: OPDEL+2
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: OPDEL+3
Routine Call
  • DIC
  • Line Location:
    • VEROP+4
    • VEROP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ADEOPS - [#9002010.03] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEOPS - [#9002010.03] OPDFLT+5, OPDFLT+6

Label References

Name Line Occurrences
$$ADDOP PARSE+7
$$OPDFLT S3+7
$$SPLIT PARSE+1
$$VERSFC PARSE+5
ADD1 ADDOP+4
OPD1 OPDEL
OPDEL S3+14
S3 S3+13, S3+14, PARSE+3, PARSE+4, PARSE+5
VEROP PARSE+2, OPD1
VQ VEROP+2, VEROP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADEADD S3+15!*, PARSE+3!, PARSE+4!, PARSE+5!, PARSE+6, PARSE+9!
ADECNT SPLIT+1~, SPLIT+2*, SPLIT+3*, SPLIT+4*, SPLIT+5*
>> ADECOD S3+6, S3+11, S3+12, S3+13, S3+14, PARSE+6, PARSE+7, PARSE+8, OPDEL+2, OPD1+2
>> ADECON S3+13
ADEDEF S3+6*, S3+7*, S3+8, S3+10, S3+11, S3+12, OPDFLT~, OPDFLT+2, OPDFLT+3, OPDFLT+4
, OPDFLT+8
ADEDEL S3+14*, OPDEL, OPDEL+2*, OPDEL+4, OPD1!, OPD1+1*, OPD1+2
>> ADEDENT ADEGRL5+3*
>> ADEDES( S3+11!, S3+12!
>> ADEDIC("S" S3+1*, VEROP+2, VEROP+4, VEROP+5
ADEI VERSFC+2~, VERSFC+7*
ADEJ SPLIT+1~, SPLIT+3*, SPLIT+5*, SPLIT+7*, OPDFLT+1~, OPDFLT+4*, OPDFLT+5, OPDFLT+6, OPDFLT+8*, ADDOP+2~
, ADDOP+4*
ADEK ADDOP+2~, ADD1*
ADENOOP PARSE+2, PARSE+3!, VEROP+6*, OPD1!
ADEOP S3+9*, S3+10, S3+11, S3+12, S3+13, S3+14, S3+15*, PARSE+1*, PARSE+2*, PARSE+3!
, PARSE+4!, PARSE+5!, PARSE+7, PARSE+8, PARSE+9!, SPLIT~, SPLIT+3, SPLIT+5*, SPLIT+7*, SPLIT+8
, ADDOP~, ADDOP+4, ADDOP+5, ADDOP+6
ADEOPC OPDFLT+1~, OPDFLT+7*, OPDFLT+8*
ADEOPS OPDFLT+1~, OPDFLT+2*, OPDFLT+5*, OPDFLT+6*, OPDFLT+8*, OPDFLT+9, OPDFLT+10!
ADEP VERSFC+2~, VERSFC+7*, VERSFC+9!
ADEPC PARSE+2*, PARSE+3, PARSE+5*, VEROP+1, VEROP+5, OPD1*, SPLIT+1~, SPLIT+3*, SPLIT+7*, OPDFLT+1~
, OPDFLT+8*, ADDOP+2~, ADDOP+4*, ADD1
ADEPC2 ADDOP+2~, ADDOP+8!, ADD1*
>> ADEPLET OPDFLT+5
ADESFC PARSE+1*, PARSE+3!, PARSE+4!, PARSE+5!, PARSE+7, PARSE+8, PARSE+9!, SPLIT+1~, SPLIT+2*, SPLIT+3*
, SPLIT+5, SPLIT+6*, SPLIT+7*, SPLIT+8, OPDFLT+1~, OPDFLT+3*, OPDFLT+8, ADDOP~, ADDOP+5, ADDOP+6
>> ADEV( S3+6, S3+11!, S3+12!, S3+13, S3+14, PARSE+6, PARSE+7*, PARSE+8*, OPD1+2*
ADEVTMP ADDOP~, ADDOP+4, ADDOP+5*, ADDOP+6*, ADDOP+7, ADDOP+8!, ADD1*
ADEX VERSFC~, VERSFC+4, VERSFC+5, VERSFC+6, VERSFC+7
ADEY VERSFC+2~, VERSFC+3*, VERSFC+7*, VERSFC+8
>> D VEROP+2*, VEROP+3*
DIC VEROP+1!*, VEROP+6!, VQ!
DIC("S" VEROP+2*, VEROP+4*, VEROP+5*
DIC(0 VEROP+2*, VEROP+3*, VEROP+4*, VEROP+5*
DTIME S3+9, OPDEL+2
>> J PARSE+2*, PARSE+5*
K OPDEL+1!*
U ADEGRL5+3, S3+13, S3+14, PARSE+1, PARSE+8, OPDFLT+2, OPDFLT+3, OPDFLT+4, OPDFLT+5, OPDFLT+8
, ADDOP+5, ADDOP+6, ADD1
>> X VEROP+1*, VEROP+3
XQH S3+13*!
Y PARSE+2, VEROP+1*, VEROP+2, VEROP+3, VEROP+4!, VEROP+5!, VEROP+6, OPD1+1
Y(0 ADEGRL5+3
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 |  Local Variables |  All