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

Package: Registration

Routine: DGRUGDR


Information

DGRUGDR ;ALB/MLI - DRIVER ROUTINE TO HANDLE SEPARATE GROUPERS ; 22 NOV 88 @ 1830

Source Information

Source file <DGRUGDR.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 5 ^%DT  ^DIC  YN^DICN  ^DIE  DT^DIQ  
Registration 4 CLOSEOUT^DGRUG  QUIT^DGRUG1  LO^DGUTL  ^VATRAN  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 DG CNH PAI EDIT  DG RUG ENTER/EDIT  DG RUG TRANSMISSION  

Entry Points

Name Comments DBIA/ICR reference
A
QUIT
FUT
HELP
VADATS
EE ;ENTER/EDIT
CLOUT
Q
START
DT
DTHELP

External References

Name Field # of Occurrence
^%DT DT
CLOSEOUT^DGRUG DT
QUIT^DGRUG1 Q+2
LO^DGUTL START
^DIC EE+6
YN^DICN A
^DIE EE+7
DT^DIQ CLOUT, DTHELP
^VATRAN VADATS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EE+3
Function Call: WRITE
  • Prompt: !,*7,"This option will send the RUG/PAI data to the Austin DPC."
  • Line Location: VADATS+1
Function Call: WRITE
  • Prompt: !,"REPLY (Y)ES OR (N)O"
  • Line Location: A+0
Function Call: READ
  • Prompt: "Survey purpose: (A)dmission/transfer & CNH or (S)emi-annual? "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !!,"You must have transmission turned on to Q-",$S(DGED<DGCON:"PAF",1:"RUG")," and off for Q-",$S(DGED<DGCON:"RUG",1:"PAF")
  • Line Location: DT+2
Function Call: WRITE
  • Prompt: !?15,VAT(I)
  • Line Location: DT+3
Function Call: WRITE
  • Prompt: "***"
  • Line Location: DT+3
Function Call: WRITE
  • Prompt: !!,*7,*7,"Transmission is turned on to the wrong queue. Can not proceed at this time."
  • Line Location: DT+4
Function Call: WRITE
  • Prompt: !!,"Enter '^' at the device prompt to leave this option.",!
  • Line Location: DT+5
Function Call: WRITE
  • Prompt: !!,"Depending on type of survey being transmitted enter",!?5,"A - Admission/Transfer and CNH PAI Surveys",!?5,"S - Semi-annual PAI survey",!
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!,*7,"Start date must be within current closeout cycle.",!,"Date must not be before "
  • Line Location: CLOUT+0
Function Call: WRITE
  • Prompt: ".",!!
  • Line Location: CLOUT+0
Function Call: WRITE
  • Prompt: !!,*7,"Can not transmit for future dates",!!
  • Line Location: FUT+0
Function Call: WRITE
  • Prompt: !!,*7,"You can not overlap the RUG17 Conversion date.",!,"Dates must both be prior to or after "
  • Line Location: DTHELP+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: DTHELP+0
Routine Call
  • DIE
  • Line Location:
    • EE+7
Routine Call
  • DIC
  • Line Location:
    • EE+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(43 - [#43] EE+7, DT+1
^DG(45.9 - [#45.9] EE+7
^UTILITY($J QUIT!, START!
^XUSEC("DG RUG SUPERVISOR" EE+1, EE+2

Label References

Name Line Occurrences
@( EE+8, DT+5
A A
CLOUT DT
DT CLOUT, FUT, DTHELP
DTHELP DT+1
EE EE+8
FUT DT
HELP START
Q EE+6, EE+8
QUIT VADATS, START, DT, DT+4
START A+1, HELP

Naked Globals

Name Field # of Occurrence
^("RUG" EE+7, DT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% A*, A+1, QUIT!
%DT QUIT!, DT*
%DT("A" DT*!
%DT(0 DT*
D QUIT!
DA EE+7*, EE+8, QUIT!
DGAS EE+7*, EE+8, Q!
DGBC QUIT!
DGCNH EE+1, EE+2*, Q+1!
DGCNT QUIT!, DT*
DGCON EE+7*, EE+8, Q!, DT+1*, DT+2, DT+3, DT+5, DTHELP
>> DGD EE+7*
DGED QUIT!, DT*, DT+1, DT+2, DT+3, DT+5
DGFCNH EE+1*, EE+2*, Q+1!
DGFLG QUIT!, DT+3*, DT+4
DGI QUIT!
>> DGLCO DT, CLOUT
DGP QUIT!, START*
DGPG QUIT!
>> DGPT EE+7*
DGPTM QUIT!
DGROW QUIT!
DGS QUIT!
DGSD QUIT!, DT*, DT+1
DGSDI QUIT!
DGVAR QUIT!
DGXX QUIT!
DIC EE+4*, EE+6!
DIC("S" EE+5*
DIC(0 EE+4*
DIE EE+7*, QUIT!
DR EE+7*, QUIT!
DT DT
DTIME START
DUZ EE+1, EE+2
I QUIT!, DT+3*
I1 QUIT!, DT+3*
J QUIT!
K QUIT!
L QUIT!
POP QUIT!
S QUIT!
U EE+7, START
VAT QUIT!
VAT( DT+3
VATERR VADATS, QUIT!
VATNAME VADATS*, QUIT!
X QUIT!, START*
XMDUZ QUIT!
XMSUB QUIT!
XMTEXT QUIT!
XMY QUIT!
Y EE+6, EE+7, QUIT!, DT, CLOUT*, DTHELP*
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