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

Package: Registration

Routine: DG53P593


Information

DG53P593 ;BAY/JAT - Patient File Cleanup; 2/22/1999 ; 6/24/04 3:43pm

Source Information

Source file <DG53P593.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 4 C^%DTC  FILE^DIE  ^DIK  ^DIR  
Registration 1 $$SITE^VASITE  

Entry Points

Name Comments DBIA/ICR reference
CLEANUP ;This entry point will do the cleanup.
REPORT ;This entry point was provided for testing, so that before
ENTER ;
DEVICE() ;
DELETE(DGENSKIP) ;
EVAL578 ;
DIKDEL ;
DELEXE ; Delete exceptions on file for patient record being removed.
DELE ; delete exception
PRINT ;
HEAD ;

External References

Name Field # of Occurrence
C^%DTC CLEANUP+8, REPORT+13
^%ZIS DEVICE+10
HOME^%ZIS DEVICE+18
^%ZISC ENTER+3
^%ZTLOAD DEVICE+16
$$S^%ZTLOAD HEAD+1
FILE^DIE DIKDEL+11
^DIK DIKDEL+7, DELEXE+12, DELE+4
^DIR PRINT+17, HEAD+2
$$SITE^VASITE EVAL578+19
$$FMTE^XLFDT PRINT+3
$$NOW^XLFDT PRINT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This is a one-time cleanup of the Patient File."
  • Line Location: CLEANUP+4
Function Call: WRITE
  • Prompt: !,"Certain records which were created in error will be deleted."
  • Line Location: CLEANUP+5
Function Call: WRITE
  • Prompt: !,"This is a preliminary report by DFN of the Patient file"
  • Line Location: REPORT+9
Function Call: WRITE
  • Prompt: !,"records which would be deleted by the cleanup."
  • Line Location: REPORT+10
Function Call: WRITE
  • Prompt: !!,"*** COUNT OF BAD PATIENT RECORDS"_$S(DGENSKIP:"",1:" DELETED")_": ",COUNT," ***",!!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: @IOF,!,DGDDT,?15,"DG*5.3*593 Patient File Cleanup Utility",?70,"Page:",$J(DGPG,5),!
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: X,!
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,?2,"DFN",?15,"Reason for Deletion",!
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: X,!
  • Line Location: HEAD+7
Routine Call
  • DIE
  • Line Location:
    • DIKDEL+11
Routine Call
  • DIR
  • Line Location:
    • PRINT+17
    • HEAD+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+10
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+18

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DELETE+8, DELETE+10, DELETE+12, DELETE+14, DELETE+20, EVAL578+3, EVAL578+6, EVAL578+11, EVAL578+16, DIKDEL+6
, DIKDEL+8!
^DPT("B" DELETE+14, EVAL578+10
^DPT("SSN" EVAL578+13, EVAL578+15
^RGHL7(991.1 - [#991.1] DELEXE+2, DELEXE+3, DELEXE+5, DELEXE+7, DELEXE+8, DELEXE+10, DELEXE+13, DELE+1, DELE+5
^XTMP("DG53P593" CLEANUP+7!, CLEANUP+9*, REPORT+12!, REPORT+14*, DIKDEL+3*, PRINT+10, PRINT+12, PRINT+14

Label References

Name Line Occurrences
$$DEVICE CLEANUP+10, REPORT+15
DELE DELEXE+14
DELETE ENTER+2
DELEXE DIKDEL+5
DIKDEL DELETE+22, DELETE+23
ENTER CLEANUP+10, REPORT+15
EVAL578 DELETE+16
HEAD PRINT+5, PRINT+13
PRINT DELETE+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+7~, DEVICE+9*
COUNT DELETE+6~, DELETE+7*, DIKDEL+1*, PRINT+6, PRINT+8
DA DIKDEL+7*!, DELEXE+11*, DELEXE+12!, DELE+2*, DELE+4!
DA(1 DELE+2*, DELE+3
DFN DELETE+6~, DELETE+7*, DELETE+8*, DELETE+10, DELETE+12, DELETE+14, DELETE+20, EVAL578+3, EVAL578+6, EVAL578+10
, EVAL578+11, EVAL578+13, EVAL578+16, DIKDEL+3, DIKDEL+6, DIKDEL+7, DIKDEL+8, DIKDEL+10, DELEXE+3, DELEXE+5
, DELEXE+7, PRINT+11*, PRINT+12*, PRINT+14
DGCNT EVAL578+2~, EVAL578+5*, EVAL578+6*, EVAL578+8
DGDDT PRINT+2~, PRINT+3*, HEAD+5
DGDEL DELETE+6~, DELETE+23, EVAL578+1*, EVAL578+9*, EVAL578+10*, EVAL578+12*, EVAL578+13*, EVAL578+15*, EVAL578+17*, EVAL578+19*
, EVAL578+20, EVAL578+21*
DGENSKIP CLEANUP+2~, CLEANUP+3*, REPORT+7~, REPORT+8*, ENTER+2, ENTER+3, DEVICE+14, DELETE~, DIKDEL+4, PRINT+8
DGERR DELETE+6~
DGFDA DELETE+6~
DGFDA(2 DIKDEL+10*
DGMPI EVAL578+2~, EVAL578+16*, EVAL578+17, EVAL578+19
DGNAME DELETE+6~, DELETE+14*, EVAL578+9, EVAL578+10
DGNEWIEN EVAL578+2~, EVAL578+14*, EVAL578+15*
DGNODE EVAL578+2~, EVAL578+4*, EVAL578+6*
DGPG PRINT+2~, PRINT+4*, PRINT+17, HEAD+2, HEAD+4*, HEAD+5
DGQUIT PRINT+2~, PRINT+4*, PRINT+10, PRINT+12, PRINT+16, PRINT+17*, HEAD+1*, HEAD+2*, HEAD+3
DGSORT DELETE+6~, DIKDEL+2*, DIKDEL+3, PRINT+9*, PRINT+10*, PRINT+12, PRINT+14
DGSSN EVAL578+2~, EVAL578+11*, EVAL578+12, EVAL578+13, EVAL578+15
DGVAL DELETE+6~, DIKDEL+9*, DIKDEL+10
DIK DIKDEL+7*!, DELEXE+11*, DELEXE+12!, DELE+3*, DELE+4!
DIR PRINT+17!, HEAD+2!
DIR(0 PRINT+17*, HEAD+2*
DT CLEANUP+8, CLEANUP+9, REPORT+13, REPORT+14
EXCT DELEXE+1*, DELEXE+2*, DELEXE+3, DELEXE+5, DELEXE+7, DELEXE+15!
GOOD DELETE+6~, DELETE+18*, DELETE+21*, DELETE+22, DIKDEL+2
IEN DELEXE+4*, DELEXE+5*, DELEXE+7, DELEXE+8, DELEXE+10, DELEXE+11, DELEXE+13, DELEXE+15!, DELE+1, DELE+2
, DELE+5
IEN2 DELEXE+6*, DELEXE+7*, DELEXE+15!, DELE+2
IO PRINT+1
IO("Q" DEVICE+12
IOF HEAD+5
IOP DEVICE+7~
IOSL PRINT+13
IOST PRINT+17, HEAD+2
NUM DELEXE+8*, DELEXE+9, DELEXE+14, DELEXE+15!
OK DEVICE+7~, DEVICE+8*, DEVICE+11*, DEVICE+12, DEVICE+19*, DEVICE+20
POP DEVICE+7~, DEVICE+11
SUB DELETE+6~, DELETE+19*, DELETE+20*, DELETE+21
U DELETE+12, DELETE+14, EVAL578+11, EVAL578+16, DIKDEL+8
X CLEANUP+9, REPORT+14, HEAD+5!*, HEAD+7*
X1 CLEANUP+6~, CLEANUP+8*, REPORT+11~, REPORT+13*
X2 CLEANUP+6~, CLEANUP+8*, REPORT+11~, REPORT+13*
>> Y PRINT+17, HEAD+2
ZTDESC DEVICE+13~, DEVICE+14*
>> ZTQUEUED ENTER+4, PRINT+16, PRINT+18, HEAD+1
ZTREQ ENTER+4*, DEVICE+13~, PRINT+18*
ZTRTN DEVICE+13~, DEVICE+14*
>> ZTSAVE("DGENSKIP" DEVICE+15*
>> ZTSK DEVICE+17
ZTSKM DEVICE+13~
ZTSTOP DEVICE+13~, HEAD+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 |  All