Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Hospital Based Home Care 3 (HDRPAGE,TODAY)^HBHCUTL  ENDRPT^HBHCUTL1  MFHS^HBHCUTL3  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 DD^%DT  ^DIC  EN^DIQ1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Hospital Based Home Care 2 HBHCBLNK  HBHCWORK  

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

External References

Name Field # of Occurrence
DD^%DT PROCESS+7, PROCESS+8, PROCESS+12, PROCESS+13, LOOP+2
^%ZIS EN+5
^%ZISC EXIT+1
^%ZTLOAD EN+6
^DIC EN+4
EN^DIQ1 NAME+3
HDRPAGE^HBHCUTL DQ+6, DQ+7, WRITE+1, WRITE2+1
TODAY^HBHCUTL DQ+6
ENDRPT^HBHCUTL1 DQ+9
MFHS^HBHCUTL3 EN+1

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
Routine Call
  • DIC
  • Line Location:
    • EN+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HBHC(633.2 - [#633.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] PROCESS+3, PROCESS+4
^HBHC(631.8 - [#631.8] PROCESS+3, PROCESS+4
^HBHC(633.2 - [#633.2] EN+4, INSPECT+2, TRAIN+3, LOOP+2
^UTILITY("DIQ1" NAME+2!, NAME+4, NAME+5!

Label References

Name Line Occurrences
EXIT EN+3, EN+4, EN+5, EN+6
LOOP INSPECT+2, TRAIN+3
NAME LOOP+2
PROCESS DQ+8
TOPIC LOOP+2
WRITE INSPECT+2
WRITE2 TRAIN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS EN+5*
DA NAME+2!, NAME+3*, NAME+4, NAME+5!
DIC EN+4!*, EXIT+2!, NAME+2!, NAME+3*, NAME+5!
DIC(0 EN+4*
>> DIRUT EN+3
DR NAME+2!, NAME+3*, NAME+4, NAME+5!
HBHCBLNK BLANK+1*, EN+4, DQ+3, DQ+4, EXIT+2!, TRAIN+1, WRITE+2
HBHCCC EN+5*, DQ+7*, EXIT+2!, WRITE+1, WRITE2+1
HBHCCOLM DQ+5*, EXIT+2!
HBHCHDR DQ+3*, DQ+4*, EXIT+2!
HBHCHEAD DQ+3*, DQ+4*, DQ+5, EXIT+2!
HBHCI EXIT+2!, INSPECT+2*, TRAIN+3*, WRITE+2, WRITE2+2, WRITE2+3, LOOP+2, TOPIC+1
HBHCJ EXIT+2!, LOOP+1*, LOOP+2*
HBHCMFHP BLANK+1*, EN+4*, EXIT+2!, INSPECT+2, TRAIN+3, LOOP+2
HBHCMFHS EN+3, EXIT+2!
HBHCNOD0 BLANK+1*, EN+4*, EXIT+2!, PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7
, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+13
HBHCNODE EXIT+2!, LOOP+2*, TOPIC+1, NAME+3
HBHCPAGE DQ+2*, EXIT+2!, WRITE+1, WRITE2+1
HBHCPRV EXIT+2!, LOOP+2, NAME+4*
HBHCTDY EXIT+2!
HBHCY12 DQ+2*, EXIT+2!
HBHCY20 DQ+2*, EXIT+2!, PROCESS+12, WRITE+2
HBHCY30 DQ+2*, EXIT+2!, PROCESS+13
HBHCY40 DQ+2*, EXIT+2!, WRITE+2, WRITE2+3
HBHCY50 DQ+2*, EXIT+2!, PROCESS+7, PROCESS+9, PROCESS+10
HBHCY65 DQ+2*, EXIT+2!, PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6
HBHCZ EXIT+2!
IO DQ+1, DQ+6, DQ+7
IO("Q" EN+6
IO("S" DQ+6, DQ+7
IO(0 DQ+6, DQ+7
IOF WRITE+1, WRITE2+1
IOP EN+5!
IOSL WRITE+1, WRITE2+1
>> POP EN+5
U PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10
, PROCESS+11, PROCESS+12, PROCESS+13, LOOP+2, TOPIC+1, NAME+3
X EXIT+2!
Y EN+4, EXIT+2!, PROCESS+7*, PROCESS+8*, PROCESS+10, PROCESS+12*, PROCESS+13*, LOOP+2*, NAME+1~
>> ZTDESC EN+6*
ZTIO EN+5!
>> ZTRTN EN+6*, WRITE+1, WRITE2+1
ZTSAVE EN+5!
ZTSAVE("HBHC*" EN+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All