XU8PE689 ;ISD/JCH - Patch XU*8*689 Environment Check Routine ;01/26/23 12:04
Source file <XU8PE689.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENV | ; Environment Check
|
|
| XUPDBAC() | ; Update BAC file with new codes if necessary (CQ, MT, MY)
|
|
| MISSBAC(MISSING) | ; New BACs (CQ,MT,MY) missing from file 8991.8?
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | MISSBAC+3 |
| UPDATE^DIE | XUPDBAC+10 |
| $$DT^XLFDT | ENV+5 |
| $$FMADD^XLFDT | ENV+17 |
| $$FMDIFF^XLFDT | ENV+5 |
| $$FMTE^XLFDT | ENV+26 |
| $$NOW^XLFDT | ENV+17, ENV+18, ENV+23, XUPDBAC+9 |
| $$PATCH^XPDUTL | ENV+14 |
| BMES^XPDUTL | ENV+8, ENV+9, ENV+10, ENV+11, ENV+12, ENV+24, ENV+26, ENV+29, ENV+30, ENV+31 , ENV+32, ENV+33, ENV+34 |
| $$PROD^XUPROD | ENV+16 |
| Name | Line Occurrences |
|---|---|
| $$MISSBAC | XUPDBAC+2 |
| $$XUPDBAC | ENV+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BAC | XUPDBAC+4*, XUPDBAC+6, XUPDBAC+7, XUPDBAC+8, MISSBAC+1~, MISSBAC+2*, MISSBAC+3, MISSBAC+4 |
| FDA | XUPDBAC+5~ |
| FDA( | XUPDBAC+6*, XUPDBAC+7*, XUPDBAC+8*, XUPDBAC+9* |
| MISCH | ENV+22~, ENV+23*, ENV+25, ENV+27 |
| MISCHDT | ENV+22~, ENV+23*, ENV+26 |
| MISSING | MISSBAC~, MISSBAC+1!*, MISSBAC+4*, MISSBAC+5 |
| MISSING( | MISSBAC+4* |
| XMIEXP | ENV+1~, ENV+4*, ENV+5*, ENV+21 |
| XMISTART | ENV+1~, ENV+4*, ENV+5 |
| >> XPDABORT | ENV+13*, ENV+35* |
| XUBACMIS | XUPDBAC+1~, XUPDBAC+2 |
| XUBACMIS( | XUPDBAC+4 |
| XUBACUPD | XUPDBAC+1~, XUPDBAC+2*, XUPDBAC+3, XUPDBAC+11*, XUPDBAC+12, XUPDBAC+13 |
| XUDEAERR | XUPDBAC+5~ |
| XUDEAERR("DIERR" | XUPDBAC+11 |
| XUHANDLE | ENV+1~, ENV+2*, ENV+4, ENV+7, ENV+15, ENV+17, ENV+18, ENV+19, ENV+20, ENV+21 , ENV+23, ENV+36 |
| XUPDBAC | ENV+1~, ENV+3*, ENV+21, ENV+28 |
| XUTITLE | ENV+1~, ENV+6*, ENV+9 |
