Routine: DGPTFDEL

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIE ^DIK
Registration	2	(HANG,RTY)^DGPTUTL LO^DGUTL

Package

Total

Call Graph

VA Fileman

^DIC YN^DICN ^DIE ^DIK

Registration

(HANG,RTY)^DGPTUTL LO^DGUTL

Package	Total	Caller Graph
Registration	8	DG PTF DELETE DG PTF OPEN CLOSED RECORD DG PTF OPEN RELEASED DGPTC DGPTC1 DGPTF099 DGPTF4 DGPTFTR3

Package

Total

Caller Graph

Registration

DG PTF DELETE DG PTF OPEN CLOSED RECORD DG PTF OPEN RELEASED DGPTC DGPTC1 DGPTF099 DGPTF4 DGPTFTR3

Entry Points

Name	Field # of Occurrence
HANG^DGPTUTL	A1+1, OPEN+2
RTY^DGPTUTL	ASK+1, HEL+1, DREL+1
LO^DGUTL	A
^DIC	ASK+3, A1, HEL+4, A2, DREL+3
YN^DICN	A1, A2+2, OK
^DIE	KDGPT+4
^DIK	OK+3, KDGP+1, KDGPT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ASK+0
Function Call: WRITE	Prompt: !! Line Location: A1+0
Function Call: WRITE	Prompt: !,"Ok to delete" Line Location: A1+0
Function Call: WRITE	Prompt: !,"**** DELETED ****" Line Location: A1+1
Function Call: WRITE	Prompt: !,"Anwer Yes or No",!,"On deletion pointers will be updated" Line Location: AD+0
Function Call: WRITE	Prompt: !! Line Location: HEL+2
Function Call: WRITE	Prompt: !!,DGPTIFN," ",$P(^DPT(+^DGPT(DGPTIFN,0),0),U) Line Location: A2+0
Function Call: WRITE	Prompt: !,"Ok to reactivate" Line Location: A2+2
Function Call: WRITE	Prompt: !,"Answer Yes or No" Line Location: A2+3
Function Call: WRITE	Prompt: " ???",7,7 Line Location: OLD+0
Function Call: WRITE	Prompt: ! Line Location: DREL+2
Function Call: WRITE	Prompt: !,"Ok to Re-open" Line Location: OK+0
Function Call: WRITE	Prompt: !!?14,"Enter <RET> to exit routine",!?10,"Enter 'Y' for YES to RE-OPEN Record",! Line Location: OK+1
Function Call: WRITE	Prompt: !,"**** RECORD RE-OPENED ****" Line Location: OPEN+2
Function Call: WRITE	Prompt: !,"CANNOT DELETE THE PTF RECORD WHEN THERE ARE ACTIVE ORDERS OR CPT RECORDS." Line Location: KDGPT+2
Function Call: WRITE	Prompt: !!,*7,?5,"Associated PTF record #",+$P(^DGPT(DGPTIFN,0),U,12)," must be RE-OPENED",!?5,"in order to re-open Census record #",DGPTIFN,"." Line Location: CHK+1
Function Call: WRITE	Prompt: !!?2,*7,"This PTF record is associated with the following Census records:" Line Location: CEN+4
Function Call: WRITE	Prompt: !?10,"Census Record #",DGI,?35,"==>",?40,"Census Date: ",DGI(DGI) Line Location: CEN+5
Function Call: WRITE	Prompt: !!?2,"PTF record can not be deleted." Line Location: CEN+6
Routine Call	DIE Line Location: KDGPT+4
Routine Call	DIC Line Location: ASK+3 A1 HEL+4 A2 DREL+3

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	CEN+2
^DG(45.86 - [#45.86]	CEN+2
^DGCPT(46 - [#46]	KDGPT+1
^DGP(45.83 - [#45.83]	OK+3
^DGPM - [#405]	KDGPT+4
^DGPM("APTF"	KDGPT+4
^DGPT - [#45]	A, A2, CHK+1, CEN+2
^DGPT("ACENSUS"	CEN+2
^DGPT("B"	A
^DISV(	A*, OLD
^DPT - [#2]	A, A2

Name	Line Occurrences
A	ASK, HEL+2
A1	AD
A2	A2+3
AD	OLD
ASK	ASK+3
CEN	ASK+3
CENQ	CEN+3
CHK	A2+1, DREL+4
KDGP	OPEN+1
KDGPT	A1+1, OPEN+1
OK	OK+1
OPEN	A2+5, OK+4
Q	ASK+3, A1+1, HEL+4, A2+1, A2+4, A2+5, DREL+3, DREL+4, OK+2, OK+4

Name	Field # of Occurrence
^(	OLD+1
^("^DGPT("	A
^("^DPT("	A
^(0	KDGPT+4, CHK+1, CEN+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	A1, A1+1, AD, HEL+4, A2, A2+2, A2+3, A2+4, OK, OK+1 , OK+2
A	A*, Q!
ANS	Q!
B	A*, Q!
DA	ASK+3, A1+1, Q!, OK+3!, KDGP+1!, KDGPT+1, KDGPT+3!, KDGPT+4*, KDGPT+5!, CEN+2 , CEN+7!
DA(1	OK+3*
DFN	Q!, OLD, OLD+1
DGI	CEN+1!, CEN+2, CEN+3, CEN+5, CENQ!
DGI(	CEN+2*, CEN+5
DGPTIFN	A1+1, Q!, HEL+4, A2, A2+1, DREL+3, DREL+4, OK+3, KDGP+1, KDGPT+1 , KDGPT+4, CHK+1
DGRTY	Q!, HEL+1, HEL+3, A2+1, DREL+1, DREL+2, DREL+4, OPEN+1, KDGPT+4
DGRTY0	Q!, HEL+3, DREL+2
DGSENFLG	A2*!
DIC	ASK+2, Q!, HEL+3, A2!, DREL+2, DREL+3!
DIC("A"	ASK+2, HEL+3, DREL+2*
DIC("S"	ASK+2, HEL+3, DREL+2*
DIC(0	ASK+2, ASK+3, HEL+3, A2, DREL+2*
DIE	Q!, KDGPT+4*!
DIK	Q!, OK+3!, KDGP+1!, KDGPT+1*, KDGPT+3!
DR	Q!, KDGPT+4*!
DUZ	A, OLD
FLAG	KDGPT+1*, KDGPT+2!, KDGPT+3!
I	Q!, KDGPT+1*, KDGPT+3!
L	Q!
U	HEL+3, A2, DREL+2, KDGPT+4, CHK+1, CEN+2
>> X	ASK+3, HEL+4, A2, OLD+1
>> Y	ASK+1, ASK+3, HEL+1, HEL+4, DREL+1, DREL+3, CEN+2

Customize PDF page

Package: Registration

Routine: DGPTFDEL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
A
Q
CENQ
OLD
AD
KDGPT	; -- kill DGPT rec ; input DGPTIFN := ifn
CHK	; -- check to see if PTF is open ; return DGPTIFN="" is not open
KDGP	; -- kill close-out rec ; input DGPTIFN := ifn
A1
HEL	;
A2
DREL	; -- open released rec
CEN	; -- check if closed for census
ASK
OK
OPEN	;