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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGRUGPI

Package: Registration

Routine: DGRUGPI


Information

DGRUGPI ;ALB/BOK/MLI - PRINT PATIENTS WITH INCOMPLETE PAIs ; 15 MAR 87

Source Information

Source file <DGRUGPI.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Registration 2 $$CHOSE^DGRUGU1  (CLOSE,ZIS)^DGUTQ  
VA FileMan 2 ^%DT  DT^DIQ  
Scheduling 1 ASK2^SDDIV  

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

Package Total Caller Graph
Registration 1 DG RUG INCOMPLETE  

Entry Points

Name Comments DBIA/ICR reference
DATE
START
QUIT
SET
PRT
HEAD
NOWD
PAGEND
NOINC
DATES
LOC ;

External References

Name Field # of Occurrence
^%DT DATE, DATE+1, START+1
$$CHOSE^DGRUGU1 DGRUGPI+3
CLOSE^DGUTQ DATE+2
ZIS^DGUTQ DATE+2
DT^DIQ PRT+2, DATES
ASK2^SDDIV DGRUGPI+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"**** Date Range Selection ****"
  • Line Location: DGRUGPI+6
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+0
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(+DGI,0),U),1,25),?27,$P(DGI,U,3),?42
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: ?62,$S($P(DGI,U,6)=1:"ADMISSION/TRANSFER",$P(DGI,U,6)=2:"SEMI-ANNUAL CENSUS",$P(DGI,U,6)=3:"CONTRACT NURSING HOME")
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !!?20,"INCOMPLETE PATIENT ASSESSMENT INSTRUMENTS"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?20
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !!,$P($G(^DIC(42,+W,0)),U)
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !!,$P($G(^FBAAV(+W,0)),U)
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !!?45,"DATE OF",?66,"ASSESSMENT",!,"NAME",?30,"SSN",?40,"ADMISSION/TRANSFER",?68,"PURPOSE"
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,E
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !!,"No location listed in Patient Assessment File for:"
  • Line Location: NOWD+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGEND+0
Function Call: WRITE
  • Prompt: @IOF,!!,"INCOMPLETE PATIENT ASSESSMENTS",!!!!,"THERE ARE NO PATIENTS WITH THE STATUS OF INCOMPLETE"
  • Line Location: NOINC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NOINC+0
Function Call: WRITE
  • Prompt: !?20,"FOR DATE RANGE: "
  • Line Location: DATES+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DATES+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DATES+0
Function Call: WRITE
  • Prompt: !!?10,"FOR LOCATIONS: "
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: "ALL Contract Nursing Homes "
  • Line Location: LOC+3
Function Call: WRITE
  • Prompt: "ALL Wards"
  • Line Location: LOC+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] SET+1
^DG(45.9 - [#45.9] START+1, START+3, START+4, START+5
^DIC(42 - [#42] SET+1, HEAD+5
^DPT - [#2] PRT+2
^FBAAV - [#161.2] HEAD+6
^UTILITY($J START+9, START+12, START+14, START+15, START+16, QUIT!, SET+3*, SET+4*, SET+6*, SET+7*

Label References

Name Line Occurrences
DATES HEAD+3, NOINC
HEAD START+17, PRT
LOC NOINC
NOINC START+1, START+9
NOWD HEAD+4
PAGEND START+12, PRT, PAGEND+2
PRT START+18
QUIT DGRUGPI+2, DGRUGPI+4, DATE, DATE+1, DATE+2, START+10, START+19, NOINC
SET START+8
START DATE+2

Naked Globals

Name Field # of Occurrence
^("R" START+5
^(0 SET+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE*, START+1!*, QUIT!
%DT("A" DATE*, DATE+1*
%DT(0 DATE+1*
CNT LOC+1~, LOC+6*, LOC+7*, LOC+8, LOC+10*, LOC+11*, LOC+12
D START+15*, START+16, QUIT!
DFN QUIT!, PRT+2*
DGAD START+6*, START+8, QUIT!
DGBDT DATE*, START+8, QUIT!, DATES
DGCL QUIT+1!, SET, SET+3, SET+6, LOC+3, LOC+5
DGCL( SET+3, SET+6, LOC+7, LOC+8
DGEDT DATE+1*, START+8, QUIT!, DATES
DGFFL START+1*, START+12*, QUIT!
DGFL START+2*, QUIT!, NOWD*, PAGEND*
DGFL2 START+2*, START+3, START+8, START+10, START+12, START+14, START+15, START+19, QUIT!, PRT
, PRT+1, PAGEND*, PAGEND+1
DGI START+4*, START+6, START+7, START+16*, QUIT!, SET+3, SET+4, SET+6, SET+7, PRT+2
, HEAD+5, HEAD+6
DGNOW START+1*, QUIT!, DATES
DGPGM DATE+2*, QUIT+1!
DGTYPE START+7*, QUIT+1!, SET+1, SET+2, SET+3, SET+4, SET+6, SET+7
DGVAR DATE+2*, QUIT+1!
DGW QUIT+1!, SET, SET+4, SET+7, LOC+4, LOC+9
DGW( SET+4, SET+7, LOC+11, LOC+12
DIV QUIT+1!, SET+1*, SET+2*
DTIME PAGEND
E QUIT+1!, HEAD+8!*
ERR DGRUGPI+3~*, DGRUGPI+4, DGRUGPI+5
FIRST START+13*, START+17*, QUIT+1!
I START+3*, START+4, START+5, START+14*, START+15, START+16, QUIT+1!, SET+3, SET+4, SET+6
, SET+7
IO START+1
IOF START, HEAD, NOINC
IOSL PRT
IOST START, START+12, PRT, HEAD
PAGE START+2*, QUIT+1!, HEAD, HEAD+1*
POP DATE+2, QUIT+1!
>> SEL DGRUGPI+5*, SET+1, SET+3, SET+4, SET+5
U START+5, START+6, START+7, SET+1, SET+3, SET+4, SET+6, SET+7, PRT+2, HEAD+5
, HEAD+6
VAUTD QUIT+1!, SET+1
VAUTD( SET+1
W START+5*, START+11*, START+12*, START+14, START+15, START+16, QUIT+1!, SET+1, SET+3, SET+4
, SET+5*, SET+6, SET+7, HEAD+4, HEAD+5, HEAD+6
X START+1*!, QUIT+1!, PAGEND*
Y DGRUGPI+2, DATE, DATE+1, START+1!, QUIT+1!, PRT+2*, DATES*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All