DIFG0 ;SFISC/DG(OHPRD)-SETS UP DIC("S"), EVALS 1ST LINE OF A (SUB)FILE ;05/25/93 10:17 AM
Source file <DIFG0.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 |
|---|---|---|
| NDPC | ;DETERMINE NODE,PIECE FOR DATA FOR THIS FIELD
|
|
| DICS | ;SET DIC("S")
|
|
| GETVAL | ;GETS VALUE TO RIGHT OF EQUAL SIGN
|
|
| X1 | ||
| SETCODES | ;DETERMINE INTERNAL VALUE IF FIELD ATTRIBUTE IS SET OF CODES
|
|
| DATE | ;GET INTERNAL FORM OF DATE
|
|
| BASE | ;BASE FILE ENTRY LINE
|
|
| FUNC | ;CHECKS FUNCTION ON BASE ENTRY LINE
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | NDPC+2, NDPC+3, NDPC+4, SETCODES+1 |
| ^DIC - [#1] | BASE+4 |
| ^DIC("B" | BASE+4 |
| ^UTILITY("DIFG" | FUNC+3* |
| ^UTILITY("DIFG@" | GETVAL+2, BASE+2, BASE+3 |
| ^UTILITY("DIFGX" | GETVAL+1*, GETVAL+2* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | SETCODES+1*, SETCODES+2!, FUNC+3*, FUNC+4! |
| %A | SETCODES+1*, SETCODES+2! |
| >> %DT | DATE+1* |
| >> DIC | NDPC+2, NDPC+3, NDPC+4, DICS+3, DICS+4, DICS+5, SETCODES+1, BASE+4*, BASE+5, FUNC+3 |
| >> DIFG("NOLKUP" | BASE+2*, BASE+3 |
| >> DIFG("PARAM" | NDPC+2 |
| >> DIFGALNK | BASE+2* |
| >> DIFGCT | NDPC+1*, NDPC+2, NDPC+3, NDPC+4, DICS+1, DICS+2, DICS+5, GETVAL+1, GETVAL+2, SETCODES+1 , DATE+1 |
| >> DIFGDIC( | DICS+3, DICS+5* |
| >> DIFGDICS( | DICS+3*, DICS+4*, DICS+5 |
| >> DIFGDIX | NDPC+2, NDPC+3, NDPC+4, GETVAL+1, GETVAL+2, DATE+1, BASE+2, BASE+3, BASE+4, BASE+6 , FUNC+3 |
| >> DIFGDOL | DICS+1*, DICS+2*, DICS+5 |
| >> DIFGER | DATE+2*, BASE+5* |
| >> DIFGFLUS | BASE+2* |
| >> DIFGHAT | NDPC+4*, GETVAL+1 |
| >> DIFGINCR | FUNC+2*, FUNC+3 |
| >> DIFGMO( | FUNC+3* |
| >> DIFGMULT | BASE+1, BASE+2, BASE+6, FUNC+3 |
| >> DIFGNUMF( | NDPC+2*, NDPC+3*, NDPC+4, SETCODES+1 |
| >> DIFGO | FUNC+1*, FUNC+2 |
| >> DIFGPC( | NDPC+2*, NDPC+3*, DICS+1 |
| >> DIFGPTER( | NDPC+4*, DICS+5 |
| >> DIFGSAVX | DATE+1* |
| DIFGSET | SETCODES+1*, SETCODES+2! |
| >> DIFGSKIP( | BASE+2* |
| >> DIFGVAL( | GETVAL+1*, GETVAL+2*, SETCODES+1*, DATE+1* |
| >> DIFGXRF( | BASE+1!, BASE+6* |
| >> DIFGY | DATE+2, BASE+5, FUNC+3 |
| U | NDPC+4, SETCODES+1, DATE+2, BASE+2, BASE+3, BASE+4, BASE+5, BASE+6, FUNC+3 |
| >> X | DATE+1*, BASE+3* |
| >> Y | DATE+1, DATE+2, BASE+2* |
