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

Package: Registration

Routine: DGENLR


Information

DGENLR ;ALB/RMO - Patient Enrollment - Reader Utilities;26 JUN 1997 10:00 am

Source Information

Source file <DGENLR.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 3 PAUSE^VALM1  (SET,WRITE)^VALM10  $$PARSE^VALM2  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGEN1  

Entry Points

Name Comments DBIA/ICR reference
ASKQ
LAST(DGCNT) ;
EN(DGNOD0,DGSUB,DGSELY) ;select entities from secondary list
; Input -- DGNOD0 Selection in XQORNOD0 format
; DGSUB Secondary list subscript
; Output -- DGSELY Selection array
ENQ
SEL(DGNOD0,DGSUB,DGSELY) ;Process secondary list selection
; Input -- DGNOD0 Selection in XQORNOD0 format
; DGSUB Secondary list subscript
; Output -- DGSELY Selection array
SETTOP(TOP) ;
SELQ
ASK(DGCNT) ;Ask user to select from list
; Input -- DGCNT Number of entities
; Output -- Selection

External References

Name Field # of Occurrence
^DIR ASK+7
PAUSE^VALM1 EN+15, SEL+24
SET^VALM10 SETTOP+9
WRITE^VALM10 SETTOP+8, SETTOP+9
$$PARSE^VALM2 SEL+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,">>> There are no items to select."
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,*7,">>> Selection '",X,"' is not a valid choice."
  • Line Location: SEL+22
Routine Call
  • DIR
  • Line Location:
    • ASK+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("DGENIDX" EN+8, EN+24, SEL+7, SEL+21, LAST+7, LAST+11

Label References

Name Line Occurrences
$$ASK SEL+13
$$LAST ASK+4
ASKQ ASK+7
ENQ EN+11, EN+18
SEL EN+28
SELQ SEL+7, SEL+16, SEL+24
SETTOP EN+25

Naked Globals

Name Field # of Occurrence
^( LAST+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DGBEG SEL+4~, SEL+7*, SEL+10, SEL+21
DGCNT EN+4~, EN+8*, EN+11, EN+18, EN+22, SEL+13, ASK~, ASK+4, ASK+6, LAST~
, LAST+7
DGEND SEL+4~, SEL+7*, SEL+10, SEL+21
DGERR SEL+4~, SEL+19*, SEL+23*, SEL+24
DGNOD0 EN~, EN+12, EN+18, EN+28, SEL~, SEL+10
DGSELY EN~, EN+28, SEL~
DGSELY( SEL+27*
DGSELY("ERR" EN+14*, SEL+24*
DGSELY("^" SEL+16*
DGSELY(1 EN+18*
DGSUB EN~, EN+8, EN+28, SEL~, SEL+7, SEL+21
DIR ASK+3~
DIR("A" ASK+5*
DIR(0 ASK+6*
DIRUT ASK+3~
DTOUT ASK+3~, ASK+7
DUOUT ASK+3~, ASK+7
I SEL+4~, SEL+20*, SEL+27*
ITEM LAST+4~, LAST+10*, LAST+11*, LAST+12
LAST ASK+3~, ASK+4*, ASK+6
LINE LAST+4~, LAST+11*, SETTOP+3~, SETTOP+7*, SETTOP+8, SETTOP+9
TOP EN+23~, EN+24*, EN+25, SETTOP~, SETTOP+4, SETTOP+6
U EN+18, ASK+6
>> VALMBG SETTOP+4, SETTOP+6*, SETTOP+7
>> VALMCNT SETTOP+5
>> VALMLST EN+25, LAST+7, LAST+11, SETTOP+4*, SETTOP+5*, SETTOP+8, SETTOP+9
X SEL+4~, SEL+20*, SEL+21, SEL+22, SEL+27*, ASK+3~
Y SEL+4~, SEL+10*, SEL+13*, SEL+16, SEL+20, SEL+27, ASK+3~, ASK+7*, ASKQ
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All