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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BHSFH

Package: Health Summary Components

Routine: BHSFH


Information

BHSFH ; IHS/MSC/MGH - Health summary for family history ;17-Jul-2014 14:19;DU

Source Information

Source file <BHSFH.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Health Summary 2 REGDT4^GMTSU  CKP^GMTSUP  
Health Summary Components 2 $$DATE^BHSMU  (GETICDDX,GETNARR,PRTICD)^BHSUTL  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$REPEAT^XLFSTR  

Entry Points

Name Comments DBIA/ICR reference
FMHX
FMH2 ;
FMH1
FHDSP
LDM(I) ;get last date modified of Family History or relation
FMH ;EP - ******* FAMILY HISTORY * 9000014 *******
; <SETUP>
PWH ;EP - called from component Patient wellness Handout
; <SETUP>

External References

Name Field # of Occurrence
$$DATE^BHSMU PWH+14
GETICDDX^BHSUTL FHDSP+13
GETNARR^BHSUTL FHDSP+16
PRTICD^BHSUTL FHDSP+32
REGDT4^GMTSU FMH2+4
CKP^GMTSUP FMH+5, FHDSP+17, PWH+4
$$VAL^XBDIQ1 FMH+11, FMH+13, FMH1+5, FHDSP+4, FHDSP+5, FHDSP+8, FHDSP+10, FHDSP+21, FHDSP+22, PWH+11
$$REPEAT^XLFSTR PWH+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Date Last Mod",?14,"Relation/Status/Diagnosis"
  • Line Location: FMH1+9
Function Call: WRITE
  • Prompt: !,BHTDAT,?14,BHZ," Status: "
  • Line Location: FHDSP+1
Function Call: WRITE
  • Prompt: BHSTAT,!
  • Line Location: FHDSP+6
Function Call: WRITE
  • Prompt: ?14,"Age at Death: ",$$VAL^XBDIQ1(9000014.1,BHR,.05)," Cause of Death: ",$S($P(^AUPNFHR(BHR,0),U,6)]"":$P(^AUPNFHR(BHR,0),U,6),1:"Data Not Available"),!
  • Line Location: FHDSP+8
Function Call: WRITE
  • Prompt: ?14,"Multiple Birth: "_$$VAL^XBDIQ1(9000014.1,BHR,.07)_$S($P(^AUPNFHR(BHR,0),U,7)="Y":" Multiple Birth Type: "_$$VAL^XBDIQ1(9000014.1,BHR,.08),1:""),!
  • Line Location: FHDSP+10
Function Call: WRITE
  • Prompt: !,APCHSDAT
  • Line Location: FHDSP+17
Function Call: WRITE
  • Prompt: "No Patient Wellness Handouts given to this patient.",!
  • Line Location: PWH+16
Function Call: WRITE
  • Prompt: ?2,"PATIENT WELLNESS HANDOUT TYPE",?34,"# given",?42,"Dates Last 4 Given to Patient",!
  • Line Location: PWH+17
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("-",79),!
  • Line Location: PWH+18
Function Call: WRITE
  • Prompt: ?42,$P(BHTFH(BHSN),U,2)," ",$P(BHTFH(BHSN),U,3)," ",$P(BHTFH(BHSN),U,4)," ",$P(BHTFH(BHSN),U,5),!
  • Line Location: PWH+20

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCHPWHL - [#9001027] PWH+9, PWH+14
^APCHPWHL("AA" PWH+7, PWH+8
^AUPNFH - [#9000014] FMH+9, FMH+10, LDM+2, LDM+5, LDM+6, LDM+7, FHDSP+4, FHDSP+12
^AUPNFH("AC" FMH+4, FMH+8
^AUPNFH("AE" FMH1+3
^AUPNFHR - [#9000014.1] FMH+13, FMH+14, FMH1+5, FMH1+6, FMH1+8, LDM+5, FHDSP+5, FHDSP+7, FHDSP+8, FHDSP+9
, FHDSP+10
^AUPNFHR("AA" FMH+4, FMH1+2
^AUTTRLSH - [#9999999.36] FMH+14, FMH1+6

Label References

Name Line Occurrences
$$LDM FMH1
FHDSP FMH2+6
FMH1 FMH+11
FMH2 FMH1+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A FMHX+1!, FHDSP+18*, FHDSP+22*, FHDSP+28
APCHTFH FMH+7!, FMHX!
APCHTFH( FMH1*, FMH1+8*, FMH1+10, FMH2+1, FMH2+2, FMH2+3, FMH2+4, FMH2+5, FMH2+6
BHC FMHX+1!, FMH2+1*, FMH2+5*, FHDSP*, FHDSP+1, FHDSP+6, FHDSP+8, FHDSP+10
BHD FMHX!, FMH2+5*, FMH2+6
BHIEN FMHX+1!, PWH+8*, PWH+9, PWH+11, PWH+14
BHO FMH1+10*, FMHX!, FMH2+1, FMH2+2, FMH2+3, FMH2+4, FMH2+5, FMH2+6
BHR FMHX!, FMH2+3*, FMH2+4, FMH2+5, FMH2+6, FHDSP+3, FHDSP+5, FHDSP+7, FHDSP+8, FHDSP+9
, FHDSP+10
BHS FMHX!, FMH2+1*, FMH2+2, FMH2+3, FMH2+4, FMH2+5, FMH2+6
BHSDAT FMHX!
BHSDFN FMH+8*, FMH+9, FMH+10, FMH+11, FMH1, FMHX!, FMH2+6*, FHDSP+3, FHDSP+4, FHDSP+11
, FHDSP+12, FHDSP+21, FHDSP+22
BHSICD FMHX!, FHDSP+13*
BHSICL FMHX!, FHDSP+31*
BHSIVD FMHX+1!, PWH+7*, PWH+8
BHSN FMHX!, FHDSP+12*, FHDSP+13, FHDSP+15, PWH+9*, PWH+10, PWH+19*, PWH+20, PWH+22!
BHSNRQ FMHX!, FHDSP+15*, FHDSP+21*, FHDSP+27, FHDSP+31*
BHSPAT FMH+2~, FMH+3*, FMH+4, FMH+8, FMH1+2, PWH+2~, PWH+3*, PWH+7, PWH+8
BHSQ FMH+2~
BHSTAT FMHX+1!, FHDSP+2*, FHDSP+4*, FHDSP+5*, FHDSP+6
BHTD FMHX+1!, FMH2+4*
BHTDAT FMHX+1!, FMH2+4*, FHDSP+1
BHTFH PWH+6!, PWH+16, PWH+22!
BHTFH( PWH+12*, PWH+13, PWH+14*, PWH+19, PWH+20
BHZ FMHX!, FMH2+2*, FMH2+3, FMH2+4, FMH2+5, FMH2+6, FHDSP+1
D LDM+3~, LDM+4*, LDM+5*, LDM+6*, LDM+7*, LDM+8
>> DFN FMH+3, PWH+3
E LDM+3~, LDM+6*, LDM+7*
>> GMTSDLM PWH+7
>> GMTSQIT FMH+5, FMH2+1, FMH2+2, FMH2+3, FMH2+5, FMH2+6, FHDSP+17, PWH+4, PWH+19
I LDM~, LDM+1, LDM+2, LDM+5, LDM+6, LDM+7
J LDM+3~, LDM+5*
N FMHX+1!, FHDSP+18*, PWH+11*, PWH+12, PWH+13, PWH+14
O FMH+11*, FMH+14*, FMH+15*, FMH1, FMH1+6*, FMH1+7*, FMH1+8, FMHX+1!
P FMHX+1!, FHDSP+18*, PWH+13*, PWH+14
R FMH+10*, FMH+11*, FMH+13, FMH+14, FMH1, FMH1+4*, FMH1+5, FMH1+6, FMH1+8, FMHX+1!
, FHDSP+18*
S FMH+11*, FMH+12*, FMH+13*, FMH1, FMH1+5*, FMH1+8, FMHX+1!, FHDSP+18*
T FMHX+1!
U FMH+10, FMH+13, FMH+14, FMH1+5, FMH1+6, FMH1+8, LDM+5, LDM+6, LDM+7, FHDSP+4
, FHDSP+5, FHDSP+7, FHDSP+8, FHDSP+9, FHDSP+10, FHDSP+13, FHDSP+15, PWH+12, PWH+13, PWH+14
, PWH+20
X FMH1+2*, FMHX+1!, FMH2+4*, FHDSP+18*, FHDSP+27*, FHDSP+28*, FHDSP+31
Y FMH1+2*, FMH1+3, FMH1+4, FMHX+1!
Z FMH+11*, FMH+12*, FMH+13*, FMH1, FMH1+5*, FMH1+8, FMHX+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All