ORY231 ;SLCOIFO - Post-init for patch OR*3*231 ; [4/19/05 7:21am]
Source file <ORY231.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PRE | ; initiate pre-init processes
|
|
MAGRPC1 | ; Register Imaging RPC if MAG*3.0*7 present (DBIA 4526)
|
|
MAGRPC2 | ; Register Imaging RPCS if MAG*3.0*37 installed (DBIA 4528/4530)
|
|
INSERT(OPTION,RPC) | ; Call FM Updater with each RPC
; Input -- OPTION Option file (#19) Name field (#.01) ; RPC RPC sub-file (#19.05) RPC field (#.01) ; Output -- None |
|
GNRPCS | ;
|
|
VERSION | ;;25.40
|
|
LINE(DATA) | ; set text into array
|
|
SURGREG | ; Register TIU SURGERY RPCs if TIU*1.0*112 present
|
|
; send bulletin of installation time
|
||
POST | ; initiate post-init processes
|
Name | Line Occurrences |
---|---|
GNRPCS | POST+3 |
INSERT | SURGREG+3, GNRPCS+3, MAGRPC1+1, MAGRPC2+1, MAGRPC2+2 |
LINE | MAIL+7, MAIL+8, MAIL+9 |
MAGRPC1 | POST+4 |
MAGRPC2 | POST+5 |
POST+6 | |
SURGREG | POST+2 |
VERSION | MAIL+3, MAIL+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
COUNT | MAIL+1~, MAIL+2*, LINE+1*, LINE+2 |
DATA | LINE~, LINE+2 |
DIERR | INSERT+4~ |
DIFROM | MAIL+1~ |
DUZ | MAIL+4 |
ERR | INSERT+4~ |
FDA | INSERT+4~ |
FDA( | INSERT+6* |
FDA(19 | INSERT+5* |
FDAIEN | INSERT+4~ |
I | MAIL+1~, MAIL+4*, GNRPCS+1~, GNRPCS+3* |
MENU | SURGREG+1~, SURGREG+2*, SURGREG+3, GNRPCS+1~, GNRPCS+2*, GNRPCS+3 |
OPTION | INSERT~, INSERT+5 |
RPC | SURGREG+1~, SURGREG+3*, INSERT~, INSERT+6 |
START | MAIL+1~ |
TEXT | MAIL+1~ |
TEXT( | LINE+2* |
>> X | MAIL+6*, MAIL+7 |
XMDUZ | MAIL+1~, MAIL+2* |
XMSUB | MAIL+1~, MAIL+3* |
XMTEXT | MAIL+1~, MAIL+2* |
XMY | MAIL+1~ |
XMY( | MAIL+4* |
Name | Field # of Occurrence |
---|---|
$T(VERSION | MAIL+3, MAIL+6 |