AGEDGUAR ; IHS/ASDS/TPF - EDIT/DISP GUARANTOR SCREEN ;
Source file <AGEDGUAR.m>
Package | Total | Caller Graph |
---|---|---|
IHS Patient Registration | 3 | AG2A AGED4A AGED4A01 |
Name | Comments | DBIA/ICR reference |
---|---|---|
NEWEFFDT | ;
|
|
EDITEFF | ;EFF DT
|
|
EDITDEP | ;EP - EDIT RELATIONSHIP FLD OF DEP
|
|
CLEANZER(GD0) | ;EP
|
|
EDITREF | ;REF #
|
|
GETAW | ;
|
|
NEWENTRY | ;EP - CREATE TOP LEVEL
|
|
EDITSEX | ;GENDER
|
|
EDITADD | ;EP
|
|
EDITGUAR | ;GUAR NAME
|
|
1 | ;
|
|
ADDINS | ;EP - ADD INSURER TO AUTNINS
|
|
DRAW | ;EP
|
|
CLEAN(GD0) | ;EP - DEL EMPTY REC
|
|
END | ||
EDITEXP | ;EXP DT
|
|
EN(GD0,GD1,GD2,NEWENTRY,AGSELECT,ALLFLDRQ) | ;EP -
|
|
NEWGUAR | ;
|
|
VAR | ||
SAME(X) | ;EP
|
|
WMSG | ;EP - MSG TO DISP IF NO ENTRY IN FILE
|
|
EDITDOB | ;DOB
|
|
ALLFLDRQ(ARRAY) | ;EP - ARE ALL FLDS ENTERED
|
|
FINDDEP | ;EP - FIND DEPS
|
|
EDITPO | ;PO #
|
|
GETVDIC(VROOT) | ;EP - PROCESS VAR PTR FLD
|
Name | Field # of Occurrence |
---|---|
^AGBAN | ADDINS+1 |
^AGED | DRAW+3 |
UPDATE1^AGED | VAR+28 |
READ^AGED1 | VAR+15 |
EDITCHEK^AGEDERR | GETAW+56 |
FETCHERR^AGEDERR | GETAW+54 |
$$GUARADD^AGEDERR2 | EDITADD+3 |
GETDATES^AGEDGUA1 | GETAW+36 |
$$ISREQ^AGFLDREQ | EDITGUAR+8, EDITREF+7, EDITDOB+7, EDITSEX+7, EDITDEP+8 |
^AGTMINS | ADDINS+1 |
$$ISNONIND^AGUTILS | EN+2 |
$$UPDTSEL^AGUTILS | EN+18, VAR+27 |
VERIF^AGUTILS | GETAW+58 |
$$AGE^AUPNPAT | FINDDEP+13 |
^DIC | NEWENTRY+7, NEWGUAR+17, SAME+11, NEWEFFDT+8 |
^DIE | SAME+22, EDITGUAR+9, EDITREF+8, EDITPO+7, EDITDOB+8, EDITSEX+8, EDITEFF+9, EDITEXP+9, EDITADD+12, EDITDEP+9 |
^DIK | CLEANZER+2 |
$$GET1^DIQ | GETAW+44 |
^DIR | VAR+1, VAR+6, NEWGUAR+5 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^AUPNGUAR - [#9000043] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNGUAR - [#9000043] | VAR+7, CLEAN+1, GETAW+30, GETAW+31, EDITADD+6, FINDDEP+2, FINDDEP+11, FINDDEP+12 |
^AUPNGUAR("C" | FINDDEP+3, FINDDEP+5 |
^AUPNPAT - [#9000001] | FINDDEP+10 |
^AUTTRLSH - [#9999999.36] | FINDDEP+12 |
^DD( | GETAW+22, GETAW+23 |
^DPT - [#2] | SAME+10, SAME+15, SAME+16, FINDDEP+9 |
^XUSEC("AGZMGR" | VAR+4, VAR+5 |
Name | Line Occurrences |
---|---|
$$ALLFLDRQ | VAR+10, VAR+18 |
$$GETVDIC | GETAW+30 |
@( | VAR+23 |
ADDINS | VAR+12 |
CLEAN | VAR+7 |
CLEANZER | EN+6, CLEAN+2 |
DRAW | EN+8, VAR |
EDITDEP | EN+15 |
EDITDOB | EN+11 |
EDITEFF | NEWEFFDT+13 |
EDITEXP | NEWEFFDT+12, EDITEFF+12 |
EDITPO | EN+12 |
EDITSEX | EN+13 |
END | EN+6, VAR+7, VAR+19 |
FINDDEP | GETAW+52 |
GETAW | DRAW+4 |
NEWEFFDT | EN+14, NEWEFFDT+11 |
NEWENTRY | EN+9 |
NEWGUAR | EN+10, NEWGUAR+22 |
SAME | NEWGUAR+9 |
VAR | VAR+8, VAR+10, VAR+12, VAR+16, VAR+18, VAR+19, VAR+21, VAR+30 |
WMSG | EN+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADA | END! |
ADFN | END! |
ADT | END! |
>> AG | GETAW+3* |
>> AG("C" | VAR+23, GETAW+2!, GETAW+18*, GETAW+40*, FINDDEP+8* |
>> AG("DEP" | FINDDEP+1*, FINDDEP+3*, FINDDEP+5, FINDDEP+6, FINDDEP+7, FINDDEP+9, FINDDEP+10, FINDDEP+11, FINDDEP+12, FINDDEP+13 , FINDDEP+14! |
>> AG("ERR" | VAR+19 |
>> AG("FLDCNT" | GETAW+50*, FINDDEP+6*, FINDDEP+7, FINDDEP+8, FINDDEP+9, FINDDEP+15 |
>> AG("GUAR" | FINDDEP+2*, FINDDEP+3, FINDDEP+5, FINDDEP+14! |
>> AG("N" | VAR+14, VAR+21, VAR+23, GETAW+40*, GETAW+49, FINDDEP+15* |
>> AG("PG" | DRAW+1*, GETAW+54 |
>> AG("PREC" | FINDDEP+4*, FINDDEP+5*, FINDDEP+6, FINDDEP+7, FINDDEP+14! |
>> AG("SEL" | VAR+23* |
>> AG("TMPDEP" | GETAW+51!, FINDDEP+6*, FINDDEP+15 |
AGI | VAR+23*, VAR+29! |
>> AGINS | EN+18, VAR+27 |
>> AGLINE("-" | GETAW+57 |
>> AGLINE("EQ" | VAR+2 |
>> AGOPT("ESCAPE" | VAR+9, VAR+16, VAR+17, VAR+18 |
AGSCRN | END!, GETAW+3, GETAW+4*, GETAW+5, GETAW+6, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12 , GETAW+13, GETAW+14, GETAW+15, GETAW+16, GETAW+17 |
>> AGSEENLY | VAR+1 |
AGSELECT | EN~, EN+3, EN+18*, VAR+27*, GETAW+55, EDITADD+3 |
AGY | VAR+22*, VAR+23, VAR+29!, NEWEFFDT+6, EDITDEP+4 |
ALLFLDRQ | EN~, EN+2*, VAR+8, VAR+10, VAR+18, NEWGUAR+22, NEWGUAR+26, NEWEFFDT+11, EDITGUAR+7, EDITGUAR+10 , EDITREF+6, EDITREF+9, EDITPO+5, EDITPO+8, EDITDOB+6, EDITDOB+9, EDITSEX+6, EDITEFF+6, EDITEXP+7, EDITDEP+7 |
>> ALLOW | EDITADD+3*, EDITADD+4 |
ARRAY | ALLFLDRQ~ |
ARRAY( | ALLFLDRQ+3, ALLFLDRQ+4*, ALLFLDRQ+5 |
>> CAPDENT | GETAW+11*, GETAW+22, GETAW+23 |
>> CAPTION | GETAW+6*, GETAW+7, GETAW+22, GETAW+23, GETAW+40 |
COMPIEN | EN+16*, EN+18, EN+20*, VAR+27, END+1! |
>> D0 | GETAW+26*, GETAW+27*, GETAW+28*, GETAW+31*, GETAW+44, GETAW+45* |
DA | CLEANZER+1!, CLEANZER+2*, END!, NEWENTRY+2!, NEWGUAR+10!, SAME+17!, SAME+19*, NEWEFFDT+1!, EDITGUAR+1!, EDITGUAR+4* , EDITGUAR+11, EDITGUAR+12!, EDITREF+1!, EDITREF+3*, EDITREF+10!, EDITPO+1!, EDITPO+3*, EDITPO+9!, EDITDOB+1!, EDITDOB+3* , EDITDOB+10!, EDITSEX+1!, EDITSEX+3*, EDITSEX+9!, EDITEFF+1!, EDITEFF+2*, EDITEFF+10, EDITEFF+11!, EDITEXP+1!, EDITEXP+2* , EDITEXP+10!, EDITADD+1!, EDITADD+7*, EDITDEP+1!, EDITDEP+3*, EDITDEP+4*, EDITDEP+10! |
DA(1 | NEWGUAR+12*, NEWGUAR+14, SAME+5*, SAME+6, SAME+18*, SAME+20, NEWEFFDT+3*, NEWEFFDT+4, EDITGUAR+3*, EDITGUAR+5 , EDITREF+2*, EDITREF+4, EDITPO+2*, EDITPO+4, EDITDOB+2*, EDITDOB+4, EDITSEX+2*, EDITSEX+4, EDITEFF+3*, EDITEFF+5 , EDITEXP+3*, EDITEXP+5, EDITDEP+2*, EDITDEP+4*, EDITDEP+5 |
DA(2 | NEWEFFDT+2*, NEWEFFDT+4, EDITEFF+4*, EDITEFF+5, EDITEXP+4*, EDITEXP+5 |
DD | NEWENTRY+6!, NEWGUAR+16!, SAME+8!, SAME+17!, NEWEFFDT+7!, EDITGUAR+1!, EDITREF+1!, EDITPO+1!, EDITDOB+1!, EDITSEX+1! , EDITEFF+1!, EDITEXP+1!, EDITADD+1!, EDITDEP+1! |
DEFDEPEN | GETAW+1! |
DEFDEPEN( | FINDDEP+7*, EDITDEP+4 |
DEFEDDT | END+1! |
DEFEFFDT | END+1!, GETAW+1! |
DEFEFFDT( | NEWEFFDT+6 |
>> DFN | EN+2, VAR+28, GETAW+55, NEWENTRY+5, NEWGUAR+9, NEWGUAR+11, NEWGUAR+18*, SAME+13*, SAME+15, SAME+16 |
DFOUT | VAR+20, END! |
DIC | END!, GETAW+8*, GETAW+22, GETAW+23, GETAW+27, GETAW+29, GETAW+30*, GETAW+32*, GETAW+33*, GETAW+34* , GETAW+36, GETAW+41, GETAW+42, GETAW+44, GETAW+48, NEWENTRY+2!, NEWENTRY+3*, NEWGUAR+10!, NEWGUAR+14*, SAME+6* , SAME+17!, NEWEFFDT+1!, NEWEFFDT+4*, EDITGUAR+1!, EDITGUAR+12!, EDITREF+1!, EDITREF+10!, EDITPO+1!, EDITPO+9!, EDITDOB+1! , EDITDOB+10!, EDITSEX+1!, EDITSEX+9!, EDITEFF+1!, EDITEFF+11!, EDITEXP+1!, EDITEXP+10!, EDITADD+1!, EDITDEP+1!, EDITDEP+10! |
DIC("B" | NEWEFFDT+6* |
DIC("S" | NEWGUAR+13* |
DIC("V" | SAME+4* |
DIC(0 | NEWENTRY+4*, NEWGUAR+15*, SAME+7*, NEWEFFDT+5* |
DIE | NEWENTRY+2!, NEWGUAR+10!, SAME+17!, SAME+20*, NEWEFFDT+1!, EDITGUAR+1!, EDITGUAR+5*, EDITGUAR+12!, EDITREF+1!, EDITREF+4* , EDITREF+10!, EDITPO+1!, EDITPO+4*, EDITPO+9!, EDITDOB+1!, EDITDOB+4*, EDITDOB+10!, EDITSEX+1!, EDITSEX+4*, EDITSEX+9! , EDITEFF+1!, EDITEFF+5*, EDITEFF+11!, EDITEXP+1!, EDITEXP+5*, EDITEXP+10!, EDITADD+1!, EDITADD+6*, EDITADD+7, EDITADD+8* , EDITADD+9*, EDITADD+10, EDITDEP+1!, EDITDEP+5*, EDITDEP+10! |
DIE("NO^" | EDITGUAR+7*, EDITGUAR+8*, EDITREF+6*, EDITREF+7*, EDITPO+5*, EDITDOB+6*, EDITDOB+7*, EDITSEX+6*, EDITSEX+7*, EDITEFF+6* , EDITEXP+7*, EDITDEP+7*, EDITDEP+8* |
DIK | CLEANZER+1!, CLEANZER+2* |
DIR | VAR+1!, VAR+3!, VAR+13!, NEWGUAR+1!, NEWGUAR+10!, EDITGUAR+1! |
DIR("A" | VAR+1*, VAR+4*, VAR+14*, NEWGUAR+3* |
DIR("B" | NEWGUAR+2* |
DIR(0 | VAR+1*, VAR+5*, NEWGUAR+4* |
>> DIROUT | VAR+11, NEWGUAR+6 |
DLOUT | VAR+19, END! |
DO | NEWENTRY+6!, NEWGUAR+16!, SAME+8!, SAME+17!, NEWEFFDT+7!, EDITGUAR+1!, EDITREF+1!, EDITPO+1!, EDITDOB+1!, EDITSEX+1! , EDITEFF+1!, EDITEXP+1!, EDITADD+1!, EDITDEP+1! |
DQOUT | VAR+21, END! |
DR | END!, GETAW+9*, GETAW+22, GETAW+23, GETAW+32*, GETAW+33*, GETAW+34*, GETAW+38, GETAW+39*, GETAW+41* , GETAW+42*, GETAW+44, NEWENTRY+2!, NEWGUAR+10!, SAME+17!, SAME+21*, NEWEFFDT+1!, EDITGUAR+1!, EDITGUAR+6*, EDITGUAR+7* , EDITGUAR+8*, EDITGUAR+12!, EDITREF+1!, EDITREF+5*, EDITREF+6*, EDITREF+7*, EDITREF+10!, EDITPO+1!, EDITPO+5*, EDITPO+6* , EDITPO+9!, EDITDOB+1!, EDITDOB+5*, EDITDOB+6*, EDITDOB+7*, EDITDOB+10!, EDITSEX+1!, EDITSEX+5*, EDITSEX+6*, EDITSEX+7* , EDITSEX+9!, EDITEFF+1!, EDITEFF+8*, EDITEFF+11!, EDITEXP+1!, EDITEXP+6*, EDITEXP+10!, EDITADD+1!, EDITADD+10*, EDITADD+11* , EDITDEP+1!, EDITDEP+6*, EDITDEP+7*, EDITDEP+8*, EDITDEP+10! |
DR(3 | EDITEFF+6*, EDITEFF+7*, EDITEXP+7*, EDITEXP+8* |
DTOUT | VAR+11, VAR+20, END!, NEWGUAR+6 |
>> DUOUT | VAR+11, VAR+19, NEWGUAR+6 |
DUZ | VAR+4, VAR+5 |
DUZ(2 | VAR+28, GETAW+55, FINDDEP+10 |
>> ENTRY | GETAW+44* |
ENTRYARY | VAR+10, VAR+18, END+1! |
ENTRYARY( | GETAW+44* |
ENTRYARY(1 | NEWGUAR+26*, EDITGUAR+10* |
ENTRYARY(2 | EDITREF+9* |
ENTRYARY(3 | EDITPO+8* |
ENTRYARY(4 | EDITDOB+9* |
>> EXECUTE | GETAW+14*, GETAW+44, GETAW+45 |
>> EXIT | EN+5*, EN+6, EN+9, EN+10, EN+14, NEWENTRY+8*, NEWGUAR+6*, NEWGUAR+20*, SAME+12*, NEWEFFDT+9* |
>> FLAG | GETAW+25*, GETAW+44 |
GD0 | EN~, EN+6, EN+16, EN+18, EN+20, VAR+7, VAR+27, CLEAN~, CLEAN+1, CLEAN+2 , CLEANZER~, CLEANZER+2, GETAW+26, GETAW+30, GETAW+31, GETAW+36, NEWENTRY+9*, NEWGUAR+12, SAME+5, SAME+18 , NEWEFFDT+2, EDITGUAR+3, EDITREF+2, EDITPO+2, EDITDOB+2, EDITSEX+2, EDITEFF+4, EDITEXP+4, EDITADD+6, FINDDEP+2 , EDITDEP+2 |
GD1 | EN~, EN+16, EN+20, VAR+7, CLEAN+1, GETAW+28, GETAW+30, GETAW+31, GETAW+36, NEWGUAR+21* , SAME+14*, SAME+19, NEWEFFDT+3, EDITGUAR+4, EDITREF+3, EDITPO+3, EDITDOB+3, EDITSEX+3, EDITEFF+3, EDITEXP+3 , EDITADD+6, FINDDEP+2, FINDDEP+11, FINDDEP+12, EDITDEP+3 |
GD2 | EN~, EN+16, EN+20, VAR+7, NEWEFFDT+10*, EDITEFF+2, EDITEXP+2 |
GUARDEL | EN+4!, VAR+24, END+1!, EDITGUAR+2*, EDITGUAR+11* |
>> ITEM | ALLFLDRQ+3*, ALLFLDRQ+4, ALLFLDRQ+5 |
>> ITEMNUM | GETAW+12*, GETAW+18, GETAW+20, GETAW+21, GETAW+36*, GETAW+40*, GETAW+44, GETAW+49*, GETAW+50 |
MISSING | ALLFLDRQ+1~, ALLFLDRQ+2*, ALLFLDRQ+5*, ALLFLDRQ+6 |
MYERRS | GETAW+53!, GETAW+54, GETAW+56 |
MYERRS("C" | VAR+8, VAR+16 |
MYVARS | GETAW+53!, GETAW+56 |
MYVARS("DFN" | GETAW+55* |
MYVARS("FINDCALL" | GETAW+55* |
MYVARS("SELECTION" | GETAW+55* |
MYVARS("SITE" | GETAW+55* |
NEWENTRY | EN~, EN+6, EN+19*, END+1!, GETAW+24, GETAW+56 |
>> NEWLINE | GETAW+10*, GETAW+19 |
>> NONPER | EN+3*, NEWGUAR+23*, EDITDOB+6, EDITSEX+6, ALLFLDRQ+4, EDITDEP+7 |
PIECE | GETAW+37~, GETAW+39*, GETAW+43, GETAW+44, GETAW+45, GETAW+46, GETAW+47! |
>> POSTEXEC | GETAW+17*, GETAW+46 |
>> PRECAPEX | GETAW+16*, GETAW+22, GETAW+23 |
>> PREEXEC | GETAW+15*, GETAW+43 |
REC | END+1! |
ROUTID | END+1!, DRAW+2* |
>> SAME | EN+7*, EN+11, EN+13, EN+15, NEWGUAR+8* |
>> SAMEDOB | SAME+16* |
SAMESEX | SAME+3~, SAME+15* |
>> TAGCALL | GETAW+13*, GETAW+18, GETAW+40 |
>> TEMPDFN | NEWGUAR+11*, NEWGUAR+18, SAME+9*, SAME+13 |
U | EN+3, GETAW+6, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+13, GETAW+22, GETAW+23 , GETAW+30, GETAW+31, GETVDIC+2, GETVDIC+3, NEWGUAR+23, SAME+10, SAME+15, SAME+16, NEWEFFDT+12, EDITADD+6 , EDITADD+8, FINDDEP+2, FINDDEP+6, FINDDEP+9, FINDDEP+10, FINDDEP+11, FINDDEP+12 |
VDR | GETAW+38*, GETAW+39, GETAW+47! |
VROOT | GETVDIC~, GETVDIC+1, GETVDIC+2*, GETVDIC+3 |
>> WD0 | GETAW+36* |
WDA | END! |
WDFN | END+1! |
WDT | END! |
X | NEWENTRY+5*, NEWGUAR+7*, NEWGUAR+8, NEWGUAR+9, SAME~, SAME+9, SAME+10*, NEWEFFDT+1!, EDITGUAR+10, EDITREF+9 , EDITPO+8, EDITDOB+9 |
Y | VAR+7, VAR+8, VAR+9, VAR+10, VAR+12, VAR+16, VAR+17, VAR+18, VAR+19, VAR+21 , VAR+22, END!, NEWENTRY+8, NEWENTRY+9, NEWGUAR+7, NEWGUAR+20, NEWGUAR+21, NEWGUAR+22, NEWGUAR+23, NEWGUAR+26 , SAME+12, SAME+14, NEWEFFDT+9, NEWEFFDT+10, NEWEFFDT+11, NEWEFFDT+12 |
Name | Field # of Occurrence |
---|---|
$T( | DRAW+2 |
$T(@1+AG | GETAW+4 |