©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
DIFG4 ;SFISC/DG(OHPRD)-HANDLES FAILED IDENTIFIER, SPECIFIER, AND FIELD LOOKUPS ; [ 07/15/91 1:30 PM ]
Source file <DIFG4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENADD | ;
|
|
| START | ;
|
|
| ENADD2 | ;SET VARS IF NOT MV FIELD OR FILE
|
|
| DICDR | ;SAVE FLD NUMBERS AND VALUES IN DIC("DR")
|
|
| X2 | ||
| X3 | ||
| X1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | ENADD+4 |
| ^DIC - [#1] | ENADD2+2 |
| ^UTILITY("DIFG" | ENADD+4*, ENADD+5, ENADD2+1*, ENADD2+2*, DICDR+3, DICDR+4, DICDR+5, DICDR+6* |
| Name | Line Occurrences |
|---|---|
| DICDR | ENADD+6 |
| ENADD | START+11 |
| ENADD2 | ENADD+3 |
| X1 | START+1, START+2, START+3, START+4, START+6, START+7, START+8, START+10 |
| X2 | DICDR+4 |
| X3 | ENADD+4 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DICDR+5* |
| ^("DIC(""DR"")" | ENADD+5*, DICDR+3*, DICDR+4* |
| ^("MODE" | ENADD2+2* |
| ^("X" | ENADD2+1* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | X1! |
| >> DIC | ENADD+4 |
| >> DIFG | START+7, START+8, ENADD2+1 |
| >> DIFG("ACGRV" | ENADD2+1 |
| >> DIFG("CONDSET" | START+4, START+5, START+8, START+9 |
| >> DIFG("PARAM" | ENADD+4 |
| >> DIFGADD | START+12*, ENADD+1*, ENADD+2*, ENADD+4, ENADD+5, ENADD2+1, ENADD2+2, DICDR+3, DICDR+4, DICDR+5 , DICDR+6 |
| DIFGADFL | X1! |
| >> DIFGCOND | START+3, START+4, START+6 |
| >> DIFGCOND( | START+7, START+8 |
| >> DIFGDIC | START+7, START+8, ENADD+4, ENADD+5, ENADD+6, ENADD2+1, ENADD2+2, DICDR+3, DICDR+4, DICDR+5 , DICDR+6 |
| >> DIFGDIC( | ENADD+6 |
| DIFGDIGT | ENADD+6*, ENADD+7!, DICDR+1, DICDR+2, DICDR+4, DICDR+5, DICDR+6 |
| >> DIFGDIX | ENADD+4 |
| DIFGDR | ENADD+7! |
| DIFGDRCT | ENADD+6*, ENADD+7!, DICDR+5, DICDR+6* |
| DIFGDRT | ENADD+7! |
| DIFGDRVL | ENADD+7!, DICDR+1*, DICDR+2*, DICDR+4, DICDR+5, DICDR+6, X2! |
| >> DIFGER | START+1*, START+3*, START+4*, START+7*, START+8* |
| >> DIFGFIRP | ENADD+4 |
| >> DIFGI | ENADD+6* |
| >> DIFGINCR | ENADD+1 |
| >> DIFGKEY | ENADD+4 |
| >> DIFGLAGO | START+3, START+4, START+5, START+6, START+7, START+8, START+9, START+10 |
| >> DIFGMO( | START+1 |
| >> DIFGMULT | START+1, ENADD+1 |
| >> DIFGNUMF( | ENADD+6, DICDR+4, DICDR+5, DICDR+6 |
| DIFGPARM | START+1*, X1! |
| >> DIFGSAVE( | ENADD2+1 |
| >> DIFGSKIP( | ENADD+1* |
| DIFGSVN | START+12!, ENADD+1* |
| >> DIFGSVVL( | DICDR+1, DICDR+2 |
| >> DIFGTYP | START+1, START+2, START+3, START+4, START+5, START+6, START+7, START+8, START+9, START+10 , ENADD+1, ENADD+3 |
| >> DIFGY | START+1, START+3, START+4, START+7, START+8, ENADD2+2 |
| U | START+1, START+3, START+4, START+7, START+8, ENADD+4 |
| >> X | ENADD2+1 |