HBHCXMM ; LR VAMC(IRMS)/MJT-HBHC Transmit Medical Foster Home Data to AITC; May 21, 2021@12:36
Source file <HBHCXMM.m>
| 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 | 
  |