Routine: DIARA

Information

DIARA ;SFISC/TKW,WISC/CAP-ARCHIVING FUNCTIONS (CONT) ;5/30/96 14:25

Package	Total	Call Graph
VA Fileman	7	^DIAC (ASK,Q)^DIARB (FILE,UPDATE)^DIARU ^DIE ^DIK EN1^DIP ^DIR

Package	Total	Caller Graph
VA Fileman	2	DIAR DIAX

Name	Comments	DBIA/ICR reference
ENTC	;CANCEL
E	;SETS -9 NODE & STUB IN ORIGINAL FILE. NOT DONE FOR V18
ENTD	; PURGE
3
D
Q
UNLK
4
D0
OUT	;USED TO PRINT LISTING OR TO WRITE TO TEMP.STORAGE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"The records about to be purged should not be 'pointed to' by other records to",!,"maintain database integrity." Line Location: ENTD+4
Function Call: WRITE	Prompt: ! Line Location: ENTD+5
Function Call: WRITE	Prompt: !,$C(7),"Sorry, you cannot purge this archival activity!",!,"You do not have DELETE access to ",$P(^DIC(DIARF,0),U),"." Line Location: ENTD+7
Function Call: WRITE	Prompt: !!,"The entries will be deleted in INTERNAL NUMBER order." Line Location: ENTD+8
Function Call: WRITE	Prompt: !!,"<< ",$P(^DIAR(1.11,DIARC,0),U,7)," ENTRIES PURGED >>" Line Location: D0+1
Function Call: WRITE	Prompt: !!,">>> DONE <<<" Line Location: ENTC+7
Function Call: WRITE	Prompt: !! Line Location: OUT+2
Function Call: WRITE	Prompt: "Enter regular Print Template name or fields you wish to see printed on this",!,"report of entries to be "_$S($D(DIAX):"extracted.",1:"archived.") Line Location: 3+0
Function Call: WRITE	Prompt: "You MUST enter a FILEGRAM template name. This FILEGRAM template will be used",!,"to actually build the archive message." Line Location: 4+0
Routine Call	DIE Line Location: OUT+4
Routine Call	DIR Line Location: ENTD+2 ENTD+6 ENTC+4

Name	Line Occurrences (* Changed, ! Killed)
^DD(	ENTD+4, ENTD+9
^DIAR(1.11 - [#1.11]	D0+1, D0+3, ENTC+6, OUT+8
^DIBT(	D0, D0+2!, ENTC+5
^DIC - [#1]	ENTD+5, ENTD+7, ENTC+6, OUT+7

Name	Field # of Occurrence
>> %	ENTD+7, D, OUT+8, OUT+9*, OUT+10
>> BY	OUT+6*
DA	D0, D0+1, D0+2, ENTC+6, ENTC+7, OUT+4, OUT+6!
>> DHD	OUT+7*
>> DIAC	ENTD+7*
>> DIAR	OUT+3, OUT+4, OUT+5, OUT+6, OUT+12, UNLK*
DIARC	ENTD+3, D0+1, D0+3, ENTC+1, ENTC+6, ENTC+7, OUT+1!, OUT+4, OUT+8
>> DIARD	OUT+2*
>> DIARF	ENTD+4, ENTD+5, ENTD+7, ENTD+9, D0+4, OUT+7
>> DIARF2	D0+4, OUT+8, OUT+9, OUT+10
>> DIARI	OUT+6*
DIARP	OUT+4!
>> DIARS	ENTD+9*, D0+4, D
>> DIARS(0	D0+2*, D0+3, D0+4
>> DIARST	ENTC+6
>> DIARU	D0, D0+2, ENTC+5, OUT+6
>> DIAX	ENTD+1, ENTC+1, ENTC+2, ENTC+6, OUT+5, OUT+7, 3
>> DIAXFNO	ENTC+6
>> DIAXNRB	ENTC+6*
>> DIC	D0+2, ENTC+5, OUT+7*
>> DIC("A"	ENTC+1*
DIE	OUT+4*, OUT+6!
DIFG	OUT+9!, OUT+10
DIFG(	OUT+8, OUT+9, OUT+10
>> DIFILE	ENTD+7*
>> DIK	D0+2, ENTC+6, ENTC+7*
DIOEND	OUT+5!*
>> DIOVRD	ENTC+6*
DIR	ENTD+2!, ENTD+5!
DIR("??"	ENTC+3*
DIR("A"	ENTD+2, ENTD+5, ENTC+2*
DIR("B"	ENTD+2, ENTD+5, ENTC+2*
DIR(0	ENTD+2, ENTD+5, ENTC+2*
>> DISTOP	OUT+5*
DR	OUT+4*, OUT+6!
>> DTOUT	ENTD+2, ENTD+6, ENTC+4, ENTC+6, OUT+4
>> DUOUT	ENTD+2, ENTD+6, ENTC+4, ENTC+6
FLDS	OUT+1!, OUT+4*
>> FR	OUT+5*
>> I	ENTD+9, D, ENTC+5*
>> K	ENTD+9*
>> L	OUT+5*
POP	OUT+12, Q!
>> TO	OUT+5*
U	ENTD+5, ENTD+7, ENTD+9, D0+1, D0+3, D0+4, D, OUT+7
>> X	ENTD+9, D0+4, D*
>> Y	ENTD+2, ENTD+6, D0+3, D0+4, D, ENTC+4