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

Package: IHS Dental System

Routine: ADEGRL31


Information

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

Source Information

Source file <ADEGRL31.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS Dental System 3 $$HAT^ADEGRL1  LIST^ADEGRL3  PROV^ADEGRL4  
VA Fileman 2 YN^DICN  ^DIR  
Kernel 1 EN^XQH  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Dental System 2 ADEATT2  ADEGRL3  

Entry Points

Name Comments DBIA/ICR reference
TFEE ;EP
HYGCHK ;
FEE ;EP
CHK
EXIT ;EP
DEL ;EP
CON
D1

External References

Name Field # of Occurrence
$$HAT^ADEGRL1 HYGCHK+10
LIST^ADEGRL3 DEL+1, FEE+5
PROV^ADEGRL4 HYGCHK+11
YN^DICN CHK
^DIR HYGCHK+9
EN^XQH FEE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"DELETE WHICH CODE? "
  • Line Location: D1+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: !,?5,"ENTER AN ADA CODE FROM THE ABOVE LIST TO DELETE",!,?10,"OR PRESS 'RETURN' TO DELETE NOTHING"
  • Line Location: D1+3
Function Call: WRITE
  • Prompt: *7,"??"
  • Line Location: D1+4
Function Call: WRITE
  • Prompt: !!,?20,"***DATA ENTRY ABORTED***",*7
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !,*7,"YOU MUST ENTER A LOCATION OF ENCOUNTER. ENTER ^L AT THE 'Select ADA CODE",!,"(or Action)' PROMPT TO EDIT LOCATION OF ENCOUNTER."
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: !,*7,"YOU MUST ENTER AN ATTENDING DENTIST. ENTER ^D AT THE 'Select ADA CODE,",!,"(or Action)' PROMPT TO EDIT ATTENDING DENTIST."
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: !,*7,"You must enter a VISIT STATUS Code, either 0000, 0190, 9130, or 9140."
  • Line Location: EXIT+5
Function Call: WRITE
  • Prompt: !,*7,"You must enter a VISIT STATUS Code, either 0000, 0190, 9986, or 9987."
  • Line Location: EXIT+7
Function Call: WRITE
  • Prompt: !!,"Ready to file this record"
  • Line Location: CHK+0
Function Call: WRITE
  • Prompt: !,?5,"Enter `Y' to save this visit permanently in the computer",!,?5,"Enter `N' to go back and continue editing the visit."
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !,"TOTAL CHARGE THIS VISIT: ",$J(ADETCH,4,2),"// "
  • Line Location: TFEE+1
Function Call: WRITE
  • Prompt: !,"ENTER THE TOTAL CHARGE FOR THIS VISIT"
  • Line Location: TFEE+4
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: TFEE+6
Function Call: READ
  • Prompt: "(Press ENTER to continue) "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: CON+0
Function Call: WRITE
  • Prompt: !,"FEE: "
  • Line Location: FEE+1
Function Call: READ
  • Timeout: DTIME
  • Variable: ADEFEE
  • Line Location: FEE+3
Function Call: WRITE
  • Prompt: !,"ADA Code: ",ADECOD
  • Line Location: FEE+5
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: FEE+7
Routine Call
  • DIR
  • Line Location:
    • HYGCHK+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEDIT("GRP" - [#9002007.91] HYGCHK+3

Label References

Name Line Occurrences
CHK EXIT+10, CHK+1
CON EXIT+2, EXIT+3, EXIT+7
D1 D1+3, D1+4
FEE FEE+5, FEE+7
HYGCHK EXIT+9
TFEE TFEE+4, TFEE+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CHK*, CHK+2, CHK+3
>> %Y CHK+1
>> ADECOD FEE+2, FEE+5, FEE+8
>> ADEDEF FEE+2*, FEE+4
>> ADEDES( D1+5!
ADEFEE FEE+3*, FEE+4*, FEE+5, FEE+6, FEE+7*!, FEE+8
ADEFLG HYGCHK+2~, HYGCHK+3*, HYGCHK+4*, HYGCHK+5
ADEGRP HYGCHK+2~, HYGCHK+3*, HYGCHK+4, HYGCHK+13!
ADEHOLD FEE+5*!
ADEJ HYGCHK+2~, HYGCHK+4*
>> ADELOED EXIT+2
>> ADENOUPD EXIT+1*
>> ADEPVNM HYGCHK+1
>> ADERDNMD EXIT+3
>> ADETCH TFEE+1, TFEE+7*
>> ADETCHF TFEE+7*
>> ADEV DEL+1
>> ADEV( D1+4, D1+5!, HYGCHK+4, FEE+2, FEE+8*
>> ADEV("0000" EXIT+7
>> ADEV("0190" EXIT+7
>> ADEV("9130" EXIT+7
>> ADEV("9140" EXIT+7
>> ADEV("9986" EXIT+7
>> ADEV("9987" EXIT+7
>> ADEY FEE+6*
DIR HYGCHK+2~
DIR("A" HYGCHK+6*, HYGCHK+7*
DIR("B" HYGCHK+8*
DIR(0 HYGCHK+6*
DTIME D1+1, TFEE+2, CON, FEE+3
U HYGCHK+10, FEE+2, FEE+8
X D1+1*, D1+2, D1+3, D1+4, D1+5, EXIT+1, HYGCHK+10, TFEE+2*, TFEE+3, TFEE+4
, TFEE+5, TFEE+6*!, TFEE+7, CON*!
XQH FEE+5*!
>> Y EXIT+1*, EXIT+2*, EXIT+3*, EXIT+7*, EXIT+10, EXIT+11*, CHK+2*, CHK+3*, CHK+4*, HYGCHK+10
, TFEE+3*, TFEE+5*, TFEE+7*
>> Y(0 FEE+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All