RAIPS158 ;HISC/GJC post-install routine ;05 Jun 2019 8:37 AM
Source file <RAIPS158.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;delete the ORIGINAL PROCEDURE? (field: [#8]) flag
; for all procedures in the RAD/NUC MED PROCEDURES [#71] ; file. |
|
| EN1 | ; entry point to loop [#71] called from EN tag.
|
|
| ABEND | ;come here on error
|
|
| EN2 | ;add new cancel reasons...
|
|
| EN3 | ;remove type of reason (#2) off non-national reason
|
|
| EN4 | ;remove user access to the RAD/NUC MED REASON [#75.2]
|
|
| EN5 | ;set file security for 75.2 all "@" except for "RD" & "AUDIT"
|
|
| TSK | ;remove user access to the RAD/NUC MED REASON [#75.2]
|
|
| REA | ;reason table
|
| FileNo | Call Tags |
|---|---|
| ^RA(75.2 - [#75.2] | FILESEC^DDMOD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RA(75.2 - [#75.2] | EN3+1, EN3+2 |
| ^RAMIS(71 - [#71] | EN1+4, EN1+6 |
| ^TMP("DIERR" | EN5+1!, EN5+9, EN5+14! |
| ^XTMP("RA158" | EN+7, EN+8*, EN+12, EN1+9*, ABEND+1* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> RA01 | EN2+3*, EN2+4, EN2+10, EN2+11 |
| >> RA3 | EN2+3*, EN2+6 |
| RACHX1 | RAIPS158+14~* |
| RAFDA | EN1+9!, EN2+9!, EN3+5! |
| RAFDA( | EN3+3* |
| RAFDA(71 | EN1+8* |
| RAI | EN2+2*, EN2+14! |
| RAMSG | EN2+13! |
| RAMSG(1 | EN2+10 |
| RAR | EN2+1*, EN2+4, EN2+5, EN2+6, EN2+7, EN2+8, EN2+14! |
| RAREA | EN2+2*, EN2+3, EN2+14! |
| RAROOT | EN1+4*, EN1+7, EN1+11! |
| RASEC752 | EN5+8, EN5+14! |
| RASEC752("AUDIT" | EN5+7* |
| RASEC752("DD" | EN5+2* |
| RASEC752("DEL" | EN5+5* |
| RASEC752("LAYGO" | EN5+6* |
| RASEC752("RD" | EN5+3* |
| RASEC752("WR" | EN5+4* |
| RATXT | EN+11!, EN+18!, EN2+10*, EN2+11*, EN2+12, EN2+13!, EN4+1~, EN4+5, EN5+9!, EN5+11 , EN5+12! |
| RATXT(1 | EN+15*, EN4+2*, EN5+10* |
| RATXT(2 | EN+17*, EN4+3*, EN5+11* |
| RATXT(3 | EN4+4* |
| RAY | EN+11!, EN+12*, EN+13*, EN+18!, EN1+6*, EN1+7, EN1+8, EN1+9, EN1+11!, ABEND+1 , EN3+1*, EN3+2, EN3+3, EN3+7! |
| U | EN+8, EN+12, EN1+7, EN1+9, ABEND+1, EN3+2 |
| XUW | TSK+2~* |
| ZTDESC | EN+11~, EN+15*, EN4+1~, EN4+3* |
| ZTDTH | EN+11~, EN+16*, EN4+1~, EN4+4* |
| ZTIO | EN+11~, EN+14*, EN4+1~, EN4+2* |
| >> ZTQUEUED | EN1+12 |
| >> ZTREQ | EN1+12* |
| ZTRTN | EN+11~, EN+14*, EN4+1~, EN4+2* |
| ZTSAVE | EN+11~ |
| ZTSAVE("RAY" | EN+14* |
| >> ZTSK | EN+17, EN4+4 |
| Name | Field # of Occurrence |
|---|---|
| $T(REA+RAI | EN2+2 |
