Routine: ASDAIU

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
IHS Changes To Scheduling	2	($$CONF,$$HRCN,TIME)^ASDUT ^ASDZAGE
IHS VA Utilities	1	$$VAL^XBDIQ1
VA Fileman	1	^DIC

Package	Total	Caller Graph
IHS Changes To Scheduling	2	ASDAIU1 ASDFORM

Entry Points

Name	Comments	DBIA/ICR reference
END1	;EP; called by ASDFORM
TRIBE	;
BEGIN	;-- begin
SET	;EP; called by ZTLOAD and by RS/HS prints
END	;-- kill variables
PARENT	; -- parents' birth info
AGE()	; -- get the printable age
SP	; -- select patient
MCD1	;print medicaid header
DEV	; select device
MCR1	;print medicare header
MCD	;find medicaid information
QUE	; -- queued output
DEM	;-- print demographics
EMPLY
PRVT1	;print header for private insurance
SEMPY	; -- spouse employer
EMPY	; -- employer name
PRVT	;find private insurance
MCR	;find medicare information
PRT2	;print request for current information

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
^%ZISC	END+1
^%ZTLOAD	QUE+2
$$CONF^ASDUT	DEM+4
$$HRCN^ASDUT	SET+9
TIME^ASDUT	PRT2+11
^ASDZAGE	AGE+4
^DIC	SP+2
$$VAL^XBDIQ1	MCR+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DEM+2
Function Call: WRITE	Prompt: !!,?80-$L(SITE)\2,SITE Line Location: DEM+3
Function Call: WRITE	Prompt: !?16,$$CONF^ASDUT Line Location: DEM+4
Function Call: WRITE	Prompt: !,?17,"* PATIENT ADDRESS AND INSURANCE UPDATE *" Line Location: DEM+5
Function Call: WRITE	Prompt: !,?9,"* PLEASE MAKE CORRECTIONS TO ANY INCORRECT INFORMATION *" Line Location: DEM+6
Function Call: WRITE	Prompt: !!,$E(NAME,1,27) Line Location: DEM+7
Function Call: WRITE	Prompt: ?30,"HRCN: ",HRCN,?44,"DOB: ",DOB,?62,"AGE: ",$$AGE Line Location: DEM+9
Function Call: WRITE	Prompt: !,"SSN: ",SSN Line Location: DEM+10
Function Call: WRITE	Prompt: !!,?3,"***** ELIGIBILITY PENDING - " Line Location: DEM+14
Function Call: WRITE	Prompt: "PLEASE SEND PATIENT TO ADMITTING *****" Line Location: DEM+15
Function Call: WRITE	Prompt: !,?3,"Please enter your address,work and phone number on " Line Location: DEM+17
Function Call: WRITE	Prompt: "the line below." Line Location: DEM+18
Function Call: WRITE	Prompt: !!,?3," " Line Location: DEM+19
Function Call: WRITE	Prompt: X Line Location: DEM+19
Function Call: WRITE	Prompt: ! Line Location: DEM+20
Function Call: WRITE	Prompt: !,$P(ADDR,U,LL) Condition for execution: $P(ADDR,U,LL)]"" Line Location: DEM+20
Function Call: WRITE	Prompt: ?48,"Home: ",$P(SDDPTN13,U,1) Line Location: DEM+21
Function Call: WRITE	Prompt: !,$P(ADDR,U,4),"," Line Location: DEM+22
Function Call: WRITE	Prompt: " "_$P(ADDR,U,6),?48,"Birth Place: ",PBIRTH Line Location: DEM+24
Function Call: WRITE	Prompt: !!,?3,"Employer: ",EMPY,?48,"Work Phone: ",$P(SDDPTN13,U,2) Line Location: EMPLY+0
Function Call: WRITE	Prompt: !,?3,"Spouse's Employer: ",SEMPY,?48,"Work Phone: ",SPHONE Line Location: EMPLY+1
Function Call: WRITE	Prompt: !!,?3,"Father's Name: ",FNAME,?48,"Birthplace: ",FCBIRTH_" "_FSBIRTH Line Location: EMPLY+2
Function Call: WRITE	Prompt: !,?3,"Mother's Name: ",MNAME,?48,"Birthplace: ",MCBIRTH_" "_MSBIRTH Line Location: EMPLY+3
Function Call: WRITE	Prompt: !!,?3,"Emergency Contact: ",NKNAME Line Location: EMPLY+4
Function Call: WRITE	Prompt: !,?3,"Relationship: ",NKREL,?48,"Phone No.: ",NKPHONE Line Location: EMPLY+5
Function Call: WRITE	Prompt: !,?3,"Mailing Address: ",NKADD Line Location: EMPLY+6
Function Call: WRITE	Prompt: !,?3,"City: ",NKCITY,?28,"State: ",NKST,?48,"Zip: ",NKZIP Line Location: EMPLY+7
Function Call: WRITE	Prompt: !! Line Location: TRIBE+1
Function Call: WRITE	Prompt: !,"ELIGIBILITY: " Line Location: TRIBE+2
Function Call: WRITE	Prompt: $S(ELG="I":"INELIGIBLE",ELG="C":"CHS & DIRECT",ELG="D":"DIRECT ONLY",ELG="P":"PENDING VERIFICATION",1:"") Line Location: TRIBE+4
Function Call: WRITE	Prompt: !,"TRIBE OF MEMBERSHIP/CORP. BLOOD QUANTUM TRIBE QUANTUM TRIBE" Line Location: TRIBE+5
Function Call: WRITE	Prompt: !,"------------------------- ------------- ------------- -----" Line Location: TRIBE+6
Function Call: WRITE	Prompt: !,$E($P($G(^AUTTTRI(+$P(N,U,8),0)),U),1,25) Line Location: TRIBE+7
Function Call: WRITE	Prompt: ?29,$P(N,U,10),?45,$P(N,U,9) Line Location: TRIBE+8
Function Call: WRITE	Prompt: ?60,$P($G(^AUTTTRI(+$P(N,U,27),0)),U),! Line Location: TRIBE+9
Function Call: WRITE	Prompt: !,?3,"INSURANCE COMPANY",?35,"POLICY #",?51,"ELIGIBILITY DATES",! Line Location: PRVT1+1
Function Call: WRITE	Prompt: ?3,X,?35,Y,?51,Z Line Location: PRVT1+3
Function Call: WRITE	Prompt: !!,?3,"MEDICARE NUMBER",?21,"RELEASE DATE" Line Location: MCR1+1
Function Call: WRITE	Prompt: ?35,"MEDICARE ELIGIBILITY DATES/COVERAGE" Line Location: MCR1+2
Function Call: WRITE	Prompt: !,?3,X,?21,Y,?35,Z Line Location: MCR1+4
Function Call: WRITE	Prompt: !!,?3,"MEDICAID NUMBER",?35,"MEDICAID ELIGIBILITY DATES/COVERAGE" Line Location: MCD1+1
Function Call: WRITE	Prompt: !,?3,X,?35,Y Line Location: MCD1+2
Function Call: WRITE	Prompt: !," * NO PRIVATE INSURANCE INFORMATION ON RECORD *" Line Location: PRVT+3
Function Call: WRITE	Prompt: !,?3,$P(Y0,U),?35,$P(X0,U,2) Line Location: PRVT+8
Function Call: WRITE	Prompt: ?51,Y," to " Line Location: PRVT+10
Function Call: WRITE	Prompt: ?66,Y Line Location: PRVT+12
Function Call: WRITE	Prompt: !," * NO MEDICARE INFORMATION ON RECORD *" Line Location: MCR+3
Function Call: WRITE	Prompt: !,?3,Y Line Location: MCR+5
Function Call: WRITE	Prompt: ?14,Y0 Line Location: MCR+6
Function Call: WRITE	Prompt: ?21,$$VAL^XBDIQ1(9000001,DFN,.04) Line Location: MCR+7
Function Call: WRITE	Prompt: ?35,Y," to " Line Location: MCR+12
Function Call: WRITE	Prompt: ?50,Y Line Location: MCR+14
Function Call: WRITE	Prompt: ?65,Y Line Location: MCR+16
Function Call: WRITE	Prompt: ! Line Location: MCR+17
Function Call: WRITE	Prompt: !," * NO MEDICAID INFORMATION ON RECORD *" Line Location: MCD+4
Function Call: WRITE	Prompt: !,?3,Y Line Location: MCD+7
Function Call: WRITE	Prompt: ?14,Y0 Line Location: MCD+8
Function Call: WRITE	Prompt: ?35,Y," to " Line Location: MCD+13
Function Call: WRITE	Prompt: ?50,Y Line Location: MCD+15
Function Call: WRITE	Prompt: ?65,Y Line Location: MCD+17
Function Call: WRITE	Prompt: !!,?3,"Medicaid date of last update: ",Z,! Line Location: MCD+18
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, ",SITE,?50,"Printed at " Line Location: PRT2+10
Function Call: WRITE	Prompt: " " Line Location: PRT2+11
Routine Call	DIC Line Location: SP+2
Routine Call	%ZIS Line Location: DEV+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD - [#9000004]	MCD+6, MCD+10, MCD+11
^AUPNMCD("B"	MCD+3, MCD+5
^AUPNMCR - [#9000003]	MCR+2, MCR+4, MCR+9, MCR+10
^AUPNPAT - [#9000001]	SET+3, SET+5, SET+7, TRIBE+1
^AUPNPRVT - [#9000006]	PRVT+2, PRVT+5, PRVT+6
^AUTNEMPL - [#9999999.75]	EMPY+2, SEMPY+2
^AUTNINS - [#9999999.18]	PRVT+7
^AUTTMCS - [#9999999.32]	MCR+6
^AUTTTRI - [#9999999.03]	TRIBE+7, TRIBE+9
^DD("DD"	SET+17, PRVT+10, PRVT+12, MCR+12, MCR+14, MCD+9, MCD+13, MCD+15
^DIC(4 - [#4]	SET+8
^DIC(5 - [#5]	SET+15, DEM+23, MCD+8, PARENT+3, PARENT+4
^DPT - [#2]	SET+2, SET+8, SET+9, SET+10, SET+11, SET+12, SET+13

Label References

Name	Line Occurrences
$$AGE	DEM+9
DEM	BEGIN+1
DEV	ASDAIU+4
EMPLY	DEM+16
EMPY	SET+4
END	ASDAIU+4, ASDAIU+5
MCD	BEGIN+1
MCD1	MCD+5
MCR	BEGIN+1
MCR1	MCR+4
PARENT	SET+5
PRT2	BEGIN+1
PRVT	BEGIN+1
PRVT1	PRVT+4
QUE	DEV+1
SEMPY	SET+4
SET	ASDAIU+5
SP	ASDAIU+3
TRIBE	BEGIN+1

Naked Globals

Name	Field # of Occurrence
^(0	DEM+23, PRVT+6, PRVT+7, MCR+6, MCR+10, MCD+8, MCD+11
^(11	SET+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV+1*
ADDR	SET+1~, SET+9*, DEM+16, DEM+20, DEM+22, DEM+23, DEM+24
AGE	END1+4!, AGE+5*, AGE+6
AUPNDAYS	END1+4!
AUPNDOB	END1+3!
AUPNDOD	END1+4!
AUPNPAT	END1+4!
AUPNSEX	END1+4!
DA	AGE+1~, AGE+2*
DFN	ASDAIU+3, SP+2*, SET+2, SET+3, SET+5, SET+7, SET+8, SET+9, SET+10, SET+11 , SET+12, SET+13, END1+3!, TRIBE+1, PRVT+2, PRVT+5, PRVT+6, MCR+2, MCR+4, MCR+7 , MCR+9, MCR+10, MCD+3, MCD+5, AGE+2
DIC	SP+1~, SP+2!, AGE+4
DIC(0	SP+1*
DOB	SET+1~, SET+17*, END1+4!, DEM+9
>> DR	AGE+4*
DUZ(2	SET+8
>> ELG	TRIBE+3*, TRIBE+4
EMPY	END1+3!, EMPLY, EMPY+1, EMPY+2
EPHONE	SET+10*, END1+3!
FCBIRTH	END1+2!, EMPLY+2, PARENT+1, PARENT+3
FMBIRTH	SET+5*, END1+2!, PARENT+1, PARENT+2, PARENT+3, PARENT+4
FNAME	SET+12*, END1+3!, EMPLY+2
FSBIRTH	END1+2!, EMPLY+2, PARENT+1, PARENT+4
FSBIRTHP	END1+3!, PARENT+4*
HRCN	SET+1~, SET+9*, DEM+9
IFN	MCD+2~, MCD+5*, MCD+6, MCD+10, MCD+11
IO	DEM+1
IO("Q"	ASDAIU+4, DEV+1
IOF	DEM+2
IOP	DEV+1!
>> LKPRINT	AGE+5
LL	END1+4!, DEM+20*
MCBIRTH	END1+2!, EMPLY+3, PARENT+1, PARENT+2
MNAME	SET+12*, END1+3!, EMPLY+3
MSBIRTH	END1+2!, EMPLY+3, PARENT+1, PARENT+3
MSBIRTHP	END1+3!, PARENT+2*, PARENT+3
N	TRIBE+1*, TRIBE+3, TRIBE+7, TRIBE+8, TRIBE+9!
NAME	SET+1~, SET+2*, DEM+7
NKADD	SET+14*, END1+1!, EMPLY+6
NKCITY	SET+14*, END1+1!, EMPLY+7
NKNAME	SET+13*, END1+1!, EMPLY+4
NKNODE	SET+13*, SET+14, SET+15, SET+16, END1+1!
NKPHONE	SET+14*, END1+1!, EMPLY+5
NKREL	SET+13*, END1+1!, EMPLY+5
NKST	SET+15*, END1+1!, EMPLY+7
NKSTP	SET+15*, END1+1!
NKZIP	SET+16*, END1+1!, EMPLY+7
PBIRTH	SET+6*, END1+2!, DEM+24
PNODE	SET+3*, END1+3!, EMPY+1, SEMPY+1
POP	ASDAIU+4, DEV+1!, END1+4!
SDDPTN0	SET+1~, SET+2*, SET+6, SET+17
SDDPTN13	SET+1~, SET+8*, DEM+21, EMPLY
SDELIG	SET+1~, SET+7*, DEM+13
SEMPY	END1+2!, EMPLY+1, SEMPY+1, SEMPY+2
SEMPYP	END1+3!, SEMPY+1*, SEMPY+2
SEX	END1+4!
SITE	SET+1~, SET+8*, DEM+3, PRT2+10
SPHONE	SET+11*, END1+2!, EMPLY+1
SSN	SET+1~, SET+2*, END1+4!, DEM+10
U	SET+2, SET+6, SET+7, SET+8, SET+10, SET+11, SET+12, SET+13, SET+14, SET+15 , SET+16, SET+17, DEM+20, DEM+21, DEM+22, DEM+23, DEM+24, EMPLY, TRIBE+3, TRIBE+7 , TRIBE+8, TRIBE+9, PRVT+8, PRVT+9, PRVT+10, PRVT+11, PRVT+12, MCR+5, MCR+6, MCR+11 , MCR+12, MCR+13, MCR+14, MCR+15, MCR+16, MCD+7, MCD+8, MCD+9, MCD+12, MCD+13 , MCD+14, MCD+15, MCD+16, MCD+17, PARENT+2, PARENT+3, PARENT+4, EMPY+1, EMPY+2, SEMPY+1 , SEMPY+2
X	SP+1~, DEM+19~!, PRVT1+2~, PRVT1+3, MCR1+3~, MCR1+4, MCD1+2~, PRVT+1~, PRVT+4, PRVT+5 , PRVT+6, MCR+1~, MCR+8, MCR+9, MCR+10, MCD+2~, MCD+10*, MCD+11, PRT2+1~
X0	PRVT+1~, PRVT+6, PRVT+7, PRVT+8, PRVT+9, PRVT+10, PRVT+11, PRVT+12, MCR+1~, MCR+4 , MCR+5, MCR+6, MCR+10, MCR+11, MCR+12, MCR+13, MCR+14, MCR+15, MCR+16, MCD+2~ , MCD+6, MCD+7, MCD+8, MCD+9, MCD+11*, MCD+12, MCD+13, MCD+14, MCD+15, MCD+16 , MCD+17
Y	SP+1~, SP+2, SET+1~, SET+17, PRVT1+2~, PRVT1+3, MCR1+3~, MCR1+4, MCD1+2~, PRVT+1~ , PRVT+7, PRVT+10~, PRVT+12~, MCR+1~, MCR+5, MCR+6, MCR+12~, MCR+14~, MCR+16~, MCD+2~ , MCD+7, MCD+8, MCD+9, MCD+13~, MCD+15~, MCD+17~, PRT2+1~, SEMPY+1~
Y0	PRVT+1~, PRVT+7, PRVT+8, MCR+1~, MCR+6, MCD+2~, MCD+8*
Z	PRVT1+2~, PRVT1+3, MCR1+3~, MCR1+4, MCD+2~, MCD+9*, MCD+18
>> ZTDESC	QUE+1*
>> ZTRTN	QUE+1*
>> ZTSAVE("DFN"	QUE+1*

Customize PDF page

Package: IHS Changes To Scheduling

Routine: ASDAIU

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: