©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
AGFLDREQ ; IHS/SD/TPF - DEVELOPER TOOL TO ADD REQUIRED FIELDS TO THE REQUIRED FIELD MULTIPLE IN THE REGISTRATION PARAMETER FILE
Source file <AGFLDREQ.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDIT | ;EP - CALLED FROM INPUT TEMPLATE 'AGFAC' TO EDIT SITE SPECIFIC REQUIRED FIELDS
|
|
| ISREQ(FILENUM,FIELDNUM) | ;EP - USE TO VERIFY A SITE SPECIFIC MANDATORY FIELD IS SET FOR REQUIRED
|
|
| SUBFILES(TOPFILE,X,Y) | ;GO THROUGH THE NEXT LEVEL OF SUB FILES AND FIND
|
|
| ALTREQ(FILENUM,FIELDNM) | ;EP - ALTERNATE CHECK FOR SITE SPECIFIC MANDATORY FIELDS (HANDLES MULTIPLE SUBFIELDS)
|
|
| RESTRICT(IEN) | ;EP - RESTRICT FILE CHOICE TO PATIENT REG FILES OR
|
|
| GETFIELD(A,B,X) | ;EP - CALLED FROM INPUT TRANSFORM OF FIELD 9009061.1101 'REQUIRED FIELD NAME' SUB-FIELD
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^AGFAC - [#9009061] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AGFAC - [#9009061] | GETFIELD+3, ISREQ+6, ISREQ+8, ISREQ+10, EDIT+10, EDIT+12, EDIT+17, EDIT+18, ALTREQ+4, ALTREQ+5 , ALTREQ+6 |
| ^DD( | SUBFILES+4 |
| Name | Line Occurrences |
|---|---|
| SUBFILES | GETFIELD+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EDIT+6~ |
| A | GETFIELD~, GETFIELD+3 |
| B | GETFIELD~, GETFIELD+3 |
| D | EDIT+6~ |
| D0 | EDIT+6~ |
| DA | EDIT+4, EDIT+6~, EDIT+20!, EDIT+21*, EDIT+33!, EDIT+34*, EDIT+38!, EDIT+42!, EDIT+43*, EDIT+47! |
| DA(1 | EDIT+23*, EDIT+24 |
| DA(2 | EDIT+22*, EDIT+24 |
| DC | EDIT+6~ |
| DE | EDIT+6~ |
| DG | EDIT+6~ |
| DH | EDIT+6~ |
| DI | EDIT+6~ |
| DIA | EDIT+6~ |
| DIC | GETFIELD+1~, GETFIELD+4*, SUBFILES+2~, SUBFILES+5*, EDIT+6~, EDIT+20! |
| DIC(0 | GETFIELD+5*, SUBFILES+6* |
| DIE | GETFIELD+1~, SUBFILES+2~, EDIT+6~, EDIT+20!, EDIT+24*, EDIT+33!, EDIT+35*, EDIT+38!, EDIT+42!, EDIT+44* , EDIT+47! |
| DIE("NO^" | EDIT+28* |
| DIEDA | EDIT+6~ |
| DIEL | EDIT+6~ |
| DIETMP | EDIT+6~ |
| DIFLD | EDIT+6~ |
| DIIENS | EDIT+6~ |
| DILK | EDIT+6~ |
| DIP | EDIT+6~ |
| DISYS | EDIT+6~ |
| DK | EDIT+6~ |
| DL | EDIT+6~ |
| DM | EDIT+6~ |
| DO | GETFIELD+1~, SUBFILES+2~, EDIT+6~ |
| DP | EDIT+6~ |
| DQ | EDIT+6~ |
| DR | EDIT+6~, EDIT+20!, EDIT+25*, EDIT+33!, EDIT+36*, EDIT+38!, EDIT+42!, EDIT+45*, EDIT+47! |
| DR(2 | EDIT+26* |
| DR(3 | EDIT+27* |
| DSC | EDIT+6~ |
| DU | EDIT+6~ |
| DUZ(2 | ISREQ+6, ISREQ+8, ISREQ+10, ALTREQ+4, ALTREQ+5, ALTREQ+6 |
| DV | EDIT+6~ |
| DW | EDIT+6~ |
| DXS | EDIT+6~ |
| ERROR | ISREQ+1!, ISREQ+4, EDIT+7!, EDIT+14 |
| FACIEN | EDIT+3~, EDIT+4*, EDIT+10, EDIT+12, EDIT+17, EDIT+18, EDIT+22, EDIT+34, EDIT+43 |
| FDIEN | ALTREQ+3~, ALTREQ+5*, ALTREQ+6 |
| FIELDIEN | ISREQ+2~, ISREQ+8*, ISREQ+9, ISREQ+10, EDIT+18*, EDIT+21 |
| >> FIELDNAM | ISREQ+5*, ISREQ+8, EDIT+16*, EDIT+17*, EDIT+18, EDIT+19, EDIT+32, EDIT+41 |
| FIELDNM | ALTREQ~, ALTREQ+5 |
| FIELDNUM | ISREQ~, ISREQ+3, EDIT+3~ |
| FILEIEN | ISREQ+2~, ISREQ+6*, ISREQ+7, ISREQ+8, ISREQ+10, EDIT+3~, EDIT+11*, EDIT+12*, EDIT+17, EDIT+18 , EDIT+23 |
| FILENUM | ISREQ~, ISREQ+3, ISREQ+6, EDIT+3~, EDIT+9*, EDIT+10*, EDIT+12, EDIT+13, EDIT+32, EDIT+41 , ALTREQ~, ALTREQ+4 |
| FLIEN | ALTREQ+3~, ALTREQ+4*, ALTREQ+5, ALTREQ+6 |
| IEN | RESTRICT~ |
| L | EDIT+6~ |
| RETURN | ISREQ+1!, EDIT+7! |
| RETURN("LABEL" | ISREQ+5 |
| RETURN("NAME" | EDIT+15 |
| >> SUBFILE | SUBFILES+3*, SUBFILES+4*, SUBFILES+5 |
| TOPFILE | GETFIELD+3*, GETFIELD+4, GETFIELD+8, SUBFILES~, SUBFILES+3, SUBFILES+4 |
| U | GETFIELD+3, GETFIELD+10, ISREQ+10, ALTREQ+6 |
| X | GETFIELD~, GETFIELD+8, GETFIELD+9!, GETFIELD+10*, SUBFILES~, EDIT+6~ |
| Y | GETFIELD+1~, GETFIELD+8, GETFIELD+9, GETFIELD+10, SUBFILES~, SUBFILES+4, EDIT+6~, EDIT+10, EDIT+12, EDIT+17 |