©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
DIOU ;SFISC/TKW-GENERIC FILEMAN CODE GENERATION UTILITIES ;03:57 PM 5 Dec 2001 [ 12/09/2003 4:33 PM ]
Source file <DIOU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| V | ||
| DTYP(S,F,Y) | ;RETURN DATA TYPES(S) FOR A FIELD
|
|
| GET(S,F,X,Y,DIFLAG) | ;BUILD CODE TO EXTRACT FIELD. S=FILE/SUBFILE#, F=FIELD#, X=LOCAL VARIABLE NAME WHERE FIELD WILL BE STORED. CODE RETURNED IN Y
; DIFLAG["I" if internal value of field (no output transform) |
|
| V2 | ||
| P | ||
| S | ||
| GREF(I,J,F) | ;BUILD GLOBAL REFERENCE (I & J ARRAY FROM BIJ, CODE RETURNED IN F)
|
|
| QD | ||
| CAL | ||
| Y | ||
| X | ||
| BIJ(S,F,I,J) | ;BUILD I & J ARRAY. S=(SUB)FILE#, F=FIELD#
|
|
| D2 | ||
| GLRF(S,F,X,%) | ;BUILD GLOBAL REFERENCE (S=(SUB)FILE#,F=FIELD NO.,%=CLOSE PARENTHESIS, RETURN PIECE IN %, X=OUTPUT VARIABLE.)
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | BIJ+1, BIJ+3, GREF+1, GLRF+1, GLRF+4, GLRF+6, GET+2, DTYP+2, D2, D2+4 , V2 |
| ^DI( | D2+2 |
| ^DIC - [#1] | X, CAL+1 |
| Name | Line Occurrences |
|---|---|
| BIJ | GLRF+1 |
| CAL | GET+6 |
| D2 | P |
| DTYP | V2+2 |
| GLRF | GET+4 |
| QD | D2+8, D2+9 |
| V2 | V, V2, V2+4 |
| X | BIJ+2 |
| Y | P, Y, V2+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | D2+2 |
| ^("GL" | CAL+1 |
| ^("UP" | BIJ+1 |
| ^(0 | GLRF+6, GET+2, D2+1 |
| ^(2 | GET+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | BIJ+1~, BIJ+3*, GREF+1~*, GREF+2, GLRF~, GLRF+3, GLRF+4*, GLRF+5, GLRF+6*, GET+2~* , GET+14, CAL, D2~, D2+1*, D2+2, D2+3, D2+4, D2+5, D2+11, P! , V2+4! |
| %(1 | GLRF+6*, D2+1*, S |
| %(2 | GET+2*, GET+14, P*, Y*, Y+1*, V2+1*, V2+3 |
| %(3 | Y* |
| %(4 | D2+1*, D2+8* |
| %X | D2~, V2+3* |
| %Y | D2~, V2+3* |
| >> DCC | X+1 |
| DIFLAG | GET~, GET+13 |
| DITYP | D2~, D2+1*, D2+2*, D2+3, D2+6*, D2+7, D2+8, D2+9, D2+11, P , V, S, QD |
| DN | GET+3~, GET+7*, GET+8*, GET+9*, GET+12 |
| E | GET+3~, GET+7*, GET+8*, GET+9*, GET+10*, GET+11, GET+12, CAL*, CAL+1* |
| F | BIJ~, BIJ+3*, GREF~, GREF+1*, GREF+2*, GLRF~, GLRF+1, GLRF+4, GLRF+6, GET~ , GET+2, GET+4, GET+5, CAL+1, DTYP~, DTYP+2, D2, P*, V2 |
| I | BIJ~, GREF~, GLRF+1~, GET+3~, D2~, D2+2*, P*, S*, Y+1, V2* , V2+2 |
| I( | BIJ+3*, X*, GREF+1, GREF+2, GLRF+2, GLRF+6 |
| J | BIJ~, X*, X+1*, GREF~, GREF+2, GLRF+1~, GLRF+3, GET+3~, D2~, V2+2 , V2+3, V2+4! |
| J("T" | V2+3! |
| J(0 | BIJ+1*, GREF+1, GLRF+2, GLRF+6 |
| K | GLRF+1~, GLRF+2* |
| L | GLRF+1~, GLRF+2* |
| P | GET+3~, GET+4*, GET+5, GET+6, GET+8, GET+9, GET+10 |
| P(1 | GET+5 |
| S | BIJ~, BIJ+1, BIJ+3*, X, GLRF~, GLRF+1, GLRF+4, GLRF+6, GET~, GET+2 , GET+4, CAL+1, DTYP~, DTYP+2, D2, P*, V2 |
| U | BIJ+3, GLRF+4, GLRF+6, GET+14, CAL, D2+1, D2+4, V2 |
| X | BIJ+1~*, BIJ+2, BIJ+3, GLRF~, GLRF+2*, GLRF+3*, GLRF+5*, GET~, GET+5, GET+12 , GET+14, CAL+1, CAL+2, D2~, V*, S*, V2*, V2+1, V2+3 |
| X(1 | S* |
| Y | BIJ+1~*, BIJ+3*, GREF+1~*, GLRF+1~, GLRF+2*, GET~, GET+2!, GET+4, GET+5*, GET+11! , GET+12*, GET+14*, CAL*, CAL+1*, CAL+2*, DTYP~, DTYP+1!*, DTYP+2*, D2+4*, D2+5* , D2+7*, D2+10 |
| Y( | D2+5*, QD |
| Y("D" | D2+8* |
| Y("S" | S* |
| Y("T" | D2+11*, QD*, V2+3* |
| Y("V" | V2+1*, V2+3* |