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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Scheduling 2 SD IHS PURGE  SD PURGE  

Entry Points

Name Comments DBIA/ICR reference
A1
A2
A5 ;S %=1 W !!,"Is everything OK to proceed" D YN^DICN Q:%<0 I '% W !,"Reply YES or NO" G A5 ;IHS/ANMC/LJF 12/13/2000
A4
OV
DT1

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The date you select to delete through may not exceed "
  • Line Location: SDPURG+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: SDPURG+6
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+7
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+8
Function Call: WRITE
  • Prompt: !," from the PATIENT File",!," - the 'ASDPSD' nodes, Special Survey cross-reference"
  • Line Location: SDPURG+9
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
  • Timeout: DTIME
  • Variable: X
  • 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: !,"Reply YES or NO"
  • Line Location: A5+1
Function Call: WRITE
  • Prompt: !,*7,"NO PURGING DONE!!"
  • Line Location: A5+2

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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