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

Package: Clinical Monitoring System

Routine: QAMARCH0


Information

QAMARCH0 ;HISC/DAD-SELECTIVELY PURGE FILES 743.1, 743.2, 743.6 ;7/17/92 09:39

Source Information

Source file <QAMARCH0.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Quality Assurance Integration 2 (,K)^QAQDATE  EN1^QAQSELCT  
Clinical Monitoring System 1 (EN1,EN2,EN3)^QAMARCH1  
Kernel 1 ^%ZTLOAD  
VA FileMan 1 YN^DICN  

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

Package Total Caller Graph
Clinical Monitoring System 3 QAM PURGE AUTO RUN DATES FILE  QAM PURGE FALL OUT FILE  QAM PURGE HISTORY FILE  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; *** MONITOR HISTORY FILE (#743.2)
ENTSK1 ; *** TASKED ENTRY POINT
EN2 ; *** FALL OUT FILE (#743.1)
ENTSK2 ; *** TASKED ENTRY POINT
EN3 ; *** AUTO ENROLL RUN DATES FILE (#743.6)
ENTSK3 ; *** TASKED ENTRY POINT
EXIT ; *** COMMON EXIT POINT
ASKCONT ; *** CONTINUE?
ASKREADY ; *** READY TO DELETE?
AR
GETMON ; *** MONITORS TO DELETE
GETDATE ; *** DATE RANGE TO DELETE
QUEUE(X) ; *** QUEUE THE DELETION

External References

Name Field # of Occurrence
^%ZTLOAD QUEUE+3
YN^DICN ASKCONT+1, AR
EN1^QAMARCH1 ENTSK1+1
EN2^QAMARCH1 ENTSK2+1
EN3^QAMARCH1 ENTSK3+1
^QAQDATE GETDATE+1
K^QAQDATE EXIT+2
EN1^QAQSELCT GETMON+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"*********************************************************************",*7
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !?5,"* This option DELETES selected data from the Monitor History file *"
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !?5,"* Once the data has been deleted it CANNOT BE RECOVERED *"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !?5,"*********************************************************************",*7
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !!,"Nothing deleted."
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !!?5,"********************************************************************",*7
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !?5,"* This option DELETES selected data from the Fall Out file *"
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !?5,"* Once the data has been deleted it CANNOT BE RECOVERED *"
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !?5,"********************************************************************",*7
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !!,"Nothing deleted."
  • Line Location: EN2+8
Function Call: WRITE
  • Prompt: !!?2,"***************************************************************************",*7
  • Line Location: EN3+1
Function Call: WRITE
  • Prompt: !?2,"* This option DELETES selected data from the Auto Enroll Run Dates file *"
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: !?2,"* Once the data has been deleted it CANNOT BE RECOVERED *"
  • Line Location: EN3+3
Function Call: WRITE
  • Prompt: !?2,"***************************************************************************",*7
  • Line Location: EN3+4
Function Call: WRITE
  • Prompt: !!,"Nothing deleted."
  • Line Location: EN3+8
Function Call: WRITE
  • Prompt: !!?5,"Please answer Y(es) or N(o)"
  • Line Location: ASKCONT+1
Function Call: WRITE
  • Prompt: *7
  • Line Location: ASKREADY+1
Function Call: WRITE
  • Prompt: !!?5,"Enter Y(es) to delete the selected data, or",!?5,"Enter N(o) to exit without deleting the data"
  • Line Location: AR+0
Function Call: WRITE
  • Prompt: !!,"Select the monitors to delete."
  • Line Location: GETMON+1
Function Call: WRITE
  • Prompt: !!,"Select the date range to delete."
  • Line Location: GETDATE+1
Function Call: WRITE
  • Prompt: !!,"Deletion request queued."
  • Line Location: QUEUE+3

Label References

Name Line Occurrences
AR AR
ASKCONT EN1+5, EN2+5, EN3+5, ASKCONT+1
ASKREADY EN1+8, EN2+8, EN3+8
EXIT EN1+5, EN1+6, EN1+7, EN1+8, EN1+9, ENTSK1+1, EN2+5, EN2+6, EN2+7, EN2+8
EN2+9, ENTSK2+1, EN3+5, EN3+6, EN3+7, EN3+8, EN3+9
GETDATE EN1+7, EN2+7, EN3+7
GETMON EN1+6, EN2+6, EN3+6
QUEUE EN1+9, EN2+9, EN3+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN1+5, EN1+8, EN2+5, EN2+8, EN3+5, EN3+8, EXIT+2!, ASKCONT+1*, AR*
%Y EXIT+2!
DA EXIT+2!
DIC EXIT+2!
DIE EXIT+2!
DIK EXIT+2!
DR EXIT+2!
QADL EXIT+2!
QAMD0 EXIT+2!
QAMD1 EXIT+2!
QAMDATE EXIT+2!
QAMDELET EXIT+2!
QAMEND EXIT+2!
QAMFALL EXIT+2!
QAMMON EXIT+2!
QAMMONNM EXIT+2!
QAMQUIT EXIT+2!
QAMSAMP EXIT+2!
QAMSTART EXIT+2!
QAMZERO EXIT+2!
>> QAQDIC GETMON+1*
>> QAQDIC("A" GETMON+1*
>> QAQDIC(0 GETMON+1*
QAQQUIT EN1+6, EN1+7, EN2+6, EN2+7, EN3+6, EN3+7, EXIT+2!
>> QAQUTIL GETMON+1*
X QUEUE~, QUEUE+1, QUEUE+2
ZTDESC EXIT+2!, QUEUE+2*
>> ZTDTH QUEUE+2*
ZTIO EXIT+2!, QUEUE+1*
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
ZTRTN EXIT+2!, QUEUE+1*
ZTSAVE EXIT+2!
ZTSAVE("QAM*" QUEUE+1*
ZTSAVE("QAQ*" QUEUE+1*
ZTSAVE("^UTILITY($J," QUEUE+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All