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

Package: Registration

Routine: DGRUGIX1


Information

DGRUGIX1 ;ALB/MLI - REPORT FOR RUG-II INDEX ; 9 FEB 88

Source Information

Source file <DGRUGIX1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 $$FMTE^XLFDT  
Registration 1 INP^VADPT  
VA FileMan 1 ^%DT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGRUGIX  

Entry Points

Name Comments DBIA/ICR reference
HEAD
DATE
H
1
TRAIL
FY
PRINT
DT

External References

Name Field # of Occurrence
^%DT DATE
INP^VADPT 1+2
$$FMTE^XLFDT 1+2, DT, DATE, DATE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?57,"RUG-II INDEX REPORT",?122,"PAGE: ",$J(DGPG,4),!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?53
  • Condition for execution: DGX="AC"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?57
  • Condition for execution: DGX="AA"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: $S(DGX="AC":"BY ADMISSION/TRANSFER DATE",1:"BY ASSESSMENT DATE"),!?56,DGSRT,"-",DGEND,!?55,"RUN ON: ",DGNOW
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !!,?18,"RUG",?73,"ASSESSMENT",!,"LOCATION",?18,"GROUP",?25,"PATIENT NAME",?51,"SSN",?63,"DOB",?73,"DATE/PURPOSE",?87,"A/T DATE",?97,"CURRENT STATUS",?114,"CATEGORY",?128,"WWU"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: ?18,"RUG"_DGG,?25,$E(DGN,1,20),?47,DGS,?61,$$FMTE^XLFDT(DGB,"5DZ"),?73
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: ?82,$S(DGP=1:"A/T",DGP=2:"S-A",DGP=3:"CNH"),?87
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: ?82,$S(DGP=1:"A/T",DGP=2:"S-A",DGP=3:"CNH"),?87
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: $S('+VAIN(4):"DISCHARGED",VAIN(6)']""!+VAIN(6):$E($P(VAIN(4),U,2),1,15),1:"**"_$E($P(VAIN(4),U,2),1,13))
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: ?114,$S(DGC=1:"HEAVY REHAB",DGC=2:"SPECIAL CARE",DGC=3:"CLIN COMPLEX",DGC=4:"BEHAVIORAL",1:"PHYSICAL")
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(X,"2DZ")
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: TRAIL+0
Function Call: WRITE
  • Prompt: !?74,"CURRENT STATUS:",?109,"** = Absent from ward",!?70,"ASSESSMENT PURPOSE:",?108,"S-A = Semi-annual census",!,?108,"A/T = Admission/transfer"
  • Line Location: TRAIL+1
Function Call: WRITE
  • Prompt: !,?108,"CNH = Contract Nursing Home"
  • Line Location: TRAIL+2
Function Call: WRITE
  • Prompt: ?128,$S($D(DGWWU):DGWWU,1:"N/A")
  • Line Location: FY+1
Function Call: WRITE
  • Prompt: @IOF,!,?16,"HISTOGRAM FOR"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!,?50,"PERCENTAGE OF PATIENTS IN GROUP",!!
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?(I*10+16),I
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !
  • Line Location: H+4
Function Call: WRITE
  • Prompt: ?(I*10+16),"0"
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !?16,Y
  • Line Location: H+7
Function Call: WRITE
  • Prompt: ?9,"RUG "_$J(R,2),?16,"|",Y," ",$J(DGSUM*100/DGTOT,7,2),"%"
  • Condition for execution: Q=2
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: ?117,"|"
  • Line Location: PRINT+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(45.91 - [#45.91] FY
^UTILITY($J 1, 1+1, H+5, H+6

Label References

Name Line Occurrences
DT 1+2
FY 1+4
HEAD 1
PRINT H+5, H+6
TRAIL HEAD, H

Naked Globals

Name Field # of Occurrence
^( 1+1*
^("TOT" 1+1*
^(0 FY

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DATE*
>> D 1
>> DFN 1
DG1 HEAD, HEAD+3*, H!
>> DGAD 1*, 1+2, FY
>> DGB 1*, 1+2
>> DGC 1*, 1+4
DGCH H+7!, PRINT*
>> DGED DATE
>> DGEND HEAD+1, H+2, DATE*
>> DGG 1, 1+1, 1+2, FY
>> DGH 1, 1+5*
>> DGI 1*
>> DGN 1*, 1+2
>> DGNEW HEAD+3*, 1+2, 1+5*
>> DGNOW HEAD+1, H+2, DATE+1*
>> DGP 1*, 1+2
DGPER H+5*, H+6*, H+7!, PRINT
>> DGPG HEAD*, HEAD+1, H+1*, H+2
>> DGS 1*, 1+2
>> DGSD DATE
>> DGSRT HEAD+1, H+2, DATE*
DGSUM H+5*, H+6*, H+7!, PRINT
>> DGTD 1*, 1+2
DGTOT H+5*, H+6*, H+7!, PRINT
>> DGWD HEAD+2, 1, 1+1, 1+5, H, H+2, H+5, H+6
DGWWU FY!*, FY+1
>> DGX HEAD+1, 1
>> DGYR FY*
>> I TRAIL*, H+3*, H+4*
IOF HEAD, H+1
IOSL 1, TRAIL
IOST HEAD
Q H+7!, PRINT*
>> R H+5*, H+6*, PRINT
U HEAD+2, 1, 1+3, FY
>> VAIN(4 1+3
>> VAIN(6 1+3
>> X 1+2*, DT, DATE*
Y HEAD+2!*, H+5!*, H+7!*, PRINT!*, DATE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All