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

Package: IHS Dental System

Routine: ADERFLG


Information

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

Source Information

Source file <ADERFLG.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 ADEXSU  

Entry Points

Name Comments DBIA/ICR reference
RESETA ; THIS ENTRY POINT WILL CLEAR DPSC FLAG IN ALL RECORDS
; Entry point not called from within dental package. For programmer
; diagnostic and troubleshooting use only.
ASK ;
RESET2 ;EP
; THIS ENTRY EXPECTS ADERDV AND REMOVES THE CORRESPONDING
; EXTRACT FLAGS - Called by "Re-extraction" process of ADEXSU
RESET1 ; THIS ENTRY POINT WILL ASK FOR A DATE FOR WHICH THE
; DPSC 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+3, RESET1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine (ADERFLG) should not be entered at the top.",!!
  • Line Location: ADERFLG+3
Function Call: WRITE
  • Prompt: !!,"This will clear date stamps for ALL records from which data has been extracted.",!
  • Line Location: RESETA+4
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: ADERDV," "
  • 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: !,"Please wait..."
  • Line Location: RESET2+5
Function Call: WRITE
  • Prompt: ADERDV," Reset.",!
  • Line Location: RESET2+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ADEPCD - [#9002007] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEPCD - [#9002007] RESET2+9*
^ADEPCD("AI" ASK+5, RESET2+7, RESET2+10!

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+5*
>> %DT RESET1+5*
ADERDV ASK+5*, RESET1+12*, RESET2+4, RESET2+7, RESET2+10, RESET2+12, RESET2+13!
DA RESET2+3~, RESET2+6*, RESET2+7*, RESET2+9, RESET2+10
DIE RESET2+3~, RESET2+6*
DR RESET2+3~, RESET2+6*
DTIME ASK+1, RESET1+6
U RESET2+9
>> 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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All