Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BHSFAM1

Package: Health Summary Components

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

FileMan Files Accessed Via FileMan Db Call

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

Naked Globals

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All