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

Package: Hospital Based Home Care

Routine: HBHCRP25


Information

HBHCRP25 ; LR VAMC(IRMS)/MJT-HBHC report on file 631, All active (admitted but not D/C) cases by date range, sorted by patient name, includes: patient name, last 4, date, address, city, ZIP code, phone, case manager & total ; Sep 03

Source Information

Source file <HBHCRP25.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: !!,HBHCZ,!,"Program Census Total: ",HBHCTOT,!,HBHCZ
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,$E(HBHCNAME,1,17),?20,$P(HBHCTMP,U),?29,HBHCADDT,?41,$P(HBHCTMP,U,2),?74,$P(HBHCTMP,U,5),?94,$P(HBHCTMP,U,6),?108,$P(HBHCTMP,U,7),?124,$S(($L($P($P(HBHCTMP,U,8),","))>8):$E($P(HBHCTMP,U,8),1,8),1:$P($P(HBHCTMP,U,8),","))
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: PRINT+6
Info |  Source |  Entry Points |  Interaction Calls