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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls