Routine: BEHOPTC1

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

Package

Total

Call Graph

$$GET^DGENCDA DOM^DGMTR DIS^DGMTU (CS,INP)^DGPMV10 (A,AL)^DGRPU $$BADADR^DGUTL3 ($$INACTIVE,$$PTR2TEXT)^DGUTL4 (DEM,IN5,KVA)^VADPT

VA Fileman

(,$$FIND1)^DIC $$EXTERNAL^DILFD GETS^DIQ ^DIR ^DIWP

Kernel

^%ZIS $$FMTE^XLFDT $$REPEAT^XLFSTR $$NS^XUAF4

IHS Electronic Health Record

$$FMTSSN^BEHOPTCX

Integrated Billing

DISP^IBARXEU

Scheduling

$$OUTPTTM^SDUTL3

Package	Total	Caller Graph
IHS Electronic Health Record	1	BEHOPTCX

Package

Total

Caller Graph

IHS Electronic Health Record

BEHOPTCX

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

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!

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

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

Customize PDF page

Package: IHS Electronic Health Record

Routine: BEHOPTC1

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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