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

Package: Hospital Based Home Care

Routine: HBHCRP26


Information

HBHCRP26 ; LR VAMC(IRMS)/MJT-HBHC report on Medical Foster Home file 633.2, sorted by name, includes: MFH Name, Opened Date, Prim Caregiver, Max Pts, Bedbound Max, Closure Date, & Voluntary Closure ; Mar 2007

Source Information

Source file <HBHCRP26.m>

Entry Points

Name Comments DBIA/ICR reference
DQ ; De-queue
LOOP ; Loop thru ^HBHC(633.2,"B") MFH Name cross-ref to build report
EXIT ; Exit module
PROCESS ; Process record & build ^TMP("HBHC",$J) global
PRTLOOP ; Print loop
PRINT ; Print report
PRTTOT ; Print report totals

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,HBHCNAME,?35,$S($P(HBHCTMP,U)]"":$E($P(HBHCTMP,U),4,5)_"-"_$E($P(HBHCTMP,U),6,7)_"-"_$E($P(HBHCTMP,U),2,3),1:""),?48,$P(HBHCTMP,U,2),?87,$P(HBHCTMP,U,3),?99,$P(HBHCTMP,U,4)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?111,$S($P(HBHCTMP,U,5)]"":$E($P(HBHCTMP,U,5),4,5)_"-"_$E($P(HBHCTMP,U,5),6,7)_"-"_$E($P(HBHCTMP,U,5),2,3),1:""),?123,$S(($P(HBHCTMP,U,6)="Y"):"Yes",($P(HBHCTMP,U,6)="N"):"No",1:""),!,HBHCY
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTTOT+1
Function Call: WRITE
  • Prompt: !!,HBHCZ,!,"Maximum Patients Total: ",?34,$J(HBHCTOT1,5),!,"Bedbound Maximum Total: ",?34,$J(HBHCTOT2,5),!!,"Medical Foster Home (MFH) Total: ",?34,$J(HBHCTOT,5),!,HBHCZ
  • Line Location: PRTTOT+2
Info |  Source |  Entry Points |  Interaction Calls