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

Package: Registration

Routine: DGRUG


Information

DGRUG ;ALB/BOK/MLI - RUG-II GROUPER ; 21 OCT 86 11:00

Source Information

Source file <DGRUG.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 ^DIC  YN^DICN  ^DIE  
Registration 1 (CVD,QUIT)^DGRUG1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGRUGDR  DGRUGV  

Entry Points

Name Comments DBIA/ICR reference
INPUT
SET
ERR
ERR1
EDIT
EN
HELP
INCOMP
CLOSEOUT ;FIND LAST CLOSEOUT DATE - FOR USE BY ENTER/EDIT,TRANSMISSION

External References

Name Field # of Occurrence
CVD^DGRUG1 SET+13
QUIT^DGRUG1 INPUT, INPUT+2, EN, INCOMP
^DIC INPUT, EN
YN^DICN ERR1
^DIE INPUT+1, EDIT+1, INCOMP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SET+0
Function Call: WRITE
  • Prompt: !,"The field ",$P(^DD(45.9,I,0),U,1)," is missing data."
  • Line Location: SET+5
Function Call: WRITE
  • Prompt: !,*7,"Service of ward must be the same as bedsection"
  • Line Location: SET+12
Function Call: WRITE
  • Prompt: !!,"A RUG-II GROUP CAN NOT BE DETERMINED ON THIS PATIENT ",!
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: !,"Do you wish to edit now"
  • Line Location: ERR1+0
Function Call: WRITE
  • Prompt: !,"There are fields missing data for this patient. The PAI will",!," not be complete until all data is entered. You can",!," complete the PAI at this time by responding 'Y'es.",!
  • Line Location: HELP+0
Routine Call
  • DIC
  • Line Location:
    • INPUT
    • EN
Routine Call
  • DIE
  • Line Location:
    • INPUT+1
    • EDIT+1
    • INCOMP

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)
^DD(45.9 SET+4, SET+5
^DG(45.9 - [#45.9] INPUT+1, SET+1, SET+11, EDIT+1
^DIC(42 - [#42] SET+11

Label References

Name Line Occurrences
@( SET+8
EDIT SET+8, SET+12, ERR1
ERR SET+6
ERR1 EDIT+1, HELP
HELP ERR1
INCOMP ERR1
SET EDIT+2, EN

Naked Globals

Name Field # of Occurrence
^("R" SET+11
^(0 SET+11, EDIT+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ERR1*
A SET!, SET+9!, EDIT+2!
A( SET+4*, SET+5*, EDIT+1
A(70 SET+11*
A(9 SET+11*
>> DA INPUT+1*, INPUT+2, SET+1, EDIT, EN*, INCOMP*
>> DGD INPUT+1*
DGFLAG SET!, SET+4*, SET+5*, SET+6, SET+8, SET+9!, SET+11*, SET+12, EDIT+2!
>> DGFY SET+7*
>> DGI SET+8*
>> DGINFO SET+1*, SET+2, SET+3, SET+5, SET+7, SET+11, SET+13
>> DGLCO CLOSEOUT+1*
>> DGPT INPUT+1*, SET+11, EDIT+1, EN*, INCOMP
>> DGSER SET+11*
>> DGSUM SET+13*
DIC INPUT*!, EDIT*, EN*
DIC("S" INPUT*
DIC(0 INPUT*, EDIT*, EN*
>> DIE INPUT+1*, EDIT*, INCOMP*
>> DR INPUT+1*, EDIT+1*, INCOMP*
DT CLOSEOUT+1
>> E SET+13*
I SET!, SET+2*, SET+3, SET+4, SET+5*, EDIT+1*, EDIT+2!
>> J SET+13*
RIEN SET+10~, SET+11*
>> T SET+13*
U INPUT+1, SET+2, SET+3, SET+4, SET+5, SET+7, SET+11, SET+13
>> X EDIT+1
>> Y INPUT, INPUT+1, EDIT+1, EN
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