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

Package: Quality Assurance Integration

Routine: QAQSELCT


Information

QAQSELCT ;HISC/DAD-GENERIC FILE ENTRY SELECTOR ;2/11/94 12:29

Source Information

Source file <QAQSELCT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 6 ^%DT  ^DIC  DO^DIC1  YN^DICN  Y^DIQ  ^DIR  
Kernel 1 HOME^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 17

Package Total Caller Graph
Clinical Monitoring System 10 QAMAHO1  QAMARCH0  QAMAUTO4  QAMPFAL0  QAMPHIS1  QAMPINQ1  QAMPINQ2  QAMPINQ3  
QAMPINQ4  QAMPMON0  
Occurrence Screen 6 QAOAUTO  QAOEDT  QAOSDELT  QAOSPINQ  QAOSPSR0  QAOSPURG  
Patient Representative 1 QACPRT  

Entry Points

Name Comments DBIA/ICR reference
ALL ;
PAUSE ;
HELP ;
SHOW
K
CHKFLD(X) ;
AL
HLP
1
EN1 ;
EXIT ;
WRAP ;
SETDIC ;
SHO

External References

Name Field # of Occurrence
^%DT 1+6, AL+6
HOME^%ZIS EN1+9
^DIC 1+3
DO^DIC1 EN1+5, SETDIC+3
YN^DICN ALL+2
Y^DIQ AL+3
^DIR PAUSE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S(QAQNUM>1:"Another one: ",1:DIC("A")),$S((QAQNUM=1)&(QAQDIC("B")]""):QAQDIC("B")_"// ",1:"")
  • Line Location: 1+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !?7,"Answer Y(es) if you want all of the ",QAQFLD01("S"),",",!?7,"otherwise answer N(o)"
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !?5,"To deselect a ",QAQFLD01," type a minus sign (-)",!?5,"in front of it, e.g. -",QAQFLD01,".",!?5,"To get all ",QAQFLD01("S")," type ALL."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !!,"You have already selected:"
  • Line Location: SHOW+0
Function Call: WRITE
  • Prompt: !
  • Line Location: HLP+0
Function Call: WRITE
  • Prompt: !?3,QAQD0,?15,QAQ(0)
  • Line Location: SHO+5
Function Call: WRITE
  • Prompt: !?3,QAQ(0)
  • Line Location: SHO+6
Function Call: WRITE
  • Prompt: !
  • Line Location: WRAP+1
Function Call: WRITE
  • Prompt: !?5,$P(QAQ," ",1,Y)
  • Line Location: WRAP+1
Routine Call
  • %ZIS
  • Line Location:
    • EN1+9
Routine Call
  • DIC
  • Line Location:
    • 1+3
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( EN1+5, AL+2, CHKFLD+1
^DD("DD" SHO+3
^DIC - [#1] EN1+3
^UTILITY($J EN1+9!, 1+8, 1+9, EXIT+1, AL+8*, HELP+3, SHOW+1

Label References

Name Line Occurrences
$$CHKFLD 1+4, AL+4, SHO+1, CHKFLD+2
1 1+2, 1+3, 1+10
AL ALL+4
ALL 1+2, ALL+2
EXIT EN1+1, EN1+2, EN1+3, 1+1, 1+2
HELP 1+3
HLP HELP+3
K EN1+3
PAUSE SHO+8
SETDIC 1, AL, AL+1, SHO+7
SHO SHOW+1
WRAP ALL+1, HELP+1

Naked Globals

Name Field # of Occurrence
^( 1+8*, 1+9!
^("GL" EN1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% K!, ALL+2*
%DT 1+5~, 1+6*, AL+5~, AL+6*
A CHKFLD+1~*, CHKFLD+2*, CHKFLD+3
C K!, AL+2*
D0 K!, AL*, AL+1*, SHO+7*
DA K!, AL*, AL+1*, SHO+7*
DIC EN1+3*, 1+3!, K!, SETDIC+1!*
DIC( SETDIC+2*
DIC("A" 1
DIC("S" AL+1
DIC("W" SHO+7
DIC(0 EN1+4*
DIK K!
DIR K!, PAUSE+1!
DIR(0 PAUSE+1*
DO EN1+5!, K!, SETDIC+1!
DO("SCR" EN1+5
DO(2 EN1+5
DTIME 1+1
IOM WRAP+1
IOSL SHO+8
QAQ K!, ALL+1*, HELP+1*, SHOW*, SHOW+1*, SHO, WRAP+1*
QAQ(0 SHO*, SHO+3*, SHO+5, SHO+6
QAQALL EN1+9*, 1+2, K!, ALL+2*, ALL+3
QAQD0 1+6*, K!, ALL+4*, AL, AL+1, AL+8, SHOW+1*, SHO+5, SHO+7
QAQDIC EN1+1, EN1+2, EN1+3*, EXIT+1!, ALL+1, ALL+4, AL, AL+1, AL+2, SHO+7
, SETDIC+1
QAQDIC( EN1+7*, SETDIC+2
QAQDIC("A" EN1+8*
QAQDIC("B" 1, 1+1
QAQDIC("S" ALL+1, AL+1
QAQDIC(0 EN1+1, EN1+2, EN1+4*, SHO+5
QAQDSEL 1+1*, 1+8, 1+9, K!
QAQDT K!
QAQFLD01 EN1+5*, EN1+6, EN1+8, K!, HELP+1, HELP+2
QAQFLD01("S" EN1+6*, ALL+1, ALL+2, HELP+2
QAQFNAME EN1+5*, EN1+8, K!, ALL+1, HELP+1
QAQFNUM EN1+5*, 1+4, K!, AL+2, AL+4, SHO+1
QAQFSCR EN1+5*, K!, ALL+1, AL
QAQLINE K!, SHOW*, SHO+8*
QAQNUM EN1+9*, 1, 1+1, 1+8*, 1+9*, K!, ALL+5, AL+8*
>> QAQQUIT EN1+1*, EN1+2*, EN1+3*, 1+1*, 1+2, EXIT+1*, ALL+2*, ALL+3, SHOW+1, HLP*
, PAUSE+1*
QAQUTIL EN1+1, EN1+2, EN1+9, 1+8, 1+9, EXIT+1!, AL+8, HELP+3, SHOW+1
X EN1+7*, 1+1*, 1+2, 1+3, 1+5~, 1+6*, K!, ALL+1, ALL+3, ALL+4~
, AL+5~, AL+6*, HELP+1~, SETDIC+2*, CHKFLD~, CHKFLD+1
Y 1+3, 1+6*, 1+8, 1+9, K!, AL*, AL+1*, AL+2*, AL+6, AL+8
, SHO+2~, SHO+3*, SHO+7*, WRAP+1*, PAUSE+1
Y(0 1+6*, 1+8, 1+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All