XLFNAME3 ;CIOFO-SF/MKO-CONVERSION OF NEW PERSON FILE ENTRIES ;10:39 AM 10 Mar 2000 [ 04/02/2003 8:29 AM ]
Source file <XLFNAME3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
INV(IENS) | ;Invert the IENS
|
|
PRE | ;The Pre-Install entry point
|
|
STPCHK | ;Every 200 records, check whether to stop
|
|
NEWPERS(XUFLAG,XUIEN) | ;Convert New Person file names
|
|
RECORD(XUFIL,XUFLD,XUREC,XUNAM,XUAUD,XUNMSP) | ;Record problems in ^XTMP
|
|
POST | ;The Post-Install entry point (run conversion)
|
|
UPDATE(XUFLAG,XUFIL,XUIENS,XUFLD,XUNAM,XUPTR,XUPVAL,XUNMSP,XUDEG) | ;Process name field
|
|
STOP() | ;Check whether to stop
|
Name | Field # of Occurrence |
---|---|
$$S^%ZTLOAD | STPCHK+3 |
DELIX^DDMOD | PRE+5, PRE+10 |
FILE^DIE | UPDATE+25 |
$$IENS^DILF | RECORD+5 |
^DIR | STOP+7 |
$$FMADD^XLFDT | NEWPERS+15 |
$$NAMEFMT^XLFNAME | UPDATE+11 |
STDNAME^XLFNAME | UPDATE+9 |
UPDCOMP^XLFNAME2 | UPDATE+20 |
UPDATE^XPDID | STPCHK+5 |
BMES^XPDUTL | PRE+6 |
MES^XPDUTL | NEWPERS+29, NEWPERS+37, NEWPERS+60 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: READ |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD(200 | PRE+4, PRE+9 |
^VA(200 - [#200] | NEWPERS+26, NEWPERS+32, NEWPERS+33*, NEWPERS+41, NEWPERS+42, NEWPERS+43, NEWPERS+46, NEWPERS+47 |
^XTMP( | NEWPERS+15*, NEWPERS+54*, RECORD+10!, RECORD+11*, RECORD+12*, POST+3, POST+5 |
^XTMP("XLFNAME" | NEWPERS+14! |
Name | Line Occurrences |
---|---|
$$INV | RECORD+7 |
$$STOP | STPCHK+4 |
NEWPERS | POST+4 |
RECORD | UPDATE+15 |
STPCHK | NEWPERS+41 |
UPDATE | NEWPERS+51 |
Name | Field # of Occurrence |
---|---|
^( | NEWPERS+32 |
^(0 | POST+5* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIERR | UPDATE+1~, UPDATE+25!, PRE+1~, PRE+6 |
DIR | STOP+1~ |
DIR("?" | STOP+6* |
DIR("A" | STOP+5* |
DIR("B" | STOP+5* |
DIR(0 | STOP+5* |
DIROUT | STOP+1~ |
DIRUT | STOP+1~ |
DT | NEWPERS+15 |
DTOUT | STOP+1~ |
DUOUT | STOP+1~ |
I | NEWPERS+9~, NEWPERS+31*, NEWPERS+32*, NEWPERS+59*, INV+1~, INV+4* |
IENS | INV~, INV+2, INV+3*, INV+4 |
U | NEWPERS+15, NEWPERS+26, NEWPERS+32, NEWPERS+33, NEWPERS+42, NEWPERS+46, NEWPERS+47, NEWPERS+54, RECORD+12, STOP+4 , PRE+4, PRE+9, POST+3, POST+5 |
X | STOP+1~, STOP+3*, INV+1~, INV+4*, INV+5*, INV+6 |
XPDIDTOT | NEWPERS+9~, NEWPERS+26*, NEWPERS+31*, NEWPERS+32*, NEWPERS+33 |
>> XPDNM | NEWPERS+18, NEWPERS+28, NEWPERS+36, NEWPERS+59, STPCHK+4, STPCHK+5, PRE+6 |
XUAUD | UPDATE+1~, UPDATE+9, UPDATE+13, UPDATE+14, UPDATE+15, UPDATE+23, RECORD~, RECORD+11 |
XUAUD("DIFFERENT" | UPDATE+14* |
XUAUD("STRIP" | UPDATE+13 |
XUAUD("TRUNC" | UPDATE+12* |
XUCNT | NEWPERS+8~, NEWPERS+12*, NEWPERS+57, NEWPERS+58, STPCHK+1*, STPCHK+2, STPCHK+5 |
XUDA | UPDATE+1~ |
XUDEG | NEWPERS+8~, NEWPERS+47*, NEWPERS+51, UPDATE~, UPDATE+19 |
XUF | NEWPERS+8~, NEWPERS+50*, NEWPERS+51! |
XUFDA | UPDATE+1~ |
XUFDA( | UPDATE+24* |
XUFIL | UPDATE~, UPDATE+15, UPDATE+20, UPDATE+24, RECORD~, RECORD+10, RECORD+11, RECORD+12 |
XUFLAG | NEWPERS~, NEWPERS+10*, NEWPERS+14, NEWPERS+15, NEWPERS+25, NEWPERS+50, NEWPERS+54, UPDATE~, UPDATE+2*, UPDATE+6 , UPDATE+15, UPDATE+18, UPDATE+23, STOP+6 |
XUFLD | UPDATE~, UPDATE+15, UPDATE+20, UPDATE+24, RECORD~, RECORD+10, RECORD+11, RECORD+12 |
XUIEN | NEWPERS~, NEWPERS+22*, NEWPERS+26, NEWPERS+31, NEWPERS+33, NEWPERS+41*, NEWPERS+42, NEWPERS+43, NEWPERS+44, NEWPERS+46 , NEWPERS+47, NEWPERS+50, NEWPERS+54, STPCHK+1, POST+1~, POST+3*, POST+4, POST+5 |
XUIENL | NEWPERS+8~, NEWPERS+58, STPCHK+1* |
XUIENS | NEWPERS+8~, NEWPERS+44*, NEWPERS+51, UPDATE~, UPDATE+15, UPDATE+20, UPDATE+24, RECORD+1~, RECORD+5*, RECORD+6* , RECORD+7 |
XUINV | RECORD+1~, RECORD+7*, RECORD+10, RECORD+11, RECORD+12 |
XUMAX | UPDATE+1~, UPDATE+6*, UPDATE+10, UPDATE+11 |
XUMSG | NEWPERS+8~, NEWPERS+27*, NEWPERS+28, NEWPERS+29, NEWPERS+30!, NEWPERS+35*, NEWPERS+36, NEWPERS+37, NEWPERS+38!, NEWPERS+60 , UPDATE+1~, UPDATE+25!, PRE+1~ |
XUMSG( | NEWPERS+59 |
XUMSG(1 | NEWPERS+56* |
XUMSG(2 | NEWPERS+57* |
XUMSG(3 | NEWPERS+58* |
XUNAM | NEWPERS+8~, NEWPERS+42*, NEWPERS+43, NEWPERS+50, NEWPERS+51, UPDATE~, UPDATE+9, UPDATE+10, UPDATE+11*, UPDATE+14 , UPDATE+15, UPDATE+20, UPDATE+23, UPDATE+24, RECORD~, RECORD+12 |
XUNAM("DEGREE" | UPDATE+19* |
XUNAM("FAMILY" | RECORD+12 |
XUNAM("GIVEN" | RECORD+12 |
XUNAM("MIDDLE" | RECORD+12 |
XUNAM("NOTES" | UPDATE+13* |
XUNAM("SUFFIX" | RECORD+12 |
>> XUNC | UPDATE+11 |
XUNMSP | NEWPERS+8~, NEWPERS+12*, NEWPERS+15, NEWPERS+51, NEWPERS+54, UPDATE~, UPDATE+15, RECORD~, RECORD+2, RECORD+10 , RECORD+11, RECORD+12, POST+1~, POST+2*, POST+3, POST+5 |
XUNODEGT | NEWPERS+8~, NEWPERS+11* |
XUNOSIGT | NEWPERS+9~, NEWPERS+11* |
XUNOTRIG | NEWPERS+8~, NEWPERS+11*, UPDATE+3~* |
XUORIG | UPDATE+1~ |
XUPTR | UPDATE~, UPDATE+20 |
XUPVAL | NEWPERS+9~, NEWPERS+46*, NEWPERS+51, UPDATE~, UPDATE+20 |
XUREC | RECORD~, RECORD+5, RECORD+6 |
XUSTOP | NEWPERS+9~, NEWPERS+40*, NEWPERS+41, NEWPERS+56, STPCHK+3*, STPCHK+4* |
Y | STOP+1~, STOP+2*, STOP+4, STOP+8 |
>> ZTQUEUED | NEWPERS+18, STPCHK+3, STPCHK+4, STPCHK+5 |
>> ZTSTOP | STPCHK+3* |