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  | All
Print Page as PDF
Routine: DG488

Package: Registration

Routine: DG488


Information

DG488 ;ALB/GN - CLEANUP PATIENT RELATION & INCOME FILES;12/11/02 ; 2/4/03 1:25pm

Source Information

Source file <DG488.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 (,$$S)^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  
VA FileMan 2 ^DIK  ^DIR  
Registration 1 MAIL^DG488M  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 DG488 CLEANUP 408 FILES  DG488 TEST CLEANUP 408 FILES  DG488M  

Entry Points

Name Comments DBIA/ICR reference
TEST ; Entry point for testing this routine, then fall thru.
EN ; Entry point to start job
TASK ; Entry point for taskman
DG40812(IEN) ; Main Cleanup driver for file 408.12
DEL40821(R12,DG21,DG21X) ; Delete any entries in 408.21 that point to the bad
; 408.12 record.
DG22AIND(R21) ;Delete any entries in 408.22 that is pointing to the bad 408.21
DG40821(IEN) ; Main Cleanup driver for file 408.21, If 408.21 not pointed to
; by any 408.22 record, then delete it and check 408.12 for possible
; deletion as well.
DEL21(R21,R12,DG21) ; save to Xtmp & associated REC12, then delete the 408.21
CHK40812(R12,R21,DG12) ; delete 408.12's if no other 408.21's pointing to it
DG40822(IEN) ; Main Cleanup driver for file 408.22
CHKSTAT() ;check if job is running, stopped, or completed
GETLAST ;get last run info
MSG(QUIT) ;print message to user
STOP ; alternate stop method
NAMSPC() ;

External References

Name Field # of Occurrence
^%ZTLOAD EN+15
$$S^%ZTLOAD DG40812+25, DG40821+22, DG40822+23
MAIL^DG488M TASK+37
^DIK DG40812+19, DEL40821+13, DG22AIND+11, DEL21+5, CHK40812+9, DG40822+17
^DIR MSG+8, MSG+13
$$FMADD^XLFDT TASK+11
$$FMTE^XLFDT MSG+1
$$NOW^XLFDT TASK+10, TASK+19, TASK+35, TASK+36

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,ZTDESC,!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"This request queued as Task # ",ZTSK,!
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !!,*7,"*** ALREADY RUNNING ***"
  • Line Location: CHKSTAT+5
Function Call: WRITE
  • Prompt: " was "_STAT_" on "_$$FMTE^XLFDT(STIME)
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: " in "_$S(TESTMODE:"TEST",1:"LIVE")_" mode "
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !," Do you want to Re-Run in "_$S(TESTING:"TEST",1:"LIVE")
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: " mode?"
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !," ARE YOU SURE?"
  • Line Location: MSG+10
Routine Call
  • DIR
  • Line Location:
    • MSG+8
    • MSG+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPR(408.12 - [#408.12] 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] DEL40821+3, DEL40821+5, DEL40821+7!, DEL40821+10, DG40821+4, DG40821+6, DG40821+9, DG40821+11!, DG40821+15, DEL21+1
, DEL21+2, DEL21+3, CHK40812+2
^DGMT(408.22 - [#408.22] DG22AIND+2, DG22AIND+5, DG22AIND+6!, DG22AIND+9, DG40821+14, DG40822+2, DG40822+4, DG40822+8, DG40822+10!, DG40822+13
, DG40822+15
^DGPR(408.12 - [#408.12] DG40812+2, DG40812+4, DG40812+8, DG40812+10!, DG40812+13, DG40812+14, CHK40812+7
^XTMP( EN+14, EN+16, TASK+1, TASK+2*, TASK+12*, TASK+13*, TASK+14*, TASK+18*, TASK+19*, TASK+35*
, TASK+36*, TASK+38, DG40812+9*, DG40812+14*, DG40812+26!, DG40812+28*, DG40812+29*, DG40812+30*, DEL40821+6*, DEL40821+10*
, DG22AIND+9*, DG40821+10*, DG40821+15*, DG40821+23!, DG40821+25*, DG40821+26*, DG40821+27*, DEL21+2*, CHK40812+7*, DG40822+9*
, DG40822+15*, DG40822+24!, DG40822+26*, DG40822+27*, CHKSTAT+4, CHKSTAT+8, CHKSTAT+10, CHKSTAT+11, GETLAST+1, GETLAST+2
, GETLAST+3, GETLAST+4, GETLAST+5, GETLAST+6, GETLAST+7, GETLAST+8, GETLAST+9, GETLAST+10, GETLAST+11, GETLAST+12
, GETLAST+13, GETLAST+14, MSG+16!, STOP+1*

Label References

Name Line Occurrences
$$CHKSTAT EN+13
$$NAMSPC EN+14, EN+16, TASK+1, TASK+2, TASK+5, CHKSTAT+3, STOP+1
CHK40812 DG40821+18
DEL21 DG40821+17
DEL40821 DG40812+15
DG22AIND DEL40821+11
DG40812 TASK+24
DG40821 TASK+28
DG40822 TASK+32
GETLAST TASK+16
MSG CHKSTAT+17, CHKSTAT+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGTIME TASK+4~, TASK+10*, TASK+11, TASK+12
BTIME TASK+4~, GETLAST+12*
DA TASK+3~, DG40812+18*, DG40812+20!, DEL40821+12*, DEL40821+14!, DG22AIND+10*, DG22AIND+12!, DEL21+4*, DEL21+6!, CHK40812+8*
, CHK40812+10!, DG40822+16*, DG40822+18!
DG12 TASK+3~, DG40812+21*, DG40812+29, DG40821+18, DG40821+26, CHK40812~, CHK40812+11*, GETLAST+4*
DG12X TASK+3~, DG40812+11*, DG40812+29, GETLAST+5*
DG21 TASK+4~, DG40812+15, DG40812+30, DEL40821~, DEL40821+15*, DG40821+17, DG40821+27, DEL21~, DEL21+7*, GETLAST+10*
DG21X TASK+4~, DG40812+15, DG40812+30, DEL40821~, DEL40821+8*, DG40821+12*, DG40821+27, GETLAST+11*
DG22 TASK+3~, DG40812+29, DG22AIND+7*, DG22AIND+13*, DG40822+19*, DG40822+27, GETLAST+7*
DG22X TASK+3~, DG40822+11*, DG40822+27, GETLAST+8*
DGFIL TASK+4~, TASK+21*, TASK+22, TASK+25*, TASK+26, TASK+29*, TASK+30, DG40812+27, DG40821+24, DG40822+25
, GETLAST+1*
DGIEN TASK+4~, TASK+23*, TASK+27*, TASK+31, GETLAST+2*
DGT12 TASK+3~, DG40812+5*, DG40812+24, DG40812+29, GETLAST+3*
DGT21 TASK+4~, DG40821+7*, DG40821+21, DG40821+27, GETLAST+9*
DGT22 TASK+3~, DG40812+29, DG22AIND+3*, DG40822+5*, DG40822+22, DG40822+27, GETLAST+6*
DIK TASK+3~, DG40812+18*, DG40812+20!, DEL40821+12*, DEL40821+14!, DG22AIND+10*, DG22AIND+12!, DEL21+4*, DEL21+6!, CHK40812+8*
, CHK40812+10!, DG40822+16*, DG40822+18!
DIR MSG+5!, MSG+11!
DIR("?" MSG+6*, MSG+7*, MSG+12*
DIR(0 MSG+8*, MSG+13*
DTOUT CHKSTAT+1~
DUOUT CHKSTAT+1~
IEN TASK+4~, TASK+23*, TASK+24, TASK+27*, TASK+28, TASK+31*, TASK+32, DG40812~, DG40812+2*, DG40812+4
, DG40812+9, DG40812+10, DG40812+27, DG40821~, DG40821+4*, DG40821+6, DG40821+10, DG40821+11, DG40821+24, DG40822~
, DG40822+2*, DG40822+4, DG40822+9, DG40822+10, DG40822+25
LSTREC TASK+3~, DG40812+27*, DG40812+28, DG40821+24*, DG40821+25, DG40822+25*, DG40822+26
NAMSPC TASK+3~, TASK+5*, TASK+12, TASK+13, TASK+14, TASK+18, TASK+19, TASK+35, TASK+36, TASK+38
, DG40812+9, DG40812+14, DG40812+26, DG40812+28, DG40812+29, DG40812+30, DEL40821+6, DEL40821+10, DG22AIND+9, DG40821+10
, DG40821+15, DG40821+23, DG40821+25, DG40821+26, DG40821+27, DEL21+2, CHK40812+7, DG40822+9, DG40822+15, DG40822+24
, DG40822+26, DG40822+27, CHKSTAT+1~, CHKSTAT+3*, CHKSTAT+4, CHKSTAT+8, CHKSTAT+10, CHKSTAT+11, GETLAST+1, GETLAST+2
, GETLAST+3, GETLAST+4, GETLAST+5, GETLAST+6, GETLAST+7, GETLAST+8, GETLAST+9, GETLAST+10, GETLAST+11, GETLAST+12
, GETLAST+13, GETLAST+14, MSG+16
OK CHK40812+1~*, CHK40812+3*, CHK40812+5
PURGDT TASK+4~, TASK+11*, TASK+12
QUIT EN+2~, EN+13*, EN+14, CHKSTAT+1~, CHKSTAT+2*, CHKSTAT+12, CHKSTAT+17, CHKSTAT+19, CHKSTAT+20, MSG~
, MSG+9*, MSG+14*
R12 DEL40821~, DEL40821+3, DEL40821+6, DEL40821+7, DEL21~, DEL21+3*, CHK40812~, CHK40812+2, CHK40812+7, CHK40812+8
R21 DG22AIND~, DG22AIND+2, DG22AIND+6, DEL21~, DEL21+1, DEL21+2, DEL21+3, DEL21+4, CHK40812~, CHK40812+3
REC12 DG40812+1~, DG40812+3*, DG40812+4*, DG40812+8, DG40812+9, DG40812+10, DG40812+13, DG40812+14, DG40812+15, DG40812+18
, DG40821+16*, DG40821+17, DG40821+18
REC21 DEL40821+2~*, DEL40821+3*, DEL40821+5, DEL40821+6, DEL40821+7, DEL40821+10, DEL40821+11, DEL40821+12, DG40821+3~, DG40821+5*
, DG40821+6*, DG40821+9, DG40821+10, DG40821+11, DG40821+14, DG40821+15, DG40821+17, DG40821+18, CHK40812+1~*, CHK40812+2*
, CHK40812+3
REC22 DG22AIND+1~*, DG22AIND+2*, DG22AIND+5, DG22AIND+6, DG22AIND+9, DG22AIND+10, DG40822+1~, DG40822+3*, DG40822+4*, DG40822+8
, DG40822+9, DG40822+10, DG40822+13, DG40822+15, DG40822+16
STAT TASK+4~, CHKSTAT+10*, CHKSTAT+12, CHKSTAT+16, GETLAST+13*, MSG+1
STIME TASK+4~, CHKSTAT+11*, GETLAST+14*, MSG+1
TESTING TEST+1*, EN+4*, EN+14!, EN+17!, TASK+8*, TASK+14, TASK+39!, DG40812+10, DG40812+19, DEL40821+7
, DEL40821+13, DG22AIND+6, DG22AIND+11, DG40821+11, DEL21+5, CHK40812+9, DG40822+10, DG40822+17, CHKSTAT+19, MSG+3
TESTMODE CHKSTAT+8~*, CHKSTAT+19, MSG+2
U TASK+2, TASK+12, TASK+18, TASK+19, TASK+35, TASK+36, DG40812+13, DG40812+28, DG40812+29, DG40812+30
, DG40821+25, DG40821+26, DG40821+27, DEL21+3, DG40822+13, DG40822+26, DG40822+27, CHKSTAT+10, CHKSTAT+11, GETLAST+3
, GETLAST+4, GETLAST+5, GETLAST+6, GETLAST+7, GETLAST+8, GETLAST+9, GETLAST+10, GETLAST+11, GETLAST+12, GETLAST+13
, GETLAST+14
XX CHK40812+1~, CHK40812+2*, CHK40812+4, CHK40812+5
Y CHKSTAT+1~, MSG+9, MSG+14
ZTDESC EN+2~, EN+8*, EN+10, TASK+6*, TASK+12
ZTIO EN+2~, EN+9*
ZTQUEUED EN+2~
ZTRTN EN+2~, EN+7*
ZTSAVE EN+2~
ZTSAVE("TESTING" EN+6*
ZTSK EN+2~, EN+18, EN+19, TASK+13
ZTSTOP TASK+3~, TASK+25, TASK+29, TASK+35, DG40812+1*, DG40812+2, DG40812+4, DG40812+25*, DG40812+26*, DG40821+3*
, DG40821+4, DG40821+6, DG40821+22*, DG40821+23*, DG40822+1*, DG40822+2, DG40822+4, DG40822+23*, DG40822+24*
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  | All