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

Package: Registration

Routine: DG53618


Information

DG53618 ;ALB/GN/PHH,EG - DG*5.3*618 CLEANUP DANGLING RECS; 04/27/2005

Source Information

Source file <DG53618.m>

Entry Points

Name Comments DBIA/ICR reference
POST ;post install entry tag call. processes entire file in live mode
TEST ; Entry point for taskman (testing mode)
QUE ; Entry point for taskman (live mode)
GOODPAT(DFN) ;determine if patient is there
GOODPTR(PT) ;determine if reference is there
ACHK03(R12,PT,ZTQUEUED,TESTING,DGBADPAT,DGBADPER,DGBAD03) ;
DEL40812(R12,DGDEL12,DGDEL21,DGDEL22,ZTQUEUED,TESTING,NAMSPC) ;
; Kill bad #408.12 file rec and files that point to it
CHKSTAT(POST) ;
KILIT ; kill Xtmp work file for a re-run
STOP ; alternate stop method
SETUPX(EXPDAY) ;Setup XTMP
NAMSPC() ; Return a consistent name space variable

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Task is already running or user opted to not restart"
  • Line Location: TEST+6
Function Call: WRITE
  • Prompt: !!,"File #408.12, ien ",R12," has a bad pointer to "
  • Line Location: QUE+48
Function Call: WRITE
  • Prompt: X
  • Line Location: QUE+52
Function Call: WRITE
  • Prompt: X
  • Line Location: QUE+60
Function Call: WRITE
  • Prompt: X
  • Line Location: QUE+69
Function Call: WRITE
  • Prompt: X
  • Line Location: QUE+77
Function Call: WRITE
  • Prompt: X
  • Line Location: QUE+85
Function Call: WRITE
  • Prompt: X
  • Line Location: QUE+93
Function Call: WRITE
  • Prompt: !," ",X
  • Line Location: ACHK03+6
Function Call: WRITE
  • Prompt: !," ",X
  • Line Location: ACHK03+14
Function Call: WRITE
  • Prompt: !," ",X
  • Line Location: ACHK03+21
Function Call: WRITE
  • Prompt: !," ",X
  • Line Location: ACHK03+28
Function Call: WRITE
  • Prompt: !,?2,"Deleting 408.12 ien > ",R12
  • Line Location: DEL40812+5
Function Call: WRITE
  • Prompt: !,?4,X
  • Line Location: DEL40812+13
Function Call: WRITE
  • Prompt: !,?6,X
  • Line Location: DEL40812+22
Function Call: WRITE
  • Prompt: " was Completed on "_$$FMTE^XLFDT(STIME)
  • Line Location: CHKSTAT+15
Function Call: WRITE
  • Prompt: !," Do you want to Re-Run again?"
  • Line Location: CHKSTAT+16
Function Call: WRITE
  • Prompt: !," ARE YOU SURE?"
  • Line Location: CHKSTAT+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPR(408.12 - [#408.12] Classic Fileman Calls,  GET1^DIQ
^DGPR(408.13 - [#408.13] Classic Fileman Calls
^DGMT(408.21 - [#408.21] Classic Fileman Calls
^DGMT(408.22 - [#408.22] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call