Routine: ASDAL

Information

ASDAL ; IHS/ADC/PDW/ENM - IHS APPT LIST CALLS ; [ 05/17/1999 1:51 PM ]

Source file <ASDAL.m>

Package	Total	Call Graph
Kernel	2	($$FMTE,$$HTFM)^XLFDT $$REPEAT^XLFSTR
VA Fileman	2	DD^%DT ^DIR
IHS Changes To Scheduling	1	($$CONF,$$DIV)^ASDUT
IHS VA Utilities	1	$$VALI^XBDIQ1
Scheduling	1	TM^SDROUT0

Package	Total	Caller Graph
IHS Changes To Scheduling	1	ASDM

Name	Comments	DBIA/ICR reference
SHORT(SC,DATE)	;EP -- short list of appt times,lengths, & other info\
PHO
WI()	;EP; -- returns 1 if appt to be excluded from the list
AMB	;EP; prints appt made by if asked for
NOAMB()	; -- returns 1 if restrict viewing of who made appt turned on
HED	;EP; called by SDAL0 for IHS version of heading
PHONE()	;EP; -- returns patient's phone number
DOB()	;EP; -- returns date of birth
ASK	;EP; called to ask IHS questions
TYPE	;EP; prints type of appt

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HED+2
Function Call: WRITE	Prompt: !?16,$$CONF^ASDUT Line Location: HED+3
Function Call: WRITE	Prompt: !,"APPOINTMENTS FOR ",$P(^SC(SC,0),U,1)," CLINIC ON ",SDPD Line Location: HED+6
Function Call: WRITE	Prompt: !?2,"TIME",?11,"PATIENT NAME",?33,"HRCN",?43,"DOB" Line Location: HED+7
Function Call: WRITE	Prompt: ?53," LAB@",?62,"X-RAY@",?74,"EKG@" Line Location: HED+8
Function Call: WRITE	Prompt: !?15,"OTHER INFORMATION",?55,"Printed: ",ASDT Line Location: HED+9
Function Call: WRITE	Prompt: !,SDXX Line Location: HED+10
Function Call: WRITE	Prompt: !! Line Location: TYPE+2
Function Call: WRITE	Prompt: ?12,"Walk-in/Chart Request" Line Location: TYPE+3
Function Call: WRITE	Prompt: ?12,"Checked in at ",X Line Location: TYPE+5
Function Call: WRITE	Prompt: !?15,"Made by ",$P($G(^VA(200,X,0)),U)," on ",$$FMTE^XLFDT(Y,"2D") Line Location: AMB+4
Function Call: WRITE	Prompt: ?53,"Phone: ",$P(^(.13),U,2) Line Location: AMB+5
Function Call: WRITE	Prompt: !!?15,"OTHER APPTS ALREADY SCHEDULED FOR ",Y Line Location: SHORT+2
Function Call: WRITE	Prompt: !?15,$$REPEAT^XLFSTR("=",46),! Line Location: SHORT+3
Function Call: WRITE	Prompt: !?2,$P(Y,"@",2),?10,$P(N,U,2)," MIN",?20,$E($P(N,U,4),1,59) Line Location: SHORT+9
Routine Call	DIR Line Location: ASK+4 ASK+9 PHO+1 SHORT+10

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DOB+1
^DPT - [#2]	TYPE+3, DOB+1, WI+1, PHONE+2
^SC - [#44]	HED+6, TYPE+4, AMB+3, SHORT+5, SHORT+6, SHORT+7
^VA(200 - [#200]	AMB+4, AMB+5
^XUSEC("SDZSUP"	ASK+7

Name	Line Occurrences
$$NOAMB	ASK+7
PHO	ASK+7

Name	Field # of Occurrence
^(	AMB+5
^(0	AMB+3

Name	Field # of Occurrence
>> ASDAMB	ASK+7, ASK+10, AMB+2
ASDPH	PHO!, PHO+2, PHO+3, PHONE+1
ASDQ	ASK+1!, ASK+4, ASK+9
>> ASDT	HED+5*, HED+9
>> ASDWI	ASK+5*, WI+1
C	SHORT+1~, SHORT+4, SHORT+10
DATE	SHORT~, SHORT+2, SHORT+4
>> DFN	TYPE+3, DOB+1, WI+1, PHONE+2
DIR	ASK+4!, ASK+9!, PHO!, PHO+1!, SHORT+10!
DIR("?"	ASK+3*
DIR("A"	ASK+2, ASK+8, PHO+1, SHORT+10
DIR("B"	ASK+2, ASK+8, PHO*
DIR(0	ASK+2, ASK+8, PHO, SHORT+10
>> DIRUT	ASK+4, ASK+9, PHO+2
DUZ	ASK+7
END	SHORT+1~, SHORT+4*, SHORT+5
IOF	HED+2
IOST	HED+2
>> K	TYPE+4, AMB+3
N	SHORT+1~, SHORT+7*, SHORT+9
P	SHORT+1~, SHORT+6*, SHORT+7
SC	HED+6, TYPE+4, AMB+3, SHORT~, SHORT+5, SHORT+6, SHORT+7
>> SD1	HED+2, HED+4*
>> SDB	HED+4*
>> SDPD	HED+6
>> SDT	TYPE+3, TYPE+4, AMB+3, WI+1
>> SDXX	HED+10*
T	SHORT+1~, SHORT+4, SHORT+5, SHORT+6, SHORT+7, SHORT+8
U	HED+6, TYPE+3, AMB+3, AMB+4, AMB+5, SHORT+9, DOB+1, WI+1, PHONE+2
X	HED+1~, HED+5, TYPE+1~, TYPE+4, TYPE+5, AMB+1~, AMB+3*, AMB+4, AMB+5, SHORT+1~
Y	ASK+5, ASK+10, PHO+3, AMB+1~, AMB+3, AMB+4, SHORT+1~, SHORT+2, SHORT+8, SHORT+9 , DOB+1~