AGEDPRV ;IHS/ASDS/TPF - PRIVATE INSURANCE PAGE A ;
Source file <AGEDPRV.m>
Package | Total | Call Graph |
---|---|---|
IHS Patient Registration | 9 | UPDATE1^AGED (EDITCHEK,FETCHERR)^AGEDERR (CONFIRM,PUTPOLH)^AGEDPRV1 EDITPOLM^AGEDPRVI (ADDMEMB,DELMEM)^AGEDPRVP HDR^AGEDPRVU $$ISACTIVE^AGINS EN^AGPHADDR ($$UPDTSEL,$$UPPER,VERIF)^AGUTILS |
VA Fileman | 5 | ^DIC FILE^DICN ^DIK $$GET1^DIQ ^DIR |
Kernel | 1 | $$FMTE^XLFDT |
Package | Total | Caller Graph |
---|---|---|
IHS Patient Registration | 3 | AG7 AGED4A AGED4A3 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ADDINS(ID0,AGINSPTR) | ;EP -
|
|
WMSG | ;EP -
|
|
PULLPATI(NEWPH,X,PATPTR,SAME,EXIT,INSPTR) | ;EP -
|
|
END | ;EP -
|
|
CLEAN11(ID0,ID1) | ;EP-
|
|
EDIT | ;EP
|
|
CLEAN(ID0) | ;EP -
|
|
GETAW(POLHPTR) | ;EP -
|
|
DRAW(POLHPTR) | ;EP -
|
|
ADDPOLH(PATPTR,AGINSPTR,EXIT,POLHPTR) | ;EP - ADD POL HOLD
|
|
PHLOOKUP(X,NEWPH,AGINSPTR) | ;EP -
|
|
EN(ID0,ID1,NEWENTRY,AGSELECT,AGINSPTR,POLHPTR,COVPTR) | ;EP - CALLED BY AG7
|
|
1 | ;
|
|
NEWENTRY(ID0) | ;EP -
|
|
ADDPOLH2 | ||
VAR | ;
|
|
PTLOOKUP(X,NEWPH) | ;EP -
|
|
POLMEM(POLHPTR,POLMCNT,POLMEMBS) | ;EP - DISPLAY POLICY MEMBERS
|
|
CLEANZER(ID0) | ;EP - CLEAN ZERO NODE
|
Name | Field # of Occurrence |
---|---|
UPDATE1^AGED | EDIT+20 |
EDITCHEK^AGEDERR | EN+13, VAR+43, GETAW+59 |
FETCHERR^AGEDERR | EN+10, VAR+40, GETAW+56 |
CONFIRM^AGEDPRV1 | ADDPOLH2+22, ADDPOLH2+26, ADDPOLH2+30 |
PUTPOLH^AGEDPRV1 | PULLPATI+14 |
EDITPOLM^AGEDPRVI | EDIT+15 |
ADDMEMB^AGEDPRVP | VAR+13 |
DELMEM^AGEDPRVP | VAR+16 |
HDR^AGEDPRVU | DRAW+1 |
$$ISACTIVE^AGINS | VAR+36 |
EN^AGPHADDR | VAR+28 |
$$UPDTSEL^AGUTILS | EN+8, EN+27, VAR+38 |
$$UPPER^AGUTILS | ADDPOLH2+19 |
VERIF^AGUTILS | GETAW+60 |
^DIC | NEWENTRY+5, PHLOOKUP+6, PTLOOKUP+5 |
FILE^DICN | ADDINS+19 |
^DIK | CLEAN11+4, CLEANZER+2 |
$$GET1^DIQ | GETAW+37, GETAW+38, GETAW+39, GETAW+40, GETAW+43, GETAW+46, PULLPATI+6, PULLPATI+11 |
^DIR | VAR+3, VAR+8, EDIT+5, ADDINS+7, ADDPOLH2+13 |
$$FMTE^XLFDT | GETAW+38, GETAW+43, POLMEM+29, POLMEM+32 |
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 |
|
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 |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^AUPN3PPH - [#9000003.1] | Classic Fileman Calls |
^AUPNPRVT - [#9000006] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPN3PPH - [#9000003.1] | POLMEM+26 |
^AUPNPAT - [#9000001] | POLMEM+27 |
^AUPNPRVT - [#9000006] | CLEAN+1, POLMEM+8, POLMEM+9, POLMEM+22, POLMEM+25 |
^AUPNPRVT("C" | POLMEM+5, POLMEM+7, POLMEM+11! |
^AUPNPRVT("I" | ADDINS+5 |
^AUTTRLSH - [#9999999.36] | POLMEM+16 |
^DD( | GETAW+21, GETAW+22 |
^DPT - [#2] | ADDPOLH2+19, ADDPOLH2+26, POLMEM+19 |
Name | Line Occurrences |
---|---|
@( | EDIT+16 |
ADDINS | EN+22 |
ADDPOLH | EN+5, EN+24 |
ADDPOLH2 | ADDPOLH2+15 |
CLEAN | EN+22, EN+24, VAR+11, CLEAN11+5 |
CLEAN11 | EN+2, EN+24 |
CLEANZER | CLEAN+1 |
DRAW | EN+19, VAR+2 |
EDIT | VAR+30 |
END | EN+2, EN+21, EN+22, EN+24, VAR+30 |
GETAW | DRAW+2 |
NEWENTRY | EN+21 |
PHLOOKUP | ADDPOLH2+22 |
POLMEM | GETAW+44 |
PTLOOKUP | ADDPOLH2+26 |
PULLPATI | ADDPOLH2+19, ADDPOLH2+26 |
VAR | VAR+10, VAR+13, VAR+14, VAR+46 |
WMSG | EN+20 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADA | END+2! |
ADT | END+2! |
AG | END+1!, GETAW+2* |
AG("C" | EDIT+16, GETAW+1!, GETAW+17*, GETAW+51 |
AG("N" | EDIT+3, EDIT+4, EDIT+12, EDIT+14, GETAW+51* |
AG("PG" | EN+10, EN+15*, VAR+40, GETAW+56 |
AG("SEL" | EDIT+14*, EDIT+15, EDIT+16 |
AGI | EDIT+14*, EDIT+21! |
>> AGINS | EN+8, EN+27, VAR+38 |
AGINSPTR | EN~, EN+5, EN+8, EN+22, EN+24, EN+27, VAR+13, VAR+38, GETAW+29, ADDINS~ , ADDINS+5, ADDINS+15, ADDPOLH~, ADDPOLH2+22, PHLOOKUP~ |
>> AGLINE("-" | GETAW+52 |
>> AGLINE("EQ" | VAR+4 |
>> AGOPT("ESCAPE" | VAR+9, EDIT+6, EDIT+8, EDIT+9 |
AGPH | POLMEM+21~, POLMEM+22*, POLMEM+23, POLMEM+24, POLMEM+25*, POLMEM+26 |
AGSCRN | END+1!, GETAW+2, GETAW+3*, GETAW+4, GETAW+5, GETAW+7, GETAW+8, GETAW+9, GETAW+10, GETAW+11 , GETAW+12, GETAW+13, GETAW+14, GETAW+15, GETAW+16 |
>> AGSEENLY | VAR+3, VAR+10, EDIT+8 |
AGSELECT | EN~, EN+8*, EN+12, EN+27*, VAR+38*, VAR+42, GETAW+58 |
AGY | EDIT+13*, EDIT+14, EDIT+21! |
CALLER | EN+17*, END+2! |
CANCELED | VAR+15!, VAR+16, VAR+17 |
>> CAPDENT | GETAW+10*, GETAW+21, GETAW+22 |
>> CAPTION | GETAW+5*, GETAW+6, GETAW+21, GETAW+22, GETAW+44 |
>> CHOICES | EDIT+7*, EDIT+15 |
CNT | POLMEM+1~, POLMEM+5*, POLMEM+17, POLMEM+18, POLMEM+33 |
>> COMPIEN | EN+7*, EN+8, EN+26*, EN+27, EN+28*, VAR+33*, VAR+35, VAR+38 |
COVPTR | EN~, GETAW+37*, GETAW+42 |
>> D0 | GETAW+24*, GETAW+25*, GETAW+26*, GETAW+29*, GETAW+37*, GETAW+38, GETAW+39, GETAW+40, GETAW+41*, GETAW+42* , GETAW+43, GETAW+46, GETAW+48* |
DA | CLEAN11+1!, CLEAN11+3*, CLEANZER+1!, CLEANZER+2*, END+1!, NEWENTRY+1!, ADDINS+1!, PHLOOKUP+1!, PTLOOKUP+1! |
DA(1 | CLEAN11+2*, CLEAN11+4, ADDINS+17*, ADDINS+18 |
DELALL | VAR+14, VAR+15!, VAR+16, VAR+22 |
>> DFN | PHLOOKUP+5, PHLOOKUP+7*, PTLOOKUP+4, PTLOOKUP+6* |
DFOUT | VAR+28!, EDIT+2!, EDIT+11, END+1! |
DIC | END+1!, GETAW+7*, GETAW+21, GETAW+22, GETAW+25, GETAW+29, GETAW+37, GETAW+38, GETAW+39, GETAW+40 , GETAW+41, GETAW+42, GETAW+43, GETAW+45, GETAW+46, NEWENTRY+1!, NEWENTRY+4*, ADDINS+1!, ADDINS+18*, PHLOOKUP+1! , PHLOOKUP+3*, PTLOOKUP+1!, PTLOOKUP+3* |
DIC("S" | ADDINS+16*, PHLOOKUP+4* |
DIC(0 | NEWENTRY+3*, ADDINS+15*, PHLOOKUP+2*, PTLOOKUP+2* |
DIE | NEWENTRY+1!, ADDINS+1!, PHLOOKUP+1!, PTLOOKUP+1! |
DIK | CLEAN11+1!, CLEAN11+4*, CLEANZER+1!, CLEANZER+2* |
DINUM | ADDINS+1! |
DIR | VAR+3!, VAR+5!, EDIT+1!, NEWENTRY+1!, ADDINS+1!, ADDINS+7!, ADDPOLH2+4!, PHLOOKUP+1!, PTLOOKUP+1! |
DIR("?" | ADDPOLH2+7*, ADDPOLH2+8*, ADDPOLH2+9*, ADDPOLH2+10*, ADDPOLH2+11* |
DIR("??" | ADDPOLH2+12* |
DIR("A" | VAR+3*, VAR+6*, EDIT+3*, ADDINS+7*, ADDPOLH2+5* |
DIR(0 | VAR+3*, VAR+7*, EDIT+4*, ADDINS+7*, ADDPOLH2+5* |
DIROUT | VAR+12, VAR+28!, EDIT+2!, ADDPOLH2+16 |
DIRUT | ADDINS+6!, ADDINS+8 |
DLOUT | VAR+28!, EDIT+2!, EDIT+10, END+1! |
DO | NEWENTRY+1!, ADDINS+1! |
DOUBLE | ADDINS+2~, ADDINS+3*, ADDINS+5* |
DQOUT | VAR+28!, EDIT+2!, EDIT+12, END+1! |
DR | END+1!, GETAW+8*, GETAW+21, GETAW+22, GETAW+31, GETAW+32*, GETAW+38, GETAW+39, GETAW+40, GETAW+41 , GETAW+42, GETAW+43, GETAW+45, GETAW+46, NEWENTRY+1!, ADDINS+1!, PHLOOKUP+1!, PTLOOKUP+1! |
DTOUT | VAR+12, VAR+28!, EDIT+2!, EDIT+11, END+1!, ADDINS+6!, ADDINS+8, ADDPOLH2+16 |
DUOUT | VAR+12, VAR+28!, EDIT+2!, EDIT+10, ADDINS+6!, ADDPOLH2+16 |
DUZ(2 | EN+12, VAR+42, EDIT+20, GETAW+58, POLMEM+27 |
>> EXECUTE | GETAW+13*, GETAW+34, GETAW+48 |
EXIT | EN+1!, EN+2!, EN+5*, EN+18, EN+21*, EN+22*, EN+24, VAR+30, EDIT+6*, ADDPOLH~ , ADDPOLH2+1*, ADDPOLH2+16*, ADDPOLH2+19, ADDPOLH2+26, ADDPOLH2+31*, PULLPATI~, PULLPATI+14 |
FIELD | PULLPATI+1~, PULLPATI+4*, PULLPATI+5, PULLPATI+6, PULLPATI+9*, PULLPATI+10, PULLPATI+11, PULLPATI+14 |
FILE | PULLPATI+1~, PULLPATI+3*, PULLPATI+5, PULLPATI+6, PULLPATI+8*, PULLPATI+10, PULLPATI+11 |
>> FLAG | GETAW+27*, GETAW+46, GETAW+47* |
FN | PULLPATI+1~, PULLPATI+2*, PULLPATI+5*, PULLPATI+6, PULLPATI+7*, PULLPATI+10*, PULLPATI+11, PULLPATI+12* |
FROM | POLMEM+1~, POLMEM+14*, POLMEM+29*, POLMEM+31 |
>> FTARGET | ADDPOLH2+18*, ADDPOLH2+28 |
GLO | VAR+34~, VAR+35*, VAR+36, VAR+37! |
>> GRPPTR | GETAW+40*, GETAW+41 |
ID0 | EN~, EN+2, EN+5, EN+7, EN+11, EN+21, EN+22, EN+24, EN+26, EN+28 , VAR+11, VAR+13, VAR+33, VAR+41, EDIT+20, CLEAN11~, CLEAN11+2, CLEAN11+5, CLEAN~, CLEAN+1 , CLEANZER~, CLEANZER+2, END+2!, DRAW+1, GETAW+24, GETAW+57, NEWENTRY~, NEWENTRY+2, NEWENTRY+7*, ADDINS~ , ADDINS+5, ADDINS+17, ADDPOLH2+19, ADDPOLH2+26 |
ID1 | EN~, EN+2, EN+7, EN+24, EN+26, EN+28, VAR+33, CLEAN11~, CLEAN11+3, END+2! , GETAW+26, ADDINS+20*, ADDPOLH2+19, ADDPOLH2+26 |
INSPTR | PULLPATI~, PULLPATI+14 |
>> ITEMNUM | GETAW+11*, GETAW+17, GETAW+19, GETAW+20 |
LASTDEL | VAR+14, VAR+15!, VAR+16, VAR+18 |
MYERRS | EN+9!, EN+10, EN+13, VAR+39!, VAR+40, VAR+43, GETAW+55!, GETAW+56, GETAW+59 |
MYERRS("C" | VAR+10, EDIT+8 |
MYVARS | EN+9!, EN+13, VAR+39!, VAR+43, GETAW+55!, GETAW+59 |
MYVARS("DFN" | EN+11*, VAR+41*, GETAW+57* |
MYVARS("FINDCALL" | EN+11*, VAR+41*, GETAW+57* |
MYVARS("SELECTION" | EN+12*, VAR+42*, GETAW+58* |
MYVARS("SITE" | EN+12*, VAR+42*, GETAW+58* |
NEWENTRY | EN~, EN+2, EN+18, EN+25*, END+2!, GETAW+23, GETAW+59 |
>> NEWLINE | GETAW+9*, GETAW+18 |
NEWPH | ADDPOLH2+22, ADDPOLH2+26, PHLOOKUP~, PHLOOKUP+9*, PTLOOKUP~, PTLOOKUP+8*, PULLPATI~, PULLPATI+6, PULLPATI+11, PULLPATI+14 |
>> NOPVTB | GETAW+37* |
PATPTR | ADDPOLH~, ADDPOLH2+19, PULLPATI~, PULLPATI+14 |
PIECE | GETAW+30~, GETAW+32*, GETAW+33, GETAW+34, GETAW+48, GETAW+49, GETAW+50! |
POL0 | POLMEM+1~, POLMEM+8*, POLMEM+12 |
POL11 | POLMEM+1~, POLMEM+9*, POLMEM+11, POLMEM+13, POLMEM+14, POLMEM+15, POLMEM+20 |
POLHPTR | EN~, EN+2, EN+5, EN+18, EN+24, VAR+1, VAR+2, VAR+13, VAR+16, VAR+28 , DRAW~, DRAW+2, GETAW~, GETAW+37, GETAW+39*, GETAW+44, ADDPOLH~, ADDPOLH2+21!, ADDPOLH2+22*, PULLPATI+14 , POLMEM~, POLMEM+3, POLMEM+5, POLMEM+7, POLMEM+11 |
POLMCNT | VAR+16, GETAW+44, GETAW+51, POLMEM~, POLMEM+33* |
POLMEM | POLMEM+1~, POLMEM+4*, POLMEM+5*, POLMEM+7, POLMEM+8, POLMEM+9, POLMEM+11, POLMEM+16, POLMEM+18, POLMEM+22 , POLMEM+25, POLMEM+27 |
POLMEMBS | VAR+13, VAR+16!, EDIT+15, GETAW+44, POLMEM~, POLMEM+2! |
POLMEMBS( | POLMEM+18* |
POLMEMBS("SELF" | POLMEM+16* |
POLPTR | END+2! |
>> POSTEXEC | GETAW+16*, GETAW+49 |
>> PRECAPEX | GETAW+15*, GETAW+21, GETAW+22 |
>> PREEXEC | GETAW+14*, GETAW+33 |
>> PTPTR | POLMEM+12*, POLMEM+19 |
REC | END+2! |
RECNO | POLMEM+1~, POLMEM+6*, POLMEM+7*, POLMEM+9, POLMEM+11, POLMEM+18, POLMEM+22, POLMEM+25 |
REGISTER | ADDPOLH2~, ADDPOLH2+1*, ADDPOLH2+19*, ADDPOLH2+22*, ADDPOLH2+26*, ADDPOLH2+28* |
RELATION | POLMEM+1~, POLMEM+13*, POLMEM+16*, POLMEM+28 |
RET | ADDPOLH2+21!, ADDPOLH2+24! |
>> ROUTID | EN+16* |
SAME | ADDPOLH2~, ADDPOLH2+1*, ADDPOLH2+19*, ADDPOLH2+26*, PULLPATI~, PULLPATI+14 |
>> SHOWINAC | VAR+36* |
>> TAGCALL | GETAW+12*, GETAW+17 |
TARGET | ADDPOLH2~, ADDPOLH2+18*, ADDPOLH2+19*, ADDPOLH2+22, ADDPOLH2+26*, ADDPOLH2+27, ADDPOLH2+28*, ADDPOLH2+29 |
>> TEMPDFN | PHLOOKUP+5*, PHLOOKUP+7, PTLOOKUP+4*, PTLOOKUP+6 |
THRU | POLMEM+1~, POLMEM+15*, POLMEM+32* |
>> TMPEXIT | ADDPOLH2+26* |
U | VAR+36, GETAW+5, GETAW+7, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+21, GETAW+22 , ADDPOLH2+19, ADDPOLH2+26, POLMEM+12, POLMEM+13, POLMEM+14, POLMEM+15, POLMEM+16, POLMEM+19, POLMEM+20, POLMEM+22 , POLMEM+25, POLMEM+26, POLMEM+27 |
VDR | GETAW+31*, GETAW+32, GETAW+50! |
WDA | END+2! |
WDT | END+2! |
X | NEWENTRY+2*, ADDINS+1!, ADDINS+15*, ADDPOLH2+18, PHLOOKUP~, PHLOOKUP+8*, PTLOOKUP~, PTLOOKUP+7*, PULLPATI~ |
Y | EN+21, EN+22, VAR+9, VAR+10, VAR+11, VAR+13, VAR+14, VAR+28, VAR+30, EDIT+6 , EDIT+7, EDIT+8, EDIT+9, EDIT+10, EDIT+12, EDIT+13, END+1!, NEWENTRY+6, NEWENTRY+7, ADDINS+7 , ADDINS+8*, ADDINS+20, ADDPOLH2+15, ADDPOLH2+16, PHLOOKUP+8, PHLOOKUP+9, PTLOOKUP+7, PTLOOKUP+8 |
Name | Field # of Occurrence |
---|---|
$T( | EN+16 |
$T(@1+AG | GETAW+3 |