Routine: BHSPED

Package	Total	Call Graph
DRG Grouper	2	$$ICDDX^ICDCODE $$ICDDX^ICDEX
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
Health Summary Components	2	DISPREF^BHSRAD ($$AICD,GETSITEV,PRTTXT)^BHSUTL
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^BHSRAD	PTED+20, MRPTED+20, MRPE+15
$$AICD^BHSUTL	PEDCHK+27, REORDER+28
GETSITEV^BHSUTL	PTED+15, PTED+16, PEDCHK+1, MRPTED+16, REORDER+7
PRTTXT^BHSUTL	PEDCHK+27, PEDCHK+28, PEDCHK+29, REORDER+22, REORDER+28, REORDER+29, REORDER+30
REGDT4^GMTSU	PTED+10, MRPTED+11, MRPE+11, REORDER+4
CKP^GMTSUP	PTED+7, PTED+14, PEDCHK+2, PEDCHK+16, PEDCHK+19, MRPTED+5, MRPTED+15, MRPE+5, REORDER+9, REORDER+18 , REORDER+20
$$ICDDX^ICDCODE	PEDCHK+28, REORDER+29
$$ICDDX^ICDEX	PEDCHK+27, REORDER+28
$$VAL^XBDIQ1	PEDCHK+20, REORDER+21

Name	Line Occurrences
Function Call: WRITE	Prompt: ?25,"ADA: ",$P(^AUTTADA(APCHX,0),U)," - ",$E($P(^AUTTADA(APCHX,0),U,2),1,40),! Line Location: PTED+15
Function Call: WRITE	Prompt: ?23,"ADA: ",$P(^AUTTADA(APCHX,0),U)," - ",$E($P(^AUTTADA(APCHX,0),U,2),1,40),! Line Location: PTED+16
Function Call: WRITE	Prompt: BHSDAT Line Location: PEDCHK+3
Function Call: WRITE	Prompt: BHSDAT Condition for execution: GMTSNPG Line Location: PEDCHK+16
Function Call: WRITE	Prompt: ?12,BHSFAC,?25,$E(BHSPEM,1,12),?37,$E(BHSPED,1,35),$S($P(BHSN,U,7)="":"",$P(BHSN,U,7)="I":" - (IND)",$P(BHSN,U,7)="G":" - (GRP)",1:""),! Line Location: PEDCHK+16
Function Call: WRITE	Prompt: ?37,BHSLVT,! 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: BHSX," ",$S($P(BHSN,U,7)="":"",$P(BHSN,U,7)="I":" - (IND)",$P(BHSN,U,7)="G":" - (GRP)",1:"")," ",BHSLVT,?57,BHSDAT,?67,BHSNSH,! Line Location: REORDER+18

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVDEN - [#9000010.05]	PTED+15, 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+4, ONEDATE+5, ONEDATE+7, PEDCHK, PEDCHK+25, ONEDAY+3, ONEDAY+6, MRPEOD+1, REORDER+6, REORDER+22 , REORDER+26
^AUPNVPED("AA"	PTED+6, PTED+9, ONEDATE+2, MRPTED+4, MRPTED+10, ONEDAY+2, MRPE+4, MRPE+10, MRPEOD+1
^AUPNVSIT - [#9000010]	ONEDATE+8, ONEDATE+9, PEDCHK+24, REORDER+25
^AUTTADA - [#9999999.31]	PTED+15, PTED+16, 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]	PEDCHK+7, ONEDAY+5, REORDER+1
^DD(9000010.16	PEDCHK+10, REORDER+13

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCHX	PTED+13, PTED+15, PTED+16, PTEDX+1!, MRPTED+14, MRPTED+16
BHDVDT	PEDCHK+23~, REORDER+24~
BHSCNT	PTED+12, PTED+15, PTED+16, PTEDX+1!, MRPTED+13, MRPTED+16*
BHSDAT	PTED+10, PTED+15, PTED+16, PTEDX!, PEDCHK+3, PEDCHK+16, MRPTED+11, MRPTED+16, MRPTEDX+1!, MRPE+11* , MRPEX+1!, REORDER+4*, REORDER+10, REORDER+18
BHSDATE	ONEDATE~, ONEDATE+5, ONEDATE+9, ONEDATE+10*, ONEDATE+11
BHSDE1	PTEDX+1!, DENTEDL+2, DENTEDL+7, DENTED+2, DENTED+7, DENTAL+3*, DENTAL+8
BHSDE2	PTEDX+1!, DENTEDL+3, DENTEDL+7, DENTED+3, DENTED+7, DENTAL+4*, DENTAL+8
BHSDE3	PTEDX+1!, DENTEDL+4, DENTEDL+7, DENTED+4, DENTED+7, DENTAL+5*, DENTAL+8
BHSDEN	PTED+5!, PTED+6, PTEDX+1!, MRPTED+3!, MRPTED+4, MRPE+3!, MRPE+4, DENTEDL+1!, DENTED+1!, DENTAL+1! , DENTAL+2!
BHSDEN(	PTED+10, PTED+11, PTED+12, PTED+13, ONEDATE+11, ONEDATE+12, MRPTED+11, MRPTED+12, MRPTED+13, MRPTED+14 , ONEDAY+6, DENTEDL+7, DENTED+7*
BHSDEN("DEN"	DENTEDL+7, DENTAL+8
BHSDFN	PTED+11, PTED+12, PTED+13, PTED+15, PTEDX!, ONEDATE+1, ONEDATE+2, ONEDATE+4, ONEDATE+5, ONEDATE+7 , ONEDATE+11, ONEDATE+12, PEDCHK, PEDCHK+20, PEDCHK+25, MRPTED+12, MRPTED+13, MRPTED+14, MRPTED+16, MRPTEDX+1! , ONEDAY+2, ONEDAY+3, ONEDAY+6, MRPEX+1!, MRPEOD+1, REORDER+3, REORDER+5, REORDER+6, REORDER+10, REORDER+21 , REORDER+22, REORDER+26, DENTEDL+6, DENTEDL+7, DENTED+6, DENTED+7, DENTAL+7, DENTAL+8
BHSDSP	MRPEX!, DENTAL+1!
BHSDSP(	REORDER+1, REORDER+2, REORDER+3, REORDER+4, REORDER+5, REORDER+8, DENTAL+8
BHSDTU	PTED+10, PTED+11, 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*
BHSEVT	MRPTEDX!, ONEDAY+6, MRPEX!, MRPEOD+1, REORDER+1*
BHSFAC	PTEDX!, PEDCHK+4, PEDCHK+5, PEDCHK+16, MRPTEDX+1!, MRPEX+1!
BHSFN	PTED+20, PTED+21!, MRPTED+20, MRPTED+21!, MRPE+15*, MRPE+16!
BHSFO	PTEDX!, PEDCHK+3, PEDCHK+4, PEDCHK+5, MRPTEDX+1!, MRPEX+1!
BHSICL	PTEDX+1!, PEDCHK+27, PEDCHK+28, PEDCHK+29, REORDER+22, REORDER+28, REORDER+29, REORDER+30*
BHSIVD	PTED+9, PTED+10, PTED+11, PTED+12, PTED+13, PTEDX!, ONEDATE+2, ONEDATE+12, MRPTED+10, MRPTED+11 , MRPTED+12, MRPTED+13, MRPTED+14, MRPTEDX+1!, ONEDAY+2, ONEDAY+6, 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
BHSLVL	PTEDX!, PEDCHK+8, PEDCHK+9, PEDCHK+11, MRPTEDX+1!, MRPEX+1!, REORDER+11, REORDER+12, REORDER+14
BHSLVT	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
BHSN	PTEDX!, PEDCHK, PEDCHK+1, PEDCHK+7, PEDCHK+8, PEDCHK+16, PEDCHK+18, PEDCHK+20, PEDCHK+25, PEDCHK+27 , PEDCHK+28, PEDCHK+29, MRPTEDX+1!, MRPEX+1!, REORDER+5, REORDER+6*, REORDER+7, REORDER+11, REORDER+18, REORDER+19 , REORDER+21, REORDER+26, REORDER+28, REORDER+29, REORDER+30
BHSNAB	PTEDX+1!, MRPTEDX+2!, MRPEX+2!
BHSNFL	PTEDX+1!, MRPTEDX+2!, MRPEX+2!
BHSNRQ	PTEDX+1!, PEDCHK+27, PEDCHK+28, PEDCHK+29, REORDER+22, REORDER+28, REORDER+29, REORDER+30*
BHSNSH	PTED+15, PTED+16, PTEDX+1!, PEDCHK+4, PEDCHK+5, MRPTED+16, MRPTEDX+2!, MRPEX+2!, REORDER+10, REORDER+18
BHSPAT	PTED+2~, PTED+3*, PTED+6, PTED+9, ONEDATE+2, MRPTED+4, MRPTED+10, ONEDAY+2, MRPE+4, MRPE+10 , MRPEOD+1, DENTEDL+5, DENTEDL+6, DENTED+5, DENTED+6, DENTAL+6, DENTAL+7
BHSPED	PTEDX!, PEDCHK+7*, PEDCHK+16, MRPTEDX+1!, MRPEX+1!
BHSPEM	PTEDX!, PEDCHK+7*, PEDCHK+16
BHSPTB	PTEDX!, MRPTED+7!, MRPTEDX!, MRPE+7!, MRPEX!
BHSPTB(	ONEDAY+6, MRPEOD+1, REORDER+1
BHSQ	PTED+9, PTEDX!, ONEDATE+2, MRPTED+10, ONEDAY+2, MRPE+10, MRPEOD+1, DENTEDL+5, DENTED+5, DENTAL+6*
BHST	PTED+20, PTED+21!, MRPTED+20, MRPTED+21!, MRPE+15*, MRPE+16!
BHSTXT	PTEDX+1!, PEDCHK+27, PEDCHK+28, PEDCHK+29, REORDER+22, REORDER+28, REORDER+29, REORDER+30*
BHSTYP	PTEDX+1!, ONEDATE+8*, ONEDATE+9
BHSVDF	PTED+15, PTEDX+1!, PEDCHK+1, PEDCHK+24, MRPTED+16, MRPTEDX+2!, MRPEX+2!, REORDER+7, REORDER+25
BHSVDT	PTEDX+1!, PEDCHK+24, PEDCHK+27, PEDCHK+28, REORDER+25, REORDER+28, REORDER+29
BHSVSC	PTEDX+1!, MRPTEDX+2!, MRPEX+2!
BHSVST	ONEDATE~, ONEDATE+7*, ONEDATE+8, ONEDATE+9
BHSVTYP	ONEDATE~
BHSX	MRPEX!, REORDER+2*, REORDER+3, REORDER+4, REORDER+5, REORDER+8, REORDER+10, REORDER+18
>> DFN	PTED+3
>> GMTSDLM	PTED+9, PTED+10, MRPTED+10, MRPTED+11, MRPE+10, DENTEDL+5, DENTED+5, DENTAL+6
>> GMTSNDM	PTED+10, PTED+11, PTED+12, MRPTED+11, MRPTED+12, MRPTED+13, MRPE+10, MRPE+11*
>> GMTSNPG	PEDCHK+2, PEDCHK+16
>> GMTSQIT	PTED+7, PTED+11, PTED+12, PTED+14, 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
U	PTED+15, PTED+16, ONEDATE+4, ONEDATE+5, ONEDATE+7, ONEDATE+8, ONEDATE+9, PEDCHK+1, PEDCHK+7, PEDCHK+8 , PEDCHK+10, PEDCHK+16, PEDCHK+18, PEDCHK+20, PEDCHK+24, PEDCHK+25, PEDCHK+27, PEDCHK+28, PEDCHK+29, MRPTED+16 , ONEDAY+3, 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+25, REORDER+26, REORDER+28, REORDER+29, REORDER+30 , DENTEDL+7, DENTED+7, DENTAL+8
X	PTED+10, PTEDX!, MRPTED+11, ONEDAY+1~, ONEDAY+3, ONEDAY+4, ONEDAY+5, MRPE+11, REORDER+4, DENTEDL+7 , DENTED+7, DENTAL+8
Y	PTEDX!

Customize PDF page

Package: Health Summary Components

Routine: BHSPED

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: