Routine: AGGPOLCY

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN FILE^DIE $$IENS^DILF $$GET1^DIQ
Patient Registration GUI	3	EDIT^AGGEXPRT ($$DATE,$$FMTE,$$HRN)^AGGUL1 PARS^AGGUPPVT

Entry Points

Name	Comments	DBIA/ICR reference
DNE	;
HDR	;
EN(DATA,INSN,POLH)	; EP -- AGG GET POLICY MEMBERS ; Input ; INSN - Insurer IEN ; POLH - Policy Holder IEN
UPOL(DATA,MBDFN,AGGPIINS,AGGPLHIN,PROC,PARMS)	; EP - AGG UPDATE POLICY MEMBER ; Input ; PROC - 'A' to add, 'E' to edit, 'D' to delete ; MBDFN - Selected Member IEN ; AGGPIINS - Insurer IEN ; AGGPLHIN - Policy Holder IEN ; PARMS - Parameters
UP	;
DONE	;
INIT(DATA,TRANSTYP,AGGPLIEN)	;EP -- AGG POLICY MEMBER TRIGGER
MBTR(DATA,MBDFN)	;EP -- AGG MEMBER TRIGGER
DATE(DATA,AGGPLIEN)	;EP -- AGG HOLDER DATES

External References

Name	Field # of Occurrence
EDIT^AGGEXPRT	DNE+10
$$DATE^AGGUL1	UPOL+89
$$FMTE^AGGUL1	EN+32, INIT+20, INIT+24, DATE+10, DATE+11
$$HRN^AGGUL1	EN+31, MBTR+12
PARS^AGGUPPVT	UPOL+64
^DIC	UPOL+61
FILE^DICN	UPOL+54
FILE^DIE	UPOL+36, UPOL+103, UPOL+104, DNE+9
$$IENS^DILF	EN+21, UPOL+34, UPOL+68, UPOL+85, UPOL+88
$$GET1^DIQ	EN+22, EN+23, EN+24, EN+25, EN+26, EN+27, EN+28, EN+29, EN+30, UPOL+23 , UPOL+94, UPOL+95, UPOL+96, UPOL+97, UPOL+99, INIT+16, INIT+20, INIT+24, DATE+10, DATE+11

Used in RPC

RPC Name	Call Tags
AGG GET POLICY MEMBERS	EN
AGG DELETE POLICY MEMBER	DEL
AGG UPDATE POLICY MEMBER	UPOL
AGG POLICY MEMBER TRIGGER	INIT
AGG MEMBER TRIGGER	MBTR
AGG HOLDER DATES	DATE

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPN3PPH - [#9000003.1]	GET1^DIQ
^AUPNPRVT - [#9000006]	Classic Fileman Calls
9000006.11	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGG(9009068.3 - [#9009068.3]	UPOL+16, UPOL+21, UPOL+73, UPOL+75, UPOL+76, UPOL+77, UPOL+81, DNE+13
^AUPNPRVT - [#9000006]	EN+19, UPOL+27, UPOL+51, UPOL+58*
^AUPNPRVT("C"	EN+16, EN+18, UPOL+26
^AUTTRLSH - [#9999999.36]	UPOL+100
^DD(9000006	UPOL+60
^DPT - [#2]	EN+31, MBTR+11
^TMP("AGGMBTRG"	MBTR+3
^TMP("AGGPHDATE"	DATE+3
^TMP("AGGPMTRG"	INIT+3
^TMP("AGGPOLCY"	EN+7
^TMP("AGGUPOL"	UPOL+9

Label References

Name	Line Occurrences
DNE	UPOL+31
HDR	INIT+8, MBTR+8
UP	INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+18, INIT+22, INIT+25, MBTR+10, MBTR+11 , MBTR+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABLE	INIT+1~, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+18, INIT+22, INIT+25, UP+1 , MBTR+1~, MBTR+10, MBTR+11, MBTR+12*
AGGDATA	UPOL+103, DNE+14!
AGGDATA(	UPOL+90, UPOL+96, UPOL+97*
AGGDATAI	UPOL+104, DNE+14!
AGGDATAI(	UPOL+86, UPOL+89, UPOL+91, UPOL+94, UPOL+95, UPOL+101
AGGDATAI(9000001	DNE+8*
>> AGGPHEED	UPOL+101, DATE+11*, DATE+12
>> AGGPHESD	DATE+10*, DATE+12
AGGPIIEN	UPOL+7~, UPOL+24, UPOL+28, UPOL+33, UPOL+34, UPOL+57, UPOL+61, UPOL+63, UPOL+65*, UPOL+68 , UPOL+85, UPOL+88, DNE+1
AGGPIINS	UPOL~, UPOL+23*, UPOL+27, UPOL+60
AGGPLHIN	UPOL~, UPOL+23, UPOL+26, UPOL+91, UPOL+94, UPOL+95, UPOL+96, UPOL+97, UPOL+101
AGGPLIEN	INIT~, INIT+16, INIT+20, INIT+24, DATE~, DATE+10, DATE+11
AGGPMREL	UPOL+99*, UPOL+100, DNE+14!
AGGRIEN	UPOL+7~
>> AGGUPD(	UPOL+35*
AGIEN	UPOL+7~, UPOL+16*, UPOL+17, UPOL+21, UPOL+73, UPOL+75, UPOL+76, UPOL+77, UPOL+81, DNE+13
BN	UPOL+7~, UPOL+40, UPOL+41
>> BQ	UPOL+70*, UPOL+71
CCF	EN+20~, EN+29*, EN+32
CCFD	EN+20~, EN+30*, EN+32
CLEAR	INIT+1~, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+18, INIT+22, INIT+25, UP+1 , MBTR+1~, MBTR+10, MBTR+11, MBTR+12*
DA	EN+20~, EN+21, UPOL+32~, UPOL+34, UPOL+68, UPOL+85, UPOL+88*
DA(1	EN+21, UPOL+34, UPOL+60, UPOL+68, UPOL+85, UPOL+88
DATA	EN~, EN+7, EN+8, EN+12, EN+13, EN+14, EN+31, EN+32, DONE+1, UPOL~ , UPOL+9, UPOL+10, UPOL+14, UPOL+18, UPOL+19, UPOL+47, UPOL+48, DNE+3, DNE+4, INIT~ , INIT+3, INIT+4, INIT+9, INIT+26, UP+1, MBTR~, MBTR+3, MBTR+4, MBTR+9, MBTR+13 , DATE~, DATE+3*, DATE+4, DATE+9, DATE+12, DATE+13
DD	UPOL+54!
>> DEF	UPOL+18
DIC	UPOL+52~, UPOL+53, UPOL+56~, UPOL+59
DIC("P"	UPOL+60*
DIC(0	UPOL+53, UPOL+60
DINUM	UPOL+52~, UPOL+53*
>> DLAYGO	UPOL+53*
DO	UPOL+54!
DT	DNE+8
DUZ	DNE+8
ERROR	UPOL+7~, DNE+2, DNE+14!
ERROR("DIERR"	DNE+2
>> EXEC	UPOL+77*, UPOL+78
>> FIELD	UPOL+75*, UPOL+79, UPOL+80, UPOL+84, UPOL+86, UPOL+87, UPOL+89, UPOL+90
>> FILE	UPOL+21*, UPOL+35, UPOL+86, UPOL+89, UPOL+90, UPOL+91, UPOL+94, UPOL+95, UPOL+96, UPOL+97 , UPOL+99
FROM	EN+20~, EN+23*, EN+32
HDR	INIT+1~, INIT+9, HDR+1, MBTR+1~, MBTR+9, DATE+1~, DATE+8, DATE+9
HELP	INIT+1~, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+18, INIT+22, INIT+25, UP+1 , MBTR+1~, MBTR+10, MBTR+11, MBTR+12*
IENS	EN+20~, EN+21, EN+22, EN+23, EN+24, EN+25, EN+26, EN+27, EN+28, EN+29 , EN+30, UPOL+7~, UPOL+32~, UPOL+34, UPOL+35, UPOL+68, UPOL+85, UPOL+86, UPOL+88*, UPOL+89 , UPOL+90, UPOL+91, UPOL+94, UPOL+95, UPOL+96, UPOL+97, UPOL+99
II	EN+5~, EN+9, EN+12, EN+13, EN+14, EN+31, EN+32, DONE+1, UPOL+7~, UPOL+12 , UPOL+14, UPOL+18, UPOL+19, UPOL+47, UPOL+48, DNE+3, DNE+4, INIT+1~, INIT+5, INIT+9 , INIT+26, UP+1, MBTR+1~, MBTR+5, MBTR+9, MBTR+13, DATE+1~, DATE+5, DATE+9, DATE+12* , DATE+13*
IN	EN+5~, EN+17, EN+18, EN+19, EN+21, EN+31, UPOL+25, UPOL+26, UPOL+27, UPOL+28
INSN	EN~, EN+19, EN+32
LIST	UPOL+7~, UPOL+40, UPOL+41, UPOL+43, UPOL+44!
MBDFN	UPOL~, UPOL+26, UPOL+27, UPOL+34, UPOL+51, UPOL+53, UPOL+58, UPOL+59, UPOL+60, UPOL+68 , UPOL+85, UPOL+88, DNE+8, DNE+10, MBTR~, MBTR+10, MBTR+11, MBTR+12
MBIEN	UPOL+7~, UPOL+63*, UPOL+65
MBNM	EN+20~, EN+27*, EN+32
MEM	EN+20~, EN+25*, EN+31
MM	EN+5~, EN+15, EN+16, EN+18, EN+19, EN+21, EN+31
>> NAME	UPOL+72, UPOL+73, UPOL+86, UPOL+89, UPOL+90, DNE+12, DNE+13*
PARMS	UPOL~, UPOL+38, UPOL+39, UPOL+42!, UPOL+43, UPOL+46, UPOL+70, UPOL+71
PARMS(	UPOL+41
PC	EN+20~, EN+26*, EN+31
PCP	EN+20~, EN+28*, EN+32
>> PDATA	UPOL+71*, UPOL+72
>> PFIEN	UPOL+73*, UPOL+74, UPOL+75, UPOL+76, UPOL+77, UPOL+81
POLH	EN~, EN+16, EN+18, EN+27, EN+32
PROC	UPOL~, UPOL+31, UPOL+93
>> PTYP	UPOL+81*, UPOL+83, UPOL+89
REL	EN+20~, EN+22*, EN+32
>> REQ	INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+18, INIT+22, INIT+25, UP+1, MBTR+10* , MBTR+11, MBTR+12
>> RESULT	DNE+1, DNE+2, DNE+3, DNE+7
>> SECFLD	UPOL+76*, UPOL+79, UPOL+80
SOURCE	INIT+1~, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+18, INIT+22, INIT+25, UP+1 , MBTR+1~, MBTR+10, MBTR+11, MBTR+12*
THRU	EN+20~, EN+24*, EN+32
TRANSTYP	INIT~, INIT+18, INIT+20, INIT+22, INIT+24
TYPE	INIT+1~, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+18, INIT+22, INIT+25, UP+1 , MBTR+1~, MBTR+10, MBTR+11, MBTR+12*
U	EN+19, EN+31, EN+32, UPOL+21, UPOL+27, UPOL+60, UPOL+75, UPOL+76, UPOL+81, UPOL+100 , DNE+1, DNE+2, DNE+7, UP+1, MBTR+11, DATE+12
UID	EN+5~, EN+6, EN+7, UPOL+7~, UPOL+8, UPOL+9, INIT+1~, INIT+2, INIT+3, MBTR+1~ , MBTR+2, MBTR+3, DATE+1~, DATE+2*, DATE+3
VALUE	INIT+1~, INIT+11, INIT+12, INIT+13, INIT+14, INIT+16, INIT+19, INIT+20, INIT+23, INIT+24* , INIT+25, UP+1, MBTR+1~, MBTR+10, MBTR+11, MBTR+12
VISIBLE	INIT+1~, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+18, INIT+22, INIT+25, UP+1 , MBTR+10, MBTR+11, MBTR+12*
X	UPOL+52~, UPOL+53, UPOL+56~, UPOL+60
Y	UPOL+56~, UPOL+61
>> ZTSK	EN+6, UPOL+8, INIT+2, MBTR+2, DATE+2

Customize PDF page

Package: Patient Registration GUI

Routine: AGGPOLCY

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: