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 Evaluation/Admission Transactions; May 11, 2021@17:03

Source Information

Source file <HBHCXMA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Hospital Based Home Care 3 PARENT^HBHCUTL1  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

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

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

Entry Points

Name Comments DBIA/ICR reference
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
EXIT ; Exit module
SETNODE ; Set node in ^HBHC(634) (Transmit) or ^HBHC(634.1) Evaluation/Admission Error(s))
NOW ; Get time NOW, repeat until Hours/Minutes/Seconds = 6 digits in length
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
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
LOOP2 ; Loop 2
SET ; Set PTF Value & Collection Method Variables
TRANS ; Set node in ^HBHC(634) transmit file & flag record as 'F" (filed for transmit) in ^HBHC(631)
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

External References

Name Field # of Occurrence
NOW^%DTC NOW+1
$$PTR2CODE^DGUTL4 SET+3, SET+4
PARENT^HBHCUTL1 SETNODE+6
MFHS^HBHCUTL3 SETNODE+45
ERROR^HBHCXMA1 LOOP+1
EXIT^HBHCXMA1 EXIT+1
START^HBHCXMA1 HBHCXMA+7
$$CODEC^ICDEX SETNODE+37
DEM^VADPT SETNODE+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] SETNODE+19, SETNODE+20
^DPT - [#2] SETNODE+11, NOW+2, NOW+3
^HBHC(631 - [#631] LOOP+1, SETNODE+1, SETNODE+30, TRANS+3!*, MFH+1, MFH+7, MFH+8
^HBHC(631.1 - [#631.1] SETNODE+32
^HBHC(631.7 - [#631.7] SETNODE+25
^HBHC(631.8 - [#631.8] SETNODE+19, SETNODE+20
^HBHC(634 - [#634] TRANS+1*, TRANS+2*

Label References

Name Line Occurrences
ETH SETNODE+12
LOOP2 RACE+2, ETH+2
MFH SETNODE+45
NOW NOW+1
RACE SETNODE+12
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+12*
>> DILOCKTM TRANS+1, TRANS+3
DXCODE SETNODE+36~, SETNODE+37*, SETNODE+38
>> HBHC MFH+8*, MFH+9, MFH+10, MFH+11
>> HBHCACTN SETNODE+31*, SETNODE+32, SETNODE+33, SETNODE+40, SETNODE+41, SETNODE+45, NOW+5
>> HBHCADDT SETNODE+15*, SETNODE+17*, SETNODE+18, NOW+5
>> HBHCADTA NOW+6
>> HBHCAFLG SETNODE+13*, SETNODE+31
>> HBHCBHVA NOW+6
>> HBHCBLDA NOW+6
>> HBHCBTHA NOW+6
>> HBHCBWLA NOW+6
>> HBHCBYR SETNODE+24*, NOW+5
>> HBHCCARE NOW+5
>> HBHCCDTS NOW+1*, NOW+6
>> HBHCCM LOOP2+2, SET+4*
>> HBHCCNTY SETNODE+20*, NOW+5
>> HBHCCURJ MFH+7*
>> HBHCCURK MFH+7*, MFH+8
>> HBHCDFN LOOP+1*, SETNODE+1, SETNODE+30, TRANS+3, MFH+1, MFH+7, MFH+8
>> HBHCDPT0 SETNODE+11*, SETNODE+24, SETNODE+26
>> HBHCDR LOOP+1, SETNODE+11*, SETNODE+18*, SETNODE+19*, SETNODE+20*, SETNODE+21*, SETNODE+23*, SETNODE+25*, SETNODE+29*, SETNODE+31*
, SETNODE+32*, SETNODE+33*, SETNODE+40*, SETNODE+41*, SETNODE+46, MFH+4*, MFH+9*
>> HBHCDRSA NOW+6
>> HBHCDSOA NOW+6
>> HBHCEATA NOW+6
>> HBHCELGE SETNODE+23*, NOW+5
>> HBHCEND RACE+1*, ETH+1*, LOOP2+2
>> HBHCETH NOW+6, ETH+1*, ETH+3*
>> HBHCEXCA NOW+5
>> HBHCFIL RACE+1*, ETH+1*, SET+3
>> HBHCFLD SETNODE+29*, SETNODE+41*
>> HBHCFLD1 SETNODE+29
>> HBHCFLD2 SETNODE+41
>> HBHCFLG LOOP+1*, SETNODE+3*
>> HBHCFORM NOW+5
>> HBHCHERA NOW+5
>> HBHCHOSP SETNODE+9
HBHCHOSPX SETNODE+5~, SETNODE+9*, NOW+5
>> HBHCI SETNODE+29*
>> HBHCICDA SETNODE+38*, SETNODE+39*, SETNODE+40*, NOW+5
>> HBHCIEN SETNODE+43*, NOW+6, MFH+5*
>> HBHCIEN2 SET+2*, SET+4
>> HBHCIENP SET+1*, SET+3
>> HBHCINFO SETNODE+1*, SETNODE+3, SETNODE+11, SETNODE+12, SETNODE+13, SETNODE+14, SETNODE+15, SETNODE+17, SETNODE+19, SETNODE+20
, SETNODE+21, SETNODE+22, SETNODE+23, SETNODE+25, SETNODE+29, SETNODE+31, SETNODE+32, SETNODE+33, SETNODE+35, SETNODE+37
, SETNODE+41, NOW+2, NOW+3
>> HBHCJ SETNODE+41*, MFH+7*
>> HBHCK SETNODE+13*, MFH+7*
>> HBHCL LOOP2+2*, SET+1, SET+2
>> HBHCLIVE NOW+5
>> HBHCLMTA NOW+6
>> HBHCLNTH NOW+2
>> HBHCLSDT SETNODE+3
>> HBHCMARE NOW+5
>> HBHCMFHS SETNODE+45
>> HBHCMOBA NOW+6
>> HBHCMODA NOW+6
>> HBHCMPT SETNODE+43*, NOW+6, MFH+3*
>> HBHCNAME NOW+2*, NOW+5
>> 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+25*, NOW+5
>> HBHCPTF SET+3, SET+4
>> HBHCPTFV LOOP2+2, SET+3*
>> HBHCRACE NOW+6, RACE+1*, RACE+3*
>> HBHCRC NOW+5
>> HBHCREC NOW+5*, NOW+6*, TRANS+2
>> HBHCRECA NOW+6
>> HBHCREJ SETNODE+32*, NOW+5
>> HBHCREJD SETNODE+33*, NOW+5
>> HBHCRFIN SETNODE+30*, NOW+5
>> HBHCRFLG SETNODE+14*, SETNODE+31
>> HBHCRTDT SETNODE+43*, NOW+6, MFH+10*
>> HBHCRTPD SETNODE+43*, NOW+6, MFH+11*, MFH+12*
>> HBHCSEX SETNODE+26*, NOW+5
>> HBHCSP1 SETNODE+30, SETNODE+33, SETNODE+41, SETNODE+43
>> HBHCSP14 NOW+6
>> HBHCSP2 SETNODE+32, LOOP2+2
>> HBHCSP4 SETNODE+22
>> HBHCSP5 SETNODE+43
>> HBHCSP6 SETNODE+43, MFH+12
>> HBHCSP8 SETNODE+15, SETNODE+17, SETNODE+18, SETNODE+39, SETNODE+40, SETNODE+43
>> HBHCSSN NOW+3*, NOW+5
>> HBHCST SETNODE+19*, NOW+5
>> HBHCSX SETNODE+26*
>> HBHCT103 SET+4
>> HBHCTDY TRANS+3
>> HBHCTLTA NOW+6
>> HBHCTRNA NOW+6
>> HBHCTYPE NOW+5
>> HBHCVAR RACE+3, ETH+3, LOOP2+1*, LOOP2+2*
>> HBHCVISA NOW+5
>> HBHCWLKA NOW+6
>> HBHCX NOW+1*
>> HBHCXMT3 SETNODE+1*, TRANS+3
>> HBHCZIP SETNODE+21*, SETNODE+22*, NOW+5
U SETNODE+1, SETNODE+3, SETNODE+13, SETNODE+14, SETNODE+15, SETNODE+17, SETNODE+19, SETNODE+20, SETNODE+21, SETNODE+22
, SETNODE+23, SETNODE+24, SETNODE+25, SETNODE+26, SETNODE+29, SETNODE+30, SETNODE+31, SETNODE+32, SETNODE+33, SETNODE+35
, SETNODE+37, SETNODE+41, 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+12!
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