HBHCXMA ;LR VAMC(IRMS)/MJT - HBHC Evaluation/Admission Transactions; May 11, 2021@17:03
Source file <HBHCXMA.m>
| 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
|
