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

Package: Supply

Routine: ASU0PURG


Information

ASU0PURG ; IHS/ITSC/LMH -DELETE TRANS - RANGE OF DATES ;

Source Information

Source file <ASU0PURG.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Supply 3 (DATE,TIME)^ASUUDATE  CLS^ASUUHDG  ^ASUUPLOG  
VA Fileman 3 (,DD)^%DT  ^DIK  ^DIR  
Kernel 1 $$DTIME^XUP  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Supply 1 ASUMKBPS  

Entry Points

Name Comments DBIA/ICR reference
DOIT ;
EN2 ;EP; FROM YEARLY UPDATE
LOG ;

External References

Name Field # of Occurrence
^%DT ASU0PURG+18, ASU0PURG+21
DD^%DT ASU0PURG+19, ASU0PURG+22, EN2+2
DATE^ASUUDATE ASU0PURG+9, EN2+1
TIME^ASUUDATE ASU0PURG+9, EN2+1
CLS^ASUUHDG ASU0PURG+11
^ASUUPLOG DOIT+8
^DIK DOIT+15
^DIR ASU0PURG+15, DOIT+31
$$DTIME^XUP ASU0PURG+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Warning -if you continue, You will be asked for a range of 'PROCESS DATES' and",!,"Transactions of all types which were PROCESSED BETWEEN THOSE DATES will be DELETED!!"
  • Line Location: ASU0PURG+12
Function Call: WRITE
  • Prompt: !!,"Beginning date may not be before three years ago",!
  • Line Location: ASU0PURG+17
Function Call: WRITE
  • Prompt: !!,"Ending date may not be after one year ago",!
  • Line Location: ASU0PURG+20
Routine Call
  • DIR
  • Line Location:
    • ASU0PURG+15
    • DOIT+31

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ASUH - [#9002036] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP("ASUR" DOIT+18!, DOIT+19*, LOG+1*

Label References

Name Line Occurrences
DOIT EN2+3
LOG DOIT+20, DOIT+23, DOIT+24, DOIT+27, DOIT+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ASU0PURG+18*, ASU0PURG+22!
%DT("A" ASU0PURG+18*, ASU0PURG+21*
%DT(0 ASU0PURG+18*, ASU0PURG+21*
>> ASUA("DELT" DOIT+7*, DOIT+16*, DOIT+17, DOIT+22, DOIT+23
>> ASUA("KEPT" DOIT+7*, DOIT+12*, DOIT+26, DOIT+27
>> ASUA("PROC" DOIT+11*
ASUC DOIT+29!
ASUC("DEL" DOIT+1*, DOIT+17*, DOIT+24
ASUC("KEPT" DOIT+1*, DOIT+11*, DOIT+28
ASUC("TR" DOIT+9*, DOIT+15*, DOIT+16, DOIT+22*, DOIT+26*, DOIT+29!
>> ASUK("DT" ASU0PURG+18, ASU0PURG+21, DOIT+19, EN2+1, EN2+2
ASULA DOIT+29!
>> ASUP("TYP" DOIT+30, LOG+2
>> ASURX DOIT+8*, DOIT+20*, DOIT+23*, DOIT+24*, DOIT+27*, DOIT+28*, LOG+1, LOG+2
ASUU DOIT+29!
ASUU("1ST" ASU0PURG+19*, DOIT+20, EN2+2*
ASUU("AC" DOIT+1*
ASUU("BEGIN" ASU0PURG+19*, DOIT+10, EN2+2*
ASUU("DT" DOIT+7*, DOIT+9*, DOIT+10, DOIT+11
ASUU("E#" DOIT+7, DOIT+12, DOIT+16, DOIT+17
ASUU("END" ASU0PURG+22*, DOIT+10, EN2+2*
ASUU("LAST" ASU0PURG+22*, DOIT+20, EN2+2*
ASUU("NXDT" DOIT+3*, DOIT+4, DOIT+5*, DOIT+9
ASUU("NXTRN" DOIT+4*, DOIT+15
ASUU(1 DOIT+21*, DOIT+22*, DOIT+23, DOIT+25*, DOIT+26*, DOIT+27
ASUU(2 DOIT+18*, LOG+1*
>> DA DOIT+14*, DOIT+15*
>> DIK DOIT+2*, DOIT+3, DOIT+6
DIR ASU0PURG+13!, ASU0PURG+15!
DIR("A" ASU0PURG+14*
DIR("B" ASU0PURG+14*
DIR(0 ASU0PURG+14*, DOIT+31*
DTIME ASU0PURG+10*
DUZ ASU0PURG+10
U DOIT+19
Y ASU0PURG+14, ASU0PURG+16, ASU0PURG+19!, ASU0PURG+22!, EN2+2*
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