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 |  Marked Items |  All
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>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,$$S)^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  (BMES,MES)^XPDUTL  
VA Fileman 3 ^DIK  $$GET1^DIQ  ^DIR  
Registration 2 $$NAMSPC^DG53618  $$MAIL^DG53618M  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DG53618  DG53618M  

Entry Points

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

External References

Name Field # of Occurrence
^%ZTLOAD POST+13
$$S^%ZTLOAD QUE+33
$$NAMSPC^DG53618 QUE+1, KILIT+1, SETUPX+3
$$MAIL^DG53618M QUE+109
^DIK QUE+80, ACHK03+16, DEL40812+3, DEL40812+10, DEL40812+19
$$GET1^DIQ QUE+40, QUE+41
^DIR CHKSTAT+20, CHKSTAT+25
$$FMADD^XLFDT SETUPX+5
$$FMTE^XLFDT CHKSTAT+15
$$NOW^XLFDT QUE+26, QUE+107, QUE+108, SETUPX+4
BMES^XPDUTL POST+6, CHKSTAT+5
MES^XPDUTL POST+2, POST+3, POST+4, POST+7, POST+14, POST+15, POST+16

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
Routine Call
  • DIR
  • Line Location:
    • CHKSTAT+20
    • CHKSTAT+25

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMT(408.21 - [#408.21] DEL40812+9
^DGMT(408.22 - [#408.22] DEL40812+18
^DGPR(408.12 - [#408.12] QUE+30
^DPT - [#2] GOODPAT+4, GOODPAT+5
^XTMP( QUE+11, QUE+25*, QUE+26*, QUE+34!, QUE+38*, QUE+53*, QUE+61*, QUE+70*, QUE+78*, QUE+86*
, QUE+94*, QUE+101, QUE+105*, QUE+107*, QUE+108*, QUE+111, ACHK03+7*, ACHK03+15*, ACHK03+23*, ACHK03+30*
, DEL40812+14*, DEL40812+23*, CHKSTAT+4, CHKSTAT+8, CHKSTAT+9, KILIT+2!, STOP+1*, SETUPX+6*, SETUPX+7*

Label References

Name Line Occurrences
$$CHKSTAT POST+5, TEST+5
$$GOODPAT QUE+44, QUE+58, QUE+67, QUE+75, QUE+83, QUE+91
$$GOODPTR QUE+44, QUE+67, QUE+75, QUE+91, ACHK03+3, ACHK03+11, ACHK03+26
$$NAMSPC QUE+111, CHKSTAT+3, STOP+1
ACHK03 QUE+55, QUE+64
DEL40812 QUE+97
KILIT CHKSTAT+11, CHKSTAT+28
QUE TEST+8
SETUPX QUE+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGTIME QUE+2~, SETUPX+1~, SETUPX+4*, SETUPX+5, SETUPX+6
CHKPNT POST+1~, POST+12*
COUNT QUE+3~
DA QUE+2~, QUE+80*, ACHK03+16*, DEL40812+2~, DEL40812+3*, DEL40812+10*, DEL40812+19*
DFN QUE+5~, QUE+40*, QUE+44, QUE+50, QUE+58, QUE+59, QUE+67, QUE+75, QUE+83, QUE+91
, GOODPAT~, GOODPAT+3, GOODPAT+4, GOODPAT+5
DGBAD03 QUE+4~, QUE+19*, QUE+55, QUE+64, QUE+87*, QUE+95*, QUE+104, ACHK03~, ACHK03+22*, ACHK03+29*
DGBADPAT QUE+4~, QUE+17*, QUE+54*, QUE+55, QUE+62*, QUE+64, QUE+71*, QUE+103, ACHK03~, ACHK03+4*
DGBADPER QUE+4~, QUE+18*, QUE+55, QUE+64, QUE+79*, QUE+104, ACHK03~, ACHK03+12*
DGDEL12 QUE+2~, QUE+14*, QUE+97, QUE+102, DEL40812~, DEL40812+4*
DGDEL21 QUE+2~, QUE+15*, QUE+97, QUE+102, DEL40812~, DEL40812+11*
DGDEL22 QUE+3~, QUE+16*, QUE+97, QUE+103, DEL40812~, DEL40812+20*
DGTOT QUE+2~, QUE+13*, QUE+37*, QUE+38
DIK QUE+2~, QUE+80*, ACHK03+16*, DEL40812+2~, DEL40812+3*, DEL40812+10*, DEL40812+19*
DIR CHKSTAT+17!, CHKSTAT+23!
DIR("?" CHKSTAT+18*, CHKSTAT+19*, CHKSTAT+24*
DIR(0 CHKSTAT+20*, CHKSTAT+25*
DTOUT CHKSTAT+1~
DUOUT CHKSTAT+1~
EXPDAY SETUPX~, SETUPX+5
GL GOODPTR+1~, GOODPTR+4*, GOODPTR+7, GOODPTR+8, GOODPTR+11, GOODPTR+12
ICDT QUE+3~
MTIEN QUE+2~
NAMSPC QUE+1~*, QUE+11, QUE+25, QUE+26, QUE+34, QUE+38, QUE+53, QUE+61, QUE+70, QUE+78
, QUE+86, QUE+94, QUE+97, QUE+101, QUE+105, QUE+107, QUE+108, ACHK03+7, ACHK03+15, ACHK03+23
, ACHK03+30, DEL40812~, DEL40812+14, DEL40812+23, CHKSTAT+1~, CHKSTAT+3*, CHKSTAT+4, CHKSTAT+8, CHKSTAT+9, KILIT+1*
, KILIT+2, SETUPX+1~, SETUPX+3*, SETUPX+6, SETUPX+7
POST CHKSTAT~, CHKSTAT+11
PT QUE+5~, QUE+41*, QUE+44, QUE+55, QUE+64, QUE+67, QUE+68, QUE+75, QUE+76, QUE+80
, QUE+83, QUE+91, QUE+92, GOODPTR~, GOODPTR+3, GOODPTR+4, ACHK03~, ACHK03+3, ACHK03+5, ACHK03+11
, ACHK03+13, ACHK03+16, ACHK03+19, ACHK03+26, ACHK03+27
PURGDT QUE+2~, SETUPX+1~, SETUPX+5*, SETUPX+6
QQ QUE+2~, QUE+30*, QUE+32
QUIT CHKSTAT+1~, CHKSTAT+2*, CHKSTAT+21*, CHKSTAT+26*, CHKSTAT+30
R12 QUE+5~, QUE+12*, QUE+30*, QUE+38, QUE+40, QUE+41, QUE+48, QUE+53, QUE+55, QUE+61
, QUE+64, QUE+70, QUE+78, QUE+86, QUE+94, QUE+97, ACHK03~, ACHK03+7, ACHK03+15, ACHK03+23
, ACHK03+30, DEL40812~, DEL40812+3, DEL40812+5, DEL40812+9, DEL40812+14, DEL40812+23
R21 DEL40812+2~, DEL40812+8*, DEL40812+9*, DEL40812+10, DEL40812+12, DEL40812+14, DEL40812+18, DEL40812+23
R22 DEL40812+2~, DEL40812+17*, DEL40812+18*, DEL40812+19, DEL40812+21, DEL40812+23
REC12 QUE+3~
REC21 QUE+3~
REC22 QUE+3~
REF GOODPTR+1~, GOODPTR+8*, GOODPTR+9, GOODPTR+10
STAT CHKSTAT+1~, CHKSTAT+8*, CHKSTAT+14
STIME CHKSTAT+1~, CHKSTAT+9*, CHKSTAT+15
SUB GOODPTR+1~, GOODPTR+4*, GOODPTR+5, GOODPTR+6*, GOODPTR+8
TESTING TEST+1~, TEST+2*, QUE+7~*, QUE+55, QUE+64, QUE+80, QUE+97, QUE+109, QUE+110!, ACHK03~
, ACHK03+16, DEL40812~, DEL40812+3, DEL40812+10, DEL40812+19
TMP QUE+3~
TYPE QUE+3~
TYPNAM QUE+3~
U QUE+5~, QUE+6*, QUE+12, QUE+13, QUE+14, QUE+15, QUE+16, QUE+17, QUE+18, QUE+19
, QUE+25, QUE+26, QUE+38, QUE+102, QUE+103, QUE+104, QUE+107, QUE+108, GOODPAT+1~, GOODPAT+2*
, GOODPTR+1~, GOODPTR+2*, GOODPTR+12, CHKSTAT+8, CHKSTAT+9, SETUPX+1~, SETUPX+2*, SETUPX+6, SETUPX+7
X QUE+5~, QUE+51*, QUE+52, QUE+53, QUE+59*, QUE+60, QUE+61, QUE+68*, QUE+69, QUE+70
, QUE+76*, QUE+77, QUE+78, QUE+84*, QUE+85, QUE+86, QUE+92*, QUE+93, QUE+94, QUE+101*
, QUE+102*, QUE+103*, QUE+104*, QUE+105, QUE+109*, GOODPAT+1~, GOODPAT+5*, GOODPAT+6, GOODPTR+1~, GOODPTR+9*
, GOODPTR+11, GOODPTR+12, ACHK03+5*, ACHK03+6, ACHK03+7, ACHK03+13*, ACHK03+14, ACHK03+15, ACHK03+20*, ACHK03+21
, ACHK03+23, ACHK03+27*, ACHK03+28, ACHK03+30, DEL40812+2~, DEL40812+12*, DEL40812+13, DEL40812+14, DEL40812+21*, DEL40812+22
, DEL40812+23
XREC QUE+2~, QUE+11*, QUE+12, QUE+13, QUE+14, QUE+15, QUE+16, QUE+17, QUE+18, QUE+19
Y CHKSTAT+1~, CHKSTAT+21, CHKSTAT+26
ZTDESC POST+1~, POST+10*
ZTDTH POST+1~, POST+11*
ZTIO POST+1~, POST+11*
ZTQUEUED POST+1~, TEST+1~, TEST+2*, QUE+8~*, QUE+48, QUE+52, QUE+55, QUE+60, QUE+64, QUE+69
, QUE+77, QUE+85, QUE+93, QUE+97, ACHK03~, ACHK03+6, ACHK03+14, ACHK03+21, ACHK03+28, DEL40812~
, DEL40812+5, DEL40812+13, DEL40812+22
ZTRTN POST+1~, POST+9*
ZTSAVE POST+1~
ZTSAVE("CHKPNT" POST+12*
ZTSK POST+1~, POST+14
ZTSTOP QUE+2~, QUE+29*, QUE+30, QUE+33*, QUE+34*, QUE+36, QUE+107

Marked Items

Name Field # of Occurrence
$T( NAMSPC+1
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 |  Marked Items |  All