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

Package: Registration

Routine: DGPTAPP1


Information

DGPTAPP1 ;MTC/ALB - PTF Purge/Archive - Purge Continued ; 21 DEC 1992

Source Information

Source file <DGPTAPP1.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 ^DIE  ^DIK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPTAPP  

Entry Points

Name Comments DBIA/ICR reference
CLOSEQ
CENSUS(PTF) ;-- This function will delete the entries in the PTF Close
; Out file (#45.84), associated with the record PTF.
CLOSE(PTF) ;-- This function will delete the entries in the PTF Close
; Out file (#45.84), associated with the record PTF.
RELQ
DELPTF(PTF) ;-- This function will delete the entries in the PTF
; file (#45), associated with the record PTF.
DELPTFQ
REL(PTF) ;-- This function will delete the entries in the PTF
; Release File (#45.83) Associated with the record PTF.
UPDATE(PTF) ; This function will update the entry in the Patient Movement
; file (#405) cooresponding to the PTF record. The PTF record entry
; in field 16 will be deleted and the PTF PURGED STATUS field 26
; will be set to 1. This field will be used to prevent re-creation
; of the PTF record from a past admission.
CENSUSQ
WARNING() ; This function will display a warning to the user before the
; purge of the data will occur. A '1' will be returned if the purge
; should continue.
; OUTPUT : 1 - DO NOT CONTINUE
; 0 - OK
PURGE(TMP) ;-- Purge entry point. This function will loop thru the
; PTF records found in the A/P template pointed to by TMP.
; Starting with the PTF Release file, PTF Close Out file, Census
; Work file and finally the PTF record in file #45.

External References

Name Field # of Occurrence
^DIE UPDATE+7
^DIK REL+8, CLOSE+6, CENSUS+6, DELPTF+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"This option will permently purge data from the Data Base."
  • Line Location: WARNING+7
Function Call: WRITE
  • Prompt: !,"Are you sure that you want to continue ?",!
  • Line Location: WARNING+8
Routine Call
  • DIE
  • Line Location:
    • UPDATE+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPM - [#405] Classic Fileman Calls
^DGPT - [#45] Classic Fileman Calls
^DGP(45.84 - [#45.84] Classic Fileman Calls
^DG(45.85 - [#45.85] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(45.85 - [#45.85] CENSUS+5, CENSUS+6
^DGP(45.62 - [#45.62] PURGE+8
^DGP(45.83 - [#45.83] REL+6, REL+7
^DGP(45.84 - [#45.84] CLOSE+5
^DGPM("APTF" UPDATE+6
^DGPT - [#45] DELPTF+5
^DIBT( PURGE+9

Label References

Name Line Occurrences
CENSUS PURGE+10
CENSUSQ CENSUS+5
CLOSE PURGE+10
CLOSEQ CLOSE+5
DELPTF PURGE+10
DELPTFQ DELPTF+5
REL PURGE+10
RELQ REL+6
UPDATE PURGE+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA REL+8*, RELQ!, CLOSE+6*, CLOSEQ!, CENSUS+6*, CENSUSQ!, DELPTF+6*, DELPTFQ!, UPDATE+6*, UPDATE+8!
DA(1 REL+8*
DIE UPDATE+7*, UPDATE+8!
DIK REL+8*, RELQ!, CLOSE+6*, CLOSEQ!, CENSUS+6*, CENSUSQ!, DELPTF+6*, DELPTFQ!
DR UPDATE+7*, UPDATE+8!
FLAG WARNING+5~, WARNING+6*, WARNING+9
I REL+5~, REL+7*, REL+8
PTF PURGE+7~, PURGE+9*, PURGE+10, REL~, REL+6, REL+7, REL+8, CLOSE~, CLOSE+5, CLOSE+6
, CENSUS~, CENSUS+5, CENSUS+6, DELPTF~, DELPTF+5, DELPTF+6, UPDATE~, UPDATE+6
REC PURGE+7~, PURGE+8*, PURGE+9
TMP PURGE~, PURGE+8
U PURGE+8
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