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

Package: IHS Electronic Health Record

Routine: BEHOPTC1


Information

BEHOPTC1 ;MSC/IHS/MGH - Patcient Context Object;30-Dec-2010 13:51;PLS

Source Information

Source file <BEHOPTC1.m>

Call Graph

Call Graph Total: 20

Package Total Call Graph
Registration 8 $$GET^DGENCDA  DOM^DGMTR  DIS^DGMTU  (CS,INP)^DGPMV10  (A,AL)^DGRPU  $$BADADR^DGUTL3  ($$INACTIVE,$$PTR2TEXT)^DGUTL4  (DEM,IN5,KVA)^VADPT  
VA Fileman 5 (,$$FIND1)^DIC  $$EXTERNAL^DILFD  GETS^DIQ  ^DIR  ^DIWP  
Kernel 4 ^%ZIS  $$FMTE^XLFDT  $$REPEAT^XLFSTR  $$NS^XUAF4  
IHS Electronic Health Record 1 $$FMTSSN^BEHOPTCX  
Integrated Billing 1 DISP^IBARXEU  
Scheduling 1 $$OUTPTTM^SDUTL3  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Electronic Health Record 1 BEHOPTCX  

Entry Points

Name Comments DBIA/ICR reference
OREN
EN ;call to display patient inquiry - input DFN
OKLINE(DGLINE) ;DOES PAUSE/HEADER IF $Y EXCEEDS DGLINE
HDR
CL
CA ;Confidential Address
COV
INP
CATDIS ;
Q
FA
RMK
SA
SEL
SAA ;Scheduled Admit Data

External References

Name Field # of Occurrence
^%ZIS HDR
$$FMTSSN^BEHOPTCX HDR+3
$$GET^DGENCDA CATDIS+3
DOM^DGMTR EN+57
DIS^DGMTU EN+59
CS^DGPMV10 INP+2
INP^DGPMV10 INP
A^DGRPU EN+7
AL^DGRPU CA+8
$$BADADR^DGUTL3 EN+14
$$INACTIVE^DGUTL4 EN+23, EN+30
$$PTR2TEXT^DGUTL4 EN+24, EN+31
^DIC SEL
$$FIND1^DIC EN+3
$$EXTERNAL^DILFD EN+14
GETS^DIQ CA+9
^DIR SEL, OKLINE+7
^DIWP EN+25, EN+32
DISP^IBARXEU EN+61
$$OUTPTTM^SDUTL3 EN+49
DEM^VADPT EN+6
IN5^VADPT EN+60
KVA^VADPT Q
$$FMTE^XLFDT EN+48, CA+20, SAA+4, FA+6, CATDIS+5
$$REPEAT^XLFSTR EN+46, EN+51
$$NS^XUAF4 EN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: ?1,"Address: ",$S($D(DGA(1)):DGA(1),1:"NONE ON FILE"),?40,"Temporary: ",$S($D(DGA(2)):DGA(2),1:"NO TEMPORARY ADDRESS")
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: DGA(I)
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !?2,"County: ",DGCC
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !?2,"Office: ",$S($P(DGRP(.13),U,2)]"":$P(DGRP(.13),U,2),1:DGRPU)
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,"Bad Addr: ",$$EXTERNAL^DILFD(2,.121,"",$$BADADR^DGUTL3(+DFN))
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !!?4,"POS: ",$S($D(^DIC(21,+$P(DGRP(.32),"^",3),0)):$P(^(0),"^",1),1:DGRPU),?42,"Claim #: ",$S($P(DGRP(.31),"^",3)]"":$P(DGRP(.31),"^",3),1:"UNSPECIFIED")
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !?2,"Relig: ",$S($D(^DIC(13,+$P(DGRP(0),"^",8),0)):$P(^(0),"^",1),1:DGRPU),?46,"Sex: ",$S($P(VADM(5),"^",2)]"":$P(VADM(5),"^",2),1:"UNSPECIFIED")
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !,?9,$G(RACE(X,0)),?51,$G(ETHNIC(X,0))
  • Line Location: EN+36
Function Call: WRITE
  • Prompt: !!,"Primary Eligibility: ",$S($D(^DIC(8,+X1,0)):$P(^(0),"^",1)_" ("_$S(X="V":"VERIFIED",X="P":"PENDING VERIFICATION",X="R":"PENDING REVERIFICATION",1:"NOT VERIFIED")_")",1:DGRPU)
  • Line Location: EN+38
Function Call: WRITE
  • Prompt: !,"Other Eligibilities: "
  • Line Location: EN+39
Function Call: WRITE
  • Prompt: !?21
  • Condition for execution: $X+$L(X)>79
  • Line Location: EN+39
Function Call: WRITE
  • Prompt: X
  • Line Location: EN+39
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",78)
  • Line Location: EN+46
Function Call: WRITE
  • Prompt: !,"[PRE-REGISTER DATE:] "_$S(DGPDT]"":$$FMTE^XLFDT(DGPDT,"1D"),1:"NONE ON FILE")
  • Line Location: EN+48
Function Call: WRITE
  • Prompt: !,"[PRIMARY CARE TEAM:] "_$P(DGPTM,U,2)
  • Line Location: EN+50
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",78)
  • Line Location: EN+51
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+64
Function Call: WRITE
  • Prompt: !!?1,"Confidential Address: ",?44,"Confidential Address Categories:"
  • Line Location: CA+1
Function Call: WRITE
  • Prompt: DGA(I)
  • Line Location: CA+19
Function Call: WRITE
  • Prompt: @IOF,!,$P(VADM(1),"^",1),?40,SSN,?65,$P(VADM(3),"^",2)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,X,!?15,"COORDINATING MASTER OF RECORD: ",DGCMOR,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!?14,"Scheduled Admit"
  • Line Location: SAA+1
Function Call: WRITE
  • Prompt: " on "_$$FMTE^XLFDT(L,"5DZ")
  • Line Location: SAA+4
Function Call: WRITE
  • Prompt: !!,"Currently enrolled in "
  • Condition for execution: SDCT=1
  • Line Location: CL+0
Function Call: WRITE
  • Prompt: !?22
  • Condition for execution: $X>50
  • Line Location: CL+0
Function Call: WRITE
  • Prompt: $S($D(^SC(+^(0),0)):$P(^(0),"^",1)_", ",1:"")
  • Line Location: CL+0
Function Call: WRITE
  • Prompt: "NONE"
  • Line Location: FA+1
Function Call: WRITE
  • Prompt: ?22,"Date",?33,"Time",?39,"Clinic",!?22
  • Line Location: FA+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: FA+2
Function Call: WRITE
  • Prompt: !,"See Scheduling options for additional appointments."
  • Line Location: FA+11
Function Call: WRITE
  • Prompt: !!,"Remarks: ",$P(^DPT(DFN,0),"^",10)
  • Line Location: RMK+0
Routine Call
  • DIC
  • Line Location:
    • EN+3
Routine Call
  • DIC
  • Line Location:
    • SEL
Routine Call
  • DIR
  • Line Location:
    • SEL
    • OKLINE+7
Routine Call
  • %ZIS
  • Line Location:
    • HDR

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  EXTERNAL^DILFD,  GETS^DIQ
^DIC(4 - [#4] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+11
^DG(43 - [#43] EN+6
^DGS(41.1 - [#41.1] SA
^DGS(41.41 - [#41.41] EN+47
^DIC(13 - [#13] EN+17
^DIC(21 - [#21] EN+16
^DIC(42 - [#42] SAA+2
^DIC(45.7 - [#45.7] SAA+3
^DIC(5 - [#5] EN+10
^DIC(8 - [#8] EN+38, EN+39
^DPT - [#2] EN+2, EN+6, EN+21, EN+22, EN+24, EN+28, EN+29, EN+31, CL, FA+1
, FA+4, FA+11, RMK
^DPT("AEL" EN+39
^SC - [#44] CL, FA+9
^UTILITY($J EN+20!, EN+26, EN+27!, EN+33, EN+34!

Label References

Name Line Occurrences
$$OKLINE EN+37, EN+44, EN+56, EN+66, EN+67, SA, FA, RMK
CA EN+15
CATDIS EN+42
CL SA
COV FA+4
EN SEL, OREN
FA CL
HDR EN+6, OKLINE+7
INP EN+66
Q SEL, EN+37, EN+44, EN+56
RMK FA, FA+1, FA+4
SA EN+67
SAA SA
SEL SEL

Naked Globals

Name Field # of Occurrence
^( EN+6, CL, FA+4
^(0 EN+6, EN+10, EN+16, EN+17, EN+38, EN+39, SAA+2, SAA+3, CL, FA+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT Q!
ADM RMK+1!
C FA+4*, FA+9, RMK+1!
COV FA+9, RMK+1!, COV*
CT FA+1*, RMK+1!, COV*
D0 Q!
D1 Q!
DFN SEL!*, EN+2, EN+6, EN+14, EN+21, EN+22, EN+24, EN+28, EN+29, EN+31
, EN+39, EN+47, EN+49, EN+59, EN+61, CA+9, SA, CL, FA+1, FA+4
, FA+11, RMK, OREN*, CATDIS+3
DGA Q!, CA+2~
DGA( EN+9, CA+15*, CA+17*, CA+19
DGA(1 EN+8
DGA(2 EN+8
DGA1 EN+7*, Q!, CA+7*
DGA2 EN+7*, Q!, CA+7*, CA+13*, CA+15, CA+17, CA+18*
DGABBRV EN+6*, EN+16, EN+17, EN+18, Q!
DGAD EN+7*, Q!, CA+7*
DGAPPT FA+5~, FA+6*, FA+7, FA+8
DGARRAY CA+2~
DGARRAY( CA+14, CA+15, CA+16
DGCABEG CA+2~, CA+3*, CA+4, CA+20
DGCAEND CA+2~, CA+3*, CA+4, CA+20
DGCAST CA+11~, CA+16*, CA+17
DGCC EN+10*, Q!
DGCDIS CATDIS+2~, CATDIS+3
DGCDIS("REVDTE" CATDIS+4, CATDIS+5
DGCMOR EN+2*, EN+4*, Q!, HDR+4
DGD RMK+1!
DGD1 RMK+1!
DGDOM EN+55~, EN+58, Q!
DGDOM1 EN+55~
DGERROR CA+2~
>> DGHIEN CA+14
DGHOW EN+6!
DGIEN CA+11~, CA+12*, CA+14*, CA+15, CA+16
DGLINE OKLINE~, OKLINE+6, OKLINE+7*, OKLINE+8
DGLOCATN EN+3*, EN+4, Q!
DGMPI EN+2*, EN+3, EN+4, Q!
DGPDT EN+45~, EN+47*, EN+48
DGPMDCD INP+2!
DGPMIFN INP+2!
DGPMT INP+1*, INP+2!
DGPMVI INP+2!
>> DGPRFLG EN+44
DGPTM EN+45~, EN+49*, EN+50
DGRP Q!
DGRP( EN+6*, EN+7, EN+10, EN+11, EN+12, EN+13, EN+16, EN+38, CA+3
DGRP(0 EN+17
DGRPOUT SEL!, EN+6!, EN+67, SA, RMK, OKLINE+7*
DGRPU EN+6*, EN+10, EN+11, EN+12, EN+13, EN+16, EN+17, EN+38, Q!
DGS Q!
DGST EN+10*, Q!
>> DGSWITCH INP+2
DGTMPAD EN+7*, EN+11, EN+12!
DGXFR0 Q!
DIC SEL*, Q!
DIC(0 SEL*
DIR Q!, OKLINE+7~
DIR(0 SEL*, OKLINE+7*
DIROUT Q!
DIRUT Q!
DIS RMK+1!
DIWF EN+19~, EN+25*, EN+32*
DIWL EN+19~, EN+25*, EN+32*
DIWR EN+19~, EN+25*, EN+32*
DT EN+7, EN+61, CA+4, SA, FA+1, FA+4
DTIME OREN
DTOUT SEL, Q!
DUOUT SEL, Q!
ETHNIC EN+19~, EN+33*
ETHNIC( EN+36
ETHNIC(1 EN+33*, EN+35
FA FA+4*, FA+6, FA+11, RMK+1!
I EN+6*, EN+9*, EN+39*, Q!, CA+19*, SA*, CL*, FA+2*, RMK+1!
I1 EN+9*, Q!, CA+19*
IOF HDR, HDR+4
IOP HDR*!
IOST OKLINE+6
L Q!, SA*, SAA+4, FA+4*, RMK+1!, COV
LDM Q!
NOW RMK+1!
>> ORVP OREN
POP Q!
PTR EN+19~, EN+21*, EN+22, EN+24, EN+28*, EN+29, EN+31
RACE EN+19~, EN+26*
RACE( EN+36
RACE(1 EN+26*, EN+35
SDCT Q!, CL*
SSN HDR+2~, HDR+3*, HDR+4, RMK+1!
TRN RMK+1!
U EN+3, EN+10, EN+11, EN+12, EN+13, EN+50, CA+3, SAA+2, SAA+3
VA Q!
>> VADM(1 HDR+4
>> VADM(2 HDR+3
>> VADM(3 HDR+4
>> VADM(5 EN+17
VAERR EN+55~
VAHOW EN+55~
VAINDT EN+55~
VAIP EN+55~
VAIP("D" INP*
VAIP("L" EN+65*
VAIP(1 EN+61
VAL EN+19~, EN+22*, EN+23, EN+24*, EN+25, EN+29*, EN+30, EN+31*, EN+32
VAROOT EN+55~
X EN+11*, EN+12, EN+19~, EN+25*, EN+32*, EN+36*, EN+38*, EN+39*, Q!, HDR+4*
, SA*, SAA+2, SAA+3, OREN*, OKLINE+5~
X1 EN+38*, EN+39, Q!
>> XQORQUIT OREN*
Y SEL~, EN+11*, Q!, OKLINE+5~, OKLINE+7
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