©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
DIFGGSB1 ;SFISC/XAK,EDE(OHPRD)-FILEGRAM SPECIAL BLOCK PART 2 ;8/12/98 13:16
Source file <DIFGGSB1.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | (PTRCHK,SPSPEC)^DIFGGSB2 INCSET^DIFGGU EN^DIQ1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BODY | ||
| IDENT | ; IDENTIFIERS
|
|
| IDENT2 | ||
| IDENT3 | ||
| FIELDS | ||
| DRFIX | ; ADJUST DR FOR MODIFIED/DELETED VALUES
|
|
| P01 | ; .01 FIELD WHEN IT IS A POINTER
|
|
| SETXY | ; If previously looked up pointer set @LINK
|
|
| FIELDS3 | ||
| FIELDS2 | ||
| DRFIX2 | ||
| SPEC2 | ||
| SPEC | ; SPECIFIERS
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | P01+1, SPEC2, IDENT+4, IDENT2+5, IDENT2+8, FIELDS3+3, SETXY+2, SETXY+3 |
| ^DD("KEY" - [#.31] | IDENT+3, IDENT2+2, IDENT2+4 |
| ^UTILITY("DIFGLINK" | SETXY+6, SETXY+7*, SETXY+8*, SETXY+9 |
| ^UTILITY("DIQ1" | SPEC+5!, IDENT+7!, FIELDS+3!, FIELDS2 |
| Name | Line Occurrences |
|---|---|
| DRFIX | FIELDS |
| DRFIX2 | DRFIX+4 |
| FIELDS | SPEC+3, SPEC+4, IDENT+5, IDENT+6 |
| FIELDS2 | FIELDS+6 |
| FIELDS3 | FIELDS+6, DRFIX2+1 |
| IDENT | BODY+7 |
| IDENT2 | IDENT+4 |
| IDENT3 | IDENT+4 |
| P01 | BODY+5 |
| SETXY | P01+3, FIELDS3+1 |
| SPEC | BODY+6 |
| SPEC2 | SPEC+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | FIELDS+6 |
| ^(0 | SETXY+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | SPEC+1*, SPEC+2*, SPEC+3, SPEC+4, SPEC+7!, IDENT+1*, IDENT+5, IDENT+6, IDENT+9!, IDENT3* , DRFIX+4*, DRFIX+6*, DRFIX2~ |
| %( | DRFIX+4*!, DRFIX+6 |
| DA | SPEC+6!, IDENT+8!, FIELDS+4* |
| >> DIAR | IDENT+3 |
| DIC | SPEC+6!, IDENT+8!, FIELDS+4* |
| >> DIFG( | BODY+1, BODY+2, P01+1, SPEC+3, SPEC+4, SPEC+5, SPEC+6, SPEC2, IDENT+3, IDENT+4 , IDENT+5, IDENT+6, IDENT+7, IDENT+8, IDENT2+4, IDENT2+5, IDENT2+8, FIELDS, FIELDS+1, FIELDS+2 , FIELDS+3, FIELDS+4, DRFIX+2, DRFIX+3, DRFIX+4, DRFIX+7, DRFIX+8, FIELDS2, FIELDS3+3, SETXY+2 , SETXY+3, SETXY+4, SETXY+5 |
| >> DIFG("PARM" | FIELDS3+3 |
| >> DIFGGU( | FIELDS, DRFIX+4, SETXY+4 |
| >> DIFGSB( | BODY*, BODY+4, P01+2*, SPEC+1*, SPEC+2*, SPEC2*, IDENT+1*, IDENT+4*, IDENT2+1, IDENT2+2* , IDENT2+3, IDENT2+4, IDENT2+5, IDENT2+6, IDENT2+8*, IDENT3, FIELDS+6*, DRFIX+4*, FIELDS2*, FIELDS3+3 , FIELDS3+4, SETXY+2, SETXY+3, SETXY+4 |
| DIKEY | IDENT+2~*, IDENT2+6*, IDENT2+8 |
| >> DILL | BODY, BODY+1, BODY+2, BODY+4, P01+1, P01+2, SPEC+1, SPEC+2, SPEC+3, SPEC+4 , SPEC+5, SPEC+6, SPEC2, IDENT+1, IDENT+3, IDENT+4, IDENT+5, IDENT+6, IDENT+7, IDENT+8 , IDENT2+1, IDENT2+2, IDENT2+3, IDENT2+4, IDENT2+5, IDENT2+6, IDENT2+8, IDENT3, FIELDS, FIELDS+1 , FIELDS+2, FIELDS+3, FIELDS+4, FIELDS+6, DRFIX+2, DRFIX+3, DRFIX+4, DRFIX+7, DRFIX+8, FIELDS2 , FIELDS3+3, FIELDS3+4, SETXY+2, SETXY+3, SETXY+4, SETXY+5 |
| DIOUT | IDENT2~*, IDENT2+1, IDENT2+6*, IDENT2+7 |
| DIQ | FIELDS+5! |
| DIQ(0 | FIELDS+5* |
| DIXIEN | IDENT+2~*, IDENT+3*, IDENT2+1, IDENT2+2, IDENT2+4, IDENT2+7* |
| DR | SPEC+3*, SPEC+6!, IDENT+5*, IDENT+8!, FIELDS+1, DRFIX+2, DRFIX+7*, DRFIX2~ |
| DR( | SPEC+4*, IDENT+6*, FIELDS+2, DRFIX+3, DRFIX+8* |
| F | FIELDS3+2!, SETXY+3*, SETXY+6, SETXY+8 |
| N | FIELDS3+2!, SETXY+3* |
| P | FIELDS3+2!, SETXY+3*, SETXY+5 |
| T | DRFIX+1~, DRFIX+2*, DRFIX+3*, DRFIX+4, DRFIX+5*, DRFIX+6*, DRFIX+7, DRFIX+8, DRFIX2~ |
| U | P01+1, FIELDS3+3, FIELDS3+4, SETXY+2, SETXY+3, SETXY+5 |
| >> V | FIELDS3+3*, FIELDS3+4*, FIELDS3+5* |
| W | FIELDS3+2!, SETXY+3* |
| X | FIELDS+6*, DRFIX+4*, DRFIX+5*, DRFIX+6*, FIELDS3, FIELDS3+5, FIELDS3+8!, SETXY+6* |
| Y | P01+4, FIELDS3+7, FIELDS3+8!, SETXY+1*, SETXY+4*, SETXY+5*, SETXY+6*, SETXY+8, SETXY+9* |