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

Package: Radiology Nuclear Medicine

Routine: RASELCT


Information

RASELCT ;HISC/DAD-Generic file entry selector ; Sep 28, 2022@10:59:06

Source Information

Source file <RASELCT.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 8 ^%DT  %XY^%RCR  ^DIC  DO^DIC1  $$EXTERNAL^DILFD  Y^DIQ  EN^DIQ1  ^DIR  
Kernel 1 HOME^%ZIS  
Radiology Nuclear Medicine 1 $$OPTCHK^RAUTL13  

Caller Graph

Caller Graph Total: 32

Package Total Caller Graph
Radiology Nuclear Medicine 32 RABAR  RABAR1  RABTCH3  RACMHIS  RACMPLE  RACPT1  RACTCERN  RADRPT2  
RAFLM  RAHLEX  RAHLRS  RALIST  RALWKL3  RANMUTL1  RAORD2  RAPINFO  
RAPMW  RAPRINT  RARTST1  RARTST3  RASTEXT  RASTRPT2  RASYS  RATRAN  
RAUTL12  RAUTL13  RAUTL7  RAWKL  RAWKLU  RAWKLU2  RAWRVUP  RAXSTAT  

Entry Points

Name Comments DBIA/ICR reference
EN1(RADIC,RAUTIL,RAARRY,RAINPUT,RAFLD) ;
1
EXIT ;
K
ALL ;
AL
HELP ;
SHOW
HLP
SHO
WRAP ;
PAUSE ;
SETDIC ;
CHFLD(X) ;
SEL(Y) ;
BLDPAT ;
FLD(RAFNUM,RAFLD) ; Validate if field can be sorted on i.e, if
; non-multiple and is either a pointer, free text, set of codes,
; numeric or a date/time field.
; 'RAFNUM' = File # 'RAFLD' = Field #
; returns RAPASS: 0 if valid, else 1
FLDSRT(RAFNUM,RAFLD) ; Converts the internal value to the external value
; for sets of codes & pointers.
; 'RAFNUM' = File # 'RAFLD' = Field #
; 'RAPCE' = piece position on 0 node

External References

Name Field # of Occurrence
^%DT 1+13, AL+6, SEL+4
%XY^%RCR EXIT+3
HOME^%ZIS EN1+11
^DIC 1+9
DO^DIC1 EN1+6, SETDIC+3
$$EXTERNAL^DILFD FLDSRT+5
Y^DIQ AL+3
EN^DIQ1 SEL+3
^DIR PAUSE+1
$$OPTCHK^RAUTL13 1+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S(RANUM>1:"Another one (Select/De-Select): ",1:DIC("A")),$S((RANUM=1)&(RADIC("B")]""):RADIC("B")_"// ",1:"")
  • Line Location: 1+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !?5,"To deselect a ",RAFLD01," type a minus sign (-)",!?5,"in front of it, e.g., -",RAFLD01,"."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?5,"To get all ",RAFLD01,"S type ALL."
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?5,"Use an asterisk (*) to do a wildcard selection, e.g.,"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !?5,"enter ",RAFLD01,"* to select all entries that begin"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !?5,"with the text '",RAFLD01,"'. Wildcard selection is"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !?5,"case sensitive."
  • Line Location: HELP+7
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,RAD0,?15,RA(0)
  • Line Location: SHO+6
Function Call: WRITE
  • Prompt: !?3,RA(0)
  • Line Location: SHO+7
Function Call: WRITE
  • Prompt: !
  • Line Location: WRAP+1
Function Call: WRITE
  • Prompt: !?5,$P(RA," ",1,Y)
  • Line Location: WRAP+1
Routine Call
  • DIC
  • Line Location:
    • 1+9
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
Routine Call
  • %ZIS
  • Line Location:
    • EN1+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( EN1+6, AL+2, CHFLD+2, FLD+6, FLD+7, FLD+9, FLDSRT+4
^DD("DD" SHO+4
^DIC - [#1] EN1+4
^TMP($J EN1+11!, 1+17, 1+18, 1+22, 1+23, EXIT+5, AL+10, AL+11, AL+16, AL+17
, HELP+8, SHOW+1, SEL+5

Label References

Name Line Occurrences
$$CHFLD 1+11, AL+4, SHO+2, CHFLD+6, SEL+4
$$FLD EN1+7
$$FLDSRT 1+21, AL+15
1 1+3, 1+9, 1+25
AL ALL+14
ALL 1+3
BLDPAT ALL+10, ALL+12
EXIT EN1+1, EN1+2, EN1+4, EN1+7, 1+1, 1+3
HELP 1+4
HLP HELP+8
K EN1+4
PAUSE SHO+9
SETDIC 1, AL, AL+1, SHO+8
SHO SHOW+1
WRAP HELP+1

Naked Globals

Name Field # of Occurrence
^( 1+17*, 1+18!, 1+22*, 1+23!, AL+10*, AL+11!, AL+16*, AL+17!
^("GL" EN1+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% K!
%DT 1+12~, 1+13*, AL+5~, AL+6*, SEL+1~, SEL+4*
%X EXIT+2*, K!
%Y EXIT+2*, K!
%Z K!
A CHFLD+1~, CHFLD+2*, CHFLD+3, CHFLD+4, CHFLD+5*, CHFLD+6*, CHFLD+8
C K!, AL+2*
CHAR ALL+5~, ALL+8*, ALL+9, BLDPAT+2
D0 K!, AL*, AL+1*, SHO+8*
DA K!, AL*, AL+1*, SHO+8*, SEL+1~, SEL+2*
DIC EN1+4*, 1+9!, K!, SETDIC+1!*, SEL+1~, SEL+2*
DIC( SETDIC+2*
DIC("A" 1
DIC("S" 1+5, 1+6*, AL+1
DIC("W" SHO+8
DIC(0 EN1+5*
DIK K!
DIQ SEL+1~, SEL+2*
DIQ(0 SEL+2*
DIR K!, PAUSE+1!
DIR(0 PAUSE+1*
DO EN1+6!, K!, SETDIC+1!
DO("SCR" EN1+6
DO(2 EN1+6
DR SEL+1~, SEL+2*
DTIME 1+1
I ALL+5~, ALL+7*, ALL+8
IOM WRAP+1
IOSL SHO+9
PAT ALL+3~, ALL+6*, AL+8, BLDPAT+1*, BLDPAT+2*
RA K!, HELP+1*, SHOW*, SHOW+1*, SHO+1, WRAP+1*, FLD+7~, FLD+12*
RA(0 SHO*, SHO+1*, SHO+4*, SHO+6, SHO+7, FLD+7*, FLD+8
RA(2 FLD+7*, FLD+9, FLD+12
RA(4 FLD+8*, FLD+10
RAALL EN1+11*, 1+3, K!, ALL+2*
RAARRY EN1~, EXIT+1, EXIT+2
RACASE EN1+8*, K!
RAD0 K!, ALL+14*, AL, AL+1, AL+10, AL+11, AL+14, AL+16, AL+17, SHOW+1*
, SHO, SHO+6, SHO+8
RADIC EN1~, EN1+1, EN1+2, EN1+4*, EXIT+5!, ALL+14, AL, AL+1, AL+2, AL+14
, SHO, SHO+8, SETDIC+1
RADIC( EN1+9*, SETDIC+2
RADIC("A" EN1+10*
RADIC("B" EN1+3!, 1, 1+1
RADIC("S" AL+1
RADIC(0 EN1+1, EN1+2, EN1+5*, SHO+6
RADSEL 1+1*, 1+17, 1+18, 1+22, 1+23, K!, ALL+15, AL+10, AL+11, AL+16
, AL+17, SEL+6
RAEXTRN SEL+1~, SEL+3*, SEL+4*, SEL+5
RAEXTRN( SEL+3
RAFLD EN1~, EN1+7, 1+16, 1+21, AL+9, AL+15, SHO, FLD~, FLD+5, FLD+6
, FLD+7, FLDSRT~, FLDSRT+4, FLDSRT+5
RAFLD01 EN1+6*, EN1+8, EN1+10, K!, HELP+1, HELP+2, HELP+3, HELP+5, HELP+6
RAFNAME EN1+6*, EN1+10, K+1!, HELP+1
RAFNUM EN1+6*, EN1+7, 1+11, 1+21, K+1!, AL+2, AL+4, AL+15, SHO+2, SEL+2
, SEL+3, SEL+4, FLD~, FLD+6, FLD+7, FLDSRT~, FLDSRT+4, FLDSRT+5
RAFSCR EN1+6*, K+1!, AL
RAINPUT EN1~, EN1+3, HELP+3
RALINE K+1!, SHOW*, SHO+9*
RAMASK 1+10*, 1+15, K+1!
RANUM EN1+11*, 1, 1+1, 1+17*, 1+18*, 1+22*, 1+23*, K+1!, ALL+15, AL+10*
, AL+11*, AL+16*, AL+17*
RAPASS FLD+7~, FLD+11*, FLD+12*, FLD+13
RAPCE FLDSRT+4~*, FLDSRT+5
RAPOINT SEL+1~, SEL+2*, SEL+3, SEL+5
>> RAQUIT EN1+1*, EN1+2*, EN1+4*, EN1+7*, 1+1*, 1+3, EXIT+1, EXIT+5*, SHOW+1, HLP*
, PAUSE+1*
RAUTIL EN1~, EN1+1, EN1+2, EN1+11, 1+17, 1+18, 1+22, 1+23, EXIT+2, EXIT+5!
, AL+10, AL+11, AL+16, AL+17, HELP+8, SHOW+1, SEL+5
RAVALUE 1+21*, 1+22, 1+23, K+1!, AL+15*, AL+16, AL+17
RAX ALL+3~*, ALL+4, ALL+7, ALL+8, AL+8
TEMP ALL+5~, ALL+6*, ALL+9*, BLDPAT+1, BLDPAT+3*
U CHFLD+2
X EN1+9*, 1+1*, 1+3, 1+4, 1+12~, 1+13*, K+1!, ALL+3~, AL+5~, AL+6*
, HELP+1~, SETDIC+2*, CHFLD~, CHFLD+2, SEL+1~, SEL+4*, SEL+5*, SEL+6
Y 1+9, 1+10, 1+13, 1+15*, 1+17, 1+18, 1+22, 1+23, K+1!, AL*
, AL+1*, AL+2*, AL+3, AL+6, AL+10, AL+11, AL+14~*, SHO+3~, SHO+4*, SHO+8*
, WRAP+1*, PAUSE+1, SEL~, SEL+2, SEL+4
Y(0 1+13*, 1+17, 1+18, AL+14*, FLDSRT+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All