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

Package: Hospital Based Home Care

Routine: HBHCXMA


Information

HBHCXMA ;LR VAMC(IRMS)/MJT - HBHC populate ^HBHC(634) with Evaluation/Admission Data or ^HBHC(634.1), file of records in ^HBHC(631) containing missing/erroneous data, called by ^HBHCFILE, calls ^HBHCXMA1 ;9/02/09

Source Information

Source file <HBHCXMA.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Hospital Based Home Care 2 MFHS^HBHCUTL3  (ERROR,EXIT,START)^HBHCXMA1  
Registration 2 $$PTR2CODE^DGUTL4  DEM^VADPT  
DRG Grouper 1 $$CODEC^ICDEX  
VA FileMan 1 NOW^%DTC  

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

Package Total Caller Graph
Hospital Based Home Care 3 HBHCFILE  HBHCPS12  HBHCPS24  

Entry Points

Name Comments DBIA/ICR reference
TRANS ; Set node in ^HBHC(634) transmit file & flag record as 'F" (filed for transmit) in ^HBHC(631)
SETNODE ; Set node in ^HBHC(634) (Transmit) or ^HBHC(634.1) Evaluation/Admission Error(s))
MFH ; Medical Foster Home (MFH) processing; Check for existance of MFH fields: 89, 90 (.01 & 1), when 88 = Y signifying MFH Patient, in file 631; Set variables for HBHCREC
RACE ; Race Jan 2003 mandate: 7 Race codes (w/corresponding Collection Method codes) exist, 4 additional 'slots' are for future expansion = 11 total for loop counter for data fill in transmit record
EXIT ; Exit module
SET ; Set PTF Value & Collection Method Variables
LOOP2 ; Loop 2
ETH ; Ethnicity Jan 2003 mandate: 4 Ethnicity codes (w/corresponding Collection Method codes) exist, 4 additional 'slots' are for future expansion = 8 total for loop counter for data fill in transmit record
NOW ; Get time NOW, repeat until Hours/Minutes/Seconds = 6 digits in length
LOOP ; Loop thru ^HBHC(631) "AE","N" cross-ref to create nodes in ^HBHC(634) => transmit or ^HBHC(634.1) => Evaluation/Admission Error(s) file

External References

Name Field # of Occurrence
NOW^%DTC NOW+1
$$PTR2CODE^DGUTL4 SET+3, SET+4
MFHS^HBHCUTL3 SETNODE+38
ERROR^HBHCXMA1 LOOP+1
EXIT^HBHCXMA1 EXIT+1
START^HBHCXMA1 HBHCXMA+16
$$CODEC^ICDEX SETNODE+30
DEM^VADPT SETNODE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] SETNODE+12, SETNODE+13
^DPT - [#2] SETNODE+4, NOW+2, NOW+3
^HBHC(631 - [#631] LOOP+1, SETNODE+1, SETNODE+23, TRANS+3!*, MFH+1, MFH+7, MFH+8
^HBHC(631.1 - [#631.1] SETNODE+25
^HBHC(631.7 - [#631.7] SETNODE+18
^HBHC(631.8 - [#631.8] SETNODE+12, SETNODE+13
^HBHC(634 - [#634] TRANS+1*, TRANS+2*

Label References

Name Line Occurrences
ETH SETNODE+5
LOOP2 RACE+2, ETH+2
MFH SETNODE+38
NOW NOW+1
RACE SETNODE+5
SET LOOP2+2
SETNODE LOOP+1
TRANS LOOP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NOW+1
>> DFN SETNODE+5*
>> DILOCKTM TRANS+1, TRANS+3
DXCODE SETNODE+29~, SETNODE+30*, SETNODE+31
>> HBHC MFH+8*, MFH+9, MFH+10, MFH+11
>> HBHCACTN SETNODE+24*, SETNODE+25, SETNODE+26, SETNODE+33, SETNODE+34, SETNODE+38, NOW+4
>> HBHCADDT SETNODE+8*, SETNODE+10*, SETNODE+11, NOW+4
>> HBHCADTA NOW+5
>> HBHCAFLG SETNODE+6*, SETNODE+24
>> HBHCBHVA NOW+5
>> HBHCBLDA NOW+5
>> HBHCBTHA NOW+5
>> HBHCBWLA NOW+5
>> HBHCBYR SETNODE+17*, NOW+4
>> HBHCCARE NOW+4
>> HBHCCDTS NOW+1*, NOW+5
>> HBHCCM LOOP2+2, SET+4*
>> HBHCCNTY SETNODE+13*, NOW+4
>> HBHCCURJ MFH+7*
>> HBHCCURK MFH+7*, MFH+8
>> HBHCDFN LOOP+1*, SETNODE+1, SETNODE+23, TRANS+3, MFH+1, MFH+7, MFH+8
>> HBHCDPT0 SETNODE+4*, SETNODE+17, SETNODE+19
>> HBHCDR LOOP+1, SETNODE+4*, SETNODE+11*, SETNODE+12*, SETNODE+13*, SETNODE+14*, SETNODE+16*, SETNODE+18*, SETNODE+22*, SETNODE+24*
, SETNODE+25*, SETNODE+26*, SETNODE+33*, SETNODE+34*, SETNODE+39, MFH+4*, MFH+9*
>> HBHCDRSA NOW+5
>> HBHCDSOA NOW+5
>> HBHCEATA NOW+5
>> HBHCELGE SETNODE+16*, NOW+4
>> HBHCEND RACE+1*, ETH+1*, LOOP2+2
>> HBHCETH NOW+5, ETH+1*, ETH+3*
>> HBHCEXCA NOW+4
>> HBHCFIL RACE+1*, ETH+1*, SET+3
>> HBHCFLD SETNODE+22*, SETNODE+34*
>> HBHCFLD1 SETNODE+22
>> HBHCFLD2 SETNODE+34
>> HBHCFLG LOOP+1*, SETNODE+3*
>> HBHCFORM NOW+4
>> HBHCHERA NOW+4
>> HBHCHOSP NOW+4
>> HBHCI SETNODE+22*
>> HBHCICDA SETNODE+31*, SETNODE+32*, SETNODE+33*, NOW+4
>> HBHCIEN SETNODE+36*, NOW+5, MFH+5*
>> HBHCIEN2 SET+2*, SET+4
>> HBHCIENP SET+1*, SET+3
>> HBHCINFO SETNODE+1*, SETNODE+3, SETNODE+4, SETNODE+5, SETNODE+6, SETNODE+7, SETNODE+8, SETNODE+10, SETNODE+12, SETNODE+13
, SETNODE+14, SETNODE+15, SETNODE+16, SETNODE+18, SETNODE+22, SETNODE+24, SETNODE+25, SETNODE+26, SETNODE+28, SETNODE+30
, SETNODE+34, NOW+2, NOW+3
>> HBHCJ SETNODE+34*, MFH+7*
>> HBHCK SETNODE+6*, MFH+7*
>> HBHCL LOOP2+2*, SET+1, SET+2
>> HBHCLIVE NOW+4
>> HBHCLMTA NOW+5
>> HBHCLNTH NOW+2
>> HBHCLSDT SETNODE+3
>> HBHCMARE NOW+4
>> HBHCMFHS SETNODE+38
>> HBHCMOBA NOW+5
>> HBHCMODA NOW+5
>> HBHCMPT SETNODE+36*, NOW+5, MFH+3*
>> HBHCNAME NOW+2*, NOW+4
>> HBHCNDX1 TRANS+1*, TRANS+2
>> HBHCNOD3 MFH+1*, MFH+2, MFH+3, MFH+4, MFH+5
>> HBHCNODE RACE+1*, ETH+1*, LOOP2+2, SET+1, SET+2
>> HBHCPSRV SETNODE+18*, NOW+4
>> HBHCPTF SET+3, SET+4
>> HBHCPTFV LOOP2+2, SET+3*
>> HBHCRACE NOW+5, RACE+1*, RACE+3*
>> HBHCRC NOW+4
>> HBHCREC NOW+4*, NOW+5*, TRANS+2
>> HBHCRECA NOW+5
>> HBHCREJ SETNODE+25*, NOW+4
>> HBHCREJD SETNODE+26*, NOW+4
>> HBHCRFIN SETNODE+23*, NOW+4
>> HBHCRFLG SETNODE+7*, SETNODE+24
>> HBHCRTDT SETNODE+36*, NOW+5, MFH+10*
>> HBHCRTPD SETNODE+36*, NOW+5, MFH+11*, MFH+12*
>> HBHCSEX SETNODE+19*, NOW+4
>> HBHCSP1 SETNODE+23, SETNODE+26, SETNODE+34, SETNODE+36
>> HBHCSP14 NOW+5
>> HBHCSP2 SETNODE+25, LOOP2+2
>> HBHCSP4 SETNODE+15
>> HBHCSP5 SETNODE+36
>> HBHCSP6 SETNODE+36, MFH+12
>> HBHCSP8 SETNODE+8, SETNODE+10, SETNODE+11, SETNODE+32, SETNODE+33, SETNODE+36
>> HBHCSSN NOW+3*, NOW+4
>> HBHCST SETNODE+12*, NOW+4
>> HBHCSX SETNODE+19*
>> HBHCT103 SET+4
>> HBHCTDY TRANS+3
>> HBHCTLTA NOW+5
>> HBHCTRNA NOW+5
>> HBHCTYPE NOW+4
>> HBHCVAR RACE+3, ETH+3, LOOP2+1*, LOOP2+2*
>> HBHCVISA NOW+4
>> HBHCWLKA NOW+5
>> HBHCX NOW+1*
>> HBHCXMT3 SETNODE+1*, TRANS+3
>> HBHCZIP SETNODE+14*, SETNODE+15*, NOW+4
U SETNODE+1, SETNODE+3, SETNODE+6, SETNODE+7, SETNODE+8, SETNODE+10, SETNODE+12, SETNODE+13, SETNODE+14, SETNODE+15
, SETNODE+16, SETNODE+17, SETNODE+18, SETNODE+19, SETNODE+22, SETNODE+23, SETNODE+24, SETNODE+25, SETNODE+26, SETNODE+28
, SETNODE+30, SETNODE+34, NOW+2, NOW+3, SET+1, SET+2, TRANS+1, TRANS+2, TRANS+3, MFH+2
, MFH+3, MFH+4, MFH+5, MFH+9, MFH+10, MFH+11
VADM SETNODE+5!
VADM( LOOP2+2, SET+1, SET+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All