Routine: BSDAIU

Package	Total	Call Graph
Kernel	3	^%ZISC ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR
IHS Changes To ADT	2	($$READ,$$TIME,ZIS)^BDGF $$HRCN^BDGF2
IHS Changes To Scheduling	1	($$CONF,$$DIV,$$DIVNM)^BSDU
IHS Patient	1	KILL^AUPNPAT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To Scheduling	1	BSDFORM

Name	Comments	DBIA/ICR reference
PRVT	;find private insurance
TRIBE	; print tribe info
BEGIN	;EP; entry point from queuing and from BSDFORM
STATE(FILE,PAT,FIELD)	; returns state abbreviation for state field sent
MCD	;find medicaid information
EC	; emergency contact info
MCR	;find medicare information
PATE	;EP - called from Other Reports on Appointment Management if patient
DEM	;-- print demographics
OR	;EP - called from Other Reports on Appointment Management if no patient
PRT2	;print request for current information

Name	Field # of Occurrence
^%ZISC	BEGIN+4
KILL^AUPNPAT	BEGIN+5
$$READ^BDGF	OR+3
$$TIME^BDGF	PRT2+11
ZIS^BDGF	PATE+1
$$HRCN^BDGF2	DEM+7
$$CONF^BSDU	DEM+3
$$DIV^BSDU	DEM+2
$$DIVNM^BSDU	DEM+2
$$GET1^DIQ	DEM+6, DEM+8, DEM+9, DEM+10, DEM+12, DEM+23, DEM+24, DEM+25, DEM+26, DEM+29 , DEM+30, DEM+31, DEM+32, DEM+34, DEM+35, DEM+37, DEM+38, DEM+39, DEM+41, DEM+42 , DEM+43, EC+1, EC+2, EC+4, EC+5, EC+6, EC+8, TRIBE+1, TRIBE+4, TRIBE+5 , TRIBE+6, TRIBE+7, MCR+14, PRT2+10, STATE+1, STATE+2
$$FMTE^XLFDT	PRT2+11
$$NOW^XLFDT	PRT2+11
$$REPEAT^XLFSTR	DEM+13, DEM+15, PRVT+2, PRVT+3, MCR+4, MCR+5, MCD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?80-$L(X)\2,X Line Location: DEM+2
Function Call: WRITE	Prompt: !?16,$$CONF^BSDU Line Location: DEM+3
Function Call: WRITE	Prompt: !,?17,"* PATIENT ADDRESS AND INSURANCE UPDATE *" Line Location: DEM+4
Function Call: WRITE	Prompt: !,?9,"* PLEASE MAKE CORRECTIONS TO ANY INCORRECT INFORMATION *" Line Location: DEM+5
Function Call: WRITE	Prompt: !!,$E($$GET1^DIQ(2,DFN,.01),1,27) Line Location: DEM+6
Function Call: WRITE	Prompt: ?30,"HRCN: ",$$HRCN^BDGF2(DFN,+$G(DUZ(2))) Line Location: DEM+7
Function Call: WRITE	Prompt: ?44,"DOB: ",$$GET1^DIQ(2,DFN,.03) Line Location: DEM+8
Function Call: WRITE	Prompt: ?62,"AGE: ",$$GET1^DIQ(9000001,DFN,1102.98) Line Location: DEM+9
Function Call: WRITE	Prompt: !,"SSN: ","XXX-XX-"_$E($$GET1^DIQ(2,DFN,.09),6,9) Line Location: DEM+10
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("*",80) Line Location: DEM+13
Function Call: WRITE	Prompt: !?3,"ELIGIBILITY PENDING - HAVE PATIENT SEE APPROPRIATE PERSONNEL FOR VERIFICATION" Line Location: DEM+14
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("*",80) Line Location: DEM+15
Function Call: WRITE	Prompt: !,?3,"Please enter your address,work and phone number on " Line Location: DEM+18
Function Call: WRITE	Prompt: "the line below." Line Location: DEM+19
Function Call: WRITE	Prompt: !!,?3," " Line Location: DEM+20
Function Call: WRITE	Prompt: X Line Location: DEM+20
Function Call: WRITE	Prompt: ! Line Location: DEM+23
Function Call: WRITE	Prompt: !,X Line Location: DEM+23
Function Call: WRITE	Prompt: ?48,"Home: ",$$GET1^DIQ(2,DFN,.131) Line Location: DEM+24
Function Call: WRITE	Prompt: !,$$GET1^DIQ(2,DFN,.114),", ",$$STATE(2,DFN,.115) Line Location: DEM+25
Function Call: WRITE	Prompt: " ",$$GET1^DIQ(2,DFN,.116) Line Location: DEM+26
Function Call: WRITE	Prompt: ?48,"Birth Place: ",$$STATE(2,DFN,.093) Line Location: DEM+27
Function Call: WRITE	Prompt: !!,?3,"Employer: ",$$GET1^DIQ(9000001,DFN,.19) Line Location: DEM+29
Function Call: WRITE	Prompt: ?48,"Work Phone: ",$$GET1^DIQ(2,DFN,.132) Line Location: DEM+30
Function Call: WRITE	Prompt: !,?3,"Spouse's Employer: ",$$GET1^DIQ(9000001,DFN,.22) Line Location: DEM+31
Function Call: WRITE	Prompt: ?48,"Work Phone: ",$$GET1^DIQ(2,DFN,.258) Line Location: DEM+32
Function Call: WRITE	Prompt: !!,?3,"Father's Name: ",$$GET1^DIQ(2,DFN,.2401) Line Location: DEM+34
Function Call: WRITE	Prompt: ?48,"Birthplace: ",$$GET1^DIQ(9000001,DFN,2602)_", " Line Location: DEM+35
Function Call: WRITE	Prompt: $$STATE(9000001,DFN,2603) Line Location: DEM+36
Function Call: WRITE	Prompt: !,?3,"Father's Employer: ",$$GET1^DIQ(9000001,DFN,2701) Line Location: DEM+37
Function Call: WRITE	Prompt: !,?3,"Mother's Name: ",$$GET1^DIQ(2,DFN,.2403) Line Location: DEM+38
Function Call: WRITE	Prompt: ?48,"Birthplace: ",$$GET1^DIQ(9000001,DFN,2605)_", " Line Location: DEM+39
Function Call: WRITE	Prompt: $$STATE(9000001,DFN,2606) Line Location: DEM+40
Function Call: WRITE	Prompt: !,?3,"Mother's Employer: ",$$GET1^DIQ(9000001,DFN,2702) Line Location: DEM+41
Function Call: WRITE	Prompt: !!?3,"Number in Household: ",$$GET1^DIQ(9000001,DFN,.35) Line Location: DEM+42
Function Call: WRITE	Prompt: ?48,"Household Income: ",$$GET1^DIQ(9000001,DFN,.36) Line Location: DEM+43
Function Call: WRITE	Prompt: !!,?3,"Emergency Contact: ",$$GET1^DIQ(2,DFN,.331) Line Location: EC+1
Function Call: WRITE	Prompt: !,?3,"Relationship: ",$$GET1^DIQ(2,DFN,.332) Line Location: EC+2
Function Call: WRITE	Prompt: ?48,"Phone No.: ",$$GET1^DIQ(2,DFN,.339) Line Location: EC+4
Function Call: WRITE	Prompt: !,?3,"Mailing Address: ",$$GET1^DIQ(2,DFN,.333) Line Location: EC+5
Function Call: WRITE	Prompt: !,?3,"City: ",$$GET1^DIQ(2,DFN,.336) Line Location: EC+6
Function Call: WRITE	Prompt: ?28,"State: ",$$STATE(2,DFN,.337) Line Location: EC+7
Function Call: WRITE	Prompt: ?48,"Zip: ",$$GET1^DIQ(2,DFN,.338) Line Location: EC+8
Function Call: WRITE	Prompt: !!,"ELIGIBILITY: ",$$GET1^DIQ(9000001,DFN,1112),! Line Location: TRIBE+1
Function Call: WRITE	Prompt: !,"TRIBE OF MEMBERSHIP/CORP. BLOOD QUANTUM TRIBE QUANTUM TRIBE" Line Location: TRIBE+2
Function Call: WRITE	Prompt: !,"------------------------- ------------- ------------- -----" Line Location: TRIBE+3
Function Call: WRITE	Prompt: !,$E($$GET1^DIQ(9000001,DFN,1108),1,25) Line Location: TRIBE+4
Function Call: WRITE	Prompt: ?29,$$GET1^DIQ(9000001,DFN,1110) Line Location: TRIBE+5
Function Call: WRITE	Prompt: ?45,$$GET1^DIQ(9000001,DFN,1109) Line Location: TRIBE+6
Function Call: WRITE	Prompt: ?60,$E($$GET1^DIQ(9000001,DFN,1127),1,5) Line Location: TRIBE+7
Function Call: WRITE	Prompt: !!,?3,"INSURANCE COMPANY",?35,"POLICY #",?51,"ELIGIBILITY DATES",! Line Location: PRVT+1
Function Call: WRITE	Prompt: ?3,$$REPEAT^XLFSTR("-",27),?35,$$REPEAT^XLFSTR("-",12) Line Location: PRVT+2
Function Call: WRITE	Prompt: ?51,$$REPEAT^XLFSTR("-",26) Line Location: PRVT+3
Function Call: WRITE	Prompt: !," * NO PRIVATE INSURANCE INFORMATION ON RECORD *" Line Location: PRVT+6
Function Call: WRITE	Prompt: !,?3,$P(Y0,U),?35,$P(X0,U,2) Line Location: PRVT+12
Function Call: WRITE	Prompt: ?51,Y," to " Line Location: PRVT+14
Function Call: WRITE	Prompt: ?66,Y Line Location: PRVT+16
Function Call: WRITE	Prompt: !!,?3,"MEDICARE NUMBER",?21,"RELEASE DATE" Line Location: MCR+1
Function Call: WRITE	Prompt: ?35,"MEDICARE ELIGIBILITY DATES/COVERAGE" Line Location: MCR+2
Function Call: WRITE	Prompt: !,?3,$$REPEAT^XLFSTR("-",16),?21,$$REPEAT^XLFSTR("-",12) Line Location: MCR+4
Function Call: WRITE	Prompt: ?35,$$REPEAT^XLFSTR("-",36) Line Location: MCR+5
Function Call: WRITE	Prompt: !," * NO MEDICARE INFORMATION ON RECORD *" Line Location: MCR+8
Function Call: WRITE	Prompt: !,?3,Y Line Location: MCR+12
Function Call: WRITE	Prompt: ?14,Y0 Line Location: MCR+13
Function Call: WRITE	Prompt: ?21,$$GET1^DIQ(9000001,DFN,.04) Line Location: MCR+14
Function Call: WRITE	Prompt: ?35,Y," to " Line Location: MCR+19
Function Call: WRITE	Prompt: ?50,Y Line Location: MCR+21
Function Call: WRITE	Prompt: ?65,Y Line Location: MCR+23
Function Call: WRITE	Prompt: ! Line Location: MCR+24
Function Call: WRITE	Prompt: !!,?3,"MEDICAID NUMBER",?35,"MEDICAID ELIGIBILITY DATES/COVERAGE" Line Location: MCD+1
Function Call: WRITE	Prompt: !?3,$$REPEAT^XLFSTR("-",16),?35,$$REPEAT^XLFSTR("-",36) Line Location: MCD+2
Function Call: WRITE	Prompt: !," * NO MEDICAID INFORMATION ON RECORD *" Line Location: MCD+5
Function Call: WRITE	Prompt: !,?3,Y Line Location: MCD+10
Function Call: WRITE	Prompt: ?14,Y0 Line Location: MCD+11
Function Call: WRITE	Prompt: ?35,Y," to " Line Location: MCD+16
Function Call: WRITE	Prompt: ?50,Y Line Location: MCD+18
Function Call: WRITE	Prompt: ?65,Y Line Location: MCD+20
Function Call: WRITE	Prompt: !!,?3,"Medicaid date of last update: ",Z,! Line Location: MCD+21
Function Call: WRITE	Prompt: !!,?3,"Does this include Dental coverage? Yes___ No___" Line Location: PRT2+2
Function Call: WRITE	Prompt: !!,?3,"Is this a work related Injury? Yes___ No___",! Line Location: PRT2+3
Function Call: WRITE	Prompt: ?3,"Date of Injury: _______________________" Line Location: PRT2+4
Function Call: WRITE	Prompt: !!,?8,"We appreciate your cooperation and assistance in filling" Line Location: PRT2+5
Function Call: WRITE	Prompt: " out this form." Line Location: PRT2+6
Function Call: WRITE	Prompt: !,?3,"It is important that we keep our patient registration" Line Location: PRT2+7
Function Call: WRITE	Prompt: " files accurate so" Line Location: PRT2+8
Function Call: WRITE	Prompt: !,?3,"that we can provide a better service to you." Line Location: PRT2+9
Function Call: WRITE	Prompt: !!,?3,"The Business Office, ",$$GET1^DIQ(9999999.06,DUZ(2),.02) Line Location: PRT2+10
Function Call: WRITE	Prompt: ?50,"Printed ",$$TIME^BDGF($$NOW^XLFDT)," ",$$FMTE^XLFDT(DT) Line Location: PRT2+11

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(5 - [#5]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
^AUTTLOC - [#9999999.06]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD - [#9000004]	MCD+9, MCD+13, MCD+14
^AUPNMCD("B"	MCD+4, MCD+8
^AUPNMCR - [#9000003]	MCR+7, MCR+11, MCR+16, MCR+17
^AUPNPRVT - [#9000006]	PRVT+5, PRVT+9, PRVT+10
^AUTNINS - [#9999999.18]	PRVT+11
^AUTTMCS - [#9999999.32]	MCR+13
^DD("DD"	PRVT+14, PRVT+16, MCR+19, MCR+21, MCD+12, MCD+16, MCD+18
^DIC(5 - [#5]	MCD+11
^DPT - [#2]	DEM+17

Name	Line Occurrences
$$STATE	DEM+25, DEM+27, DEM+36, DEM+40, EC+7
DEM	BEGIN+2
EC	BEGIN+2
MCD	BEGIN+2
MCR	BEGIN+2
PATE	OR+1
PRT2	BEGIN+2
PRVT	BEGIN+2
TRIBE	BEGIN+2

Name	Field # of Occurrence
^(0	PRVT+10, PRVT+11, MCR+13, MCR+17, MCD+11, MCD+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BSDFORM	OR+2~, BEGIN+4
DFN	OR+1, OR+2~, OR+3*, DEM+6, DEM+7, DEM+8, DEM+9, DEM+10, DEM+12, DEM+17 , DEM+23, DEM+24, DEM+25, DEM+26, DEM+27, DEM+29, DEM+30, DEM+31, DEM+32, DEM+34 , DEM+35, DEM+36, DEM+37, DEM+38, DEM+39, DEM+40, DEM+41, DEM+42, DEM+43, EC+1 , EC+2, EC+4, EC+5, EC+6, EC+7, EC+8, TRIBE+1, TRIBE+4, TRIBE+5, TRIBE+6 , TRIBE+7, PRVT+5, PRVT+9, PRVT+10, MCR+7, MCR+11, MCR+14, MCR+16, MCR+17, MCD+4 , MCD+8
DT	PRT2+11
DUZ(2	DEM+7, PRT2+10
FIELD	STATE~, STATE+1
FILE	STATE~, STATE+1
I	DEM+1~, DEM+23*
IFN	MCD+7~, MCD+8*, MCD+9, MCD+13, MCD+14
IO	BEGIN+1
PAT	STATE~, STATE+1
U	PRVT+12, PRVT+13, PRVT+14, PRVT+15, PRVT+16, MCR+12, MCR+13, MCR+18, MCR+19, MCR+20 , MCR+21, MCR+22, MCR+23, MCD+10, MCD+11, MCD+12, MCD+15, MCD+16, MCD+17, MCD+18 , MCD+19, MCD+20
X	DEM+1~, DEM+2, DEM+20~!, DEM+23, PRVT+8~, PRVT+9, PRVT+10, MCR+3~, MCR+10~, MCR+15 , MCR+16, MCR+17, MCD+7~, MCD+13, MCD+14, PRT2+1~, STATE+1~*, STATE+2
X0	PRVT+8~, PRVT+10, PRVT+11, PRVT+12, PRVT+13, PRVT+14, PRVT+15, PRVT+16, MCR+10~, MCR+11 , MCR+12, MCR+13, MCR+17, MCR+18, MCR+19, MCR+20, MCR+21, MCR+22, MCR+23, MCD+7~ , MCD+9, MCD+10, MCD+11, MCD+12, MCD+14*, MCD+15, MCD+16, MCD+17, MCD+18, MCD+19 , MCD+20
Y	PRVT+8~, PRVT+11, PRVT+14~, PRVT+16~, MCR+3~, MCR+10~, MCR+12, MCR+13, MCR+19~, MCR+21~ , MCR+23~, MCD+7~, MCD+10, MCD+11, MCD+12, MCD+16~, MCD+18~, MCD+20~*, PRT2+1~
Y0	PRVT+8~, PRVT+11, PRVT+12, MCR+10~, MCR+13, MCD+7~, MCD+11*
Z	MCR+3~, MCD+7~, MCD+12, MCD+21

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDAIU

Information

Source Information

Call Graph

Call Graph Total: 8

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: