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

Package: IHS Dental System

Routine: ADEFFLG


Information

ADEFFLG ; IHS/HQT/MJL - RESET F- EXTRACT FLAG ; [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEFFLG.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
IHS VA Utilities 1 ^XBKVAR  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Dental System 1 ADEFLEX  

Entry Points

Name Comments DBIA/ICR reference
RESETA ; THIS ENTRY POINT WILL CLEAR XTRACT FLAG IN ALL FLUORIDE SURVEILLANCE
; RECORDS
ASK ;
RESET2 ;EP
; THIS ENTRY EXPECTS ADEFDV AND RESETS THE CORRESPONDING
; FLAGS
RESET1 ; THIS ENTRY POINT WILL ASK FOR A DATE FOR WHICH THE
; XTRACT FLAG IS TO BE RESET
; Entry point not called from within dental package. For programmer
; diagnostic and troubleshooting use only.

External References

Name Field # of Occurrence
^%DT RESET1+10
^XBKVAR RESETA+2, RESET1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine (ADEFFLG) should not be entered at the top.",!!
  • Line Location: ADEFFLG+2
Function Call: WRITE
  • Prompt: !!,"This will clear ALL date stamps from ALL records in the FLUORIDE",!,"SURVEILLANCE file from which data has been extracted.",!,"Stop now if you're not sure what you're doing.",!
  • Line Location: RESETA+3
Function Call: READ
  • Prompt: "Ok to continue? N// "
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"Records from which data has been extracted are marked with the date the",!,"extraction was performed so that they will not be processed again for",!,"transmission to Area/DPSB. You will lose that indicator if you proceed.",!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: " -- reset canceled",!
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"Beginning reset.",!
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: ADEFDV," "
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: "Done!",!
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !,"Dates of prior extractions:",!
  • Line Location: RESET1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: RESET1+10
Function Call: WRITE
  • Prompt: ADEFDV," Reset.",!
  • Line Location: RESET2+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEFLU - [#9002002.1] RESET2+4
^ADEFLU("AC" ASK+5, RESET2+4!

Label References

Name Line Occurrences
ASK ASK+2
RESET1 RESET1+9
RESET2 ASK+5, RESET1+13

Naked Globals

Name Field # of Occurrence
^(0 RESET2+4*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+5*
>> %DT RESET1+5*
ADEA RESET2+4*, RESET2+6!
ADEB RESET2+4*, RESET2+6!
ADED RESET2+4*, RESET2+6!
ADEFDV ASK+5*, RESET1+12*, RESET2+3, RESET2+4, RESET2+5, RESET2+6!
DTIME ASK+1, RESET1+6
U RESET2+4
>> X ASK+1*, ASK+2, ASK+3, RESET1+6*, RESET1+8, RESET1+9
>> Y RESET1+11, RESET1+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All