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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: HBHCTXT2

Package: Hospital Based Home Care

Routine: HBHCTXT2


Information

HBHCTXT2 ; LR VAMC(IRMS)/MJT-HBHC Medical Foster Home (MFH) delimited text file output, user selects Inspection or Training data, includes all data on file ; Dec 2007

Source Information

Source file <HBHCTXT2.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 EN^DIQ1  ^DIR  

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

Package Total Caller Graph
Hospital Based Home Care 1 HBHCTXT2  

Entry Points

Name Comments DBIA/ICR reference
EN ; Prompt for whether Inspection or Training report
DQ ; De-queue
LOOP ; Loop thru ^HBHC(633.2 Inspection multiples; 1 = Nurse, 2 = Social Work, 3 = Dietitian, 4 = Fire/Safety
LOOP2 ; Loop thru ^HBHC(633.2 Training multiples; 5 = Home Operation, 6 = Fire/Safety, 7 = Medication Management, 8 = Personal Care, 9 = Infection Control, 10 = End of Life, 11 = Other
EXIT ; Exit module
SET ; Set ^TMP node for valid record
; quit if no Inspection or Training data
NAME ; Obtain Provider Name from VA(200 file

External References

Name Field # of Occurrence
^%ZIS EN+4
^%ZISC EXIT+1
^%ZTLOAD EN+5
EN^DIQ1 NAME+3
^DIR EN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Medical Foster Home Name"_HBHCDLMT_"MFH Closure Date"_HBHCDLMT
  • Line Location: DQ+3
Function Call: WRITE
  • Prompt: "Inspection Discipline"_HBHCDLMT_"Inspection Date"_HBHCDLMT_"Inspector Name"
  • Line Location: DQ+4
Function Call: WRITE
  • Prompt: "Training Category"_HBHCDLMT_"Training Date"_HBHCDLMT_"Other Training Topic"
  • Line Location: DQ+5
Function Call: WRITE
  • Prompt: !,$P(^HBHC(633.2,HBHCI,0),U)_HBHCDLMT_HBHCCLOS_HBHCDLMT
  • Line Location: SET+6
Function Call: WRITE
  • Prompt: $S(HBHCJ=1:"Nurse",HBHCJ=2:"Social Work",HBHCJ=3:"Dietitian",1:"Fire/Safety")
  • Line Location: SET+7
Function Call: WRITE
  • Prompt: $S(HBHCJ=5:"Home Operation",HBHCJ=6:"Fire/Safety",HBHCJ=7:"Medication Management",HBHCJ=8:"Personal Care",HBHCJ=9:"Infection Control",HBHCJ=10:"End of Life",1:"Other")
  • Line Location: SET+8
Function Call: WRITE
  • Prompt: HBHCDLMT_$E($P(HBHCNODE,U),4,5)_"-"_$E($P(HBHCNODE,U),6,7)_"-"_$S($E($P(HBHCNODE,U))=3:20,1:19)_$E($P(HBHCNODE,U),2,3)
  • Line Location: SET+9
Function Call: WRITE
  • Prompt: HBHCDLMT_$S(HBHCPRV]"":HBHCPRV,1:"")
  • Line Location: SET+10
Routine Call
  • %ZIS
  • Line Location:
    • EN+4
Routine Call
  • DIR
  • Line Location:
    • EN+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HBHC(633.2 - [#633.2] LOOP+1, LOOP2+1, SET+2, SET+4, SET+5, SET+6
^UTILITY("DIQ1" NAME+2!, NAME+4, NAME+5!

Label References

Name Line Occurrences
EXIT EN+2, EN+4, EN+5
NAME SET+10
SET LOOP+1, LOOP2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS EN+4*
DA NAME+2!, NAME+3*, NAME+4, NAME+5!
DIC NAME+2!, NAME+3*, NAME+5!
DIR EN+1!, EXIT+2!
DIR("?" EN+1*
DIR("A" EN+1*
DIR(0 EN+1*
>> DIRUT EN+2
DR NAME+2!, NAME+3*, NAME+4, NAME+5!
HBHCCLOS EXIT+2!, SET+4*, SET+6
HBHCDAT EXIT+2!, SET+4*
HBHCDLMT DQ+2*, DQ+3, DQ+4, DQ+5, EXIT+2!, SET+6, SET+9, SET+10, SET+11
HBHCI LOOP+1*, LOOP2+1*, EXIT+2!, SET+2, SET+4, SET+5, SET+6
HBHCJ LOOP+1*, LOOP2+1*, EXIT+2!, SET+2, SET+5, SET+7, SET+8
HBHCK LOOP+1*, LOOP2+1*, EXIT+2!, SET+5
HBHCNODE EXIT+2!, SET+5*, SET+9, SET+11, NAME+3
HBHCPRV EXIT+2!, SET+10, NAME+4*
HBHCTYP EN+3*, DQ+4, DQ+5, LOOP+1, LOOP2+1, EXIT+2!, SET+7, SET+8, SET+10, SET+11
IO DQ+1
IO("Q" EN+5
IOP EN+4!
>> POP EN+4
U DQ+2, SET+4, SET+6, SET+9, SET+11, NAME+3
X EXIT+2!
Y EN+3, EXIT+2!, NAME+1~
>> ZTDESC EN+5*
ZTIO EN+4!
>> ZTRTN EN+5*
ZTSAVE EN+4!
ZTSAVE("HBHC*" EN+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All