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

Package: Registration

Routine: DGRUG1


Information

DGRUG1 ;ALB/MLI - RUG-II GROUPER ; 23 NOV 88@1600

Source Information

Source file <DGRUG1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Registration 3 YN^DGRUGC  QUIT^DGRUGGR  DT^DGRUGTG  
VA Fileman 2 YN^DICN  ^DIE  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Registration 5 DGRUG  DGRUG16  DGRUGDR  DGRUGGR  DGRUGTG  

Entry Points

Name Comments DBIA/ICR reference
QUIT
C
PHYS
GROUPC
GROUPB
6
3
1
REHAB
CLINIC
BEHAVE
5
PRT
GROUPS
GROUPR
2
CVD
SPECIAL
4

External References

Name Field # of Occurrence
YN^DGRUGC C
QUIT^DGRUGGR PRT+2
DT^DGRUGTG PRT+2
YN^DICN C
^DIE PRT+3, C+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?3,"RUG-II GROUP: ",DGRUG,!!,"HIERARCHY GROUP: ",G," - ",$S(G=1:"HEAVY REHABILITATION",G=2:"SPECIAL CARE",G=3:"CLINICAL COMPLEX",G=5:"PHYSICAL",1:"BEHAVIORAL"),!?8,"ADL SUM: ",DGSUM,!
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: ?4,"RUG-II WWUs: ",$S($D(^DG(45.91,+DGRUG,"FY",DGFY,0)):$P(^(0),U,2),1:"")
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !!,"*CLOSED*"
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !,*7,"If 'TUBE FEEDING' or 'PARENTERAL FEEDING' ",!," is marked 'Y'es then question 'EATING' must be marked '5'.",!
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !,*7,"If 'TUBE FEEDING' and 'PARENTERAL FEEDING' ",!," are marked 'N'o then question 'EATING' must not be marked '5'.",!
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !,*7,"If 'TUBE FEEDING' ",!," is marked 'Y'es then question 'TUBE FEEDING ROUTE' must not be marked '1'.",!
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: !,*7,"If 'CHRONIC VENTILATOR DEP. (CVD)' is marked 'N'o then all CVD related",!,"questions must be marked '1'.",!
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !,*7,"For each of the therapy questions,'DAYS PER WEEK' and 'HOURS PER WEEK' must be '0' if level is '1'.",!
  • Line Location: 4+1
Function Call: WRITE
  • Prompt: !,*7,"For each of the therapy questions,'DAYS PER WEEK' must be greater than 0",!,"and 'HOURS/MINUTES PER WEEK' must be greater than 29 minutes if level is",!,"greater than '1'.",!
  • Line Location: 5+1
Function Call: WRITE
  • Prompt: !,*7,"Can not have more than 10 hours of therapy per day"
  • Line Location: 6+1
Routine Call
  • DIE
  • Line Location:
    • PRT+3
    • C+1

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(45.9 - [#45.9] C
^DG(45.91 - [#45.91] PRT+1
^XUSEC("DG RUG CLOSE PAI" C

Label References

Name Line Occurrences
C C
GROUPB BEHAVE, BEHAVE+1
GROUPC CLINIC, CLINIC+1, CLINIC+2
GROUPR REHAB
GROUPS SPECIAL, SPECIAL+1
PRT CVD, PHYS, GROUPR, GROUPS, GROUPC, GROUPB
QUIT C, C+2

Naked Globals

Name Field # of Occurrence
^("C" C
^(0 PRT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUIT!, C*, C+1
%Y QUIT!, C
A QUIT!, 1!, 2!, 3!, 4!, 5!, 6!
A( 1*, 1+1*, 2*, 3+2*, 4*, 5*, 6*
DA QUIT!, PRT+3*
DGD REHAB*, QUIT!
DGFLAG QUIT!, 1!*, 1+1*, 2!*, 3!*, 3+1, 3+2, 4!*, 4+1, 5!*
, 5+1, 6!*, 6+1
DGFY QUIT!, PRT+1
>> DGGRP PRT+2
DGHM REHAB*, QUIT!, 4*, 5*, 6*
DGI QUIT!
DGINFO CVD, REHAB, SPECIAL, SPECIAL+1, CLINIC, CLINIC+1, CLINIC+2, BEHAVE, BEHAVE+1, QUIT!
, 1, 1+1, 2, 3, 4, 5, 6
DGLCO QUIT!
DGPAF QUIT!, PRT+2
DGPT QUIT!, PRT+3, C
DGRUG CVD*, PHYS*, QUIT!, GROUPR*, GROUPS*, GROUPC*, GROUPB*, PRT, PRT+1, PRT+3
DGSER QUIT!
DGSUM SPECIAL, SPECIAL+1, CLINIC, CLINIC+1, PHYS, QUIT!, GROUPR, GROUPS, GROUPC, GROUPB
, PRT, PRT+3
DIC QUIT!
DIE QUIT!, PRT+3*, C+1*
DIV QUIT!
DR QUIT!, PRT+3*, C+1*
DT C+1
DUZ C, C+1
E REHAB*, SPECIAL+1*, CLINIC+1*, CLINIC+2*, BEHAVE+1*, QUIT!
G CVD*, PHYS*, QUIT!, GROUPR*, GROUPS*, GROUPC*, GROUPB*, PRT, PRT+3
I QUIT!, 1*, 1+1*, 2*, 3*, 3+2*, 4*, 5*, 6*
J QUIT!
T REHAB*, QUIT!
U CVD, REHAB, SPECIAL, SPECIAL+1, CLINIC, CLINIC+1, CLINIC+2, BEHAVE, BEHAVE+1, PRT+1
, 1, 1+1, 2, 3, 4, 5, 6
Y QUIT!
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