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

Package: IHS Dental System

Routine: ADEGRL4


Information

ADEGRL4 ; IHS/HQT/MJL - DENTAL ENTRY PART 6 ;09:35 PM [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEGRL4.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS Dental System 3 ^ADECLS  LIST^ADEGRL3  ^ADEHELP  
VA Fileman 3 ^%DT  ^DIC  ^DIR  
IHS VA Utilities 1 $$FISCAL^XBDT  
Kernel 1 EN^XQH  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Dental System 3 ADEGRL3  ADEGRL31  ADEGRL32  

Entry Points

Name Comments DBIA/ICR reference
NOTE ;EP
FYVIS(ADEPAT,ADEVDATE) ;EP - Returns "1/0^Visit Status"
PROV ;EP
REPD2
VSTAT2
VSTAT ;EP
VSTAT1
PROV2
FAC
REPD ;EP

External References

Name Field # of Occurrence
^%DT FYVIS+7
^ADECLS VSTAT1+12
LIST^ADEGRL3 VSTAT1, VSTAT1+12
^ADEHELP VSTAT1+12
^DIC FAC, PROV+6, REPD+6
^DIR PROV2+4, REPD2+3
$$FISCAL^XBDT FYVIS+13
EN^XQH VSTAT1+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Visit Status Codes:",!,?8,"1 First Visit of the Fiscal Year",?52,"(0000)",!,?8,"2 Revisit (for any reason)",?52,"(0190)"
  • Line Location: VSTAT1+1
Function Call: WRITE
  • Prompt: !!,"Select Visit Status: "
  • Line Location: VSTAT1+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: VSTAT1+6
Function Call: WRITE
  • Prompt: *7,"??"
  • Line Location: VSTAT1+13
Function Call: WRITE
  • Prompt: *7,"??"
  • Line Location: VSTAT1+14
Function Call: WRITE
  • Prompt: !,"Select HYGIENIST/THERAPIST: ",$S(ADEPVNM]"":ADEPVNM_"// ",1:"")
  • Line Location: PROV+4
Function Call: WRITE
  • Prompt: !!,"Do you want to use this same HYGIENIST/THERAPIST for subsequent",!,"visits in this data entry session?"
  • Line Location: PROV2+2
Function Call: WRITE
  • Prompt: !,"Select ATTENDING DENTIST: ",$S(ADERDNM]"":ADERDNM_"// ",1:"")
  • Line Location: REPD+4
Function Call: WRITE
  • Prompt: !!,"Do you want to use this same ATTENDING DENTIST for subsequent",!,"visits in this data entry session?"
  • Line Location: REPD2+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: NOTE+2
Function Call: WRITE
  • Prompt: *7
  • Line Location: NOTE+2
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: NOTE+5
Routine Call
  • DIC
  • Line Location:
    • FAC
    • PROV+6
    • REPD+6
Routine Call
  • DIR
  • Line Location:
    • PROV2+4
    • REPD2+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ADEPARAM - [#9002006] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEPCD - [#9002007] FYVIS+34, FYVIS+35
^ADEPCD("AC" FYVIS+18, FYVIS+19
^ADEPCD("DATE" FYVIS+23, FYVIS+25, FYVIS+32, FYVIS+33
^AUTTADA("B" FYVIS+30, FYVIS+31
^DD(9002007 NOTE+5

Label References

Name Line Occurrences
$$FYVIS VSTAT+2
NOTE NOTE+5
PROV PROV+9
PROV2 PROV+7
REPD REPD+9
REPD2 REPD+7
VSTAT1 VSTAT1+12, VSTAT1+13, VSTAT1+14
VSTAT2 VSTAT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT FYVIS+7*
ADECNT FYVIS+6~, FYVIS+16*, FYVIS+18, FYVIS+19*, FYVIS+21
>> ADECON VSTAT1+14
>> ADEDES("0000" VSTAT2*
>> ADEDES("0190" VSTAT2*
>> ADEDES("9130" VSTAT2*
>> ADEDES("9140" VSTAT2*
>> ADEDES("9986" VSTAT2*
>> ADEDES("9987" VSTAT2*
ADEDICS PROV+7!, PROV+8!, PROV+11!, REPD+7!, REPD+8!, REPD+11!
>> ADEDIR VSTAT1+4, VSTAT1+9, VSTAT1+13
>> ADEFLG FYVIS+28*, FYVIS+32, FYVIS+33, FYVIS+34*, FYVIS+35*, FYVIS+36
ADEFV FYVIS+6~, FYVIS+30*, FYVIS+34
ADEFY FYVIS+6~, FYVIS+13*, FYVIS+14, FYVIS+16, FYVIS+18, FYVIS+24, FYVIS+25, FYVIS+29, FYVIS+38!
ADEJ VSTAT+1~, VSTAT+2*, VSTAT+3, FYVIS+6~, FYVIS+16*, FYVIS+18*, FYVIS+19, FYVIS+24*, FYVIS+25*, FYVIS+26
, FYVIS+29*, FYVIS+32*, FYVIS+33
ADEK FYVIS+6~, FYVIS+19*, FYVIS+33*, FYVIS+34, FYVIS+35
>> ADELOE FAC, FAC+1*
>> ADELOED FAC+1*
ADENDFY FYVIS+6~, FYVIS+14*, FYVIS+26, FYVIS+38!
>> ADENOTE NOTE+1, NOTE+4*, NOTE+6*
ADEPAT VSTAT+2, FYVIS~, FYVIS+23, FYVIS+25, FYVIS+32, FYVIS+33
>> ADEPRO PROV2+5*
>> ADEPROD PROV2+5*
>> ADEPVNM PROV+4, PROV+7*, PROV+10*, PROV2+5
>> ADEPVNMD PROV+7*, PROV+10*, PROV2+5
>> ADERDNM REPD+4, REPD+7*, REPD+10*, REPD2+4
>> ADERDNMD REPD+7*, REPD+10*, REPD2+4
>> ADEREP REPD2+4*
>> ADEREPD REPD2+4*
ADERV FYVIS+6~, FYVIS+31*, FYVIS+35
>> ADEV( VSTAT+3*, VSTAT1+17*
ADEVDATE VSTAT+2, FYVIS~, FYVIS+7
ADEVFM FYVIS+6~, FYVIS+7*, FYVIS+12, FYVIS+13
>> DA(1 FAC*
DIC FAC!*, PROV+2!*, PROV+7!, PROV+8!, PROV+11!, REPD+2!*, REPD+7!, REPD+8!, REPD+11!
DIC("A" FAC*
DIC("B" FAC*
DIC("S" PROV+3*, REPD+3*
DIC(0 FAC*, PROV+2*, REPD+2*
DIR PROV+1~, REPD+1~
DIR("B" PROV2+3*, REPD2+2*
DIR(0 PROV2*, REPD2*
DTIME VSTAT1+6, PROV+4, REPD+4, NOTE+2
DUZ(2 FAC
U VSTAT+3, PROV+10, REPD+10, NOTE+5, FYVIS+13
>> X VSTAT1+6*, VSTAT1+9*, VSTAT1+10*, VSTAT1+11, VSTAT1+12, VSTAT1+13, VSTAT1+14, VSTAT1+17, PROV+4*, PROV+7
, PROV+8, REPD+4*, REPD+7, REPD+8, NOTE+2*, NOTE+3, NOTE+4, NOTE+5, NOTE+6, FYVIS+7*
XQH VSTAT1+12*!
Y VSTAT1+6*, VSTAT1+11*, VSTAT2*, FAC!, PROV+2!, PROV+7!, PROV+8!, PROV+9, PROV+10, PROV2+5
, REPD+2!, REPD+7!, REPD+8!, REPD+9, REPD+10, REPD2+4, FYVIS+7
Y(0 FAC+1, PROV+10, REPD+10
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