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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls