HBHCXMM ; LR VAMC(IRMS)/MJT-HBHC Transmit Medical Foster Home Data to AITC; May 21, 2021@12:36
Source file <HBHCXMM.m>
| Package | Total | Call Graph |
|---|---|---|
| Hospital Based Home Care | 1 | HOSP^HBHCUTL1 |
| VA FileMan | 1 | NOW^%DTC |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ; Initialization
|
|
| LOOP | ; Loop thru ^HBHC(633.2) "AC","N" cross-ref to create nodes in ^HBHC(634) => transmit or ^HBHC(634.7) => Medical Foster Home Error(s) file
|
|
| EXIT | ; Exit module
|
|
| SETNODE | ; Set node in ^HBHC(634) (Transmit) or ^HBHC(634.7) Medical Foster Home Error(s))
|
|
| NOW | ; Get time NOW, repeat until Hours/Minutes/Seconds = 6 digits in length
|
|
| PARENT | ;
|
|
| TRANS | ; Set node in ^HBHC(634) transmit file & flag record as 'F" (filed for transmit) in ^HBHC(633.2)
|
|
| ERROR | ; Set node in ^HBHC(634.7) if data is incomplete
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | PARENT+16 |
| ^DIC(4 - [#4] | PARENT+18 |
| ^DIC(5 - [#5] | SETNODE+10, SETNODE+11 |
| ^HBHC(631.8 - [#631.8] | SETNODE+10, SETNODE+11 |
| ^HBHC(631.9 - [#631.9] | PARENT+12, PARENT+13 |
| ^HBHC(633.2 - [#633.2] | LOOP+1, SETNODE+1, PARENT+10, TRANS+3!, TRANS+4* |
| ^HBHC(634 - [#634] | TRANS+1*, TRANS+2* |
| ^HBHC(634.7 - [#634.7] | ERROR+1*, ERROR+2* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EXIT+2!, NOW+1 |
| >> DILOCKTM | TRANS+1, TRANS+3, ERROR+1 |
| DT | SETNODE+3 |
| HBHCBEDM | EXIT+1!, SETNODE+17*, NOW+4 |
| HBHCCDOB | EXIT+1!, SETNODE+15*, NOW+4 |
| HBHCCDTS | EXIT+1!, NOW+1*, NOW+4, TRANS+4 |
| HBHCCLOS | EXIT+1!, SETNODE+20*, NOW+4 |
| HBHCCNTY | EXIT+1!, SETNODE+11*, NOW+4 |
| HBHCDFN | LOOP+1*, EXIT+1!, SETNODE+1, SETNODE+23, PARENT+10, TRANS+3, TRANS+4, ERROR+2 |
| HBHCDR | LOOP+1, EXIT+1!, SETNODE+6*, SETNODE+10*, SETNODE+11*, SETNODE+12*, SETNODE+14*, SETNODE+15*, SETNODE+16*, SETNODE+17* , SETNODE+18*, SETNODE+21, PARENT+22*, ERROR+2 |
| HBHCFLG | LOOP+1*, EXIT+1!, SETNODE+5* |
| HBHCFORM | START+3*, EXIT+1!, NOW+4 |
| HBHCHOSP | EXIT+1! |
| HBHCHOSPX | START+2~, NOW+4, PARENT+9*, PARENT+18*, PARENT+19*, PARENT+22 |
| HBHCIEN | EXIT+1!, SETNODE+23*, NOW+4 |
| HBHCINFO | EXIT+1!, SETNODE+1*, SETNODE+5, SETNODE+9, SETNODE+10, SETNODE+11, SETNODE+12, SETNODE+13, SETNODE+14, SETNODE+15 , SETNODE+16, SETNODE+17, SETNODE+18, SETNODE+20 |
| HBHCLNTH | START+3*, EXIT+1!, SETNODE+9 |
| HBHCLREQ | EXIT+1!, SETNODE+18*, NOW+4 |
| HBHCLSDT | EXIT+1!, SETNODE+3*, SETNODE+5 |
| HBHCMFHN | EXIT+1!, SETNODE+9*, NOW+4 |
| HBHCMXPT | EXIT+1!, SETNODE+16*, NOW+4 |
| HBHCNDX1 | EXIT+1!, TRANS+1*, TRANS+2 |
| HBHCNDX2 | EXIT+1!, ERROR+1*, ERROR+2 |
| HBHCOPEN | EXIT+1!, SETNODE+14*, NOW+4 |
| HBHCPRNT | PARENT+8~, PARENT+10*, PARENT+12, PARENT+13*, PARENT+14, PARENT+16*, PARENT+18 |
| HBHCREC | EXIT+1!, NOW+4*, TRANS+2 |
| HBHCS101 | START+3*, EXIT+1!, NOW+4 |
| HBHCSP4 | START+3*, EXIT+1!, SETNODE+13, PARENT+19 |
| HBHCSP8 | START+3*, EXIT+1!, SETNODE+14, SETNODE+15, SETNODE+20 |
| HBHCST | EXIT+1!, SETNODE+10*, NOW+4 |
| HBHCX | EXIT+2!, NOW+1* |
| HBHCXMT7 | EXIT+2!, SETNODE+1*, TRANS+3 |
| HBHCZIP | EXIT+2!, SETNODE+12*, SETNODE+13*, NOW+4 |
| U | SETNODE+1, SETNODE+5, SETNODE+9, SETNODE+10, SETNODE+11, SETNODE+12, SETNODE+13, SETNODE+14, SETNODE+15, SETNODE+16 , SETNODE+17, SETNODE+18, SETNODE+20, TRANS+1, TRANS+2, TRANS+4, ERROR+1 |