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 |