Routine: HBHCRP11

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

HBHCRP11 ; LR VAMC(IRMS)/MJT-HBHC rpt on file 631, All active (admitted but not D/C) cases by date range, sorted by HBHC Team, then by name, includes: patient name, Last Four, admission date, & totals for team & all ; 12/21/05 3:31pm

Source Information

Source file <HBHCRP11.m>

Entry Points

Name	Comments	DBIA/ICR reference
DQ	; De-queue
LOOP	; Loop thru ^HBHC(631) "AD" (admission date) cross-ref to build report
EXIT	; Exit module
PROCESS	; Process record & build ^TMP("HBHC",$J) global
PRTLOOP	; Print loop
HDR	; Print header
PRT	; Print report
TOT	; Print HBHC team total

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No data found for Date Range selected." Line Location: LOOP+3
Function Call: WRITE	Prompt: !!,HBHCZ,!,"All Team Census Total: ",HBHCFTOT,!,HBHCZ Line Location: LOOP+4
Function Call: WRITE	Prompt: @IOF Line Location: PRT+1
Function Call: WRITE	Prompt: !,HBHCPT,?43,^TMP("HBHC",$J,HBHCNAM,HBHCPT,HBHCDT),?68,Y,!,HBHCY Line Location: PRT+3
Function Call: WRITE	Prompt: !!,"Team: "_HBHCN_" Census Total: ",HBHCTOT Line Location: TOT+1