LRARNPX1 ;SLC/MRH/FHS/JB0 - NEW PERSON CONVERSION FOR ^LAR("Z" ; 1/23/93
Source file <LRARNPX1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PROV(LRFLD,X1,LRSB) | ;
; X1 = Pointer value of data that pointed to FILE 16 ; LRFLD = field number or if in a subfile subfile number,field number ; quits with the new value pointer from file 200 or logs an exception ; in ^XTMP("LR52","global root",LRJOB #,subscript 1,LRZD0,field number) ; =error and quits with the old value concantenated with "ERR" ; LRSB is an array that carries all subscripts from the file in ; which the conversion is being done. |
|
| NOP | ;
|
|
| POINT(LRFLD,Y,LRNAM,LRSB) | ;
; LRFLD - documented at line tag PROV ; Y = value from data the should be entry in ^VA(200,Y)) ; LRNAM is the externalization of the person/provider pointer from 16 ; LRSB is an array with subscript identifiers LRSB(0) first level ; LRSB(1) second level .... |
|
| OUT | ;
|
|
| REENT | ; re-entry for reque if LRIO is busy from above
|
|
| 1 | ;
|
|
| WRITE | ;
|
|
| 11 | ;
|
|
| WRIT1 | ;
|
|
| REQUE | ; reque task to print out exceptions
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Field # of Occurrence |
|---|---|
| ^( | 11+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| I | REQUE+1~, REQUE+3* |
| IOF | REENT+5 |
| IOM | REENT+3 |
| IOSL | 11+5, WRIT1+1 |
| LRAC | REENT+6! |
| LRD0 | REENT+4*, REENT+6!, WRITE+1, WRITE+2, WRITE+3, WRITE+4, WRITE+7, WRITE+8, WRITE+9, WRITE+10 , WRITE+11, WRITE+12, WRITE+13, WRITE+14, 11+1, 11+2, 11+6, WRIT1+2 |
| LRD0(0 | REENT+4*, WRITE+7* |
| LRD1 | REENT+6!, WRITE+2*, WRITE+3, WRITE+4, WRITE+9, WRITE+10, WRITE+11, WRITE+12, WRITE+13, WRITE+14 , WRIT1+2 |
| LRD1(0 | WRITE+8*, WRITE+9*, WRITE+10*, WRITE+11*, WRITE+12*, WRITE+13*, WRITE+14* |
| LRFILE | POINT+7, POINT+8, POINT+9, REENT+2, REENT+3, REENT+4, REENT+6!, WRITE+1, WRITE+2, WRITE+3 , WRITE+4, WRITE+6, 11+1, 11+2, 11+4, 11+5, WRIT1+1 |
| LRFLD | PROV~, PROV+11, PROV+12, POINT~, POINT+7, POINT+8, POINT+9, REENT+6!, WRITE+3*, WRITE+4 , WRITE+5, WRITE+6, 11+2*, 11+3, 11+4 |
| LRIO | OUT+1, REENT+7!, REQUE+2 |
| LRJOB | POINT+7, POINT+8, POINT+9, REENT+3, REENT+4, REENT+6!, WRITE+1, WRITE+2, WRITE+3, WRITE+4 , 11+1, 11+2, REQUE+2 |
| LRNAM | PROV+8~, PROV+10*, PROV+11*, PROV+12, POINT~, POINT+7, POINT+8, POINT+9, REENT+7! |
| LRSB | PROV~, PROV+11, PROV+12, POINT~, REENT+4*, REENT+6!, 1+1, WRITE+1, WRITE+2, WRITE+3 , WRITE+4, WRITE+8, WRITE+9, WRITE+10, WRITE+11, WRITE+12, WRITE+13, WRITE+14, 11+1, 11+2 , WRIT1+2 |
| LRSB(0 | POINT+7, POINT+8, POINT+9 |
| LRSB(1 | POINT+9 |
| LRSF | REENT+6!, WRITE+8*, WRITE+9*, WRITE+10*, WRITE+11*, WRITE+12*, WRITE+13*, WRITE+14*, WRIT1+2 |
| LRST | REENT+6! |
| LRTI | REENT+6! |
| LRTIT | REENT+6!, WRITE+5*, WRITE+6*, 11+3*, 11+4*, 11+6, WRIT1+2 |
| LRVL | REENT+6!, WRITE+4*, 11+2*, 11+6, WRIT1+2 |
| LRZD0 | POINT+7, POINT+8, POINT+9, REENT+7! |
| LRZD1 | POINT+7, POINT+8, POINT+9, REENT+7! |
| LRZD2 | POINT+8, POINT+9, REENT+7! |
| U | PROV+10, POINT+7, POINT+8, POINT+9, WRITE+5, WRITE+6, 11+3, 11+4, 11+6, WRIT1+2 |
| X | PROV+8~, PROV+9*, PROV+10, PROV+11, PROV+12, REENT+7! |
| X1 | PROV~, PROV+9, NOP+1, REENT+7! |
| Y | PROV+8~, PROV+12*, PROV+13, POINT~, POINT+7, POINT+8, POINT+9, REENT+7! |
| ZTDESC | REENT+7!, REQUE+2* |
| ZTDTH | REENT+7!, REQUE+2* |
| ZTIO | REENT+7!, REQUE+2* |
| ZTRTN | REENT+7!, REQUE+2* |
| ZTSAVE | REENT+7! |
| ZTSAVE( | REQUE+3* |
