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

Package: Registration

Routine: DGRUGGR


Information

DGRUGGR ;ALB/BOK - RUG-II GROUPER FOR A PATIENT ; 14 MAY 87 09:00

Source Information

Source file <DGRUGGR.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 2 ^DGRUG1  REHAB^DGRUG16  
VA FileMan 1 ^DIC  

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 DG RUG GROUPER  DGRUG1  

Entry Points

Name Comments DBIA/ICR reference
EN
SET
GO
QUIT
ERR

External References

Name Field # of Occurrence
^DGRUG1 GO+3
REHAB^DGRUG16 GO+3
^DIC EN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The field ",$P(^DD(45.9,I,0),U,1)," is missing data."
  • Line Location: SET+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SET+3
Function Call: WRITE
  • Prompt: !,"The field ",$P(^DD(45.9,I,0),U,1)," is missing data."
  • Line Location: SET+8
Function Call: WRITE
  • Prompt: !,"The field ",$P(^DD(45.9,I,0),U,1)," is missing data."
  • Line Location: SET+9
Function Call: WRITE
  • Prompt: !!,"A RUG-II GROUP CAN NOT BE DETERMINED ON THIS PATIENT ",!
  • Line Location: ERR+0
Routine Call
  • DIC
  • Line Location:
    • EN+2

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+1, SET+8, SET+9
^DG(43 - [#43] SET
^DG(45.9 - [#45.9] SETSET+5, SET+7
^XUSEC("DG RUG SUPERVISOR" EN

Label References

Name Line Occurrences
ERR GO
GO SET+2
QUIT EN+2, ERR

Naked Globals

Name Field # of Occurrence
^("RUG" SET

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A SET!, SET+4!, QUIT!
DA EN+2*, SETSET+5, SET+7, QUIT!
DFN QUIT!
DGCNH EN*, QUIT+1!
DGCON SET*, SET+1, SET+2, GO+3, QUIT!
DGFCNH EN*, QUIT+1!
DGFLG SET!, SET+1*, SET+4!, SET+8*, SET+9*, GO, QUIT!
DGFY GO+1*, QUIT!
DGGRP GO+3*, QUIT!
DGINFO SET*, SET+1, SET+2, SET+5*, SET+8, SET+9, GO+1, GO+2, GO+3, QUIT!
DGPT EN+2*, QUIT!
DGRUG QUIT!
DGSUM GO+2*, QUIT!
DIC EN+1*, QUIT!
DIC("S" EN+1*
DIC(0 EN+1*
DIE QUIT!
DR QUIT!
DUZ EN
E GO+2*, QUIT!
G QUIT!
I SET!, SET+1*, SET+4!, SET+6*, SET+7, SET+8, SET+9*, QUIT!
J GO+2*, QUIT!
T GO+2*, QUIT!
U SET+1, SET+8, SET+9, GO+1, GO+2
Y EN+2, 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