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

Package: Hospital Based Home Care

Routine: HBHCRP12


Information

HBHCRP12 ; LR VAMC(IRMS)/MJT-HBHC file 631 rpt, Episode of Care/Length of Stay, by date range, sorted by patient name, includes: pt name, Last Four, admission date, discharge date, & length of stay, plus pt & day totals; ; 12/21/05 3:40pm

Source Information

Source file <HBHCRP12.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
PRINT ; Print report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !!,HBHCZ,!,"Complete Episodes of Care Only:",!?2,"Total Patients: ",HBHCCNT1," Total Days: ",$FN(HBHCTOT1,",")," Average Length of Stay: ",$S(((HBHCTOT1>0)&(HBHCCNT1>0)):(HBHCTOT1\HBHCCNT1),1:0)
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !,HBHCZ,!?2,"Total Patients: ",HBHCCNT," Total Days: ",$FN(HBHCTOT,","),!,HBHCZ
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,HBHCNAME,?34,$P(HBHCTMP,U),?50,$E(HBHCADDT,4,5)_"-"_$E(HBHCADDT,6,7)_"-"_$E(HBHCADDT,2,3),?63,$P(HBHCTMP,U,2),?76,$J($P(HBHCTMP,U,3),4),!,HBHCY
  • Line Location: PRINT+3
Info |  Source |  Entry Points |  Interaction Calls