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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | MAIL+2, MAIL+3 |
| ^HBHC(631.4 - [#631.4] | 6314+2, 6314+6*!, EXIT1+4*, LOOP2+1 |
| ^HBHC(631.9 - [#631.9] | PARAM+1, PARAM+2*, EXIT1+6*, MAIL+1 |
| ^HBHC(632 - [#632] | 632+1 |
| ^HBHC(634 - [#634] | 634+1!* |
| ^HBHC(634.1 - [#634.1] | 6341+1!*, POP+3 |
| ^HBHC(634.2 - [#634.2] | 6342+1!*, POP+3 |
| ^HBHC(634.3 - [#634.3] | 6343+1!*, POP+3 |
| ^HBHC(634.5 - [#634.5] | POP+3, EXIT1+1 |
| ^HBHC(634.6 - [#634.6] | 6346+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EXIT1+2!, MAIL+3, MAIL+4 |
| DA | 632+1*, 6346+1*, EXIT1+2! |
| DIE | EXIT1+2! |
| DIFROM | MAILIRM+2~, MAIL+7~ |
| >> DIK | 632+1*, 6346+1* |
| DIR | EXIT1+2! |
| DIRUT | EXIT1+2! |
| DR | EXIT1+2! |
| DT | PARAM+4 |
| DTOUT | EXIT1+2! |
| DUOUT | EXIT1+2! |
| DUZ | HBHCPS12+3, MAIL+6 |
| HBHC6314 | EXIT+1! |
| HBHC6314( | 6314+4!*, 6314+6, EXIT1+4, ARRAY+1*, ARRAY+2*, ARRAY+3*, LOOP2+1 |
| HBHCAPDT | EXIT1+2! |
| HBHCCKDT | EXIT1+2! |
| HBHCDAT | 632+1*, 6346+1*, EXIT1+2!, EXIT+1!, MAIL+1, MAIL+4, MAIL+6 |
| HBHCDAYS | EXIT1+2! |
| HBHCDIR | EXIT1+2! |
| HBHCDTE | EXIT1+2!, EXIT+1!, MAIL+2 |
| HBHCDUZ | HBHCPS12+3*, MAILIRM+1, EXIT+1! |
| HBHCFLAG | 6314+4, PARAM+6*, EXIT1+2!, EXIT+1!, LOOP2+1* |
| HBHCIEN | 6314+2*, 6314+6*, EXIT1+4*, EXIT+1!, ARRAY+3, LOOP2+1* |
| >> HBHCINFO | MAIL+2* |
| HBHCLAST | 6314+4, EXIT+1!, LOOP2+1* |
| HBHCLEAP | EXIT1+2! |
| HBHCLSDT | PARAM+4*, EXIT1+2!, EXIT+1! |
| HBHCMJ | PARAM+1*, EXIT1+6, EXIT+1! |
| HBHCNOW | EXIT1+2!, EXIT+1!, MAIL+4 |
| HBHCPRV | 6314+2*, 6314+4*, 6314+6*, EXIT1+4*, EXIT+1!, ARRAY+1, ARRAY+2, ARRAY+3, LOOP2+1 |
| HBHCSTDT | EXIT1+2! |
| HBHCYEAR | EXIT1+2! |
| TMP | EXIT1+2! |
| TMP(1 | MAILIRM+1*, MAIL+1* |
| TMP(2 | MAIL+1* |
| TMP(3 | MAIL+1* |
| TMP(4 | MAIL+1* |
| TMP(5 | MAIL+2* |
| TMP(6 | MAIL+2* |
| TMP(7 | MAIL+4* |
| TMP(8 | MAIL+4* |
| TMP(9 | MAIL+5* |
| U | 6314+6, PARAM+1, PARAM+2, EXIT1+4, EXIT1+6, LOOP2+1, MAIL+1, MAIL+2 |
| X | EXIT1+2! |
| X1 | EXIT1+2! |
| X2 | EXIT1+2! |
| >> XMDUZ | MAILIRM+1*, MAIL+6* |
| >> XMSUB | MAILIRM+1*, MAIL+6* |
| >> XMTEXT | MAILIRM+1*, MAIL+6* |
| >> XMY( | MAILIRM+1*, MAIL+6* |
| Y | EXIT1+2!, MAIL+2*, MAIL+3*, MAIL+4 |
| >> ZTDESC | PARAM+7* |
| >> ZTDTH | PARAM+7* |
| >> ZTIO | PARAM+7* |
| >> ZTRTN | PARAM+7* |
| >> ZTSAVE("HBHC*" | PARAM+7* |
| >> ZTSK | PARAM+8 |
