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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DIAR

Package: VA FileMan

Routine: DIAR


Information

DIAR ;SFISC/TKW,WISC/CAP-ARCHIVING FUNCTIONS ;7/1/93 4:17 PM

Source Information

Source file <DIAR.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA FileMan 14 (ENTC,ENTD,OUT,UNLK)^DIARA  (ENTE,Q)^DIARB  NEW^DIARCALC  ^DIARR  (FILE,MRK,UPDATE)^DIARU  (,OUT)^DIARX  ^DIC  (DIAR,SUB)^DICRW  
^DIE  EN^DIFGO  Q^DII  (,IXALL)^DIK  ^DIR  EN^DIS  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
VA FileMan 2 DIAX  DII1  

Entry Points

Name Comments DBIA/ICR reference
62
63
64
65 ;
1 ;;SELECT ENTRIES TO ARCHIVE
3 ;;PRINT SELECTED ENTRIES
2 ;;ADD/DELETE SELECTED ENTRIES
5 ;;WRITE ENTRIES TO TEMPORARY STORAGE
4 ;;CREATE FILEGRAM ARCHIVING TEMPLATE
7 ;;PURGE STORED ENTRIES
6 ;;MOVE ARCHIVED DATA TO PERMANENT STORAGE
9 ;;FIND ARCHIVED ENTRIES
8 ;;CANCEL ARCHIVAL SELECTION
C
D
CHK ;IS THERE A VALID SEARCH ?
AL ; archive device label
O
T1
Q
GO
NOKL

External References

Name Field # of Occurrence
^%ZIS 6+4, 6+8
HOME^%ZIS 6+15
^%ZTLOAD 6+15
ENTC^DIARA 8+1
ENTD^DIARA D
OUT^DIARA 3+1, 5+1
UNLK^DIARA 65+1
ENTE^DIARB 2+1
Q^DIARB Q
NEW^DIARCALC O+1
^DIARR 9+3
FILE^DIARU 6+1
MRK^DIARU O+3
UPDATE^DIARU 62+4
^DIARX 62
OUT^DIARX 62+4
^DIC 9+1, GO
DIAR^DICRW 1+1
SUB^DICRW 1+7
^DIE AL+4
EN^DIFGO 4+1
Q^DII GO+2
^DIK T1+1
IXALL^DIK NOKL+3
^DIR 63+1, AL+3
EN^DIS T1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"IF YOU PLAN TO ARCHIVE DATA ONLY FROM ONE SUB-FILE"
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: !,"PLEASE IDENTIFY IT HERE. OTHERWISE, JUST PRESS RETURN.",!
  • Line Location: 1+6
Function Call: WRITE
  • Prompt: !!,"There is already an outstanding "_$S(+$P(Y(0),U,17):"extract",1:"archiving")_" activity.",!,"Please finish it or CANCEL it.",$C(7),!!
  • Line Location: O+2
Function Call: WRITE
  • Prompt: $C(7),!!,"NO RECORDS WERE SELECTED TO BE "_$S($D(DIAX):"EXTRACTED",1:"ARCHIVED")_"!!",!,"I AM DELETING THIS ARCHIVING ACTIVITY RECORD!!"
  • Line Location: T1+1
Function Call: WRITE
  • Prompt: !!,"NOTE: This option will 1) print an archive activity report to specified",!,"PRINTER DEVICE and 2) will move archive data to permanent storage to specified",!,"ARCHIVE STORAGE DEVICE."
  • Line Location: 6+2
Function Call: WRITE
  • Prompt: !!,"Select some type of SEQUENTIAL media, such as SDP, TAPE, or DISK FILE (HFS),",!,"for archival storage.",!
  • Line Location: 6+3
Function Call: WRITE
  • Prompt: !,$C(7),"SINCE YOU SELECTED QUEUEING, YOU SHOULD SELECT A PRINTER DEVICE",!,"OTHER THAN YOUR TERMINAL!",!
  • Line Location: 6+10
Function Call: WRITE
  • Prompt: !,$C(7),"SINCE YOU SELECTED QUEUEING, REPORT WILL BE QUEUED ALSO!",!
  • Line Location: 6+13
Function Call: WRITE
  • Prompt: DIARLINE,!
  • Line Location: 62+2
Function Call: WRITE
  • Prompt: "#$#",!
  • Line Location: 62+3
Function Call: WRITE
  • Prompt: !,$C(7),"The ARCHIVE STORAGE device selected does not look like a SEQUENTIAL",!,"storage medium.",!
  • Line Location: 63+0
Function Call: WRITE
  • Prompt: !,"OK.",!
  • Line Location: 63+2
Function Call: WRITE
  • Prompt: !,$C(7),"YOU NEED KERNEL TO RUN THIS OPTION"
  • Line Location: 9+1
Function Call: WRITE
  • Prompt: !,$C(7),"YOU NEED KERNEL V7.1 TO RUN THIS OPTION"
  • Line Location: 9+2
Function Call: WRITE
  • Prompt: !
  • Line Location: GO+0
Function Call: WRITE
  • Prompt: !
  • Line Location: GO+2
Routine Call
  • %ZIS
  • Line Location:
    • 6+15
Routine Call
  • DIE
  • Line Location:
    • AL+4
Routine Call
  • DIC
  • Line Location:
    • 9+1
    • GO
Routine Call
  • DIR
  • Line Location:
    • 63+1
    • AL+3
Routine Call
  • %ZIS
  • Line Location:
    • 6+4
    • 6+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" 64
^DD( 1+4, 1+8
^DIAR(1.11 - [#1.11] T1+1, C, C+1, 62+2
^DIC(9.4 - [#9.4] 9+2
^DOPT("DIAR" NOKL, NOKL+2*

Label References

Name Line Occurrences
63 6+9
64 6+9, 6+11, 62+4
65 6+4, 6+8, 6+9, 6+10, 6+11
@( GO+1
AL 6+11
C C+1
CHK O
GO NOKL
NOKL DIAR+7, GO+1
O 1+3, 1+4, 1+7
Q 1+1, 1+7, O+1, O+2, T1+2, 6+1, 6+12, 62+5
T1 O+1

Naked Globals

Name Field # of Occurrence
^( 62+2
^("B" NOKL+1!
^("UP" 1+8
^(0 C+1, 62+2, NOKL+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 1+1*
>> %ZIS 6+4*, 6+8*
>> %ZIS("A" 6+4*, 6+8*
>> %ZIS("B" 6+4*, 6+8*
>> D 1+8*
DA T1+1*, AL+1!, AL+4*
>> DI 4+1*
>> DIA 1+7, 1+8*
>> DIAR 1+1*, 2+1*, 3+1*, 4+1*, 5+1*, 6+1*, D*, 8+1*
DIARC O+1, T1+1, CHK+1!, C+2*, 6+1, 62+2, AL+2, AL+4
>> DIARF 1+1*, 1+4, 1+7*, CHK+1
>> DIARF0 1+8*, T1
>> DIARF1 T1*
>> DIARL 62+1*, 62+2
>> DIARLINE 62+2*
>> DIARP C+2*
>> DIARPDEV 6+4*, 6+5*, 6+6*
>> DIARQUED 6+7*, 6+13*
>> DIART 1+1*, T1
>> DIARTRM 6+4*, 6+10, 6+13
>> DIARU C+2*
>> DIARX 6+6*
>> DIARXXX AL+2*, AL+3, AL+4*
>> DIAX T1+1
DIC T1*, C+2*, 9+1*!, GO*!
DIC("S" 9+1*
DIC(0 9+1*, GO*
>> DIE AL+4*
DIK T1+1*, NOKL*, GO!
DIR 63+1!, AL+1!
DIR("A" 63+1*
DIR("B" 63+1*, AL+3*
DIR(0 63+1*, AL+3*
>> DIRUT 6+9, 6+11
>> DR AL+4*
DT AL+2
>> DTOUT 1+7, 6+11, AL+3
>> DUOUT 1+7, AL+3
>> I O*, CHK+1*, C*, C+1, C+2, 62+2*, NOKL+2*
IO 6+4, 62+2, AL+2
IO("Q" 6+7, 6+10, 6+12
IO(0 6+4, 6+10, 6+13, 63, 63+2, AL+1
ION 6+4
IOST 6+5
>> IOT 6+9, AL+2
>> L T1*
>> POP 6+4, 6+8
U 1+1, O+2, T1+1, C+1, C+2
X 9+1*!, AL+4, GO+1*
Y 1+1*, CHK+1*, C, 6+9, 63+2, 9+1, 9+2, GO+1!
Y(0 O+2, CHK+1!, C*, C+1*, C+2
>> ZTDESC 6+14*
>> ZTRTN 6+14*
>> ZTSAVE("DIAR" 6+14*
>> ZTSAVE("DIARC" 6+14*
>> ZTSAVE("DIARPDEV" 6+14*
>> ZTSAVE("DIARQUED" 6+14*

Marked Items

Name Field # of Occurrence
$T(@I NOKL+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All