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: BHSDEM

Package: Health Summary Components

Routine: BHSDEM


Information

BHSDEM ;IHS/MSC/MGH - Health Summary Demographics ;14-Jan-2014 14:59;DU

Source Information

Source file <BHSDEM.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
DRG Grouper 2 ($$ICDD,$$ICDDX)^ICDCODE  ($$ICDD,$$ICDDX)^ICDEX  
VA Fileman 2 $$GET1^DIQ  ^DIWP  
Health Summary 1 CKP^GMTSUP  
Health Summary Components 1 $$AICD^BHSUTL  
IHS Patient 1 ($$AGE,$$DOB,$$DOD)^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 ($$FMDIFF,$$FMTE)^XLFDT  
Patient Care Component Reports 1 $$PREFLANG^APCLAPI7  
Uncategorized 1 ACTAGR^BCPAPI  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Health Summary Components 1 BHSBDEM  

Entry Points

Name Comments DBIA/ICR reference
DEMOG ; ******************** DEMOGRAPHICS ********************
SSN(P) ;EP
DSPCMSRG ; DISPLAY MEMBERSHIP IN CMS REGISTER
V ;
VSTAT
WWDSPL(DFN) ;
BDPDISP ;display providers from desg prov package
DEMDSP ; <DISPLAY>
REM ;
AGE(DFN,D,F) ;EP - Given DFN, return Age.
WWENPROC(DFN) ;
DEMOGX
VSDT

External References

Name Field # of Occurrence
$$PREFLANG^APCLAPI7 DEMDSP+35
$$AGE^AUPNPAT WWDSPL+12
$$DOB^AUPNPAT AGE+3, AGE+7
$$DOD^AUPNPAT DEMDSP+3, DEMDSP+10, DEMDSP+11
ACTAGR^BCPAPI REM+15
$$AICD^BHSUTL DEMDSP+9
$$GET1^DIQ WWDSPL+8, WWDSPL+10, WWENPROC+5, WWENPROC+6
^DIWP DEMDSP+18
CKP^GMTSUP DEMDSP+1, DEMDSP+54, REM+9, BDPDISP+3
$$ICDD^ICDCODE DEMDSP+11
$$ICDDX^ICDCODE DEMDSP+11
$$ICDD^ICDEX DEMDSP+10
$$ICDDX^ICDEX DEMDSP+10
$$VAL^XBDIQ1 DEMDSP+3, DEMDSP+4, DEMDSP+5, DEMDSP+6, DEMDSP+10, DEMDSP+11, DEMDSP+45, DEMDSP+47, REM+3, REM+4
, REM+5, REM+14, DSPCMSRG+6, BDPDISP+9
$$FMDIFF^XLFDT AGE+7
$$FMTE^XLFDT DEMDSP+46, WWDSPL+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "*** DOD: ",$$FMTE^XLFDT($$DOD^AUPNPAT(BHSPAT),"2D")," ***",!
  • Line Location: DEMDSP+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEMDSP+22
Function Call: WRITE
  • Prompt: BHSNAM
  • Line Location: DEMDSP+25
Function Call: WRITE
  • Prompt: !,?34,BHSBT,!
  • Line Location: DEMDSP+29
Function Call: WRITE
  • Prompt: $E(BHSTR,1,33)
  • Condition for execution: BHSTR]""
  • Line Location: DEMDSP+32
Function Call: WRITE
  • Prompt: ?34,"SSN: ",BHSSN
  • Condition for execution: BHSSN]""
  • Line Location: DEMDSP+32
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMDSP+32
Function Call: WRITE
  • Prompt: ?34,"MOTHER'S MAIDEN NAME: ",BHSMNM
  • Condition for execution: BHSMNM]""
  • Line Location: DEMDSP+33
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMDSP+33
Function Call: WRITE
  • Prompt: BHSHPH,BHSOPH
  • Line Location: DEMDSP+34
Function Call: WRITE
  • Prompt: ?34,"FATHER'S NAME: ",BHSFNM
  • Condition for execution: BHSFNM]""
  • Line Location: DEMDSP+34
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMDSP+34
Function Call: WRITE
  • Prompt: "OTHER PHONE: ",BHOTPH
  • Line Location: DEMDSP+37
Function Call: WRITE
  • Prompt: ?34,"PREFERRED LANGUAGE: ",BHPLNG
  • Line Location: DEMDSP+38
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMDSP+39
Function Call: WRITE
  • Prompt: BHSCMR,!!
  • Line Location: DEMDSP+40
Function Call: WRITE
  • Prompt: "LAST UPDATED: ",BHSLUD," "
  • Condition for execution: BHSLUD]""
  • Line Location: DEMDSP+41
Function Call: WRITE
  • Prompt: ?34,"ELIGIBILITY: ",BHSEL
  • Condition for execution: BHSEL]""
  • Line Location: DEMDSP+41
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMDSP+41
Function Call: WRITE
  • Prompt: !,"NOTICE OF PRIVACY PRACTICES REC'D BY PATIENT? ",$$VAL^XBDIQ1(9000038,BHSPAT,.02)
  • Line Location: DEMDSP+45
Function Call: WRITE
  • Prompt: !," DATE RECEIVED BY PATIENT: ",$$FMTE^XLFDT($P(BHSNPP,U,3))
  • Line Location: DEMDSP+46
Function Call: WRITE
  • Prompt: !," WAS ACKNOWLEDGEMENT SIGNED? ",$$VAL^XBDIQ1(9000038,BHSPAT,.04)
  • Line Location: DEMDSP+47
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMDSP+50
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMDSP+52
Function Call: WRITE
  • Prompt: ?24,BHSHRN," ",BHSFAC,!
  • Line Location: DEMDSP+53
Function Call: WRITE
  • Prompt: "DESIGNATED PROVIDER: ",BHSPP,!
  • Line Location: DEMDSP+56
Function Call: WRITE
  • Prompt: ?(38-$L(A)),A,": "_$$VAL^XBDIQ1(9002086,BHSPAT,.25),!
  • Line Location: REM+3
Function Call: WRITE
  • Prompt: ?(38-$L(A)),A,": ",$E($$VAL^XBDIQ1(9000001,BHSPAT,1701),1,22),!
  • Line Location: REM+4
Function Call: WRITE
  • Prompt: ?(38-$L(A)),A,": ",$$VAL^XBDIQ1(9000001,BHSPAT,1704),!
  • Line Location: REM+5
Function Call: WRITE
  • Prompt: "REMARKS:",?9,BHSRE1,!
  • Line Location: REM+6
Function Call: WRITE
  • Prompt: ?9,BHSRE2,!
  • Condition for execution: BHSRE2]""
  • Line Location: REM+6
Function Call: WRITE
  • Prompt: "REMARKS:",!
  • Line Location: REM+7
Function Call: WRITE
  • Prompt: ?1,"[more]",!
  • Line Location: REM+11
Function Call: WRITE
  • Prompt: ?45,$S(APCHAG:"Opioid Agreement",1:"No Opioid Agreement"),!
  • Line Location: REM+15
Function Call: WRITE
  • Prompt: ?21,$P(^ACM(41.1,BHSI,0),U)
  • Line Location: DSPCMSRG+5
Function Call: WRITE
  • Prompt: " Status: ",$$VAL^XBDIQ1(9002241,BHSK,1),!
  • Line Location: DSPCMSRG+6
Function Call: WRITE
  • Prompt: ?30,"DESIGNATED PROVIDERS",!
  • Line Location: BDPDISP+1
Function Call: WRITE
  • Prompt: ?(38-$L(A)),A,": "_$$VAL^XBDIQ1(90360.1,BHSX,.03),!
  • Line Location: BDPDISP+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] GET1^DIQ
^BWPCD - [#9002086.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" REM+13
^ACM(41 - [#9002241] DSPCMSRG+2, DSPCMSRG+4, DSPCMSRG+6
^ACM(41.1 - [#9002241.1] DSPCMSRG+4, DSPCMSRG+5
^APCHSITE - [#9001023] V+9, V+10
^AUPNNPP - [#9000038] DEMDSP+44
^AUPNPAT - [#9000001] DEMOG+16, V+2, V+15, V+16, V+17, V+28, DEMDSP+10, DEMDSP+11, DEMDSP+53, REM+4
, REM+5
^AUTTTRI - [#9999999.03] V+5
^BCPP( REM+12
^BDPRECN - [#90360.1] BDPDISP+5
^BDPRECN("C" DEMDSP+55, BDPDISP+2
^BDPTCAT - [#90360.3] BDPDISP+7, BDPDISP+8
^BWP - [#9002086] REM+3
^BWPCD("C" WWENPROC+4
^DD("DD" DEMOG+10, DEMOG+19
^DD(9000001 DEMOG+45, V+7
^DIC(23 - [#23] VSTAT+3
^DIC(4 - [#4] DEMDSP+53
^DIC(5 - [#5] V+20
^DPT - [#2] DEMOG+5, DEMOG+13, DEMOG+21, DEMOG+22, V+1, V+20, V+23, VSTAT+1, VSTAT+2, VSTAT+5
, AGE+2, SSN+2, SSN+3
^LR - [#63] DEMOG+26, DEMOG+27
^UTILITY($J DEMDSP+12!, DEMDSP+19, DEMDSP+21, DEMDSP+24!
^VA(200 - [#200] DEMOG+45

Label References

Name Line Occurrences
$$AGE DEMDSP+26
$$SSN DEMOG+11
$$WWENPROC WWDSPL+4
BDPDISP DEMDSP+55
DEMDSP V+29
DSPCMSRG REM+16
REM DEMDSP+55
VSDT VSTAT+4
VSTAT V+1

Naked Globals

Name Field # of Occurrence
^( V+20, VSTAT+1, VSTAT+5, DEMDSP+53
^("VET" V+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A DEMOG+2~, REM+2~, REM+3*, REM+4*, REM+5*, BDPDISP+5*, BDPDISP+6, BDPDISP+7, BDPDISP+8, BDPDISP+9*
AGE WWDSPL+1~, WWDSPL+12*, WWDSPL+13
APCHAG REM+15, DEMOGX!
BHOTPH DEMOG+2~, V+28*, DEMDSP+37, DEMDSP+39
BHPLNG DEMOG+2~, DEMDSP+35*, DEMDSP+38, DEMDSP+39
BHSADR V+19*, V+20*, V+21*, V+22, DEMOGX!
BHSBT DEMOG+33*, DEMOG+37*, DEMOG+38*, DEMDSP+29, DEMDSP+30, DEMOGX!
BHSCMR V+8*, V+22*, DEMDSP+40, DEMOGX!
BHSDOB DEMOG+1~, DEMOG+9*, DEMOG+10*, DEMDSP+26, DEMOGX!
BHSDSC DEMDSP+7!, DEMDSP+10*, DEMDSP+11*, DEMDSP+24!
BHSDSC( DEMDSP+14, DEMDSP+15
BHSDSC(1 DEMDSP+10*, DEMDSP+11*
BHSEL V+6*, V+7*, DEMDSP+41, DEMOGX!
BHSEX DEMOG+7*, DEMDSP+27, DEMOGX!, WWDSPL+2
BHSFAC DEMDSP+53*, DEMOGX!
BHSFLD DEMOG+2~, V+10*, V+12*, V+16, V+17
BHSFNM DEMOG+1~, DEMOG+15*, DEMDSP+34
BHSFP DEMDSP+53*, DEMOGX!
BHSHPH V+24*, V+25*, V+26*, V+27, DEMDSP+34, DEMOGX!
BHSHRN DEMDSP+53*, DEMOGX!
BHSI V+7*, DEMOGX!, DSPCMSRG+1~, DSPCMSRG+4*, DSPCMSRG+5, DSPCMSRG+6
BHSJ DEMOGX!, DSPCMSRG+1~, DSPCMSRG+3*, DSPCMSRG+4, DSPCMSRG+5*
BHSK DSPCMSRG+1~, DSPCMSRG+6*
BHSLUD DEMOG+18*, DEMOG+19*, DEMDSP+41, DEMOGX!
BHSMNM DEMOG+1~, DEMOG+14*, DEMDSP+32, DEMDSP+33, DEMOGX!
BHSN DEMOG+1~, DEMOG+5*, DEMOG+6, DEMOG+7, DEMOG+8, DEMOG+13*, DEMOG+14, DEMOG+15, DEMOG+16*, DEMOG+17
, DEMOG+37, DEMOG+42, V+2*, V+3, V+6, V+8, V+20*, V+23*, V+24, VSTAT+2*
, VSTAT+3, VSTAT+4, VSTAT+5*, DEMOGX!
BHSNAM DEMOG+1~, DEMOG+6*, DEMDSP+25, DEMOGX!
BHSNL DEMOG+2~, V+9*, V+11*, V+16, V+17, REM+11
BHSNPP DEMDSP+44*, DEMDSP+46, DEMDSP+48, DEMDSP+49, DEMDSP+51!
BHSOPH V+24*, V+25, V+27*, DEMDSP+34, DEMOGX!
BHSP V+7*, V+20*, DEMOGX!
BHSPAT DEMOG+1~, DEMOG+3*, DEMOG+5, DEMOG+11, DEMOG+13, DEMOG+16, DEMOG+21, DEMOG+22, V+1, V+2
, V+15, V+16, V+17, V+20, V+23, V+28, VSTAT+1, VSTAT+2, VSTAT+5, DEMDSP+3
, DEMDSP+4, DEMDSP+5, DEMDSP+6, DEMDSP+10, DEMDSP+11, DEMDSP+26, DEMDSP+35, DEMDSP+44, DEMDSP+45, DEMDSP+47
, DEMDSP+53, DEMDSP+55, REM+3, REM+4, REM+5, REM+12, REM+14, REM+15, DSPCMSRG+2, DSPCMSRG+4
, DSPCMSRG+6, BDPDISP+2
BHSPP DEMOG+42*, DEMOG+43*, DEMOG+44*, DEMOG+45*, DEMDSP+56, DEMOGX!
BHSRE1 V+13!, REM+7, DEMOGX!
BHSRE1( V+16*, REM+8, REM+10
BHSRE1(99999 V+17*
BHSRE2 DEMOGX!
BHSSEX DEMOG+1~
BHSSN DEMOG+11*, DEMDSP+32, DEMOGX!
BHSTR V+3*, V+4*, V+5*, DEMDSP+32, DEMOGX!
BHSVST V+1*, VSTAT*, VSTAT+1*, VSTAT+3*, VSTAT+4*, VSTAT+5*, DEMDSP+42, DEMOGX!
BHSX DEMOG+2~, DEMOG+40!, DEMDSP+13*, DEMDSP+14*, DEMDSP+15, DEMDSP+24!, REM+8*, REM+10, BDPDISP+2*, BDPDISP+5
, BDPDISP+9
BHSX("ABO" DEMOG+28*, DEMOG+29, DEMOG+32
BHSX("ABO/Rh" DEMOG+32*, DEMOG+33, DEMOG+36
BHSX("LR" DEMOG+27*, DEMOG+28, DEMOG+30
BHSX("LRDFN" DEMOG+22*, DEMOG+24, DEMOG+25, DEMOG+26, DEMOG+27
BHSX("Rh" DEMOG+30*, DEMOG+31, DEMOG+32
BHSZ DEMDSP+19*, DEMDSP+21, DEMDSP+24!
BHTCNT DEMOG+2~, V+14*, V+15*, REM+11
C DEMOG+2~, V+14*, V+16*, V+17*
D AGE~, AGE+4*, AGE+7
DAY AGE+6~, AGE+7*, AGE+8, AGE+12
DFN DEMOG+3, AGE~, AGE+1, AGE+2, AGE+3, AGE+7, WWDSPL~, WWDSPL+4, WWDSPL+8, WWDSPL+10
, WWDSPL+12, WWENPROC~, WWENPROC+3, WWENPROC+4
DIW DEMDSP+24!
DIWL DEMDSP+14*, DEMDSP+19, DEMDSP+21, DEMDSP+24!
DIWR DEMDSP+14*, DEMDSP+24!
DT DEMDSP+26, DEMDSP+35, AGE+4
DUZ(2 V+9, V+10
E V+20*, DEMOGX!
F AGE~, AGE+5*, AGE+9
>> GMTSQIT DEMDSP+1, DEMDSP+14, DEMDSP+20, DEMDSP+54, REM+8, REM+9, BDPDISP+3
IEN WWENPROC+1~, WWENPROC+4*, WWENPROC+5, WWENPROC+6
P SSN~, SSN+1, SSN+2, SSN+3
PDT WWENPROC+1~, WWENPROC+2*, WWENPROC+3, WWENPROC+4*, WWENPROC+6*, WWENPROC+7
SDATE WWDSPL+1~, WWDSPL+3*, WWDSPL+6*, WWDSPL+10*, WWDSPL+15
STAT WWDSPL+1~, WWDSPL+3*, WWDSPL+6*, WWDSPL+8*, WWDSPL+9, WWDSPL+13*, WWDSPL+14, WWDSPL+15
U DEMOG+6, DEMOG+7, DEMOG+8, DEMOG+14, DEMOG+15, DEMOG+17, DEMOG+28, DEMOG+30, DEMOG+37, DEMOG+42
, DEMOG+45, V+1, V+3, V+5, V+6, V+7, V+8, V+9, V+10, V+20
, V+24, V+28, VSTAT+1, VSTAT+3, VSTAT+4, VSTAT+5, DEMDSP+10, DEMDSP+11, DEMDSP+46, DEMDSP+48
, DEMDSP+49, DEMDSP+53, REM+3, REM+4, REM+5, DSPCMSRG+4, DSPCMSRG+5, BDPDISP+5, BDPDISP+8, SSN+3
WW WWDSPL+1~, WWDSPL+4*, WWDSPL+5, WWDSPL+6
X V+7*, V+15*, V+16*, V+17*, DEMDSP+15*, DEMDSP+16, DEMDSP+17, REM+13*, DEMOGX!
Y DEMOG+2~, DEMOG+8*, DEMOG+9, DEMOG+10, DEMOG+17*, DEMOG+18, DEMOG+19, VSTAT+4*, VSTAT+5*, VSDT*
, DEMOGX!
YEAR AGE+6~, AGE+8*, AGE+9, AGE+12
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