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

Package: VA FileMan

Routine: DIARR


Information

DIARR ;SFISC/DCM-ARCHIVING FUNCTION, RETRIEVAL OF ARCHIVED RECORD ;8/11/98 13:19

Source Information

Source file <DIARR.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 7 ^DIARR1  ^DIARR2  ^DIARR3  ^DIARR5  ^DIARR6  DT^DICRW  ^DIR  
Kernel 2 (,$$REWIND,HOME)^%ZIS  ^%ZISC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
VA FileMan 1 DIAR  

Entry Points

Name Comments DBIA/ICR reference
START
INIT
SEQDEV
RC
RC2
RC3
FILE
ID
RC1
EOJ

External References

Name Field # of Occurrence
^%ZIS SEQDEV
$$REWIND^%ZIS RC3+1
HOME^%ZIS INIT+1
^%ZISC SEQDEV+1, SEQDEV+2, RC, EOJ
^DIARR1 FILE+4
^DIARR2 FILE+5
^DIARR3 FILE+6
^DIARR5 FILE+7
^DIARR6 RC+1
DT^DICRW INIT+2
^DIR FILE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will scan your archived file and will attempt to retrieve entries"
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !,"that match the name (.01) field and",!,"either Primary KEY or identifier field(s) of the archived file."
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,"Magnetic tapes should be opened with variable length records."
  • Line Location: START+2
Function Call: READ
  • Variable: DIARL Q
  • Timeout: DIARL]""""&($A(DIARL)'=13)
  • Line Location: INIT+0
Function Call: WRITE
  • Prompt: !,$C(7),"This has to be a sequential device."
  • Line Location: SEQDEV+1
Function Call: WRITE
  • Prompt: !,$C(7),"Open this device with variable length records."
  • Line Location: SEQDEV+2
Function Call: WRITE
  • Prompt: !,$C(7),"Archive information is not in filegram format"
  • Line Location: RC+0
Function Call: WRITE
  • Prompt: !!,"Sampling archived file...",!
  • Line Location: RC+2
Function Call: WRITE
  • Prompt: !,"You are reading archived information from the "_DIARFILE_" file."
  • Line Location: FILE+0
Routine Call
  • %ZIS
  • Line Location:
    • SEQDEV
Routine Call
  • %ZIS
  • Line Location:
    • RC3+1
Routine Call
  • %ZIS
  • Line Location:
    • INIT+1
Routine Call
  • DIR
  • Line Location:
    • FILE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("DIAR" INIT+3!, EOJ+3!
^TMP("DIARHLP" RC2+3*, RC2+4*, ID+1*, EOJ+7!
^TMP("DIARO" EOJ+5!

Label References

Name Line Occurrences
EOJ SEQDEV, FILE+2, FILE+4, FILE+8
ID RC2+2
RC1 RC2+2
RC2 RC2+6
RC3 RC+1
SEQDEV SEQDEV+1, SEQDEV+2, RC

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%MT EOJ+1!
>> %ZIS("A" SEQDEV*
>> %ZIS("HFSMODE" SEQDEV*
DIAR01 RC2+3*, RC2+4, RC3*, EOJ+1!
DIARA EOJ+2!
DIARCNT EOJ+6!
DIARCTR EOJ+6!
DIAREOF INIT+4*, EOJ+2!
DIARF2 EOJ+2!
DIARFGEN INIT+4*, EOJ+2!
DIARFGL EOJ+2!
DIARFILE RC2*, FILE, EOJ+1!
DIARFLD EOJ+6!
DIARFLGT EOJ+6!
DIARFN RC2*, RC2+2, EOJ+1!
DIARFN1 RC1*, RC1+1, EOJ+3!
DIARFNA EOJ+6!
DIARFND INIT+4*, EOJ+7!
DIARFNO EOJ+6!
DIARHLP EOJ+4!
DIARID EOJ+1!
DIARID( ID*
DIARIDDN EOJ+2!
DIARIDS EOJ+3!
DIARIDX RC+1*, EOJ+6!
DIARIO SEQDEV+3*, EOJ+1!
DIARIXCT EOJ+7!
DIARIXX EOJ+7!
DIARL RC, RC+1, RC2, RC2+1, RC2+2, RC2+3, RC2+6, ID, ID+1, RC1
, RC1+1, EOJ+2!
DIARLINE INIT+4*, EOJ+3!
DIARMT01 EOJ+2!
DIARMTCH INIT+4*, EOJ+2!
DIARMTID EOJ+2!
DIARNAME RC2+1*, RC2+4, EOJ+4!
DIARNM INIT+4*, RC2+4*, RC3, EOJ+2!
DIAROAT EOJ+4!
DIAROBCK EOJ+6!
DIAROBF EOJ+6!
DIAROBF1 EOJ+6!
DIAROBFN EOJ+6!
DIAROBPT EOJ+5!
DIAROFLD EOJ+4!
DIAROIDF EOJ+4!
DIAROLNE EOJ+5!
DIAROLUP EOJ+5!
DIAROLVL EOJ+4!
DIAROM EOJ+5!
DIAROREQ EOJ+5!
DIAROSF EOJ+6!
DIAROSFN EOJ+6!
DIAROSTK EOJ+4!
DIAROSUB EOJ+5!
DIAROTAB EOJ+5!
DIAROUT INIT+4*, EOJ+1!
DIAROVAL EOJ+4!
DIAROX EOJ+5!
DIAROX1 EOJ+5!
DIAROX2 EOJ+7!
DIAROXPL EOJ+4!
DIAROXX EOJ+6!
DIAROZ EOJ+5!
DIARPC EOJ+7!
DIARPDEV EOJ+1!
DIARPG INIT+4*, EOJ+3!
DIARQUED EOJ+3!
DIARR FILE+4, EOJ+1!
DIARRCT INIT+4*, RC2+3, RC2+4, RC2+5*, RC2+6, ID+1, EOJ+3!
DIARREC EOJ+7!
DIARREQ INIT+4*, FILE+4, EOJ+1!
DIARRF EOJ+3!
DIARRHP INIT+4*, EOJ+4!
DIARTAB EOJ+5!
DIARVAL EOJ+7!
DIARX INIT*, RC, RC2+1, RC2+2, RC2+3, RC2+6, RC1+1, EOJ+1!
DIARX1 INIT+4*, EOJ+3!
DIARXX EOJ+7!
DIARXXX RC3+1*, EOJ+7!
DIARY INIT+4*, EOJ+2!
DIARYY EOJ+7!
DIARZ INIT+4*, EOJ+1!
DIARZ1 INIT+4*, EOJ+3!
DIARZ2 INIT+4*, EOJ+3!
DIARZHP EOJ+4!
DIARZID INIT+4*, EOJ+2!
DIARZL INIT+4*, EOJ+3!
DIARZZ EOJ+5!
DIOF INIT+1*, EOJ+7!
DIOSL INIT+1*, EOJ+7!
DIR FILE+1!, EOJ+1!
DIR("A" FILE+1*
DIR("B" FILE+1*
DIR(0 FILE+1*
DIRUT FILE+2, FILE+4!, EOJ+1!
DTOUT FILE+4, EOJ+1!
DUOUT FILE+4!, EOJ+1!
IO SEQDEV+3, RC3+1
IO(0 RC+2, FILE
IOF INIT+1
>> IOPAR SEQDEV+2, RC3+1
IOSL INIT+1
>> IOT SEQDEV+1, SEQDEV+2, RC3+1
POP SEQDEV, FILE+4, EOJ+1!
U RC2, RC2+2, RC2+3, RC2+6, ID, ID+1, RC1, RC1+1
>> Y FILE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All