Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call