©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DIFGGI ;SFISC/XAK,EDE(OHPRD)-FILEGRAM INITIALIZATION ;1/19/93 9:45 AM
Source file <DIFGGI.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OPT | ;
|
|
| LC | ||
| FGT | ||
| FVARS | ; SETUP FILE VARIABLES
|
|
| PARM | ||
| REQ | ;
|
|
| DIRECT | ;DIRECT POINTER
|
|
| FGR | ||
| FUNCSFT | ||
| INIT | ; INITIALIZATION
|
|
| LOOKUP | ;COMPUTED FIELD LOOKUP FOR FILE SHIFT
|
|
| SET1 | ; MISC SETS # 1
|
|
| FUNC | ||
| FUNCSFT2 | ||
| FIRST | ; GET PRIMARY FILE VARIABLES
|
|
| TAB | ||
| FE |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | FVARS+2, FVARS+9, DIRECT+2, DIRECT+3, DIRECT+5, LOOKUP+2, LOOKUP+4 |
| ^DIC - [#1] | FVARS+10 |
| ^DIPT - [#.4] | FGT+2, FIRST+1 |
| ^UTILITY("DIFG" | INIT+1! |
| ^UTILITY("DIFGLINK" | INIT+1! |
| Name | Line Occurrences |
|---|---|
| DIRECT | FVARS+8 |
| FIRST | INIT+4 |
| FUNCSFT2 | FUNCSFT |
| FVARS | FIRST+2 |
| LOOKUP | FVARS+11 |
| OPT | INIT+3 |
| REQ | INIT+2 |
| SET1 | INIT+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | FIRST+1, DIRECT+2 |
| ^(0 | FVARS+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | FVARS+7*, FVARS+8!, FVARS+9*, DIRECT+1*, DIRECT+2*, DIRECT+3*, DIRECT+4, DIRECT+5, LOOKUP+2*, LOOKUP+3 , LOOKUP+4 |
| %("N" | DIRECT+5*, DIRECT+6 |
| %("P" | DIRECT+5*, DIRECT+6 |
| >> DIFG( | FIRST+3, FVARS+1*, FVARS+2*, FVARS+3*, FVARS+4*, FVARS+5*, FVARS+6*, FVARS+7*, FVARS+8*, FVARS+9*! , FVARS+10*, DIRECT+1*, DIRECT+2, DIRECT+3, DIRECT+5, DIRECT+6*, LOOKUP+1*, LOOKUP+2, LOOKUP+4, LOOKUP+5* |
| >> DIFG("FE" | FE, FE+1, FIRST+3, FVARS+3 |
| >> DIFG("FGR" | FGR*, FGR+1 |
| >> DIFG("FUNC SF | T" , FUNCSFT, FUNCSFT2, FVARS+5 |
| >> DIFG("FUNC" | FUNC, FUNC+1, FUNC+2, FVARS+3 |
| >> DIFG("PARM" | PARM* |
| >> DIFG("QFLG" | INIT+2, INIT+3, SET1+1*, FE*, FE+1*, FUNC*, FUNC+1*, FUNC+2*, FGT*, FGT+1* , FGT+2*, FGR+2*, FGR+3*, LC*, TAB*, FUNCSFT, FUNCSFT2+1*, FUNCSFT2+2*, FIRST+3* |
| DIFGER | SET1+1! |
| >> DIFGI | SET1+1*, FIRST+1* |
| >> DIFGT | FGT, FGT+1, FGT+2, FIRST+1 |
| >> DILC | LC, LC+1* |
| >> DILL | SET1+1*, FIRST+3, FVARS+1*, FVARS+2, FVARS+3, FVARS+4, FVARS+5, FVARS+6, FVARS+7, FVARS+8 , FVARS+9, FVARS+10, DIRECT+1, DIRECT+2, DIRECT+3, DIRECT+5, DIRECT+6, LOOKUP+1, LOOKUP+2, LOOKUP+4 , LOOKUP+5 |
| >> DITAB | TAB, TAB+1*, FVARS+1* |
| U | SET1+1*, FVARS+1, FVARS+6, FVARS+7, FVARS+8, FVARS+9, FVARS+11, DIRECT+5, DIRECT+6, LOOKUP+2 , LOOKUP+4 |
| >> X | FGR+1*, FGR+2, FGR+3, FUNCSFT*, FUNCSFT2, FIRST+1*, FVARS+1, FVARS+6, FVARS+7, FVARS+8 , FVARS+9, FVARS+11, LOOKUP+2, LOOKUP+5 |
| Y | FUNCSFT2*, FUNCSFT2+1, FUNCSFT2+2, FVARS+8!, DIRECT+5*, DIRECT+6* |