©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
DIFG1 ;SFISC/DG(OHPRD)-SINGLE VALUED FIELDS ; [ 02/03/93 3:17 PM ]
Source file <DIFG1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETDR | ;
|
|
| WPFIELD | ;PROCESS WP FIELD
|
|
| PARSE | ; PARSE AND CHANGE DIFGSECP IF CONTAINS ";"
|
|
| START | ;ASSIGNMENT STATEMENT FOR SINGLE VALUED FIELD
|
|
| LOOKUP | ;FIELD LOOKUP
|
|
| BUILD | ;
|
|
| X2 | ||
| X3 | ||
| X1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | START+5, LOOKUP+4 |
| ^UTILITY("DIFG" | SETDR+1, SETDR+2, SETDR+3, WPFIELD+2*, BUILD+1* |
| ^UTILITY("DIFG@" | START+4, START+7 |
| Name | Line Occurrences |
|---|---|
| BUILD | WPFIELD+3 |
| LOOKUP | START+5 |
| PARSE | START+6 |
| SETDR | START+3, START+9 |
| WPFIELD | START+1 |
| X1 | START+1, START+3, START+8 |
| X2 | START+4, SETDR+2 |
| X3 | LOOKUP+6, LOOKUP+7 |
| Name | Field # of Occurrence |
|---|---|
| ^( | SETDR+3*, SETDR+4* |
| ^("DR" | SETDR+1*, SETDR+2* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DIC | START+5, SETDR+1, SETDR+2, SETDR+3, LOOKUP+4, WPFIELD+2, BUILD+1 |
| >> DIFG | LOOKUP+1*, X3* |
| >> DIFG("COUNT" | WPFIELD+1*, WPFIELD+2, WPFIELD+3*, WPFIELD+4!, BUILD+1 |
| >> DIFG("UNRESOLVED" | START+4 |
| >> DIFGALNK | LOOKUP+8 |
| >> DIFGDIX | START+2, LOOKUP+2, WPFIELD+3, BUILD+1 |
| DIFGDOL | START+10! |
| DIFGDOLF | START+10!, PARSE+1* |
| >> DIFGENV("LAYGO" | LOOKUP+4 |
| >> DIFGER | START+4*, START+8, LOOKUP+6 |
| DIFGFLD | START+10! |
| >> DIFGFLDN | WPFIELD+2 |
| >> DIFGINCR | SETDR+1, SETDR+2, SETDR+3, WPFIELD+2, BUILD+1 |
| >> DIFGL | WPFIELD+3* |
| DIFGLAGO | LOOKUP+3*, LOOKUP+4*, X3+1! |
| >> DIFGLINE | WPFIELD+3 |
| >> DIFGNDC | SETDR+3, SETDR+4* |
| DIFGNOLK | START+10! |
| >> DIFGNUM | START+5, START+7, SETDR+2, SETDR+3, SETDR+4, LOOKUP+4 |
| DIFGPARS | START+10!, PARSE+1*, PARSE+2 |
| DIFGPC | START+10! |
| DIFGSECP | START+2*, START+3, START+4, START+5, START+6, START+7, START+10!, PARSE+1*, PARSE+2* |
| >> DIFGTYPE | START+1 |
| DIFGVAL | START+3*, START+6*, START+7*, START+10!, SETDR+2, SETDR+3, SETDR+4, LOOKUP+7*, LOOKUP+8* |
| >> DIFGY | START+4 |
| I | PARSE+1~* |
| U | START+4, START+5, LOOKUP+4 |
| >> X | LOOKUP+2* |
| Y | LOOKUP+7, X3+1! |