Routine: APCHS85

Package	Total	Call Graph
IHS Patient	1	$$RHX^AUPNREP
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Kernel	1	$$FMADD^XLFDT
Patient Care Component	1	$$DATE^APCHSMU

Package	Total	Caller Graph
Patient Care Component	1	APCHS8

Entry Points

Name	Comments	DBIA/ICR reference
ALLEDD	;
EDC	;S Y=$P(APCHSN,U,9)
REPHX	; ********** REPRODUCTIVE HISTORY * 9000017 ********** ; <SETUP>
NEWREP	;new reproductive factors dd
REPEDDHX	;EP - REPRODUCTIVE HISTORY - ALL EDDS
LATER	;
DTOBT11
SINGLE	;
DTOBT
W	;
REPHXX

External References

Name	Field # of Occurrence
$$DATE^APCHSMU	REPHX+10, NEWREP+6, LATER+23, EDC+13, EDC+29, ALLEDD+10, W+3
$$RHX^AUPNREP	NEWREP+3
$$VAL^XBDIQ1	REPHX+10, NEWREP+6, LATER+13, EDC+23, EDC+24, EDC+25, EDC+26, EDC+34, ALLEDD+18, ALLEDD+19 , ALLEDD+20, ALLEDD+21, W+8
$$VALI^XBDIQ1	EDC+7, EDC+23, EDC+24, EDC+25, EDC+26, ALLEDD+4, ALLEDD+18, ALLEDD+19, ALLEDD+20, ALLEDD+21
$$FMADD^XLFDT	EDC+14, EDC+30, ALLEDD+11, W+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: X Line Location: REPHX+8
Function Call: WRITE	Prompt: " " Line Location: REPHX+8
Function Call: WRITE	Prompt: "LMP ",Y Line Location: REPHX+9
Function Call: WRITE	Prompt: ! Line Location: REPHX+9
Function Call: WRITE	Prompt: "LACTATION STATUS: ",X Line Location: REPHX+10
Function Call: WRITE	Prompt: " (obtained "_$$DATE^APCHSMU($P($G(^AUPNREP(APCHSPAT,2)),U,2)) Condition for execution: X]"" Line Location: REPHX+10
Function Call: WRITE	Prompt: ! Line Location: REPHX+10
Function Call: WRITE	Prompt: "CONTRACEPTION: ",APCHSM Line Location: REPHX+11
Function Call: WRITE	Prompt: ! Line Location: REPHX+11
Function Call: WRITE	Prompt: !,"Reproductive History: ",!?2,$P(X,";",1,4),";",!?3,$P(X,";",5,7),!?3,";",$P(X,";",8,99),! Line Location: NEWREP+3
Function Call: WRITE	Prompt: "LMP: " Line Location: NEWREP+5
Function Call: WRITE	Prompt: Y Line Location: NEWREP+5
Function Call: WRITE	Prompt: Y Line Location: NEWREP+5
Function Call: WRITE	Prompt: "LACTATION STATUS: ",X Line Location: NEWREP+6
Function Call: WRITE	Prompt: " (obtained "_$$DATE^APCHSMU($P($G(^AUPNREP(APCHSPAT,2)),U,2)),")" Condition for execution: X]"" Line Location: NEWREP+6
Function Call: WRITE	Prompt: ! Line Location: NEWREP+6
Function Call: WRITE	Prompt: "CONTRACEPTION: ",APCHSM Line Location: NEWREP+7
Function Call: WRITE	Prompt: ! Line Location: NEWREP+7
Function Call: WRITE	Prompt: !,"CURRENT CONTRACEPTION METHODS",!?3,"Contraceptive Method",?37,"Date Started",! Line Location: LATER+16
Function Call: WRITE	Prompt: ?37,Y Line Location: LATER+21
Function Call: WRITE	Prompt: ?50,Y Line Location: LATER+22
Function Call: WRITE	Prompt: ?55,"(obtained "_$$DATE^APCHSMU(Y)_")" Condition for execution: Y]"" Line Location: LATER+23
Function Call: WRITE	Prompt: ! Line Location: LATER+23
Function Call: WRITE	Prompt: ?10,$P(^AUPNREP(APCHSPAT,2101,APCHX,0),U,6),! Line Location: LATER+25
Function Call: WRITE	Prompt: ?5,"Reason Discontinued: "_$P(^AUPNREP(APCHSPAT,2101,APCHX,0),U,5),! Line Location: LATER+26
Function Call: WRITE	Prompt: "CONTRACEPTION: ",APCHSM Line Location: SINGLE+1
Function Call: WRITE	Prompt: ! Line Location: SINGLE+1
Function Call: WRITE	Prompt: " (obtained ",Y,")" Line Location: DTOBT11+0
Function Call: WRITE	Prompt: " (obtained ",Y,")" Line Location: DTOBT+0
Function Call: WRITE	Prompt: "*** NOTE: EDC ",Y Line Location: EDC+1
Function Call: WRITE	Prompt: " -- OUTDATED!" Line Location: EDC+2
Function Call: WRITE	Prompt: " BY ",APCHSM Line Location: EDC+3
Function Call: WRITE	Prompt: " -- OUTDATED!" Line Location: EDC+14
Function Call: WRITE	Prompt: "Comment: ",$P(^AUPNREP(APCHSPAT,15),U,2) Line Location: EDC+17
Function Call: WRITE	Prompt: " -- OUTDATED!" Line Location: EDC+30
Function Call: WRITE	Prompt: "Comment: ",$$VAL^XBDIQ1(9000017,APCHSPAT,F) Line Location: EDC+34
Function Call: WRITE	Prompt: " -- OUTDATED!" Line Location: ALLEDD+11
Function Call: WRITE	Prompt: "Comment: ",$P(^AUPNREP(APCHSPAT,15),U,2) Line Location: ALLEDD+14
Function Call: WRITE	Prompt: " -- OUTDATED!" Line Location: W+4
Function Call: WRITE	Prompt: "Comment: ",$$VAL^XBDIQ1(9000017,APCHSPAT,F) Line Location: W+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNREP - [#9000017]	REPHX+3, REPHX+4, REPHX+10, NEWREP+1, NEWREP+6, LATER+3, LATER+5, LATER+6, LATER+7, LATER+9 , LATER+10, LATER+23, LATER+25, LATER+26, EDC+13, EDC+17, ALLEDD+10, ALLEDD+14
^DD(9000017	REPHX+5, SINGLE+1
^DPT - [#2]	REPHX+2

Label References

Name	Line Occurrences
ALLEDD	EDC+5
DTOBT	REPHX+8, REPHX+9, NEWREP+5, SINGLE+1
EDC	NEWREP+10
LATER	REPHX+13, NEWREP+8
NEWREP	REPHX+5
REPHX	REPEDDHX+2
REPHXX	REPHX+5, SINGLE+1
SINGLE	LATER+3
W	ALLEDD+18, ALLEDD+19, ALLEDD+20, ALLEDD+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCHAEDD	EDC+5, REPEDDHX+1*, REPEDDHX+3!
APCHBY	EDC+6~, EDC+22, EDC+23, EDC+24, EDC+25, EDC+26, EDC+29, EDC+33, ALLEDD+3~, ALLEDD+18 , ALLEDD+19, ALLEDD+20, ALLEDD+21*, W+3, W+7
APCHC	LATER+4~, LATER+7*, LATER+8, LATER+13
APCHCM	LATER+4~
APCHCM(	LATER+13*, LATER+17, LATER+18, LATER+20, LATER+21
APCHDB	LATER+4~, LATER+9, LATER+12, LATER+13, LATER+17*, LATER+18, LATER+20, LATER+21
>> APCHDE	LATER+10*, LATER+11, LATER+13
APCHDEDD	EDC+6~, EDC+7, EDC+8, EDC+13, EDC+14, ALLEDD+3~, ALLEDD+4, ALLEDD+5, ALLEDD+10, ALLEDD+11
APCHDEDT	EDC+6~, EDC+22, EDC+23, EDC+24, EDC+25, EDC+26, EDC+27, EDC+29, EDC+30, ALLEDD+3~ , ALLEDD+18, ALLEDD+19, ALLEDD+20, ALLEDD+21*, W+1, W+3, W+4
APCHDOBT	EDC+6~, EDC+22, EDC+23, EDC+24, EDC+25, EDC+26, EDC+29, ALLEDD+3~, ALLEDD+18, ALLEDD+19* , ALLEDD+20, ALLEDD+21, W+3
APCHM	LATER+4~
>> APCHSBRK	REPHX+7, NEWREP+2
>> APCHSCKP	REPHX+7, NEWREP+2, NEWREP+4, LATER+15, LATER+19, SINGLE+1, EDC+12, EDC+15, EDC+18, EDC+28 , EDC+31, EDC+35, ALLEDD+9, ALLEDD+12, ALLEDD+15, W+2, W+5, W+9
>> APCHSCVD	REPHX+9, NEWREP+5, LATER+21, DTOBT11, DTOBT
APCHSM	REPHXX!, SINGLE+1*
APCHSN	REPHX+4*, REPHX+8, REPHX+9, REPHXX!, NEWREP+5, SINGLE+1, DTOBT
APCHSN11	REPHXX!, NEWREP+1*, DTOBT11
>> APCHSNPG	REPHX+7, NEWREP+2
>> APCHSP	REPHX+8, REPHX+9, NEWREP+5, SINGLE+1, DTOBT11, DTOBT
>> APCHSPAT	REPHX+2, REPHX+3, REPHX+4, REPHX+10, NEWREP+1, NEWREP+3, NEWREP+6, LATER+3, LATER+5, LATER+6 , LATER+7, LATER+9, LATER+10, LATER+23, LATER+25, LATER+26, EDC+7, EDC+13, EDC+17, EDC+23 , EDC+24, EDC+25, EDC+26, EDC+34, ALLEDD+4, ALLEDD+10, ALLEDD+14, ALLEDD+18, ALLEDD+19, ALLEDD+20 , ALLEDD+21, W+8
>> APCHSQIT	REPHX+7, NEWREP+2, NEWREP+4, NEWREP+9, LATER+15, LATER+17, LATER+18, LATER+19, SINGLE+1, EDC+12 , EDC+15, EDC+18, EDC+28, EDC+31, EDC+35, ALLEDD+9, ALLEDD+12, ALLEDD+15, W+2, W+5 , W+9
APCHX	LATER+4~, LATER+5, LATER+6, LATER+7, LATER+9, LATER+10, LATER+13, LATER+18, LATER+20, LATER+21 , LATER+23, LATER+25, LATER+26
DT	EDC+14, EDC+30, ALLEDD+11, W+4
>> F	EDC+33, EDC+34, W+7, W+8
U	REPHX+2, REPHX+8, REPHX+9, REPHX+10, NEWREP+5, NEWREP+6, LATER+6, LATER+7, LATER+9, LATER+10 , LATER+13, LATER+20, LATER+21, LATER+23, LATER+25, LATER+26, SINGLE+1, DTOBT11, DTOBT, EDC+13 , EDC+17, ALLEDD+10, ALLEDD+14
>> X	REPHX+8, REPHX+9, REPHX+10, NEWREP+3, NEWREP+5, NEWREP+6, SINGLE+1*
>> Y	REPHX+9, NEWREP+5, LATER+21, LATER+23, SINGLE+1, DTOBT11, DTOBT*

Customize PDF page

Package: Patient Care Component

Routine: APCHS85

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: