Routine: BHSFAM1

Information

BHSFAM1 ;IHS/CIA/MGH - Health Summary for Women's health profile ;16-Sep-2013 16:14;DU

Source Information

Source file <BHSFAM1.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Health Summary Components	3	$$FIXDT^BHSFAM1 $$DATE^BHSMU GETSITEV^BHSUTL
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
IHS Patient	2	$$AGE^AUPNPAT $$RHX^AUPNREP
IHS VA Utilities	2	($$VAL,$$VALI)^XBDIQ1 $$EXTSET^XBFUNC
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Patient Care Component	1	$$DATE^APCHSMU
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
IHS Mods To Text Integration Utilities	3	BTIULO7 BTIULO7A BTIUPCC3
Health Summary Components	1	BHSFAM1

Entry Points

Name	Comments	DBIA/ICR reference
TRTCHK
NNC
OFFHX	; ********** OFFSPRING HISTORY * 9000012 ********** ; <SETUP>
LATER	;
BRTHX
TRTMTX
TXCX
TRTMT	; ********** TREATMENTS * 9000010.15 ********** ; <SETUP>
REPHX	; ********** REPRODUCTIVE HISTORY * 9000017 ********** ; <SETUP>
NEWREP	;new reproductive factors dd
TXC	;EP - called from component ; <SETUP>
OFFHDR
OFFHXX
TXDSP23	;
FIXDT(VAL)	;Change format for imprecise dates
TXDSP6	;get contract type
ONEDATE
BIRTHM	; ******** BIRTH MEASUREMENTS 9000024 AND V INFANT FEEDING 9000010.44 ******** ; <SETUP>
DTOBT
W	;
ALLEDD	;
EDC	;Get EDC
REPEDDHX	;EP - REPRODUCTIVE HISTORY - ALL EDDS
TXDSP13	;
OUTC
OFFDSP	;
PNC
REPHXX

External References

Name	Field # of Occurrence
$$DATE^APCHSMU	EDC+6, EDC+22, ALLEDD+7, W+3
$$AGE^AUPNPAT	BIRTHM+23
$$RHX^AUPNREP	NEWREP+4
$$FIXDT^BHSFAM1	LATER+9, LATER+10, LATER+11
$$DATE^BHSMU	BIRTHM+30
GETSITEV^BHSUTL	TRTCHK+2
$$GET1^DIQ	NEWREP+12, NEWREP+13, BIRTHM+37, BIRTHM+38
REGDT4^GMTSU	OFFDSP+3, OFFDSP+5, REPHX+20, NEWREP+8, DTOBT, TRTMT+7, TXDSP13+1, TXDSP23+1
CKP^GMTSUP	OFFHX+6, OFFDSP+2, OUTC, REPHX+9, REPHX+25, REPHX+27, NEWREP+3, NEWREP+7, LATER+2, LATER+7 , LATER+9, LATER+10, EDC+5, EDC+8, EDC+11, EDC+21, EDC+24, EDC+28, ALLEDD+6, ALLEDD+9 , ALLEDD+12, W+2, W+5, W+9, TRTMT+5, TRTCHK+3, TRTCHK+12, TXC+5, TXC+7, TXDSP6+2 , TXDSP23+5, BIRTHM+5, BIRTHM+9, BIRTHM+11, BIRTHM+13, BIRTHM+15, BIRTHM+26, BIRTHM+29, BIRTHM+35
$$VAL^XBDIQ1	EDC+16, EDC+17, EDC+18, EDC+19, EDC+27, ALLEDD+15, ALLEDD+16, ALLEDD+17, ALLEDD+18, W+8 , TXDSP23+3, TXDSP23+4, BIRTHM+23
$$VALI^XBDIQ1	EDC+3, EDC+16, EDC+17, EDC+18, EDC+19, ALLEDD+4, ALLEDD+15, ALLEDD+16, ALLEDD+17, ALLEDD+18
$$EXTSET^XBFUNC	TXC+7
$$FMADD^XLFDT	EDC+7, EDC+23, ALLEDD+8, W+4
$$FMTE^XLFDT	FIXDT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: X,?12,$P(BHSN,U,4),?22,$P(BHSN,U,5),?26,$J(+$P(BHSN,U,6),5,2),?33,$P(BHSN,U,7) Line Location: OFFDSP+3
Function Call: WRITE	Prompt: ?37,$P(BHSN,U,8),"/",$S($P(BHSN,U,9):$P(BHSN,U,9),1:"-") Line Location: OFFDSP+4
Function Call: WRITE	Prompt: ?44,$E(Y,1,36) Line Location: OFFDSP+5
Function Call: WRITE	Prompt: ! Line Location: OFFDSP+6
Function Call: WRITE	Prompt: "DOB",?12,"NAME",?22,"SEX",?27,"BWT",?33,"EGA",?37,"APGAR",?44,"DEATH",! Line Location: OFFHDR+0
Function Call: WRITE	Prompt: ?34,Y,! Line Location: OUTC+1
Function Call: WRITE	Prompt: ! Line Location: REPHX+18
Function Call: WRITE	Prompt: "LMP ",X Line Location: REPHX+20
Function Call: WRITE	Prompt: ! Line Location: REPHX+20
Function Call: WRITE	Prompt: ! Line Location: REPHX+26
Function Call: WRITE	Prompt: !,"Reproductive History: " Line Location: NEWREP+4
Function Call: WRITE	Prompt: !,?2,"LMP: " Line Location: NEWREP+8
Function Call: WRITE	Prompt: X Line Location: NEWREP+8
Function Call: WRITE	Prompt: X Line Location: NEWREP+8
Function Call: WRITE	Prompt: ?40,Y Line Location: LATER+9
Function Call: WRITE	Prompt: ?55,Y Line Location: LATER+10
Function Call: WRITE	Prompt: !,?10,"(obtained "_$$FIXDT^BHSFAM1(Y)_")" Condition for execution: Y]"" Line Location: LATER+11
Function Call: WRITE	Prompt: ! Line Location: LATER+11
Function Call: WRITE	Prompt: ?10,$P(^AUPNREP(BHSPAT,2101,BHX,0),U,6),! Line Location: LATER+12
Function Call: WRITE	Prompt: ?5,"Reason Discontinued: "_$P(^AUPNREP(BHSPAT,2101,BHX,0),U,5),! Line Location: LATER+13
Function Call: WRITE	Prompt: " (obtained ",X,")" Line Location: DTOBT+0
Function Call: WRITE	Prompt: " -- OUTDATED!" Line Location: EDC+7
Function Call: WRITE	Prompt: "Comment: ",$P(^AUPNREP(BHSPAT,15),U,2) Line Location: EDC+10
Function Call: WRITE	Prompt: " -- OUTDATED!" Line Location: EDC+23
Function Call: WRITE	Prompt: "Comment: ",$$VAL^XBDIQ1(9000017,BHSPAT,F) Line Location: EDC+27
Function Call: WRITE	Prompt: " -- OUTDATED!" Line Location: ALLEDD+8
Function Call: WRITE	Prompt: "Comment: ",$P(^AUPNREP(BHSPAT,15),U,2) Line Location: ALLEDD+11
Function Call: WRITE	Prompt: " -- OUTDATED!" Line Location: W+4
Function Call: WRITE	Prompt: "Comment: ",$$VAL^XBDIQ1(9000017,BHSPAT,F) Line Location: W+8
Function Call: WRITE	Prompt: BHSDTT Line Location: TRTCHK+4
Function Call: WRITE	Prompt: BHSDTT Condition for execution: GMTSNPG Line Location: TRTCHK+12
Function Call: WRITE	Prompt: ?10,$E(BHSFAC,1,10),?21,BHST," (",BHSNT,")",BHSLVT,! Line Location: TRTCHK+12
Function Call: WRITE	Prompt: ! Line Location: TXDSP6+2
Function Call: WRITE	Prompt: BHSTX Line Location: TXDSP6+2
Function Call: WRITE	Prompt: BHSTX Condition for execution: GMTSNPG Line Location: TXDSP23+5
Function Call: WRITE	Prompt: ?20,BHSDI,?40,BHSPI,! Line Location: TXDSP23+5
Function Call: WRITE	Prompt: "BIRTH WEIGHT (kg)",?30,$P(APCHX,U,18) Line Location: BIRTHM+8
Function Call: WRITE	Prompt: !,"BIRTH ORDER" Line Location: BIRTHM+10
Function Call: WRITE	Prompt: ?30,X Line Location: BIRTHM+10
Function Call: WRITE	Prompt: !,"FORMULA STARTED (age)" Line Location: BIRTHM+12
Function Call: WRITE	Prompt: ?30,X Line Location: BIRTHM+12
Function Call: WRITE	Prompt: !,"BREAST STOPPED (age)" Line Location: BIRTHM+14
Function Call: WRITE	Prompt: ?30,X Line Location: BIRTHM+14
Function Call: WRITE	Prompt: !,"SOLIDS BEGUN (age)" Line Location: BIRTHM+16
Function Call: WRITE	Prompt: ?30,X Line Location: BIRTHM+16
Function Call: WRITE	Prompt: !!,"VISIT DATE",?20,"AGE",?32,"FEEDING CHOICE",! Line Location: BIRTHM+27
Function Call: WRITE	Prompt: ?10,"COMMENT: ",$$GET1^DIQ(9000010.4413,APCHIENS,.02),! Line Location: BIRTHM+38

FileNo	Call Tags
9000010.4413	GET1^DIQ
^AUPNREP - [#9000017]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNBMSR - [#9000024]	BIRTHM+7
^AUPNBMSR("B"	BIRTHM+4
^AUPNOFFH - [#9000012]	OFFDSP+1, PNC, NNC
^AUPNOFFH("AA"	OFFHX+5, OFFHX+8
^AUPNREP - [#9000017]	REPHX+5, REPHX+6, NEWREP+2, NEWREP+10, LATER+1, LATER+4, LATER+5, LATER+6, LATER+9, LATER+10 , LATER+11, LATER+12, LATER+13, EDC+6, EDC+10, ALLEDD+7, ALLEDD+11
^AUPNVIF - [#9000010.44]	BIRTHM+19, BIRTHM+32, BIRTHM+34, BIRTHM+38
^AUPNVIF("AC"	BIRTHM+4, BIRTHM+17, BIRTHM+18
^AUPNVSIT - [#9000010]	BIRTHM+21
^AUPNVTRT - [#9000010.15]	TRTCHK
^AUPNVTRT("AA"	TRTMT+4, TRTMT+7, ONEDATE
^AUPNVTXC - [#9000010.39]	TXDSP23+2
^AUPNVTXC("AA"	TXC+4, TXC+7, TXDSP6+2, TXDSP13+2
^AUTTCM - [#99999.11]	LATER+8
^AUTTTRT - [#9999999.17]	TRTCHK+1, TRTCHK+8
^DD(9000010.15	TRTCHK+11
^DD(9000017	REPHX+7, REPHX+23
^DPT - [#2]	OFFHX+4, REPHX+4

Label References

Name	Line Occurrences
ALLEDD	EDC+1
DTOBT	REPHX+18, REPHX+20, REPHX+26, NEWREP+8
EDC	REPHX+27, NEWREP+15
LATER	NEWREP+16
NEWREP	REPHX+7
OFFDSP	OFFHX+8
OFFHDR	OFFHX+6, OFFDSP+2, OUTC
ONEDATE	TRTMT+7
OUTC	PNC, NNC
REPHX	REPEDDHX+2
REPHXX	REPHX+7, REPHX+25, REPHX+27
TRTCHK	ONEDATE
TXDSP13	TXDSP6+2
TXDSP23	TXDSP13+2
TXDSP6	TXC+7
W	ALLEDD+15, ALLEDD+16, ALLEDD+17, ALLEDD+18

Name	Field # of Occurrence
^(	PNC, NNC

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCHAEDD	EDC+1, REPEDDHX+1*, REPEDDHX+3!
APCHAX	BIRTHM+34*, BIRTHM+36, BIRTHM+38, BRTHX!
APCHBY	EDC+2~, EDC+15, EDC+16, EDC+17, EDC+18, EDC+19, EDC+22, EDC+26, ALLEDD+3~, ALLEDD+15 , ALLEDD+16, ALLEDD+17, ALLEDD+18*, W+3, W+7
APCHD	BIRTHM+28*, BIRTHM+30, BRTHX!
APCHDEDD	EDC+2~, EDC+3, EDC+4, EDC+6, EDC+7, ALLEDD+3~, ALLEDD+4, ALLEDD+5, ALLEDD+7, ALLEDD+8
APCHDEDT	EDC+2~, EDC+15, EDC+16, EDC+17, EDC+18, EDC+19, EDC+20, EDC+22, EDC+23, ALLEDD+3~ , ALLEDD+15, ALLEDD+16, ALLEDD+17, ALLEDD+18*, W+1, W+3, W+4
APCHDOBT	EDC+2~, EDC+15, EDC+16, EDC+17, EDC+18, EDC+19, EDC+22, ALLEDD+3~, ALLEDD+15, ALLEDD+16* , ALLEDD+17, ALLEDD+18, W+3
APCHIENS	BIRTHM+36*, BIRTHM+37, BIRTHM+38, BRTHX!
APCHT	BIRTHM+18!, BRTHX!
APCHT(	BIRTHM+23*, BIRTHM+28, BIRTHM+30
APCHX	BIRTHM+7, BIRTHM+8, BIRTHM+10, BIRTHM+12, BIRTHM+14, BIRTHM+16, BIRTHM+18, BIRTHM+19, BIRTHM+23, BIRTHM+28* , BIRTHM+30, BIRTHM+32, BIRTHM+34, BIRTHM+36, BIRTHM+38, BRTHX!
BHC	LATER+6*, LATER+8, TXCX+1!
BHS	TXCX!
BHSCNT	TXCX!, TXDSP6+1, TXDSP6+2, TXDSP13+2
BHSDAT	OFFHX+8, OFFHXX!, OFFDSP+3, TXCX!, TXDSP13+1, TXDSP23+1*, BRTHX!
BHSDFN	OFFHX+8, OFFHXX!, OFFDSP+1, PNC, NNC, TRTMTX!, ONEDATE, TRTCHK, TXCX!, TXDSP13+2* , TXDSP23+2, TXDSP23+3, TXDSP23+4, BRTHX!
BHSDI	TXCX!, TXDSP23+3*, TXDSP23+5
BHSDTT	TRTMT+7*, TRTMTX!, TRTCHK+4, TRTCHK+12
BHSDTU	TRTMT+7, TRTMTX!, TRTCHK+3, TRTCHK+4, TRTCHK+7*
BHSFAC	TRTMTX!, TRTCHK+5, TRTCHK+6, TRTCHK+12
BHSFO	TRTMTX!, TRTCHK+4, TRTCHK+5, TRTCHK+6
BHSITE	TRTMTX+1!, TXCX+1!
BHSIVD	TRTMT+7, TRTMTX!, ONEDATE, TXCX!, TXDSP6+2, TXDSP13+1, TXDSP13+2, TXDSP23+1
BHSLVL	TRTMTX!, TRTCHK+10*, TRTCHK+11
BHSLVT	TRTMTX!, TRTCHK+10, TRTCHK+11, TRTCHK+12
BHSM	REPHX+24*, REPHX+26, REPHXX!
BHSN	OFFHXX!, OFFDSP+1, OFFDSP+3, OFFDSP+4, OFFDSP+5, REPHX+6, REPHX+10, REPHX+19, REPHX+21, REPHX+26 , REPHX+27, REPHXX!, NEWREP+8, DTOBT, TRTMTX!, TRTCHK*, TRTCHK+1, TRTCHK+2, TRTCHK+8, TRTCHK+9 , TRTCHK+10, BRTHX!
BHSN11	REPHXX!, NEWREP+2*
BHSNAB	TRTMTX+1!, TXCX+1!
BHSNFL	TRTMTX+1!, TXCX+1!
BHSNSH	TRTMTX+1!, TRTCHK+5, TRTCHK+6, TXCX+1!
BHSNT	TRTMTX!, TRTCHK+9*, TRTCHK+12
BHSP	OFFHXX!, PNC, NNC, REPHX+18, REPHX+20, REPHX+26, REPHXX!, NEWREP+8, DTOBT, BRTHX!
BHSPAT	OFFHX+2~, OFFHX+3, OFFHX+4, OFFHX+5, OFFHX+8, REPHX+2~, REPHX+3, REPHX+4, REPHX+5, REPHX+6 , NEWREP+2, NEWREP+4, NEWREP+10, NEWREP+12, NEWREP+13, LATER+1, LATER+4, LATER+6, LATER+9, LATER+10 , LATER+11, LATER+12, LATER+13, EDC+3, EDC+6, EDC+10, EDC+16, EDC+17, EDC+18, EDC+19 , EDC+27, ALLEDD+4, ALLEDD+7, ALLEDD+11, ALLEDD+15, ALLEDD+16, ALLEDD+17, ALLEDD+18, W+8, TRTMT+2~ , TRTMT+3, TRTMT+4, TRTMT+7, ONEDATE, TXC+2~, TXC+3, TXC+4, TXC+7, TXDSP6+2, TXDSP13+2 , BIRTHM+2~, BIRTHM+3*, BIRTHM+4, BIRTHM+7, BIRTHM+17, BIRTHM+18, BIRTHM+23
BHSPI	TXCX+1!, TXDSP23+4*, TXDSP23+5
BHSQ	OFFHX+2~, OFFHX+8, TRTMT+2~, TRTMT+7, ONEDATE, TXC+7, TXDSP6+2, TXDSP13+2
BHST	TRTMTX!, TRTCHK+8, TRTCHK+12, TXC+7, TXCX!, TXDSP6+2, TXDSP13+2
BHSTL	TXC+7*, TXCX!
BHSTX	TXC+7*, TXCX!, TXDSP6+2, TXDSP23+5
BHSVDF	TRTMTX!, TRTCHK+2, TXCX!, TXDSP23+2
BHSVSC	TRTMTX+1!, TRTCHK+2, TXCX+1!
BHX	LATER+4*, LATER+5, LATER+6, LATER+9, LATER+10, LATER+11, LATER+12, LATER+13, TXCX+1!
>> DFN	OFFHX+3, REPHX+3, LATER+5, TRTMT+3, TXC+3, BIRTHM+3
DT	EDC+7, EDC+23, ALLEDD+8, W+4
F	EDC+2~, EDC+26, EDC+27, W+7, W+8
>> GMTSDLM	TRTMT+7
>> GMTSNDM	TRTMT+7*
>> GMTSNPG	OFFDSP+2, OUTC, TRTCHK+3, TRTCHK+12, TXDSP23+5
>> GMTSQIT	OFFHX+6, OFFHX+8, OFFDSP+2, PNC, PNC+1, NNC, OUTC, REPHX+9, REPHX+25, REPHX+27 , NEWREP+3, NEWREP+7, LATER+2, LATER+7, EDC+5, EDC+8, EDC+11, EDC+21, EDC+24, EDC+28 , ALLEDD+6, ALLEDD+9, ALLEDD+12, W+2, W+5, W+9, TRTMT+5, TRTMT+7, ONEDATE, TRTCHK+3 , TRTCHK+12, TXC+5, TXC+7, TXDSP6+2, TXDSP23+5, BIRTHM+5, BIRTHM+9, BIRTHM+11, BIRTHM+13, BIRTHM+15 , BIRTHM+26, BIRTHM+28, BIRTHM+29, BIRTHM+35
GRAV	REPHX+2~, REPHX+12*, REPHX+17
I	NEWREP+1~, NEWREP+5*, NEWREP+6
LAC	REPHX+2~, NEWREP+10*, NEWREP+11
LAC1	REPHX+2~, NEWREP+12*, NEWREP+14
LACDATE	REPHX+2~, NEWREP+13*, NEWREP+14
LC	REPHX+2~, REPHX+14*, REPHX+17
OTHER	REPHX+2~, REPHX+12, REPHX+13, REPHX+14, REPHX+15, REPHX+16
PARA	REPHX+2~, REPHX+13*, REPHX+17
REPHXX	TXCX+1!
RET	FIXDT+1~, FIXDT+2, FIXDT+3, FIXDT+4
SA	REPHX+2~, REPHX+15*, REPHX+17
TA	REPHX+2~, REPHX+16*, REPHX+17
TOT	REPHX+2~, REPHX+17*, REPHX+18
U	OFFHX+4, OFFDSP+3, OFFDSP+4, OFFDSP+5, REPHX+4, REPHX+10, REPHX+19, REPHX+21, REPHX+23, REPHX+26 , REPHX+27, NEWREP+8, LATER+6, LATER+8, LATER+9, LATER+10, LATER+11, LATER+12, LATER+13, DTOBT , EDC+6, EDC+10, ALLEDD+7, ALLEDD+11, TRTCHK+1, TRTCHK+2, TRTCHK+8, TRTCHK+9, TRTCHK+10, TRTCHK+11 , TXDSP23+2, BIRTHM+8, BIRTHM+10, BIRTHM+12, BIRTHM+14, BIRTHM+16, BIRTHM+19, BIRTHM+21, BIRTHM+23, BIRTHM+30 , BIRTHM+38
V	BIRTHM+2~, BIRTHM+19, BIRTHM+20, BIRTHM+21, BIRTHM+22, BIRTHM+23
VAL	FIXDT~, FIXDT+2, FIXDT+3
X	OFFHXX!, OFFDSP+3, OFFDSP+5, REPHX+10, REPHX+11, REPHX+12, REPHX+19, REPHX+20, REPHX+21, REPHX+22 , REPHX+23, REPHX+24, REPHX+26, REPHX+27, REPHXX!, NEWREP+4, NEWREP+6, NEWREP+8, DTOBT, TRTMT+7 , TXCX!, TXDSP13+1, TXDSP23+1, BIRTHM+2~, BIRTHM+10, BIRTHM+12, BIRTHM+14, BIRTHM+16, BRTHX!
Y	OFFHXX!, OFFDSP+5, PNC, NNC, OUTC+1, REPHX+23, REPHXX!, LATER+9, LATER+10, LATER+11* , TXCX!, BRTHX!

Customize PDF page

Package: Health Summary Components

Routine: BHSFAM1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: