Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(45.9 - [#45.9] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call