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

Package: Occurrence Screen

Routine: QAOSDELT


Information

QAOSDELT ;HISC/DAD-PURGE DELETED OCCURRENCES ;9/14/93 11:37

Source Information

Source file <QAOSDELT.m>

Call Graph

Call Graph

Call Graph Total: 5

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

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
Occurrence Screen 1 QAOS PURGE DELETED RECORDS  

Entry Points

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

External References

Name Field # of Occurrence
^%ZTLOAD DATE+6
YN^DICN ASK+1
^DIK ENTSK+12
^QAQDATE DATE+2
K^QAQDATE EXIT+3
^QAQSELCT SCRN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!?32,"*** WARNING ***",!!?5,"This option purges those Occurrence Screen records flagged as deleted",!?10,"once these records have been purged they cannot be recovered",*7
  • Line Location: QAOSDELT+2
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 screens to purge."
  • Line Location: SCRN+1
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: !!,"Deletion request queued."
  • Line Location: DATE+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(741 ENTSK+1, ENTSK+2
^QA(741 - [#741] ENTSK+5, ENTSK+6, ENTSK+7
^UTILITY($J SCRN+1!, ENTSK+8, EXIT+2!

Label References

Name Line Occurrences
ASK ASK+2
DATE DATE+2
EXIT ASK+2, SCRN+3, DATE+2, DATE+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK+1*, ASK+2, EXIT+1!
DA ENTSK+12*, EXIT+1!
DIK ENTSK+12*, EXIT+1!
DT DATE+2
QA ENTSK+1*, ENTSK+2, ENTSK+3, ENTSK+9*, ENTSK+10, EXIT+1!
QAOSD0 ENTSK+5*, ENTSK+6, ENTSK+7, ENTSK+12, EXIT+1!
QAOSDT ENTSK+5*, EXIT+1!
QAOSSCRN ENTSK+7*, ENTSK+8, EXIT+1!
QAOSTEST ENTSK+1!, ENTSK+9*, ENTSK+10*, ENTSK+12, EXIT+1!
QAOSTEST( ENTSK+3*, ENTSK+9, ENTSK+10
QAOSZERO ENTSK+6*, EXIT+1!
>> QAQDIC SCRN+2*
>> QAQDIC("A" SCRN+2*
>> QAQDIC("B" SCRN+3*
>> QAQDIC(0 SCRN+2*
>> QAQNBEG DATE+2, ENTSK+5
>> QAQNEND ENTSK+5
>> QAQQUIT SCRN+3, DATE+2
>> QAQUTIL SCRN+3*
>> X ENTSK+2*, ENTSK+3
>> ZTDESC DATE+5*
>> ZTDTH DATE+3*
>> ZTIO DATE+4*
>> ZTRTN DATE+3*
>> ZTSAVE("QAO*" DATE+4*
>> ZTSAVE("QAQ*" DATE+4*
>> ZTSAVE("^UTILITY($J," DATE+4*
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