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

Package: Registration

Routine: DGPTAPA


Information

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

Source Information

Source file <DGPTAPA.m>

Call Graph

Call Graph

Call Graph Total: 10

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

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

Package Total Caller Graph
Registration 3 DGPT A/P ARCHIVE  DGPT REMOVE A/P  DGPT SELECT A/P  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
ARC ;-- entry point to Archive PTF records
ARCQ
ADDARC(TEMP) ;-- This function will add archive date, user and status
ADDARCQ ;
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.
MKARCQ
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 "^"
CHECK ;
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
WRQ ;
WRITEM ;-- loop thru write archive data
WRITEMQ ;
BLDAD(DGTMP) ;-- This function will load the Archive data into the wp
; field in the A/P template.

External References

Name Field # of Occurrence
^%ZIS WR+10
HOME^%ZIS WR+13
^%ZISC WRITEM+9
^%ZTLOAD WR+13
ARINT^DGPTAPA1 BLDAD+16
MKHEAD^DGPTAPA4 BLDAD+13
$$STATUS^DGPTLMU2 CHECK+1
TMPINT^DGPTLMU2 ARCEX+1
^DIE ADDARC+10, MKARC+17, BLDAD+8, BLDAD+11
^DIR CHDATA+5
$$FTIME^VALM1 BLDAD+10
SEL^VALM2 ARC+6

Interaction Calls

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+10
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGP(45.62 - [#45.62] Classic Fileman Calls

Global Variables Directly Accessed

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 - [#.401] BLDAD+16
^TMP("ARCPTF" ARC+7

Label References

Name Line Occurrences
$$CHDATA MKARC+14
$$MKARC ARC+12
$$WR ARC+14
ADDARC ARC+16
ADDARCQ ADDARC+6
ARCQ ARC+6, ARC+10
BLDAD WRITEM+4
MKARCQ MKARC+12, MKARC+14
WRITEM WR+14
WRQ WR+10, WR+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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*
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