©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
DIFG2 ;SFISC/DG(OHPRD)-PROCESSING OF MULTIPLES FROM FILEGRAM ; [ 02/02/93 4:21 PM ]
Source file <DIFG2.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | FILE^DIFG (BASE,FUNC)^DIFG0 ^DIFG3 ENADD^DIFG4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET | ;
|
|
| CHANGEDA | ;BACK DOWN ONE LEVEL DA'S, I.E. DA=DA(1),DA(1)=DA(2) ETC.
|
|
| START | ;CALLED BY DIFG
|
|
| NOLOOK | ;IF NO LOOKUP REQUIRED, SET DA ARRAY
|
|
| X1 | ||
| MULT | ;MULTIPLE FIELD LOOKUP AND CALL TO SET DR STRING FOR MULTIPLE
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | MULT+4 |
| ^DIC - [#1] | MULT+1 |
| ^UTILITY("DIFG" | SET+3*, SET+5* |
| Name | Line Occurrences |
|---|---|
| CHANGEDA | START+13 |
| MULT | START+4 |
| NOLOOK | START+7 |
| SET | START+9 |
| X1 | START+5, START+8 |
| Name | Field # of Occurrence |
|---|---|
| ^( | SET+5* |
| ^("DA(" | SET+5* |
| ^("DIC(""P"")" | SET+3* |
| ^("GL" | SET+5* |
| ^("MODE" | SET+3* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DA | MULT+1, NOLOOK+1, SET+1*, SET+2*, SET+5, CHANGEDA+1* |
| >> DA( | NOLOOK+1*, SET+5, CHANGEDA+2*, CHANGEDA+3! |
| >> DA(1 | CHANGEDA+1 |
| DIC | START+2, START+3~, MULT+1, MULT+9*, SET+3, SET+4*, SET+5 |
| >> DIFG | START+1*, START+14* |
| >> DIFG("ACGRV" | START+10!, SET+3 |
| >> DIFG("NOLKUP" | START+6, START+10! |
| DIFGALNK | START+10!, SET+2 |
| >> DIFGDA( | MULT+1*, MULT+7, SET+1*, SET+2* |
| >> DIFGDIC | START+10 |
| >> DIFGDIC( | START+10! |
| DIFGDOL | START+10! |
| >> DIFGENV("LAYGO" | MULT+4 |
| >> DIFGER | START+5, START+8, MULT+9 |
| DIFGFLD | START+10! |
| DIFGFLUS | SET+2, SET+5, SET+6, SET+7! |
| >> DIFGI | NOLOOK+1*, SET+5*, CHANGEDA+2* |
| >> DIFGINCR | SET+3, SET+5 |
| DIFGLAGO | START+10!, MULT+3*, MULT+4* |
| >> DIFGM( | MULT+8*, SET+4 |
| >> DIFGM(0 | START+2*, MULT+1 |
| >> DIFGMGBL( | MULT+1*, MULT+7*, SET+5 |
| DIFGMLND | START+10!, MULT+2, SET+3 |
| >> DIFGMULT | START+2, START+12, MULT+1, MULT+5*, MULT+6, MULT+7, MULT+8, NOLOOK+1, SET+1, SET+2 , SET+4, SET+5, SET+6, CHANGEDA+2, CHANGEDA+3, CHANGEDA+4* |
| >> DIFGNDC | START+2* |
| >> DIFGNODE | MULT+2*, MULT+7 |
| DIFGNOLK | START+10! |
| >> DIFGNUM | MULT+4, MULT+8, MULT+9 |
| DIFGNUMF | START+10! |
| DIFGPC | START+10! |
| >> DIFGSKIP( | START+12!, MULT+6*, SET+1, SET+5, SET+6 |
| DIFGTYP | SET+7! |
| DIFGVAL | START+10! |
| U | MULT+4, SET+3 |
| >> X | SET+3 |
| Y | START+10!, SET+1 |