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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SDPURG

Package: Scheduling

Routine: SDPURG


Information

SDPURG ;ALB/TMP - Purge Routine Parameter Selection ; 12/24/85

Source Information

Source file <SDPURG.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^%DT  C^%DTC  YN^DICN  (D,DT)^DIQ  
Scheduling 2 (Q,START)^SDPURG1  DT^SDUTL  
Registration 1 ZIS^DGUTQ  

Entry Points

Name Comments DBIA/ICR reference
A1
A2
DT1
OV
A4
A5

External References

Name Field # of Occurrence
^%DT DT1+2
C^%DTC SDPURG+4
ZIS^DGUTQ A5+2
YN^DICN SDPURG+8, A1, A2, A4, A5
D^DIQ DT1
DT^DIQ SDPURG+4, DT1+3
Q^SDPURG1 A2+2, OV, A5+1, A5+2
START^SDPURG1 A5+3
DT^SDUTL SDPURG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The date you select to delete through may not exceed "
  • Line Location: SDPURG+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: SDPURG+4
Function Call: WRITE
  • Prompt: !,"The files you may choose to delete from and the nodes that will be deleted are:",!!," from the HOSPITAL LOCATION File",!," - the 'S' nodes, APPOINTMENT multiple"
  • Line Location: SDPURG+5
Function Call: WRITE
  • Prompt: !," - the 'ST' nodes, clinic PATTERN multiple",!," - the 'OST' nodes, clinic SPECIAL PATTERN multiple",!," - the 'C' nodes, CHART CHECK multiple",!," - the 'AAS' nodes, 10/10 visits cross-reference"
  • Line Location: SDPURG+6
Function Call: WRITE
  • Prompt: !," from the PATIENT File",!," - the 'ASDPSD' nodes, Special Survey cross-reference"
  • Line Location: SDPURG+7
Function Call: WRITE
  • Prompt: !,"Reply YES or NO"
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: !,"Reply YES or NO"
  • Line Location: A2+0
Function Call: WRITE
  • Prompt: !!,*7,"No files selected for purging --- NO PURGING DONE!!"
  • Line Location: A2+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DT1+0
Function Call: WRITE
  • Prompt: !,"This date may be different from the default - choose the date through which",!," you want to purge"
  • Line Location: DT1+1
Function Call: WRITE
  • Prompt: !,"Invalid date"
  • Line Location: DT1+2
Function Call: WRITE
  • Prompt: !,*7,"You can only purge data up to "
  • Line Location: DT1+3
Function Call: WRITE
  • Prompt: !!,*7,"No files selected for purging --- NO PURGING DONE!!"
  • Line Location: OV+0
Function Call: WRITE
  • Prompt: !,"Reply YES or NO"
  • Line Location: A4+0
Function Call: WRITE
  • Prompt: !,"Reply YES or NO"
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: !,*7,"NO PURGING DONE!!"
  • Line Location: A5+1

Label References

Name Line Occurrences
A1 A1
A2 A2
A4 A4
A5 A5
DT1 DT1+1, DT1+2, DT1+3
OV DT1
SDPURG SDPURG+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SDPURG+8*, A1*, A1+1, A2*, A2+1, A4*, A4+1, A5*, A5+1
%DT DT1+2*, DT1+4!
%DT(0 DT1+2*
DT SDPURG+2, SDPURG+3, DT1+2
DTIME SDPURG+2*, DT1
>> PGM A5+2*
>> POP A5+2
>> SD2 A2+1*, A2+2, OV, A5+2
>> SD44 A1+1*, A2+2, OV, A5+2
>> SDLFY SDPURG+4*, DT1, DT1+3
>> SDLIM SDPURG+3*, SDPURG+4, DT1, A5+2
>> SDLIM1 DT1*, DT1+4*, A5+2
>> SDPR A4+1*, A5+2
>> VAL A5+2*
>> VAR A5+2*
>> X SDPURG+4, DT1*, DT1+1
>> X1 SDPURG+4*
>> X2 SDPURG+4*
>> Y SDPURG+4*, DT1*, DT1+2, DT1+3*, DT1+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All