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

Package: IHS Dental System

Routine: ADEFLEX0


Information

ADEFLEX0 ; IHS/HQT/MJL - EXTRACT F- DATA PART 2 ; [ 03/29/1999 8:33 AM ]

Source Information

Source file <ADEFLEX0.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 4 ^%DT  FILE^DICN  ^DIE  ^DIK  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
IHS Dental System 1 (ERR1,ERR2,ERR3,ERR4,ERR5,ERR6,ERR7,ERR8,ERR9)^ADEFLEX1  
IHS VA Utilities 1 ^XBKVAR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Dental System 2 ADEFLEX  ADEFLEX1  

Entry Points

Name Comments DBIA/ICR reference
QUIT
OK
CONFIRM
S3 ;EP
S2 ;EP
S1
START ;
QUE
DATE
END
ASKDEV

External References

Name Field # of Occurrence
^%DT DATE, DATE+1
^%ZIS ASKDEV
^%ZISC END+9
^%ZTLOAD QUE+1
ERR1^ADEFLEX1 S2+2
ERR2^ADEFLEX1 S2+3
ERR3^ADEFLEX1 S2+3
ERR4^ADEFLEX1 S3+2
ERR5^ADEFLEX1 S3+6
ERR6^ADEFLEX1 S3+7
ERR7^ADEFLEX1 S3+8
ERR8^ADEFLEX1 S3+9
ERR9^ADEFLEX1 S3+10
FILE^DICN START+21
^DIE END+6, S3+13
^DIK START+13
^XBKVAR ADEFLEX0+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Fluoride Data Extraction for Transmission to Area/DPSB",!!
  • Line Location: ADEFLEX0+3
Function Call: WRITE
  • Prompt: "The data extraction holding area will be purged if you continue.",!
  • Line Location: ADEFLEX0+6
Function Call: READ
  • Prompt: "Ok to continue? N// "
  • Timeout: DTIME
  • Variable: X
  • Line Location: CONFIRM+0
Function Call: WRITE
  • Prompt: !,"It is ok to clear the data extraction holding file if a cartridge",!,"containing that extracted data has been made and sent to AREA or DPSB.",!
  • Line Location: CONFIRM+1
Function Call: WRITE
  • Prompt: " -- data extraction canceled.",!
  • Line Location: CONFIRM+2
Function Call: WRITE
  • Prompt: !,"REQUEST QUEUED."
  • Line Location: ASKDEV+0
Function Call: WRITE
  • Prompt: !!,?15,"PROCESSING COMPLETE. ",ADERC-1," RECORDS PROCESSED."
  • Line Location: END+8
Function Call: WRITE
  • Prompt: !!!,?15,"FLUORIDATION DATA EXTRACTION BEGUN...",!!,?15,"RECORD SCANNING "
  • Line Location: START+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: S3+14
Routine Call
  • DIE
  • Line Location:
    • END+6
    • S3+13
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEFDATA ADEFLEX0+5, START+5, START+6!, S3+12*
^ADEFDATA(0 END*
^ADEFLU - [#9002002.1] S2+2, S3+2, S3+3
^ADEFLU("AB" S1, S2+1, S3+1
^ADELOG - [#9002009] START+11
^ADEWS - [#9002004] S2+3
^AUTTLOC - [#9999999.06] END
^AUTTSITE(1 END
^DIC(16 - [#16] S3+8, S3+9
^DIC(4 - [#4] END

Label References

Name Line Occurrences
ASKDEV OK
CONFIRM CONFIRM+1
DATE DATE+2
END S1
OK ADEFLEX0+5
QUE ASKDEV
QUIT CONFIRM+2, DATE+1, DATE+2, ASKDEV
S1 S2+1
S2 S3+1
S3 S3+4, S3+5, S3+14
START ASKDEV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DATE*
>> %DT("A" DATE*, DATE+1*
>> %DT(0 DATE+1*
>> %ZIS ASKDEV*
ADEB DATE+1*, END, QUIT!, START+4, START+18
ADEBD QUIT!, START+4*, S1*, S2+1, S3+1, S3+12
ADED0 QUIT!, S1*, S2+1*, S2+2, S3+1, S3+2, S3+3, S3+13
ADED1 QUIT!, S2+1*, S3+1*, S3+2, S3+3, S3+13
ADEDUZ QUIT!
ADEEQ QUIT!, S3+6*, S3+12
ADEFDV QUIT!
ADEID QUIT!, S3+7*, S3+8, S3+9*, S3+12
ADELAST END+2~, END+3*, END+7!, QUIT!, START+16~, START+19*, START+23!
ADELDAY QUIT!
ADEND DATE+2*, END, QUIT!, START+18, S1
ADENM QUIT!, S2+1*, S2+3*
ADENO QUIT!, S3+3*, S3+4, S3+5, S3+6, S3+7, S3+10
ADEPPM QUIT!, S3+10*, S3+12
ADERC END, END+4, END+5, END+8, QUIT!, START+4*, S3+12*
ADERERUN QUE+1, QUIT!, START+8
ADERES QUIT!
ADEREX OK, QUE, END+5, QUIT!, START+15, S3+4, S3+5, S3+13
ADERR QUIT!
ADESFC QUIT!, S2+1*, S2+3*, S3+12
ADESSN QUIT!, S3+9*
ADESTAT QUIT!
ADESUB START+6*, START+7!
ADEWP QUIT!, S2+2*, S2+3*
ADEXDA END+3, QUIT!, START+9, START+10, START+11, START+12, START+22*
ADEXDT QUIT!, START+17, S3+5
ADEXNOD QUIT!
DA END+2~, END+3*, END+7!, START+12*, START+14!, S3+13*
DD START+20!
DIC START+16~, START+17*, START+23!
DIC("DR" START+18*
DIC(0 START+17*
DIE END+2~, END+3*, END+7!, S3+13*
DIK START+12*, START+14!
DO START+20!
DR END+2~, END+4*, END+5*, END+7!, START+16~, START+23!, S3+13*
DR(2 S3+13*
DT END, S3+13
DTIME CONFIRM
IO ASKDEV+1, START+1
IO("Q" ASKDEV!
>> POP ASKDEV
U CONFIRM, DATE*, END, S2+2, S2+3, S3+4, S3+5, S3+6, S3+7, S3+9
, S3+10, S3+12
X CONFIRM*, CONFIRM+1, CONFIRM+2, DATE+2, START+16~, START+17*, START+23!
>> Y DATE+1, DATE+2, START+22
>> ZTDESC QUE*
>> ZTRTN QUE*
>> ZTSAVE("ADEB" QUE*
>> ZTSAVE("ADEND" QUE*
>> ZTSAVE("ADERERUN" QUE+1*
>> ZTSAVE("ADEREX" QUE*
>> ZTSAVE("ADEXDA" QUE*, QUE+1*
>> ZTSAVE("ADEXDT" QUE*
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