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

Package: IHS Dental System

Routine: ADEXSU


Information

ADEXSU ; IHS/HQT/MJL - DENTAL EXTRACT PART 1 ; [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEXSU.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
IHS Dental System 2 RESET2^ADERFLG  ADEXCK^ADEXSU0  
IHS VA Utilities 1 ^XBKVAR  
VA Fileman 1 ^DIC  

Entry Points

Name Comments DBIA/ICR reference
LOG6
QUIT
LOG4
LOG5
LOG2
LOG3
LOG1
CTRL ;------->IF NO PREVIOUS EXTRACTION GO SUEX0
INIT
END ;

External References

Name Field # of Occurrence
RESET2^ADERFLG LOG1+5, LOG2+4
ADEXCK^ADEXSU0 CTRL+1, LOG1+8, LOG2+4, LOG5+3, LOG6+4
^DIC LOG4
^XBKVAR INIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Dental Service Data Extraction for Transmission to Area HQ",!!
  • Line Location: ADEXSU+2
Function Call: WRITE
  • Prompt: "RPMS SITE File not properly initialized. Contact Site Manager."
  • Line Location: INIT+1
Function Call: WRITE
  • Prompt: "DENTAL SITE PARAMETER File not initialized. Contact Site Manager."
  • Line Location: INIT+2
Function Call: WRITE
  • Prompt: "The last data extraction was performed on ",ADELDAY
  • Line Location: CTRL+3
Function Call: WRITE
  • Prompt: " but it ended abnormally."
  • Line Location: CTRL+5
Function Call: WRITE
  • Prompt: " and it finished normally."
  • Line Location: CTRL+7
Function Call: WRITE
  • Prompt: !,"LOG FILE CORRUPTED!"
  • Line Location: CTRL+11
Function Call: WRITE
  • Prompt: !,"LOG FILE CORRUPTED!"
  • Line Location: CTRL+12
Function Call: READ
  • Timeout: DTIME
  • Line Location: LOG1+0
Function Call: WRITE
  • Prompt: !!,"Answer 'Yes' to delete all extract flags set on ",ADELDAY," and proceed",!,"with a fresh extraction of all unflagged visits. You will be prompted"
  • Line Location: LOG1+1
Function Call: WRITE
  • Prompt: !,"for a Beginning Date and an Ending date.",!,"Answer 'N' to quit without changing anything."
  • Line Location: LOG1+2
Function Call: READ
  • Prompt: "Do you want to repeat an extraction run earlier today? N// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: LOG2+0
Function Call: WRITE
  • Prompt: !!,"Answer 'Yes' to delete all extract flags set earlier today",!,"and proceed with a fresh extraction of unflagged visits. You will be"
  • Line Location: LOG2+1
Function Call: WRITE
  • Prompt: !,"prompted for a Beginning Date and an Ending date.",!,"Answer 'N' to quit without changing anything."
  • Line Location: LOG2+2
Function Call: READ
  • Prompt: "Do you want to DUPLICATE an extraction run previously? N// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: LOG3+0
Function Call: WRITE
  • Prompt: !!,"Answer 'Yes' to duplicate a previous extraction. No extraction flags will be",!,"set or reset. You will be asked to select a date from the Data Extraction Log",!,"File. Only visits extracted on that day will be stored."
  • Line Location: LOG3+1
Function Call: WRITE
  • Prompt: " -- Data extraction cancelled"
  • Line Location: LOG4+0
Function Call: WRITE
  • Prompt: !!,"Ready to repeat extraction performed originally on ",Y(0,0),".",!,"The original record count was ",$S($P(ADEXNOD,U,4)]"":$P(ADEXNOD,U,4),1:0),", but this may be different",!,"today if visits have been modified or deleted."
  • Line Location: LOG4+2
Function Call: READ
  • Prompt: "Are you sure everything's OK? NO// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: LOG5+0
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N'"
  • Line Location: LOG5+1
Function Call: WRITE
  • Prompt: " -- Data extraction cancelled"
  • Line Location: LOG5+2
Function Call: READ
  • Prompt: "Do you want to run a new data extraction today? N//"
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: LOG6+0
Function Call: WRITE
  • Prompt: !!,"Answer 'Y' to extract data from all dental records not already flagged",!,"as extracted. You will be asked for a range of dates to extract from.",!,"Answer 'N' to quit without changing anything.",!
  • Line Location: LOG6+1
Function Call: WRITE
  • Prompt: " -- Data extraction cancelled"
  • Line Location: LOG6+2
Routine Call
  • DIC
  • Line Location:
    • LOG4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ADELOG - [#9002009] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADELOG - [#9002009] CTRL+12, CTRL+15, LOG4+1
^ADELOG("LAST" CTRL+1, CTRL+3, CTRL+11, CTRL+12, CTRL+13, LOG1+6
^ADEPARAM - [#9002006] INIT+2, INIT+3
^AUTTSITE(1 INIT+1, INIT+2, INIT+3
^DD("DD" CTRL+3

Label References

Name Line Occurrences
LOG1 CTRL+5, CTRL+15, LOG1+2
LOG2 CTRL+17, LOG2+2
LOG3 CTRL+9, LOG2+3, LOG3+1, LOG6
LOG5 LOG5+1
LOG6 LOG3+2, LOG6+1
QUIT INIT+1, INIT+2, CTRL+11, CTRL+12, LOG1, LOG1+3, LOG2, LOG3, LOG4, LOG5
, LOG5+2, LOG6, LOG6+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT LOG4*!
ADEBDT LOG4+1*, QUIT!
ADECHS INIT+3*, QUIT!
ADELAST CTRL+3*, CTRL+9, LOG1+4, LOG2+4, LOG6, QUIT!
ADELDAY CTRL+3*, LOG1+1, QUIT!
ADEND LOG4+1*, QUIT!
ADERDV LOG1+4*, LOG1+5!, LOG2+4*
ADERERUN LOG1+7*, LOG2+4*, QUIT!
ADEREX LOG4+1*, QUIT!
ADESTAT CTRL+3*, CTRL+5, QUIT!
ADEXDA CTRL+13*, CTRL+15, LOG1+6*!, LOG4+1*, QUIT!
ADEXDT CTRL+1*, LOG1+4*, LOG2+4*, LOG4+1*, LOG6+3*, QUIT!
ADEXNOD LOG4+1*, LOG4+2, QUIT!
DIC LOG4*!
DIC("A" LOG4*
DIC("S" LOG4*
DIC(0 LOG4*
DT CTRL+1, CTRL+9, LOG1+4, LOG2+4, LOG6, LOG6+3
DTIME LOG1, LOG2, LOG3, LOG5, LOG6
U INIT+3, CTRL+3, CTRL+11, CTRL+12, CTRL+13, CTRL+15, LOG1+6, LOG4+1, LOG4+2
>> X LOG1*, LOG1+1, LOG1+2, LOG1+3, LOG2*, LOG2+1, LOG2+2, LOG2+3, LOG3*, LOG3+1
, LOG3+2, LOG5*, LOG5+1, LOG5+2, LOG6*, LOG6+1, LOG6+2
>> Y CTRL+3*, LOG4, LOG4+1
>> Y(0 LOG4+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All