Routine: DGPTAPA

Information

DGPTAPA ;MTC/ALB - PTF Archive Utilities; 10-14-92

Source file <DGPTAPA.m>

Package	Total	Call Graph
Registration	5	ARINT^DGPTAPA1 MKHEAD^DGPTAPA4 ($$STATUS,TMPINT)^DGPTLMU2 $$FTIME^VALM1 SEL^VALM2
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^DIE ^DIR

Name	Comments	DBIA/ICR reference
WR(DGTMP,REGEN)	;-- this function will write the archived data out to a sequential ; device. ; INPUT : DGTMP - Active PTF A/P template ; REGEN - regeneration flag ; OUTPUT : 1 - ok continue ; 0 - don't continue
WRITEMQ	;
ARCEX	;-- exit point from protocol
MKARC(DGTMP,REGEN)	;-- this function will create the word process field that contains the ; archive data if one does not exists. If a field already exist then ; the data will be deleted and the new field will be created.
ARCQ
CHDATA()	;-- if data already exists in WP field ask if should be purged ; OUTPUT : 1 - ok continue ; 0 - don't continue ; -1 - user enters a "^"
MKARCQ
ADDARC(TEMP)	;-- This function will add archive date, user and status
ARC	;-- entry point to Archive PTF records
WRITEM	;-- loop thru write archive data
WRQ	;
ADDARCQ	;
BLDAD(DGTMP)	;-- This function will load the Archive data into the wp ; field in the A/P template.
CHECK	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,">>> PTF Archived Data Already Purged..." Line Location: ARC+10
Function Call: WRITE	Prompt: !,">>> Adding Archive data to PTF Archive/Purge History entry." Line Location: ADDARC+8
Function Call: WRITE	Prompt: !!,*7,">>> Select Device for Archiving PTF Data." Line Location: WR+9
Routine Call	%ZIS Line Location: WR+13
Routine Call	DIE Line Location: ADDARC+10 MKARC+17 BLDAD+8 BLDAD+11
Routine Call	DIR Line Location: CHDATA+5
Routine Call	%ZIS Line Location: WR+10

Name	Line Occurrences (* Changed, ! Killed)
^DGP(45.62 - [#45.62]	ARC+10, ADDARC+6, MKARC+12, MKARC+14, WRITEM+6, WRITEM+7, BLDAD+10, BLDAD+15
^DIBT(	BLDAD+16
^TMP("ARCPTF"	ARC+7

Name	Field # of Occurrence
>> %ZIS	WR+10*
DA	ADDARC+9, MKARC+17!, BLDAD+8!, BLDAD+11!
DATE	MKARC+9~, BLDAD+5~, BLDAD+10*
>> DGP(	BLDAD+7
DGPTF	WRITEM+1~, BLDAD+5~, BLDAD+15, BLDAD+16
DGTMP	ARC+1~, ARC+7*, ARC+10, ARC+12, ARC+14, ARC+16, MKARC~, MKARC+12, MKARC+14, MKARC+17 , CHECK+1, WR~, WRITEM+4, WRITEM+6, WRITEM+7, BLDAD~, BLDAD+7, BLDAD+8, BLDAD+10, BLDAD+11 , BLDAD+15
DIE	ADDARC+9, MKARC+17!, BLDAD+8!, BLDAD+11!
DIR	CHDATA+7!
DIR("A"	CHDATA+5*
DIR("B"	CHDATA+5*
DIR(0	CHDATA+5*
>> DIRUT	CHDATA+6
DR	ADDARC+9, MKARC+17!, BLDAD+8!, BLDAD+11!
EXIST	MKARC+9~, MKARC+10, MKARC+14, MKARC+16, MKARC+20, MKARC+21, MKARCQ, CHDATA+4~, CHDATA+6, CHDATA+8
I	WRITEM+1~, WRITEM+6*, WRITEM+7
IO	WRITEM+2
IO("Q"	WR+11, WR+13!
>> POP	WR+10
REGEN	ARC+1~, ARC+4, ARC+12, ARC+14, MKARC~, MKARC+18, MKARC+20*, WR~, WRITEM+4
RESULT	WR+7~, WR+8, WR+10, WRQ+1
SRTMP	ADDARC+4~, BLDAD+5~, BLDAD+15*, BLDAD+16
TEMP	ADDARC~, ADDARC+6, ADDARC+9
U	ARC+10, MKARC+12, BLDAD+10, BLDAD+15
>> VALMBCK	ARCEX+2*
>> VALMY	ARC+6
>> VALMY(0	ARC+7
X	WRITEM+1~, WRITEM+7*, WRITEM+8
>> Y	CHDATA+6, CHECK+1*
>> ZTDESC	WR+12*
>> ZTRTN	WR+12*
>> ZTSAVE("DGTMP"	WR+12*
>> ZTSAVE("REGEN"	WR+12*