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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGRUGIX

Package: Registration

Routine: DGRUGIX


Information

DGRUGIX ;ALB/BOK/MLI - RUG-II INDEX BY DATE ; 9 FEB 88

Source Information

Source file <DGRUGIX.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Registration 8 IN^DGHELP  (1,DATE,H)^DGRUGIX1  QUIT^DGRUGPP1  $$CHOSE^DGRUGU1  LO^DGUTL  (CLOSE,ZIS)^DGUTQ  KVAR^VADPT  (FIRST,PATIENT)^VAUTOMA  
VA FileMan 3 ^%DT  YN^DICN  DT^DIQ  
Scheduling 1 ASK2^SDDIV  

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

Package Total Caller Graph
Registration 1 DG RUG INDEX  

Entry Points

Name Comments DBIA/ICR reference
1
DAT
OK
CL
M
INIT
Q
CS
S
ASK
CONT

External References

Name Field # of Occurrence
^%DT DAT, DAT+1
IN^DGHELP ASK+5, CL+2
1^DGRUGIX1 CONT
DATE^DGRUGIX1 1
H^DGRUGIX1 1+5, 1+8
QUIT^DGRUGPP1 DAT+4
$$CHOSE^DGRUGU1 DAT+4
LO^DGUTL DGRUGIX+2
CLOSE^DGUTQ Q+5, OK+18
ZIS^DGUTQ OK+15
YN^DICN OK+12
DT^DIQ OK+2, OK+5
ASK2^SDDIV DAT+3
KVAR^VADPT Q+5
FIRST^VAUTOMA DAT+7
PATIENT^VAUTOMA DAT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: !!,"Sort by (A)ssessment or (T)ransfer/Admission Date: T//"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: X
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,?12,"CHOOSE FROM:",!?12,"A - Date range for the search is by Assessment Date",!?12,"T - Date range is by Transfer or admission date",!
  • Line Location: ASK+6
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: DAT+10
Function Call: WRITE
  • Prompt: !,"Enter Category: "
  • Line Location: DAT+10
Function Call: WRITE
  • Prompt: "ALL// "
  • Condition for execution: ($O(DGCT(0))="")
  • Line Location: DAT+10
Function Call: WRITE
  • Prompt: !!,"You have selected output for:",!!?4,$S(DGX="AA":"Assessment",1:"Transfer/Admission")," dates between "
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: " and "
  • Line Location: OK+3
Function Call: WRITE
  • Prompt: !!,*7,"This output requires 132 columns!",!
  • Line Location: OK+14
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST)="C"
  • Line Location: 1+6
Function Call: WRITE
  • Prompt: !,"***RUG-II INDEX REPORTS--NO MATCHES FOUND***"
  • Line Location: 1+6
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: CL+0
Function Call: WRITE
  • Prompt: @(X_"(I)")
  • Line Location: M+2
Function Call: WRITE
  • Prompt: ", ",@(X_"(I)")
  • Line Location: M+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(45.91 - [#45.91] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" OK+17
^DG(45.9 - [#45.9] 1+3, CS, CS+2, CS+3, CS+7, CS+9, S+1
^DIC(42 - [#42] CS+2, CS+8
^DPT - [#2] 1+3, S
^FBAAV - [#161.2] CS+3
^UTILITY($J Q!, 1+1*, 1+2*, 1+5, 1+6, S+4*, CONT, INIT*

Label References

Name Line Occurrences
1 OK+18
ASK DGRUGIX+2, ASK+6
CL DAT+10, CL+1, CL+2, CL+3
CONT 1+5
CS 1+3
DAT DAT, DAT+1
INIT 1+5
M OK+8, OK+9, OK+11
OK OK+12
Q DGRUGIX+2, OK+12, OK+15, 1+6, 1+7, 1+9
S CS+8, CS+9

Naked Globals

Name Field # of Occurrence
^("C" CS
^("R" CS+1
^(0 1+3, CS+2, CS+3, S, S+1, S+2, S+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q!, ASK+6*, OK+12*, CL+2
%DT Q!, DAT*, DAT+1*
%DT("A" DAT*, DAT+1*
%DT(0 DAT*, DAT+1*
%Y Q!, OK+12
CT Q!, CS+5*, CS+6, S+4
D Q!, 1+3*, S+4, CONT*
DFN Q!, 1+3*, 1+5*, S, S+4, CONT
DG1 Q!
DGA Q!
DGAD Q!
DGB Q!, S+1*, S+4
DGC Q!
DGCL Q+3!, OK+9, CS+3, CS+9
DGCL( CS+3, CS+9
DGCL(0 OK+9, CS+3
DGCT Q!, DAT+10*, DAT+12*, OK+11, CS+6
DGCT( DAT+10*, CS+6
DGCT(0 DAT+10, DAT+12
DGD Q!, S+2*, S+3*, S+4
DGED Q+1!, DAT+1*, OK+4, 1+3
DGEND Q+1!
DGG Q+1!, 1+5*, CS+5*, CS+6, S+4, CONT
DGH Q+1!, 1+1*
DGI Q+1!
DGIFN Q+1!, 1+3*, CS, CS+2, CS+3, CS+7, CS+9, S+1
DGIN Q+1!
DGLN Q+1!
DGN Q+1!, S*, S+4
DGNEW Q+1!
DGNOW Q+1!
DGP Q+1!, S+1*, S+4
DGPG Q+1!, 1+1*
DGPGM Q+2!, OK+13*
DGPT Q+2!
DGQ Q+2!, ASK*, CL+1*
DGR Q+2!, OK+10, CS+2, CS+6
DGR( CS+2, CS+6
DGS Q+2!, S*, S+4
DGSD Q+2!, DAT*, DAT+1, OK+1, 1+3
DGSRT Q+2!
DGST Q+2!
DGTD Q+2!
DGVAR Q+2!, OK+13*
DGW Q+2!, OK+8, 1+7, CS+2, CS+7, CS+8
DGW( 1+7, CS+8
DGW(0 OK+8, CS+2
DGWD Q+2!, 1+4*, 1+5*, CS+2*, CS+3*, CS+4, CS+6, S+4, CONT, INIT
DGWD1 Q+2!, 1+5*, CS+2*, CS+3*, CS+8, CS+9
DGWR Q+3!
DGWWU Q+4!
DGX Q+3!, ASK+7*, OK, 1+3, S+2, S+3
DGYR Q+3!
DGZ Q+3!, CL+1*, CL+3
DIC Q+3!, DAT+2!, DAT+6*
DIC("S" DAT+8*
DIV Q+4!
DTIME ASK+2, DAT+10, CL
ERR DAT+4~*, DAT+5
I Q+3!, 1+2*, 1+7*, M*, M+1, M+3*, INIT*
I1 Q+3!, M+3*
IO OK+16
IOF 1+6
IOST 1+6
J Q+3!, DAT+10*, 1+7*
POP Q+3!, OK+15
R Q+3!, CS+1*, CS+2, CS+3, CS+5
SEL Q+3!, DAT+5*, OK+7
U 1+3, CS, CS+2, CS+3, CS+5, S, S+1, S+2, S+3
VAERR Q+4!
VAIN Q+4!
VAUTD Q+4!, OK+7, CS+8
VAUTD( CS+8
VAUTN Q+4!, OK+6, 1+3
VAUTN( 1+3
VAUTNI Q+3!, DAT+6*, DAT+8*
VAUTP Q+4!
VAUTSTR Q+3!, DAT+6*
VAUTVB Q+3!, DAT+6*
X Q+4!, ASK*, ASK+2*, ASK+3, ASK+4*, ASK+7, DAT, DAT+1, DAT+10*, DAT+11
, DAT+12, OK+8*, OK+9*, OK+11*, OK+17*, CL*, CL+1, CL+2*, CL+3, M
, M+2, M+3
Y Q+4!, DAT, DAT+1, DAT+3, DAT+7, DAT+9, DAT+10, OK+1*, OK+4*, CL+3*
Y(0 DAT+10, CL+3*
Z Q+4!, ASK+1*, CL+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All