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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: HBHCWORK

Package: Hospital Based Home Care

Routine: HBHCWORK


Information

HBHCWORK ; LR VAMC(IRMS)/MJT-HBHC Medical Foster Home (MFH) worksheet, Entry points: BLANK & EN ; 7/20/07

Source Information

Source file <HBHCWORK.m>

Entry Points

Name Comments DBIA/ICR reference
BLANK ; Blank worksheet entry point; HBHCNOD0="" & HBHCMFHP="-1" are dummy values
EN ; Entry point
DQ ; De-queue
EXIT ; Exit module
PROCESS ; Process MFH demographic, inspection, & training data
INSPECT ; Process inspection data
TRAIN ; Process training data
WRITE ; Write Inspection headers
WRITE2 ; Write training headers
LOOP ; Write previous Inspection & Training data
TOPIC ; Write Other Training Topic, if exists
NAME ; Obtain Provider Name from VA(200 file

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Address:",?15,$S($P(HBHCNOD0,U,8)]"":$P(HBHCNOD0,U,8),1:HBHCY65)
  • Line Location: PROCESS+1
Function Call: WRITE
  • Prompt: !!,"City:",?15,$S($P(HBHCNOD0,U,9)]"":$P(HBHCNOD0,U,9),1:HBHCY65)
  • Line Location: PROCESS+2
Function Call: WRITE
  • Prompt: !!,"State Code:",?15,$S($P(HBHCNOD0,U,10)]"":$P($G(^DIC(5,$P(^HBHC(631.8,$P(HBHCNOD0,U,10),0),U),0)),U),1:HBHCY65)
  • Line Location: PROCESS+3
Function Call: WRITE
  • Prompt: !!,"County Code:",?15,$S($P(HBHCNOD0,U,15)]"":$P($G(^DIC(5,$P(^HBHC(631.8,$P(HBHCNOD0,U,10),0),U),1,$P(HBHCNOD0,U,15),0)),U)_" ("_$P($G(^DIC(5,$P(^HBHC(631.8,$P(HBHCNOD0,U,10),0),U),1,$P(HBHCNOD0,U,15),0)),U,3)_")",1:HBHCY65)
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: !!,"ZIP Code:",?15,$S($P(HBHCNOD0,U,11)]"":$P(HBHCNOD0,U,11),1:HBHCY65)
  • Line Location: PROCESS+5
Function Call: WRITE
  • Prompt: !!,"Phone Number:",?15,$S($P(HBHCNOD0,U,14)]"":$P(HBHCNOD0,U,14),1:HBHCY65)
  • Line Location: PROCESS+6
Function Call: WRITE
  • Prompt: !!,"Opened Date:"
  • Line Location: PROCESS+7
Function Call: WRITE
  • Prompt: ?30,$S($P(HBHCNOD0,U,2)]"":Y,1:HBHCY50)
  • Line Location: PROCESS+7
Function Call: WRITE
  • Prompt: !!,"Primary Caregiver Name:",?30,$S($P(HBHCNOD0,U,3)]"":$P(HBHCNOD0,U,3),1:HBHCY50)
  • Line Location: PROCESS+9
Function Call: WRITE
  • Prompt: !!,"Caregiver Date of Birth:",?30,$S($P(HBHCNOD0,U,16)]"":Y,1:HBHCY50)
  • Line Location: PROCESS+10
Function Call: WRITE
  • Prompt: !!,"Maximum Patients:",?20,$S($P(HBHCNOD0,U,4)]"":$P(HBHCNOD0,U,4),1:" 1 2 3"),?34,"Bedbound Patient Maximum:",?62,$S($P(HBHCNOD0,U,5)]"":$P(HBHCNOD0,U,5),1:" 0 1 2")
  • Line Location: PROCESS+11
Function Call: WRITE
  • Prompt: !!,"License Required:",?20,$S($P(HBHCNOD0,U,12)="Y":"Yes",$P(HBHCNOD0,U,12)="N":"No",1:" Yes No"),?34,"License Expiration Date:"
  • Line Location: PROCESS+12
Function Call: WRITE
  • Prompt: ?60,$S($P(HBHCNOD0,U,13)]"":Y,1:HBHCY20)
  • Line Location: PROCESS+12
Function Call: WRITE
  • Prompt: !!,"Closure Date:"
  • Line Location: PROCESS+13
Function Call: WRITE
  • Prompt: ?16,$S($P(HBHCNOD0,U,6)]"":Y,1:HBHCY30),?50,"Voluntary Closure:",?70,$S($P(HBHCNOD0,U,7)="Y":"Yes",$P(HBHCNOD0,U,7)="N":"No",1:" Yes No")
  • Line Location: PROCESS+13
Function Call: WRITE
  • Prompt: !
  • Line Location: INSPECT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TRAIN+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: WRITE2+2
Function Call: WRITE
  • Prompt: "Home Operation"
  • Condition for execution: HBHCI=5
  • Line Location: WRITE2+2
Function Call: WRITE
  • Prompt: "Fire/Safety"
  • Condition for execution: HBHCI=6
  • Line Location: WRITE2+2
Function Call: WRITE
  • Prompt: "Medication Management"
  • Condition for execution: HBHCI=7
  • Line Location: WRITE2+2
Function Call: WRITE
  • Prompt: "Personal Care"
  • Condition for execution: HBHCI=8
  • Line Location: WRITE2+2
Function Call: WRITE
  • Prompt: "Infection Control"
  • Condition for execution: HBHCI=9
  • Line Location: WRITE2+2
Function Call: WRITE
  • Prompt: "End of Life Issues"
  • Condition for execution: HBHCI=10
  • Line Location: WRITE2+2
Function Call: WRITE
  • Prompt: "Other"
  • Condition for execution: HBHCI=11
  • Line Location: WRITE2+2
Function Call: WRITE
  • Prompt: " Training Date:",?40,HBHCY40
  • Line Location: WRITE2+3
Function Call: WRITE
  • Prompt: !!,?32,"Topic:",?40,HBHCY40
  • Condition for execution: HBHCI=11
  • Line Location: WRITE2+3
Function Call: WRITE
  • Prompt: !?3,"Previous Training Date(s):"
  • Line Location: WRITE2+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HBHC(633.2 - [#633.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call