Routine: APCHS10

Package	Total	Call Graph
Patient Care Component	2	DISPREF^APCHS3C (GETSITEV,PRTTXT)^APCHSUTL
DRG Grouper	1	$$ICDDX^ICDEX
IHS VA Utilities	1	$$VAL^XBDIQ1

Name	Comments	DBIA/ICR reference
PTEDX
MRPEX
ONEDATE
MRPTED	; ********** MOST RECENT PATIENT EDUCATION * 9000010.16 ********** ; <SETUP>
DENTAL	;
MRPEOD	;
MRPE	;EP - called from component ; <SETUP>
DENTED	;gather up all 1310, 1320, 1330
DENTEDL	;gather up last of each
MRPTEDX
PEDCHK
PTED	; ********** PATIENT EDUCATION * 9000010.16 ********** ; <SETUP>
ONEDAY
REORDER	;reorder by name and print

Name	Field # of Occurrence
DISPREF^APCHS3C	PTED+19, MRPTED+20, MRPE+15
GETSITEV^APCHSUTL	PTED+15, PEDCHK+1, MRPTED+16, REORDER+7
PRTTXT^APCHSUTL	PEDCHK+21, PEDCHK+26, PEDCHK+28, REORDER+22, REORDER+27, REORDER+29
$$ICDDX^ICDEX	PEDCHK+26, REORDER+27
$$VAL^XBDIQ1	PEDCHK+20, REORDER+21

Name	Line Occurrences
Function Call: WRITE	Prompt: ?23,"ADA: ",$P(^AUTTADA(APCHX,0),U)," - ",$E($P(^AUTTADA(APCHX,0),U,2),1,40),! Line Location: PTED+15
Function Call: WRITE	Prompt: APCHSDAT Line Location: PEDCHK+3
Function Call: WRITE	Prompt: APCHSDAT Condition for execution: APCHSNPG Line Location: PEDCHK+16
Function Call: WRITE	Prompt: ?10,APCHSFAC,?23,$E(APCHSPEM,1,12),?35,$E(APCHSPED,1,35),$S($P(APCHSN,U,7)="":"",$P(APCHSN,U,7)="I":" - (IND)",$P(APCHSN,U,7)="G":" - (GRP)",1:""),! Line Location: PEDCHK+16
Function Call: WRITE	Prompt: ?35,APCHSLVT,! Line Location: PEDCHK+17
Function Call: WRITE	Prompt: ?23,"ADA: ",$P(^AUTTADA(APCHX,0),U)," - ",$E($P(^AUTTADA(APCHX,0),U,2),1,40),! Line Location: MRPTED+16
Function Call: WRITE	Prompt: APCHSX," ",$S($P(APCHSN,U,7)="":"",$P(APCHSN,U,7)="I":" - (IND)",$P(APCHSN,U,7)="G":" - (GRP)",1:"")," ",APCHSLVT,?57,APCHSDAT,?67,APCHSNSH,! Line Location: REORDER+18

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVDEN - [#9000010.05]	PTED+13, MRPTED+16, REORDER+5, REORDER+10, DENTEDL+7, DENTED+7, DENTAL+8
^AUPNVDEN("AA"	DENTEDL+5, DENTEDL+6, DENTED+5, DENTED+6, DENTAL+6, DENTAL+7
^AUPNVPED - [#9000010.16]	ONEDATE+1, PEDCHK, PEDCHK+21, PEDCHK+26, ONEDAY+2, ONEDAY+5, MRPEOD+1, REORDER+6, REORDER+22, REORDER+27
^AUPNVPED("AA"	PTED+4, PTED+7, ONEDATE, MRPTED+4, MRPTED+10, ONEDAY+1, MRPE+4, MRPE+10, MRPEOD+1
^AUPNVSIT - [#9000010]	PTED+14, PEDCHK+25, REORDER+26
^AUTTADA - [#9999999.31]	PTED+15, MRPTED+16, REORDER+10, DENTAL+8
^AUTTADA("B"	DENTEDL+2, DENTEDL+3, DENTEDL+4, DENTED+2, DENTED+3, DENTED+4, DENTAL+3, DENTAL+4, DENTAL+5
^AUTTEDT - [#9999999.09]	ONEDATE+3, PEDCHK+7, ONEDAY+4, REORDER+1
^DD(9000010.16	PEDCHK+10, REORDER+13

Name	Line Occurrences
DENTAL	MRPE+3
DENTED	PTED+3
DENTEDL	MRPTED+3
MRPEOD	MRPE+11
ONEDATE	PTED+7
ONEDAY	MRPTED+10
PEDCHK	PTED+9, MRPTED+12
REORDER	MRPE+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCHSBRK	PTED+5, MRPTED+5, MRPE+5
>> APCHSCKP	PTED+5, PTED+12, PEDCHK+2, PEDCHK+16, PEDCHK+19, MRPTED+5, MRPTED+15, MRPE+5, REORDER+9, REORDER+18 , REORDER+20
>> APCHSCNT	PTED+10, PTED+15, MRPTED+13, MRPTED+16
>> APCHSCVD	PTED+8, MRPTED+11, MRPE+11, REORDER+4
APCHSDAT	PTED+8, PTED+15, PTEDX!, PEDCHK+3, PEDCHK+16, MRPTED+11, MRPTED+16, MRPTEDX+1!, MRPE+11, MRPEX+1! , REORDER+4, REORDER+10, REORDER+18
APCHSDE1	PTEDX+1!, DENTEDL+2, DENTEDL+7, DENTED+2, DENTED+7, DENTAL+3*, DENTAL+8
APCHSDE2	PTEDX+1!, DENTEDL+3, DENTEDL+7, DENTED+3, DENTED+7, DENTAL+4*, DENTAL+8
APCHSDE3	PTEDX+1!, DENTEDL+4, DENTEDL+7, DENTED+4, DENTED+7, DENTAL+5*, DENTAL+8
APCHSDEN	PTED+3!, PTED+4, PTEDX+1!, MRPTED+3!, MRPTED+4, MRPE+3!, MRPE+4, DENTEDL+1!, DENTED+1!, DENTAL+1! , DENTAL+2!
APCHSDEN(	PTED+8, PTED+9, PTED+10, PTED+11, ONEDATE+4, MRPTED+11, MRPTED+12, MRPTED+13, MRPTED+14, ONEDAY+5 , DENTEDL+7, DENTED+7
APCHSDEN("DEN"	DENTEDL+7, DENTAL+8
APCHSDFN	PTED+9, PTED+10, PTED+11, PTED+13, PTEDX!, ONEDATE, ONEDATE+1, ONEDATE+4, PEDCHK, PEDCHK+20 , PEDCHK+21, PEDCHK+26, MRPTED+12, MRPTED+13, MRPTED+14, MRPTED+16, MRPTEDX+1!, ONEDAY+1, ONEDAY+2, ONEDAY+5 , MRPEX+1!, MRPEOD+1, REORDER+3, REORDER+5, REORDER+6, REORDER+10, REORDER+21, REORDER+22, REORDER+27, DENTEDL+6* , DENTEDL+7, DENTED+6, DENTED+7, DENTAL+7, DENTAL+8
>> APCHSDLM	PTED+7, PTED+8, MRPTED+10, MRPTED+11, MRPE+10, DENTEDL+5, DENTED+5, DENTAL+6
APCHSDSP	MRPEX!, DENTAL+1!
APCHSDSP(	REORDER+1, REORDER+2, REORDER+3, REORDER+4, REORDER+5, REORDER+8, DENTAL+8
APCHSDTU	PTED+8, PTED+9, PTEDX!, PEDCHK+2, PEDCHK+3, PEDCHK+6, MRPTED+11, MRPTED+12, MRPTEDX+1!, MRPE+11* , MRPEX+1!, MRPEOD+1, DENTEDL+1, DENTED+1, DENTED+7, DENTAL+2*
APCHSEVT	MRPTEDX!, ONEDAY+5, MRPEX!, MRPEOD+1, REORDER+1*
APCHSFAC	PTEDX!, PEDCHK+4, PEDCHK+5, PEDCHK+16, MRPTEDX+1!, MRPEX+1!
APCHSFN	PTED+19, PTED+20!, MRPTED+20, MRPTED+21!, MRPE+15*, MRPE+16!
APCHSFO	PTEDX!, PEDCHK+3, PEDCHK+4, PEDCHK+5, MRPTEDX+1!, MRPEX+1!
>> APCHSICL	PEDCHK+21, PEDCHK+26, PEDCHK+28, REORDER+22, REORDER+27, REORDER+29
APCHSIVD	PTED+7, PTED+8, PTED+9, PTED+10, PTED+11, PTEDX!, ONEDATE, ONEDATE+4, MRPTED+10, MRPTED+11 , MRPTED+12, MRPTED+13, MRPTED+14, MRPTEDX+1!, ONEDAY+1, ONEDAY+5, MRPE+10, MRPE+11, MRPEX+1!, MRPEOD+1 , REORDER+4, DENTEDL+5, DENTEDL+6, DENTEDL+7, DENTED+5, DENTED+6, DENTED+7, DENTAL+6*, DENTAL+7, DENTAL+8
APCHSLVL	PTEDX!, PEDCHK+8, PEDCHK+9, PEDCHK+11, MRPTEDX+1!, MRPEX+1!, REORDER+11, REORDER+12, REORDER+14
APCHSLVT	PTEDX!, PEDCHK+8, PEDCHK+10, PEDCHK+11, PEDCHK+12, PEDCHK+13, PEDCHK+17, MRPTEDX+1!, MRPEX+1!, REORDER+11 , REORDER+13, REORDER+14, REORDER+15, REORDER+16, REORDER+17*, REORDER+18
APCHSN	PTEDX!, PEDCHK, PEDCHK+1, PEDCHK+7, PEDCHK+8, PEDCHK+16, PEDCHK+18, PEDCHK+20, PEDCHK+26, PEDCHK+28 , MRPTEDX+1!, MRPEX+1!, REORDER+5, REORDER+6*, REORDER+7, REORDER+11, REORDER+18, REORDER+19, REORDER+21, REORDER+27 , REORDER+29
APCHSNAB	PTEDX+1!, MRPTEDX+2!, MRPEX+2!
>> APCHSNDM	PTED+8, PTED+9, PTED+10, MRPTED+11, MRPTED+12, MRPTED+13, MRPE+10, MRPE+11*
APCHSNFL	PTEDX+1!, MRPTEDX+2!, MRPEX+2!
>> APCHSNPG	PTED+5, PEDCHK+2, PEDCHK+16, MRPTED+5, MRPE+5
>> APCHSNRQ	PEDCHK+21, PEDCHK+26, PEDCHK+28, REORDER+22, REORDER+27, REORDER+29
APCHSNSH	PTED+15, PTEDX+1!, PEDCHK+4, PEDCHK+5, MRPTED+16, MRPTEDX+2!, MRPEX+2!, REORDER+10, REORDER+18
>> APCHSPAT	PTED+4, PTED+7, ONEDATE, MRPTED+4, MRPTED+10, ONEDAY+1, MRPE+4, MRPE+10, MRPEOD+1, DENTEDL+5 , DENTEDL+6, DENTED+5, DENTED+6, DENTAL+6, DENTAL+7
APCHSPED	PTEDX!, PEDCHK+7*, PEDCHK+16, MRPTEDX+1!, MRPEX+1!
>> APCHSPEM	PEDCHK+7*, PEDCHK+16
APCHSPTB	PTEDX!, MRPTED+7!, MRPTEDX!, MRPE+7!, MRPEX!
APCHSPTB(	ONEDAY+5, MRPEOD+1, REORDER+1
APCHSQ	PTED+7, PTEDX!, ONEDATE, MRPTED+10, ONEDAY+1, MRPE+10, MRPEOD+1, DENTEDL+5, DENTED+5, DENTAL+6*
>> APCHSQIT	PTED+5, PTED+9, PTED+10, PTED+12, PEDCHK+2, PEDCHK+16, PEDCHK+19, MRPTED+5, MRPTED+12, MRPTED+13 , MRPTED+15, MRPE+5, MRPE+11, REORDER+2, REORDER+9, REORDER+18, REORDER+20
APCHST	PTED+19, PTED+20!, MRPTED+20, MRPTED+21!, MRPE+15*, MRPE+16!
>> APCHSTXT	PEDCHK+21, PEDCHK+26, PEDCHK+28, REORDER+22, REORDER+27, REORDER+29
APCHSVDF	PTED+13, PTED+14, PTEDX+1!, PEDCHK+1, PEDCHK+25, MRPTED+16, MRPTEDX+2!, MRPEX+2!, REORDER+7, REORDER+26
APCHSVDT	PEDCHK+24~, PEDCHK+25, PEDCHK+26, REORDER+25~, REORDER+26, REORDER+27
APCHSVSC	PTEDX+1!, MRPTEDX+2!, MRPEX+2!
APCHSX	MRPEX!, REORDER+2*, REORDER+3, REORDER+4, REORDER+5, REORDER+8, REORDER+10, REORDER+18
APCHX	PTED+11, PTED+15, PTEDX+1!, MRPTED+14, MRPTED+16
U	PTED+13, PTED+15, ONEDATE+1, PEDCHK+1, PEDCHK+7, PEDCHK+8, PEDCHK+10, PEDCHK+16, PEDCHK+18, PEDCHK+20 , PEDCHK+21, PEDCHK+25, PEDCHK+26, PEDCHK+28, MRPTED+16, ONEDAY+2, MRPEOD+1, REORDER+1, REORDER+3, REORDER+4 , REORDER+5, REORDER+7, REORDER+8, REORDER+10, REORDER+11, REORDER+13, REORDER+18, REORDER+19, REORDER+21, REORDER+22 , REORDER+26, REORDER+27, REORDER+29, DENTEDL+7, DENTED+7, DENTAL+8
>> X	ONEDATE+1, ONEDATE+2, ONEDATE+3, ONEDAY+2, ONEDAY+3, ONEDAY+4, DENTEDL+7, DENTED+7, DENTAL+8*
Y	PTED+8, PTEDX!, MRPTED+11, MRPE+11, REORDER+4

Customize PDF page

Package: Patient Care Component

Routine: APCHS10

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: