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 |  Marked Items  | All
Print Page as PDF
Routine: QAOSPURG

Package: Occurrence Screen

Routine: QAOSPURG


Information

QAOSPURG ;HISC/DAD-PURGE AUTO ENROLL RUN DATES FILE ;1/13/93 14:12

Source Information

Source file <QAOSPURG.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 YN^DICN  ^DIE  ^DIK  
Quality Assurance Integration 2 (,K)^QAQDATE  ^QAQSELCT  
Clinical Monitoring System 1 EN3^QAMARCH1  
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 DELETE AUTO RUN DATES  

Entry Points

Name Comments DBIA/ICR reference
ASK ;
SCRN ;
DATE ;
ENTSK ; Tasked entry point
EXIT ;
SCRNFLD ;;TOTAL FIELD FOR EACH SCREEN IN FILE #741.99
1010 ;;1
1011 ;;1.1
1020 ;;2
1030 ;;3
1041 ;;4.1
1042 ;;4.2
1051 ;;5.1
1052 ;;5.2
1061 ;;6.1
1062 ;;6.2
1070 ;;7
1080 ;;8
1090 ;;9
1990 ;;99

External References

Name Field # of Occurrence
^%ZTLOAD DATE+6
YN^DICN ASK+1
^DIE ENTSK+22
^DIK ENTSK+19
EN3^QAMARCH1 ENTSK+14
^QAQDATE DATE+2
K^QAQDATE EXIT+4
^QAQSELCT SCRN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!?32,"*** WARNING ***",!!?4,"This option purges the historical data that tells the Occurrence Screen",!?17,"package on what dates auto enrollment was run",*7,!
  • Line Location: QAOSPURG+2
Function Call: WRITE
  • Prompt: !!?5,"Please answer Y(es) or N(o)",!
  • Line Location: ASK+1
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 in the past !! ***",*7
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !,"Deletion request queued."
  • Line Location: DATE+6
Routine Call
  • DIE
  • Line Location:
    • ENTSK+22

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(741.1 - [#741.1] ENTSK+9
^QA(741.99 - [#741.99] ENTSK+17
^QA(743 - [#743] ENTSK+10
^UTILITY($J SCRN+1!, ENTSK+1!, ENTSK+3, ENTSK+11*, EXIT+3!

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK+1*, EXIT+1!
%DT EXIT+1!
D EXIT+1!
DA ENTSK+19*, ENTSK+22*, EXIT+1!
DIE ENTSK+22*, EXIT+3!
DIK ENTSK+19*, EXIT+1!
DR ENTSK+22*, EXIT+3!
DT DATE+2
I EXIT+1!
>> QA ENTSK+2*
QAM ENTSK+10*, ENTSK+11, EXIT+2!
QAMD0 ENTSK+9*, ENTSK+10, ENTSK+11, EXIT+2!
QAMD1 EXIT+2!
QAMDATE EXIT+2!
QAMMON EXIT+2!
QAMMONNM EXIT+2!
QAOS ENTSK+17*, EXIT+1!
QAOSALL ENTSK+16*, ENTSK+18, EXIT+2!
QAOSD0 ENTSK+17*, ENTSK+19, ENTSK+22, EXIT+1!
QAOSDR ENTSK+1*, ENTSK+6*, ENTSK+22, EXIT+2!
QAOSQUIT EXIT+1!
>> QAOSSCRN ENTSK+3*, ENTSK+4, ENTSK+7, ENTSK+9
>> QAQDIC SCRN+2*
>> QAQDIC("A" SCRN+2*
>> QAQDIC("B" SCRN+3*
>> QAQDIC(0 SCRN+2*
>> QAQNBEG DATE+2, ENTSK+17
>> QAQNEND ENTSK+17
>> QAQQUIT SCRN+3, DATE+2
>> QAQUTIL SCRN+3*
SCRNFLD ENTSK+1!, ENTSK+4*, ENTSK+5, ENTSK+6, EXIT+2!
SCRNFLD( ENTSK+2*
SCRNFLD(0 ENTSK+16
SCRNFLD(10 ENTSK+4, ENTSK+7!
X ENTSK+2*, EXIT+1!
Y EXIT+1!
Z EXIT+1!
ZTDESC DATE+5*, EXIT+1!
ZTDTH DATE+3*, EXIT+2!
ZTIO DATE+3*, EXIT+1!
>> ZTQUEUED EXIT+4
>> ZTREQ EXIT+4*
ZTRTN DATE+3*, EXIT+1!
ZTSAVE EXIT+1!
ZTSAVE("QAQ*" DATE+4*
ZTSAVE("^UTIL ITY($J, ""QAO SCREEN"", " , DATE+4*

Marked Items

Name Field # of Occurrence
$T(SCRNFLD+QA ENTSK+2
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 |  Marked Items  | All