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

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() ;

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

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