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