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 |