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

Package: IHS Dental System

Routine: ADEXER


Information

ADEXER ; IHS/HQT/MJL - DENTAL ERROR REPORT PT 1 ; [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEXER.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS Dental System 2 START^ADEXER1  ^ADEXER3  
Kernel 2 ^%ZIS  ^%ZTLOAD  
IHS VA Utilities 1 ^XBKVAR  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Dental System 1 ADEXER1  

Entry Points

Name Comments DBIA/ICR reference
QUIT
OK ;
ADEX1
KILLERR ; EP
QUE
DATE
ADEXCK
ASKDEV

External References

Name Field # of Occurrence
^%DT DATE, DATE+1
^%ZIS ASKDEV
^%ZTLOAD QUE, QUE+1
START^ADEXER1 ASKDEV+1
^ADEXER3 ASKDEV+2
^XBKVAR ADEXER+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Dental Service Data Error Report",!!
  • Line Location: ADEXER+2
Function Call: READ
  • Prompt: "Press 'ENTER' to continue "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: ADEXER+4
Function Call: WRITE
  • Prompt: "RPMS SITE File not properly initialized."
  • Line Location: ADEXER+4
Function Call: WRITE
  • Prompt: !,"No error reports are on file... "
  • Line Location: ADEXCK+0
Function Call: WRITE
  • Prompt: !!,"The error report of "
  • Line Location: ADEX1+0
Function Call: WRITE
  • Prompt: Y," is still stored.",!,"It covered the period from "
  • Line Location: ADEX1+0
Function Call: WRITE
  • Prompt: Y," is still stored.",!,"It covered the period from "
  • Line Location: ADEX1+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ADEX1+1
Function Call: WRITE
  • Prompt: !!,"Answer 'Y' if you want to print out the report,",!,"Answer 'N' if you want to erase the old report and run a new error check."
  • Line Location: ADEX1+2
Function Call: WRITE
  • Prompt: !,*7,"Beginning date must be before ending date."
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !,"REQUEST QUEUED."
  • Line Location: ASKDEV+0
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADERROR( ADEXCK, KILLERR+1!
^ADERROR(0 ADEXCK+2, ADEX1, ADEX1+1
^AUTTSITE(1 ADEXER+4
^DD("DD" ADEX1, ADEX1+1

Label References

Name Line Occurrences
ADEX1 ADEX1+2
ASKDEV ADEX1+3
DATE DATE+2, DATE+3
KILLERR ADEXCK+2
OK ADEXCK, ADEXCK+2
QUE ASKDEV
QUIT ADEXER+4, DATE+1, DATE+2, ASKDEV

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE*!, DATE+1*!
%DT("A" DATE*, DATE+1*
%DT(0 DATE+1*
>> %ZIS ASKDEV*
ADEBDT DATE!, DATE+1*, DATE+3, QUIT!
ADEND DATE!, DATE+2*, DATE+3, QUIT!
ADEOLD ADEX1+3*, ASKDEV+1, QUE, QUIT!
ADESUB KILLERR+1*, KILLERR+2!
DTIME ADEXER+4, ADEX1+1
IO ASKDEV+1, ASKDEV+2
IO("Q" ASKDEV!
>> POP ASKDEV
U ADEX1, ADEX1+1, DATE*
>> X ADEXER+4*, ADEX1+1*, ADEX1+2, ADEX1+3, DATE+2
>> Y ADEX1*, ADEX1+1*, DATE+1, DATE+2
>> ZTDESC QUE*, QUE+1*
>> ZTRTN QUE*, QUE+1*
>> ZTSAVE("ADEBDT" QUE*
>> ZTSAVE("ADEND" QUE*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All