Routine: ASDAMB

Information

ASDAMB ; IHS/ADC/PDW/ENM - APPT MADE BY ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ASDAMB.m>

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Registration	4	EN^VALM TERM^VALM0 FULL^VALM1 EN^VALM2
Kernel	3	$$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To Scheduling	2	$$CONF^ASDUT PRTOPT^ASDVAR
IHS VA Utilities	2	^XBCLS $$VAL^XBDIQ1
VA Fileman	2	^DIC ^DIR
Scheduling	1	P^SDCLK

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SD IHS AMB

Entry Points

Name	Comments	DBIA/ICR reference
VA	;EP; called by View Appt action
EN	; -- main entry point for SD IHS APPT MADE BY
PAT	; -- ask user for patient
HDR	; -- header code
PAD(DATA,LENGTH)	; -- SUBRTN to pad length of data
GETAPPT	; -- select appt from listing
EXPND	; -- expand code
FINDUSR	; -- gets user and date made from file 44
INIT	; -- init variables and list array
EXIT	; -- exit code
DATE	; -- ask user for starting date
RETURN	; -- reset variables for return to lt
EDATE	; -- ask user for ending date
HELP	; -- help code

External References

Name	Field # of Occurrence
$$CONF^ASDUT	HDR+1
PRTOPT^ASDVAR	VA+4
^DIC	PAT+1
^DIR	DATE+3, EDATE+2
P^SDCLK	VA+4
EN^VALM	EN+1
TERM^VALM0	RETURN+1
FULL^VALM1	GETAPPT+1
EN^VALM2	GETAPPT+3
^XBCLS	VA+4
$$VAL^XBDIQ1	INIT+7, INIT+9
$$FMTE^XLFDT	INIT+6, INIT+11
$$REPEAT^XLFSTR	PAD+1
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ??",*7 Line Location: PAT+2
Function Call: WRITE	Prompt: !!,"NO APPOINTMENTS FOUND!",! Line Location: DATE+5
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Sorry data missing on this appointment!" Line Location: VA+3
Routine Call	VALM Line Location: EN+1
Routine Call	DIC Line Location: PAT+1
Routine Call	DIR Line Location: DATE+3 EDATE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DATE+4, INIT+4, INIT+5, FINDUSR+2
^SC - [#44]	FINDUSR+4, FINDUSR+5, FINDUSR+6
^TMP("ASDAMB"	INIT+2!, INIT+14, INIT+15, GETAPPT+6, GETAPPT+7, GETAPPT+8, GETAPPT+9

Label References

Name	Line Occurrences
$$PAD	HDR+1, INIT+6, INIT+7, INIT+9, INIT+10
EN	EDATE+4
EXIT	EN+2
FINDUSR	INIT+8
GETAPPT	VA+1
PAT	PAT+2, DATE+3, DATE+4, EDATE+2, EDATE+4
RETURN	VA+2, VA+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGE	EXIT+1!
ASDA	EXIT+1!, GETAPPT+2, GETAPPT+6, GETAPPT+9, GETAPPT+10, GETAPPT+11
ASDBDT	DATE+1!, DATE+3*, INIT+3, EXIT+1!
ASDEDT	DATE+1!, EDATE+2*, INIT+3, EXIT+1!
ASDEND	INIT+1~, INIT+3*, INIT+4
ASDL	INIT+1~, INIT+6, INIT+7, INIT+9, INIT+10, INIT+11, INIT+12, INIT+14
ASDLN	INIT+2!, INIT+13*, INIT+14, INIT+15, INIT+16, EXIT+1!
ASDM	INIT+11, INIT+12, EXIT+1!, FINDUSR+3, FINDUSR+7
ASDNUM	INIT+2!, INIT+13*, INIT+14, INIT+15, EXIT+1!
ASDS	INIT+1~, INIT+5*, INIT+7, INIT+15, FINDUSR+4, FINDUSR+5, FINDUSR+6
ASDU	INIT+9, INIT+10, EXIT+1!, FINDUSR+3, FINDUSR+7
ASDX	INIT+1~, INIT+3, INIT+4, INIT+5, INIT+6, INIT+15, EXIT+1!, FINDUSR+2, FINDUSR+4, FINDUSR+5 , FINDUSR+6
DATA	PAD~, PAD+1
DFN	PAT+3, DATE+4, INIT+4, INIT+5, INIT+15, EXIT+1!, GETAPPT+11, VA+1*, VA+2, FINDUSR+2 , FINDUSR+5
DIC	PAT+1~*
DIC(0	PAT+1*
DIR	DATE+1!, DATE+3!, EDATE+2!
DIR("A"	DATE+2, EDATE+1
DIR(0	DATE+2, EDATE+1
>> DIRUT	DATE+3, EDATE+2
LENGTH	PAD~, PAD+1
ORX	EXIT+2!
>> SDA	GETAPPT+11, VA+1, VA+2
SDC	EXIT+2!
SDIFN	EXIT+2!, GETAPPT+11, VA+1, VA+2
SDP	EXIT+2!
SDPP	EXIT+2!
SDS	EXIT+2!
SDSTAT	EXIT+2!
SEX	EXIT+1!
SSN	EXIT+2!
U	PAT+1, INIT+7, INIT+15, GETAPPT+11, FINDUSR+2, FINDUSR+3, FINDUSR+6, FINDUSR+7
VALMBCK	EXIT+3!, RETURN+1*
VALMCNT	INIT+16*, EXIT+3!
VALMHDR	EXIT+3!
VALMHDR(1	HDR+1*
VALMY	EXIT+2!, GETAPPT+4
VALMY(0	GETAPPT+5
X	PAT+1, HELP+1, GETAPPT+5, GETAPPT+9, FINDUSR+1~, FINDUSR+4*, FINDUSR+5, FINDUSR+6
>> XQORNOD(0	GETAPPT+3
Y	PAT+2, PAT+3, DATE+3, DATE+4, EDATE+2, GETAPPT+6, GETAPPT+7, GETAPPT+8, GETAPPT+9, FINDUSR+1~ , FINDUSR+2, FINDUSR+3, FINDUSR+4!, FINDUSR+6*, FINDUSR+7
>> Z	GETAPPT+7*, GETAPPT+8, GETAPPT+9

Customize PDF page

Package: IHS Changes To Scheduling

Routine: ASDAMB

Call Graph Total: 14

Caller Graph Total: 1