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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: QAMAUTO4

Package: Clinical Monitoring System

Routine: QAMAUTO4


Information

QAMAUTO4 ;HISC/DAD-AUTO ENROLL RERUN FOR A DATE RANGE ;5/26/93 09:25

Source Information

Source file <QAMAUTO4.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 3 ^%DT  (C,H,YMD)^%DTC  YN^DICN  
Clinical Monitoring System 2 ^QAMAUTO0  ^QAMAUTO5  
Quality Assurance Integration 2 (,K)^QAQDATE  EN1^QAQSELCT  
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: 2

Package Total Caller Graph
Clinical Monitoring System 1 QAM MANUAL AUTO ENROLL RUN  
Occurrence Screen 1 QAOAUTO  

Entry Points

Name Comments DBIA/ICR reference
EN
OK ;
MON
SRV
DATE ; *** CALLED HERE BY QAOAUTO - OS/3 'RERUN' AUTO ENROLL
ZTDTH
RPT
QUEUE ;
ENTSK ;
EXIT ;

External References

Name Field # of Occurrence
^%DT DATE+1, ZTDTH
C^%DTC ZTDTH+4, ENTSK+1
H^%DTC QUEUE+3
YMD^%DTC QUEUE+3
^%ZTLOAD QUEUE+1
YN^DICN MON, SRV, RPT
^QAMAUTO0 ENTSK+1
^QAMAUTO5 RPT+1
^QAQDATE DATE+1
K^QAQDATE EXIT+3
EN1^QAQSELCT MON+1, SRV+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!?3,"***********************************************************************",*7,!?3,"* Auto enroll has found important site parameters to be missing *"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !?3,"* Use the 'Site Parameters Edit' option to enter the necessary data *",!?3,"***********************************************************************",*7
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!?5,"Please answer Y(es) or N(o)"
  • Line Location: MON+0
Function Call: WRITE
  • Prompt: !!,"*** No monitors selected ***",*7
  • Line Location: MON+1
Function Call: WRITE
  • Prompt: !!?5,"Please answer Y(es) or N(o)"
  • Line Location: SRV+0
Function Call: WRITE
  • Prompt: !!,"*** No services selected ***",*7
  • Line Location: SRV+1
Function Call: WRITE
  • Prompt: !!,"Enter the date range you want auto enroll to scan"
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!?5,"*** Start and end dates must be T-1 or earlier ***",!,*7
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: " ??",*7,!!?5,"Queueing time must be between ",$E(QAMQBEG,1,4)," and ",$E(QAMQEND,1,4),!
  • Line Location: ZTDTH+2
Function Call: WRITE
  • Prompt: !!,"Queueing auto enroll, please wait"
  • Line Location: ZTDTH+3
Function Call: WRITE
  • Prompt: !!?5,"Please answer Y(es) or N(o)"
  • Line Location: RPT+0
Function Call: WRITE
  • Prompt: "."
  • Line Location: QUEUE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] EN
^QA(740 - [#740] EN
^UTILITY($J OK+1!, QUEUE+2*, EXIT+2!

Label References

Name Line Occurrences
DATE SRV, DATE+2
EXIT EN+2, MON, MON+1, SRV, SRV+1, DATE+1, ZTDTH, RPT+1
MON MON
QUEUE ZTDTH+4
RPT RPT
SRV MON, SRV
ZTDTH ZTDTH+2

Naked Globals

Name Field # of Occurrence
^("QAM SERVICE" OK+1!, EXIT+2!
^("QAM" EN
^("QAMAUTO45" OK+1!, EXIT+2!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % MON*, SRV*, RPT*, RPT+1, QUEUE+3*, QUEUE+4
%DT DATE+1*, ZTDTH*!, EXIT+1!
%DT("A" ZTDTH*
%DT(0 ZTDTH*
%H QUEUE+3*, EXIT+1!
%T QUEUE+3, EXIT+1!
D EXIT+1!
I EXIT+1!
PROBLEM EN*, EN+1, EXIT+1!
>> QA EN*, ZTDTH+4*
QA1 QUEUE+3*, EXIT+1!
QA2 QUEUE+3*, EXIT+1!
QAMAXDAY ZTDTH+3*, ZTDTH+4, EXIT+1!
QAMDT DATE+1*, DATE+2, EXIT+1!
QAMHANG ZTDTH+3*, QUEUE+3, EXIT+1!
QAMPARAM EN*, ZTDTH+1, ZTDTH+3, EXIT+1!
QAMQBEG ZTDTH+1*, ZTDTH+2, QUEUE+4, EXIT+1!
QAMQEND ZTDTH+1*, ZTDTH+2, QUEUE+4, EXIT+1!
QAMQTIME ZTDTH+3*, QUEUE+2, QUEUE+3*, QUEUE+4*, EXIT+1!
QAMQTIME(0 ZTDTH+1*, ZTDTH+2, ZTDTH+3, QUEUE+4
QAMRANGE ENTSK+1*, EXIT+1!
>> QAMTODAY ENTSK+1*
>> QAQDIC MON+1*, SRV+1*
>> QAQDIC("A" MON+1*, SRV+1*
>> QAQDIC("S" MON+1*
>> QAQDIC(0 MON+1*, SRV+1*
>> QAQNBEG DATE+2, ZTDTH+3, ZTDTH+4*, QUEUE+2, ENTSK+1
>> QAQNBEG(0 ZTDTH+3*
>> QAQNEND DATE+2, ZTDTH+3, ZTDTH+4*, QUEUE+2, ENTSK+1
>> QAQNEND(0 ZTDTH+3*, ZTDTH+4
QAQQUIT MON+1, SRV+1, DATE+1, EXIT+1!
>> QAQUTIL MON+1*, SRV+1*
X DATE+1*, ZTDTH+1*, ZTDTH+4, QUEUE+3*, ENTSK+1, EXIT+1!
X1 ZTDTH+4*, ENTSK+1*, EXIT+1!
X2 ZTDTH+4*, ENTSK+1*, EXIT+1!
Y DATE+1, ZTDTH, ZTDTH+1, EXIT+1!
ZTDESC QUEUE+1*, EXIT+1!
ZTDTH ZTDTH+1*, ZTDTH+3*, QUEUE+3*, QUEUE+4*, EXIT+1!
ZTIO QUEUE+1*, EXIT+1!
>> ZTQUEUED EXIT+3
>> ZTREQ EXIT+3*
ZTRTN QUEUE+1*, EXIT+1!
ZTSAVE EXIT+1!
ZTSAVE("QAQNBEG" QUEUE+1*
ZTSAVE("QAQNEND" QUEUE+1*
ZTSAVE("^UTILITY($J," QUEUE+1*
ZTSK QUEUE+1!, QUEUE+2, EXIT+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All