Routine: APCDRF

Package	Total	Call Graph
VA Fileman	4	EN^DDIOL FILE^DICN (,FILE,VAL)^DIE ^DIR
IHS VA Utilities	2	($$VAL,$$VALI)^XBDIQ1 EN^XBNEW
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
GUI Objects	1	BGOREP1
Patient Care Component	1	APCDFH1
iCare	1	BQIPTRPU

Name	Comments	DBIA/ICR reference
EDCTONEW	;EP
PAUSE	;EP
E(V)	;
NEWVAL(E)	;
EDCTONE1	;EP
RHEDIT(APCDIE,APCDPT,APCDDATA,RETVAL)	;PEP - called to edit reproductive hx data fields
SETTOM1	;
DEFEDDF4	;EP - move definitive EDD to EDC 4, 4.05, 4.1
EDDTOED1	;
MULTOSET	;EP - CALLED FROM TRIGGER
MUTOSET1	;
RFADD(P)	;PEP - called to add a patient to the Reproductive Factors file
CMMAP	;;
HASND(X,T,C)	;DOES THIS PATIENT HAVE THIS ONE WITH NO DATE BEGUN?
DEFEDDF	;
TEST	;
SETTOMUL	;EP - called from trigger on 3 field
DEDD	;
EDDTOEDC(APCDF)	;EP - if enter EDD move to old EDC fields 4, 4.05, 4.1
OLDCM(%)	;EP - called from trigger

Name	Field # of Occurrence
EN^DDIOL	DEDD+2, DEDD+5, DEDD+8
FILE^DICN	RFADD+11, SETTOM1+27
^DIE	MUTOSET1+14, MUTOSET1+25, MUTOSET1+27, EDCTONE1+6, EDCTONE1+8, EDCTONE1+10, EDCTONE1+12, EDDTOED1+4, DEFEDDF+5, DEFEDDF+8
FILE^DIE	RHEDIT+44
VAL^DIE	RHEDIT+35
^DIR	PAUSE+1
$$VAL^XBDIQ1	SETTOM1+7, MUTOSET1+24, DEDD+1, DEDD+4, DEDD+7
$$VALI^XBDIQ1	EDDTOED1+4, DEFEDDF+3, DEFEDDF+8
EN^XBNEW	SETTOMUL+5, MULTOSET+9, EDCTONEW+7, EDDTOEDC+8, DEFEDDF4+6
$$NOW^XLFDT	EDDTOED1+4, DEFEDDF+8

FileNo	Call Tags
^AUPNREP - [#9000017]	Classic Fileman Calls, VAL^DIE

Name	Line Occurrences (* Changed, ! Killed)
^AUPNREP - [#9000017]	RFADD+6, RHEDIT+17, SETTOMUL+4, SETTOM1+9, SETTOM1+10, SETTOM1+16, HASND+3, MULTOSET+8, MUTOSET1+5, MUTOSET1+6 , MUTOSET1+7, MUTOSET1+9, MUTOSET1+10, MUTOSET1+18, MUTOSET1+20, MUTOSET1+21, MUTOSET1+26, EDCTONEW+6, EDCTONE1+3, EDCTONE1+4 , EDDTOEDC+7, DEFEDDF4+5
^AUPNREP("ACON"	SETTOM1+16
^AUTTCM - [#99999.11]	MUTOSET1+23
^AUTTCM("B"	SETTOM1+14
^DD(9000017	RHEDIT+30, SETTOM1+23
^DPT - [#2]	RFADD+4, RFADD+5, RHEDIT+11, RHEDIT+12

Name	Line Occurrences
$$HASND	SETTOM1+17
$$NEWVAL	SETTOM1+12
$$RFADD	RHEDIT+17
E	RHEDIT+30, RHEDIT+36, RHEDIT+47
RHEDIT	TEST+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OLDCM~
APCDC	RHEDIT+15~, RHEDIT+16, E+1, MUTOSET1+4~, MUTOSET1+7*, MUTOSET1+8
APCDCM	MUTOSET1+4~
APCDCM(	MUTOSET1+11*, MUTOSET1+15
APCDCM(""	MUTOSET1+13
APCDCOM	SETTOM1+5~, SETTOM1+6, SETTOM1+18, SETTOM1+25, MUTOSET1+1~, MUTOSET1+2*
APCDDA	SETTOMUL+1~, MULTOSET+3~, MULTOSET+4*, MULTOSET+7
APCDDA1	SETTOMUL+1~, SETTOMUL+2, SETTOMUL+3, SETTOMUL+4, SETTOM1+7, SETTOM1+9, SETTOM1+10, SETTOM1+16, SETTOM1+17, SETTOM1+20 , SETTOM1+22, MULTOSET+3~, MULTOSET+5, MULTOSET+6, MULTOSET+8, MUTOSET1+5, MUTOSET1+6, MUTOSET1+7, MUTOSET1+9, MUTOSET1+10 , MUTOSET1+14, MUTOSET1+18, MUTOSET1+20, MUTOSET1+21, MUTOSET1+24, MUTOSET1+25, MUTOSET1+26, MUTOSET1+27, EDCTONEW+3~, EDCTONEW+4* , EDCTONEW+5, EDCTONEW+6, EDCTONE1+3, EDCTONE1+4, EDCTONE1+6, EDCTONE1+8, EDCTONE1+10, EDCTONE1+12, EDDTOEDC+4~, EDDTOEDC+5* , EDDTOEDC+6, EDDTOEDC+7, EDDTOED1+4, DEFEDDF4+2~, DEFEDDF4+3*, DEFEDDF4+4, DEFEDDF4+5, DEFEDDF+3, DEFEDDF+5, DEFEDDF+8
APCDDATA	RHEDIT~, RHEDIT+19
APCDDATA(	RHEDIT+28, RHEDIT+29!, RHEDIT+30!, RHEDIT+31, RHEDIT+36!, RHEDIT+37*, RHEDIT+40, RHEDIT+41
APCDDATA(""	RHEDIT+21
APCDDB	MUTOSET1+4~, MUTOSET1+9*, MUTOSET1+11
>> APCDDE	MUTOSET1+10*
APCDDEFI	EDCTONEW+2, DEFEDDF+1~, DEFEDDF+2*
APCDE	RHEDIT+26~, RHEDIT+33!, RHEDIT+43!
APCDE("DIERR"	RHEDIT+36
APCDE(0	RHEDIT+45, RHEDIT+46, RHEDIT+47
>> APCDEDD	EDCTONE1+3*, EDCTONE1+6, EDCTONE1+8, EDCTONE1+10, EDCTONE1+12
APCDEDDI	EDCTONEW+1, EDDTOEDC+2~, EDDTOEDC+3*
APCDF	RHEDIT+26~, RHEDIT+28, RHEDIT+29, RHEDIT+30, RHEDIT+31, RHEDIT+35, RHEDIT+36, RHEDIT+37, RHEDIT+40, RHEDIT+41 , EDDTOEDC~, EDDTOED1+2, EDDTOED1+4, DEFEDDF+1~, DEFEDDF+3, DEFEDDF+4, DEFEDDF+5, DEFEDDF+6, DEFEDDF+8
APCDFDA	RHEDIT+15~, RHEDIT+39!
APCDFDA(9000017	RHEDIT+41*
APCDFPBD	SETTOM1+5~, SETTOM1+9, SETTOM1+16, SETTOM1+17, SETTOM1+25, MUTOSET1+1~, MUTOSET1+13, MUTOSET1+14, MUTOSET1+15, MUTOSET1+20* , MUTOSET1+25, MUTOSET1+26, MUTOSET1+27
APCDFPDT	SETTOM1+5~, SETTOM1+10, MUTOSET1+1~, MUTOSET1+21
APCDFPV	SETTOM1+5~, SETTOM1+7, SETTOM1+8, SETTOM1+12, SETTOM1+16, SETTOM1+17, SETTOM1+18, MUTOSET1+1~, MUTOSET1+18, MUTOSET1+19 , MUTOSET1+23
APCDHOW	EDCTONE1+4, EDCTONE1+5, EDCTONE1+7, EDCTONE1+9, EDCTONE1+11, EDDTOED1+1~, EDDTOED1+2, EDDTOED1+3, EDDTOED1+4, DEFEDDF+1~ , DEFEDDF+6*, DEFEDDF+7, DEFEDDF+8
APCDI	RHEDIT+26~, RHEDIT+33!, RHEDIT+34, RHEDIT+35, RHEDIT+37, RHEDIT+45, RHEDIT+46, RHEDIT+47
APCDIE	RHEDIT~, RHEDIT+14*, RHEDIT+27
APCDIEDC	EDCTONE1+1~, EDCTONE1+2*, EDDTOEDC+1, DEFEDDF4+1
APCDIENS	RHEDIT+15~, RHEDIT+22*, RHEDIT+35, RHEDIT+41
APCDIENS(1	RHEDIT+23*
APCDINMU	MUTOSET1+1~, MUTOSET1+2*
APCDISNG	SETTOM1+5~, SETTOM1+6*
APCDLORI	TEST+2!, TEST+17
APCDLORI(	TEST+6, TEST+8
APCDLORI(1103	TEST+4, TEST+9
APCDLORI(1105	TEST+10*
APCDLORI(1107	TEST+11*
APCDLORI(1109	TEST+12*
APCDLORI(1111	TEST+13*
APCDLORI(1113	TEST+14*
APCDLORI(1131	TEST+15*
APCDLORI(1133	TEST+16*
APCDLORI(2	TEST+3*
APCDLORI(4	TEST+7*
APCDM	MUTOSET1+4~
APCDPT	RHEDIT~, RHEDIT+10, RHEDIT+11, RHEDIT+12, RHEDIT+17, RHEDIT+22, RHEDIT+23, RHEDIT+48
APCDT	SETTOM1+5~, SETTOM1+14*, SETTOM1+15, SETTOM1+16, SETTOM1+17, SETTOM1+24, MUTOSET1+1~
APCDTE	SETTOM1+5~, SETTOM1+12, SETTOM1+13, SETTOM1+14, SETTOM1+18, MUTOSET1+1~, MUTOSET1+23, MUTOSET1+24, MUTOSET1+27
APCDTEXT	NEWVAL+1~, NEWVAL+3*
APCDV	RHEDIT+26~, RHEDIT+31*, RHEDIT+32, RHEDIT+35
>> APCDVAL	RHEDIT+13*
APCDX	SETTOM1+5~, SETTOM1+16, MUTOSET1+4~, MUTOSET1+5, MUTOSET1+6, MUTOSET1+7, MUTOSET1+9, MUTOSET1+10, MUTOSET1+11, MUTOSET1+15* , MUTOSET1+16, MUTOSET1+17*, MUTOSET1+18, MUTOSET1+20, MUTOSET1+21
APCDY	NEWVAL+1~, NEWVAL+3*
C	HASND~, HASND+3
D0	RFADD+7~, RFADD+9!, SETTOMUL+2, SETTOM1+26!, SETTOM1+28!, EDCTONEW+4, EDDTOEDC+5, DEFEDDF4+3
DA	SETTOM1+28!, MULTOSET+4, MUTOSET1+14!, MUTOSET1+25!, MUTOSET1+27!, EDCTONE1+6!, EDCTONE1+8!, EDCTONE1+10!, EDCTONE1+12!, EDDTOED1+4! , DEDD+1, DEDD+4, DEDD+7, DEFEDDF+5!, DEFEDDF+8!
DA(1	SETTOM1+22*, MULTOSET+5
DD	RFADD+7~, RFADD+9!, SETTOM1+26!, SETTOM1+28!
DIC	RFADD+7~, RFADD+8, SETTOM1+20, SETTOM1+28!
DIC("DR"	SETTOM1+25*
DIC("P"	SETTOM1+23*
DIC(0	RFADD+8, SETTOM1+21
DIE	MUTOSET1+14!, MUTOSET1+25!, MUTOSET1+27!, EDCTONE1+6!, EDCTONE1+8!, EDCTONE1+10!, EDCTONE1+12!, EDDTOED1+4!, DEFEDDF+5!, DEFEDDF+8!
DINUM	RFADD+9!, RFADD+10*
DIR	PAUSE+1!
DIR("A"	PAUSE+1*
DIR(0	PAUSE+1*
>> DIRUT	PAUSE+1*
DO	RFADD+7~, RFADD+9!, SETTOM1+26!, SETTOM1+28!
DR	MUTOSET1+14!, MUTOSET1+25!, MUTOSET1+27!, EDCTONE1+6!, EDCTONE1+8!, EDCTONE1+10!, EDCTONE1+12!, EDDTOED1+4!, DEFEDDF+5!, DEFEDDF+8!
DT	MUTOSET1+14, MUTOSET1+25, MUTOSET1+27
>> DUOUT	PAUSE+1
E	RHEDIT+15~, NEWVAL~, NEWVAL+3
G	HASND+1~, HASND+2, HASND+3, HASND+4
LORIERR	TEST+2!, TEST+17
P	RFADD~, RFADD+3, RFADD+4, RFADD+5, RFADD+6, RFADD+8, TEST+1*, TEST+17
RETVAL	RHEDIT~, RHEDIT+10, RHEDIT+11, RHEDIT+12, RHEDIT+17, RHEDIT+19, RHEDIT+21, RHEDIT+48, E+1
T	HASND~, HASND+3
U	RFADD+5, NEWVAL+3, SETTOM1+9, SETTOM1+10, SETTOM1+13, SETTOM1+14, SETTOM1+16, SETTOM1+18, SETTOM1+23, HASND+3 , MUTOSET1+6, MUTOSET1+7, MUTOSET1+9, MUTOSET1+10, MUTOSET1+18, MUTOSET1+20, MUTOSET1+21, MUTOSET1+23, MUTOSET1+26, EDCTONE1+3 , EDCTONE1+4
V	RHEDIT+15~, RHEDIT+17*, E~, E+1
X	RFADD+7~, RFADD+8, RFADD+10, NEWVAL+1~, NEWVAL+3, SETTOM1+24*, HASND~, HASND+3, DEDD+1, DEDD+3! , DEDD+4, DEDD+6!, DEDD+7, DEDD+9!
Y	RFADD+7~, RFADD+12, NEWVAL+1~, NEWVAL+2, NEWVAL+3, NEWVAL+4, HASND+1~, HASND+3*

Customize PDF page

Package: Patient Care Component

Routine: APCDRF

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items