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* |