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 |