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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGPTFDEL

Package: Registration

Routine: DGPTFDEL


Information

DGPTFDEL ;ALB/JDS - PTF ENTRY DELETION ; 7/31/07 11:19am

Source Information

Source file <DGPTFDEL.m>

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 8

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

Entry Points

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 ;

External References

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

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> 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*
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 |  Naked Globals |  Local Variables |  All