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

Package: Patient Representative

Routine: QACDELT


Information

QACDELT ;HISC/CEW - Purge Contact Records ;2/10/95 11:06

Source Information

Source file <QACDELT.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 YN^DICN  ^DIK  ^DIR  
Kernel 2 ^%ZISC  ^%ZTLOAD  
Quality Assurance Integration 1 (,K)^QAQDATE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Representative 1 QAC PURGE  

Entry Points

Name Comments DBIA/ICR reference
ASK ;
DATE ;
ENTSK ;
EXIT ;

External References

Name Field # of Occurrence
^%ZISC EXIT+1
^%ZTLOAD DATE+10
YN^DICN ASK+1
^DIK ENTSK+3
^DIR DATE+5
^QAQDATE DATE+2
K^QAQDATE EXIT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!?32,"***WARNING***",!!?5,"This option purges all Patient Rep contact records with Dates of Contact",!?5,"that fall within the date range you select."
  • Line Location: QACDELT+2
Function Call: WRITE
  • Prompt: !?5,"Once these records are purged, they cannot be recovered!",*7
  • Line Location: QACDELT+3
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to continue"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!?5,"Please answer Y(es) or (N)o"
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"Select the date range to purge."
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !?5,"*** Beginning date must be today or earlier !! ***",*7
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !!?10,"No records purged!"
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: !!,"Deletion request queued."
  • Line Location: DATE+10
Routine Call
  • DIR
  • Line Location:
    • DATE+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^QA(745.1 - [#745.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(745.1 - [#745.1] ENTSK+1, ENTSK+2

Label References

Name Line Occurrences
ASK ASK+2
DATE DATE+2
EXIT ASK+2, DATE+2, DATE+5, DATE+6, DATE+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK+1*, ASK+2, EXIT+2!
DA ENTSK+3!*, EXIT+2!
DIK ENTSK+3!*, EXIT+2!
DIR DATE+3!, DATE+5!, EXIT+2!
DIR("A" DATE+4*
DIR("B" DATE+3*
DIR(0 DATE+3*
DIROUT DATE+5, EXIT+2!
DT DATE+2
DTOUT DATE+5, EXIT+3!
DUOUT DATE+5, EXIT+3!
QACD0 ENTSK+2*, ENTSK+3, EXIT+2!
QACDT ENTSK+1*, ENTSK+2, EXIT+2!
>> QAQNBEG DATE+2, ENTSK+1
>> QAQNEND ENTSK+1
>> QAQQUIT DATE+2
Y DATE+6, EXIT+3!
ZTDESC DATE+9*, EXIT+2!
ZTDTH DATE+7*, EXIT+2!
ZTIO DATE+8*, EXIT+2!
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
ZTRTN DATE+7*, EXIT+2!
ZTSAVE EXIT+2!
ZTSAVE("QAQNBEG" DATE+8*
ZTSAVE("QAQNEND" DATE+8*
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