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

Package: Hospital Based Home Care

Routine: HBHCR15A


Information

HBHCR15A ;LR VAMC(IRMS)/MJT-HBHC rpt using file 634.6, user selects date/forms from last 12 transmit batchs, fields: form#, pat name, last 4, form date, + action on form 3, prov #, & prov name on visits, & Adm or D/C on form 6 ;2/5/98

Source Information

Source file <HBHCR15A.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Hospital Based Home Care 1 (END,PROMPT1)^HBHCR15B  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Hospital Based Home Care 1 HBHCR15A  

Entry Points

Name Comments DBIA/ICR reference
SET ; Set TMP node
; By design, records are processed/printed in the following order by form number: 6, 3 (A), 5 (D), 4 (V), & 7 (Z)
NAME ; Form 4 Name
PROCESS ; Process records
FORM3 ; Process Form 3 (Admission) records
EXIT ; Exit module
FORM6 ; Process Form 6 (Correction) records
FORM5 ; Process Form 5 (Discharge) records
FORM4 ; Process Form 4 (Visit) records
FORM7 ; Process Form 7 Medical Foster Home (MFH) records
LOOP ; Loop thru HBHC(634.6,"C" (transmit date) cross-ref to build report
DQ ; De-queue

External References

Name Field # of Occurrence
^%ZIS HBHCR15A+10
^%ZISC EXIT+1
^%ZTLOAD HBHCR15A+11
END^HBHCR15B LOOP+2
PROMPT1^HBHCR15B HBHCR15A+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"No transmit history data on file."
  • Line Location: HBHCR15A+6
Function Call: WRITE
  • Prompt: $C(7),!,"Transmission in progress; history data being updated. Please try again later."
  • Line Location: HBHCR15A+7
Routine Call
  • %ZIS
  • Line Location:
    • HBHCR15A+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] FORM3+6, FORM4+3, FORM5+4, FORM6+4
^DPT("SSN" FORM3+6, FORM4+3, FORM5+4, FORM6+4
^HBHC(631.4 - [#631.4] FORM4+8, NAME+2
^HBHC(631.9 - [#631.9] HBHCR15A+7
^HBHC(634.6 - [#634.6] HBHCR15A+6, LOOP+1
^TMP("HBHC" EXIT+3!, SET+2*
^TMP($J EXIT+3!, SET+3*
^VA(200 - [#200] NAME+2

Label References

Name Line Occurrences
EXIT HBHCR15A+9, HBHCR15A+10, HBHCR15A+11
FORM3 PROCESS+2
FORM4 PROCESS+3
FORM5 PROCESS+4
FORM6 PROCESS+5
FORM7 PROCESS+6
NAME FORM4+8
PROCESS LOOP+1
SET FORM3+8, FORM4+9, FORM5+7, FORM6+10, FORM7+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS HBHCR15A+10*
DIR EXIT+2!
DIRUT HBHCR15A+9, EXIT+2!
HBHC EXIT+2!
HBHCACTN EXIT+2!, PROCESS+1*, FORM3+2*, FORM3+3*, SET+2
HBHCCC EXIT+2!
HBHCCNT EXIT+2!
HBHCCNT4 DQ+2*, EXIT+2!, FORM4+1*
HBHCCNT5 DQ+2*, EXIT+2!, FORM5+1*
HBHCCNT6 DQ+2*, EXIT+2!, FORM6+1*
HBHCCNT7 DQ+2*, EXIT+2!, FORM7+1*
HBHCCNTA DQ+2*, EXIT+2!, FORM3+2*
HBHCCNTR DQ+2*, EXIT+2!, FORM3+3*
HBHCCOLM DQ+2*, EXIT+2!
HBHCDATE EXIT+2!, FORM3+1*, FORM4+5*, FORM5+6*, FORM6+8*, FORM7+5*, SET+2, SET+3
HBHCDFN EXIT+2!, FORM3+6*, FORM4+3*, FORM5+4*, FORM6+4*
HBHCDIR DQ+3, EXIT+2!, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, FORM3+4, FORM5+2, FORM6+2
, FORM7+2, SET+2
HBHCDSDT EXIT+2!, FORM6+6*, FORM6+8, FORM6+9
HBHCFLG EXIT+2!, FORM4+8*, NAME+1, NAME+2*
HBHCFORM EXIT+2!, FORM3+5*, FORM4+2*, FORM5+3*, FORM6+3*, FORM7+3*, SET+2, SET+3
HBHCHDR DQ+3*, EXIT+2!
HBHCHEAD DQ+2, EXIT+2!
HBHCI EXIT+2!
HBHCIEN LOOP+1*, EXIT+2!, SET+2
HBHCINFO LOOP+1*, EXIT+2!, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, FORM3+1, FORM3+2, FORM3+3
, FORM3+6, FORM3+7, FORM4+3, FORM4+4, FORM4+5, FORM4+6, FORM4+7, FORM5+4, FORM5+5, FORM5+6
, FORM6+4, FORM6+5, FORM6+6, FORM6+8, FORM7+4, FORM7+5
HBHCIOP EXIT+2!
HBHCLST4 EXIT+2!, FORM3+7*, FORM4+4*, FORM5+5*, FORM6+5*, FORM7+6*, SET+2, SET+3
HBHCMFHS EXIT+2!, PROCESS+6
HBHCNAME EXIT+3!, FORM3+6*, FORM4+3*, FORM5+4*, FORM6+4*, FORM7+4*, SET+2, SET+3
HBHCPAGE DQ+2*, EXIT+3!
HBHCPIEN EXIT+3!, FORM4+8*, NAME+2
HBHCPRV EXIT+3!, PROCESS+1*, NAME+1*, NAME+2*, SET+2, SET+3
HBHCPRVN EXIT+3!, PROCESS+1*, FORM4+7*, FORM4+8, SET+2
HBHCTDY EXIT+3!
HBHCTIME EXIT+3!, PROCESS+1*, FORM4+6*, SET+2, SET+3
HBHCTYPE EXIT+3!, PROCESS+1*, FORM6+9*, SET+2
HBHCXMDT LOOP+1, EXIT+3!
HBHCY DQ+2*, EXIT+3!
HBHCY0 EXIT+3!
HBHCZ EXIT+3!
IO DQ+1
IO("Q" HBHCR15A+11
>> POP HBHCR15A+10
TMP EXIT+3!
U HBHCR15A+7, LOOP+1, FORM3+6, FORM4+3, NAME+2, FORM5+4, FORM6+4, SET+2
X EXIT+3!
Y EXIT+3!
>> ZTDESC HBHCR15A+11*
>> ZTRTN HBHCR15A+11*
>> ZTSAVE("HBHC*" HBHCR15A+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All