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 |
