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

Package: Registration

Routine: DG53659


Information

DG53659 ;EG - DG*5.3*659 Cleanup Radiation Exposure; 08/08/2006

Source Information

Source file <DG53659.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,$$S)^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  ($$NEWCP,BMES)^XPDUTL  
Registration 1 $$MAIL^DG53659M  
VA FileMan 1 ^DIE  

Entry Points

Name Comments DBIA/ICR reference
STATUS ;display status of current run
STOP(NAMSPC) ;
CHKR
RUN ;entry point from taskman
CHPAT(DFN) ;
DFN
UPDATEX(NAMSPC,TOTREC,LASTREC,TOTPAT) ;
TESTID(MESS) ;
NAMSPC() ;
LOOP(NAMSPC,TESTING) ;
QUE ;
SETUPX(EXPDAYS) ;
; requires EXPDAYS - number of days to keep XTMP around
TESTIDG
TEST ;entry point for test mode
END ; Post-install done
POST ;
CHKSTAT(POST) ;check if job is running, stopped, or complete
EP ; Queue the conversion
KILIT ;

External References

Name Field # of Occurrence
^%ZTLOAD POST+5
$$S^%ZTLOAD STOP+5
$$MAIL^DG53659M QUE+17
^DIE CHKR+11
$$FMADD^XLFDT SETUPX+6
$$FMTE^XLFDT STATUS+7, STATUS+9
$$NOW^XLFDT POST+5, QUE+8, QUE+14, SETUPX+5, STOP+9
$$NEWCP^XPDUTL EP+2, EP+3
BMES^XPDUTL POST+3, POST+6, POST+7, POST+8, END+1, RUN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?10,"Ending IEN can't be less than starting IEN"
  • Line Location: TEST+8
Function Call: WRITE
  • Prompt: !!,MESS," DFN for Patient file? "
  • Line Location: TESTIDG+1
Function Call: WRITE
  • Prompt: !,?10,"Must be numeric"
  • Line Location: TESTIDG+3
Function Call: WRITE
  • Prompt: !!,"Task not started!!!"
  • Line Location: STATUS+5
Function Call: WRITE
  • Prompt: !!," Current status: ",$P(X,U,6)
  • Line Location: STATUS+6
Function Call: WRITE
  • Prompt: !," Starting time: ",$$FMTE^XLFDT($P(X,U,7))
  • Line Location: STATUS+7
Function Call: WRITE
  • Prompt: !," Ending time: ",$$FMTE^XLFDT($P(X,U,8))
  • Line Location: STATUS+9
Function Call: WRITE
  • Prompt: !!," Total patient records read: ",$P(X,U,2)
  • Line Location: STATUS+11
Function Call: WRITE
  • Prompt: !," Last patient record processed: ",$P(X,U,1)
  • Line Location: STATUS+12
Function Call: WRITE
  • Prompt: !," Total patient records changed: ",$P(X,U,10)
  • Line Location: STATUS+13
Routine Call
  • DIE
  • Line Location:
    • CHKR+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DFN+6, CHPAT+3, CHPAT+7, CHPAT+13
^TMP( RUN+5!
^XTMP( TEST+5!, TEST+9*, QUE+6, QUE+9*, QUE+12, QUE+15*, QUE+19, SETUPX+7*, SETUPX+8*, LOOP+6
, LOOP+7, DFN+2, UPDATEX+2, UPDATEX+5*, STATUS+4, STOP+6!, STOP+8, STOP+10*, CHKSTAT+3, KILIT+2!

Label References

Name Line Occurrences
$$CHKSTAT RUN+1, TEST+4
$$CHPAT CHKR+6
$$LOOP QUE+11
$$NAMSPC RUN+5, TEST+2, QUE+4, SETUPX+4, STATUS+3, CHKSTAT+2, KILIT+1
$$SETUPX QUE+5
$$STOP CHKR+5
$$TESTID TEST+6, TEST+7
$$UPDATEX CHKR+14
CHKR DFN+6
DFN LOOP+14
KILIT CHKSTAT+5
QUE RUN+5, TEST+10
TESTIDG TESTIDG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EP+1~, EP+2*, EP+3*
BEGTIME SETUPX+2~, SETUPX+5*, SETUPX+6, SETUPX+7
DA CHKR+9~, CHKR+10*
DFN DFN~, DFN+1*, DFN+3*, DFN+6*, CHKR+2, CHKR+3, CHKR+6, CHKR+10, CHPAT~, CHPAT+3
, CHPAT+7, CHPAT+13
DIE CHKR+9~, CHKR+10*
DR CHKR+9~, CHKR+10*
DUZ QUE+17
END DFN~, DFN+1*, DFN+3*, CHKR+2
ENDID TEST+1~, TEST+7*, TEST+8, TEST+9
EXPDAYS SETUPX~, SETUPX+6
LASTREC LOOP+2~, LOOP+4*, LOOP+9*, CHKR+3*, CHKR+14, UPDATEX~, UPDATEX+3
MESS TESTID~, TESTIDG+1
NAMSPC TEST+1~, TEST+2*, TEST+5, TEST+9, QUE+1~, QUE+4*, QUE+6, QUE+9, QUE+11, QUE+12
, QUE+15, QUE+17, QUE+19, SETUPX+2~, SETUPX+4*, SETUPX+7, SETUPX+8, LOOP~, LOOP+6, LOOP+7
, DFN+2, CHKR+5, CHKR+14, UPDATEX~, UPDATEX+2, UPDATEX+5, STATUS+1~, STATUS+3*, STATUS+4, STOP~
, STOP+6, STOP+8, STOP+10, CHKSTAT+1~, CHKSTAT+2*, CHKSTAT+3, KILIT+1*, KILIT+2
NEW CHKR~, CHKR+7*, CHKR+10
OLD STATUS+1~
POST CHKSTAT~, KILIT+2
PURGDT SETUPX+2~, SETUPX+6*, SETUPX+7
RET CHPAT+1~, CHPAT+2*, CHPAT+5, CHPAT+7*, CHPAT+9*, CHPAT+14*, CHPAT+16
REXP LOOP+3~
STARTID TEST+1~, TEST+6*, TEST+8, TEST+9
TESTING RUN+4~, RUN+5*, TEST+1~, TEST+3*, QUE+3~*, QUE+11, QUE+17, QUE+18!, LOOP~, CHKR+8
TOTPAT LOOP+2~, LOOP+12*, CHKR+7*, CHKR+14, UPDATEX~, UPDATEX+4
TOTREC LOOP+2~, LOOP+5*, LOOP+11*, CHKR+4*, CHKR+5, CHKR+14, UPDATEX~, UPDATEX+3
U POST+1~, POST+2*, TEST+1~, TEST+3*, TEST+9, QUE+1~, QUE+2*, QUE+7, QUE+8, QUE+11
, QUE+13, QUE+14, SETUPX+2~, SETUPX+3*, SETUPX+7, SETUPX+8, LOOP+3~, LOOP+4*, LOOP+9, LOOP+11
, LOOP+12, DFN+3, CHKR~, CHKR+1*, CHKR+6, CHKR+7, CHPAT+1~, CHPAT+2*, CHPAT+4, CHPAT+7
, CHPAT+13, UPDATEX+1~, UPDATEX+2*, UPDATEX+3, UPDATEX+4, STATUS+1~, STATUS+2*, STATUS+6, STATUS+7, STATUS+8
, STATUS+9, STATUS+11, STATUS+12, STATUS+13, STOP+1~, STOP+2*, STOP+9
VAL CHPAT+1~, CHPAT+4*, CHPAT+5, CHPAT+6, CHPAT+7, CHPAT+13
X TEST+1~, TEST+4*, TESTIDG~, TESTIDG+1*, TESTIDG+2, TESTIDG+3, TESTIDG+4, QUE+1~, QUE+5*, QUE+6*
, QUE+7*, QUE+8*, QUE+9, QUE+11*, QUE+12*, QUE+13*, QUE+14*, QUE+15, QUE+17*, LOOP+2~
, DFN~, DFN+2*, DFN+3, CHKR~, CHKR+6*, CHKR+7, CHKR+9~, CHKR+14*, CHPAT+1~, CHPAT+3*
, CHPAT+4, UPDATEX+1~, UPDATEX+2*, UPDATEX+3*, UPDATEX+4*, UPDATEX+5, STATUS+1~, STATUS+4*, STATUS+5, STATUS+6
, STATUS+7, STATUS+8, STATUS+9, STATUS+11, STATUS+12, STATUS+13, STOP+1~, STOP+8*, STOP+9*, STOP+10
XREC LOOP+2~, LOOP+7*, LOOP+9, LOOP+11, LOOP+12
ZSTSTOP STOP+1~
ZTDESC POST+1~, POST+4*
ZTDTH POST+1~, POST+5*
ZTIO POST+1~, POST+5*
ZTRTN POST+1~, POST+4*
ZTSAVE POST+1~
ZTSK POST+1~, POST+6
ZTSTOP QUE+1~, QUE+11*, QUE+13, LOOP+3~, LOOP+4*, LOOP+15, DFN+5*, DFN+6, CHKR+2*, CHKR+5*
, STOP+4*, STOP+5*, STOP+6*, STOP+7, STOP+12

Marked Items

Name Field # of Occurrence
$T( NAMSPC+1
Info |  Source |  Call 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