Routine: DGRUGS

Information

DGRUGS ;ALB/MLI,PHH - RUG-II STATUS REPORT ; 13 SEPT 88 @2000

Source file <DGRUGS.m>

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: X Line Location: ASK+0
Function Call: WRITE	Prompt: !!,?12,"CHOOSE FROM:",!?12,"A - Date range for the search is by Assessment Date",!?12,"T - Date range is by Transfer or admission date",! Line Location: ASK+2
Function Call: WRITE	Prompt: ! Line Location: Q+0
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: ?58,$$FMTE^XLFDT($P(DG0,U,3),"5DZ") Line Location: W+0
Function Call: WRITE	Prompt: ?71,$J($P(DG0,"^",5),2),?76,$J($P(DG0,"^",4),2) Line Location: W+1
Function Call: WRITE	Prompt: @IOF Line Location: HD+3
Function Call: WRITE	Prompt: !?28,"RUG-II RECORD STATUS REPORT",!?30,$$FMTE^XLFDT(DGB+.1,"5DZ")," - ",$$FMTE^XLFDT(DGE,"5DZ"),!?32,"RUN: ",DGNOW,!!,"LOCATION: ",I,?71,"PAGE: ",$J(DGPG,3) Line Location: HD+4
Function Call: WRITE	Prompt: !!,"RECORD",?13,"PATIENT",?42,"ASSESSMENT",?70,"ADL",!,"STATUS",?13,"NAME",?30,"SSN",?42,"DATE/PURPOSE",?58,"A/T DATE",?70,"SUM",?75,"RUG",?81,"WWU" Line Location: HD+5
Function Call: WRITE	Prompt: !,X,! Line Location: HD+5
Function Call: WRITE	Prompt: ! Line Location: END+2
Function Call: WRITE	Prompt: ?80,$J($S($D(^DG(45.91,$P(DG0,"^",4),"FY",DGYR,0)):$P(^(0),"^",2),1:"N/A"),4) Line Location: FY+4