HBHCPS12 ; LR VAMC(IRMS)/MJT-HBHC POST initialization routine, re-create visits for FY98 in HBHC(632 file, cleanup corresponding files, send IRM message when complete ;9808
Source file <HBHCPS12.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 6314 | ; Retain IENs w/Inactive Provider Number (field 6, file 631.4) in HBHC Provider
; Count number of provider numbers per provider, create local array |
|
| PARAM | ; Retain/Set Number of Visit Days to Scan (field 3, file 631.9) System Parameter
|
|
| DQ | ; De-queue entry point
|
|
| 632 | ; Delete FY98 entries from 632 (Visit) file
|
|
| 634 | ; Delete entries from 634 (Transmit) file
|
|
| 6341 | ; Delete entries from 634.1 (Admission Errors) file
|
|
| 6342 | ; Delete entries from 634.2 (Visit Errors) file
|
|
| 6343 | ; Delete entries from 634.3 (Discharge Errors) file
|
|
| 6346 | ; Delete FY98 entries from 634.6 (Transmit History) file
|
|
| CREATE | ; Re-create visits for FY98 from Outpatient Encounter (409.68) file data, update Transmit (634) file &/or error files (634.1 thru 634.3)
|
|
| POP | ; Populate ^HBHC(634) or ^HBHC(634.1/634.2/634.3/634.5 Error files
|
|
| EXIT1 | ; Exit module
|
|
| MAILIRM | ; Send mail message to IRM
|
|
| EXIT | ; Exit module
|
|
| ARRAY | ; Set HBHC6314 array
|
|
| LOOP2 | ; Loop 2, determine whether record is Inactive or has Unique provider number
|
|
| ; Send completed mail message
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^HBHC(632 - [#632] | Classic Fileman Calls |
| ^HBHC(634.6 - [#634.6] | Classic Fileman Calls |
