Routine: BSDLCA

Information

BSDLCA ; IHS/ANMC/LJF - CLERK WHO MADE APPT LIST ;

Source file <BSDLCA.m>

Package	Total	Call Graph
Kernel	3	^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	2	($$RANGE,ZIS)^BDGF $$HRCN^BDGF2
IHS Changes To Scheduling	2	(EN,SET)^BSDLCA1 ($$ACTV,CLINIC)^BSDU
VA Fileman	2	$$GET1^DIQ ^DIR

Name	Comments	DBIA/ICR reference
BD	; -- beginning date
ALL	; -- all clinics
EN	;EP; entry point for start of reports
ZIS	; -- select device
HD(X)	; -- heading
ED	; -- ending date
INIT	;EP; begin calculate for list template list
PAD(DATA,LENGTH)	; -- SUBRTN to pad length of data
PRINT	; -- prints list to paper
CLINIC	; -- select clinic
EXIT
SP(N)	; -- returns N number of spaces
REPORT	; -- ask user which report to run
DISPLAY	; -- loop clinics and set display lines
HDR	;EP; list template header

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BSDLCA",$J,BSDLN,0) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF,!!,?20,"LISTING OF APPTS MADE AND WHO MADE THEM" Line Location: HD+2
Function Call: WRITE	Prompt: !!,"DATE/TIME",?20,"HRCN" Line Location: HD+3
Function Call: WRITE	Prompt: ?30,"AGE",?40,"CLERK WHO MADE APPT",?65,"DATE APPT MADE",!! Line Location: HD+4
Routine Call	VALM Line Location: EN+4
Routine Call	DIR Line Location: REPORT+6 BD+2 ED+2 HD+1

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	ALL+1, ALL+2, DISPLAY+4, DISPLAY+5, DISPLAY+6
^TMP("BSDLCA"	EXIT+1!, INIT+1!, PRINT+3, PRINT+5
^TMP("BSDLCA1"	INIT+1!

Name	Line Occurrences
$$PAD	DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+14, SP+1
$$SP	HDR+1
ALL	INIT+3
BD	ED+2
DISPLAY	INIT+5, ALL+3
EXIT	REPORT+6, CLINIC+1, EN+2, EN+5
HD	PRINT+2, PRINT+4
INIT	EN+2
PRINT	EN+2
REPORT	BD+2

Name	Field # of Occurrence
BSDBDT	BD+2*, EXIT!, HDR+1, ALL+3, DISPLAY+3
BSDEDT	ED+2*, EXIT!, HDR+1, DISPLAY+4
BSDLN	EXIT+1!, INIT+2, INIT+6, ALL+4, PRINT+1~, PRINT+3, PRINT+5
>> BSDQ	CLINIC+1
BSDQT	PRINT+1~, PRINT+2, PRINT+3, PRINT+4, HD+1
BSDTYP	REPORT+7*, EXIT!, EN+1
DATA	PAD~, PAD+1
DATE	DISPLAY+1~, DISPLAY+3, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+11
DIR	REPORT+1!, BD+1!, BD+2!, ED+1!, ED+2!, EXIT!
DIR("?"	REPORT+2, REPORT+3, REPORT+4, REPORT+5
DIR("A"	REPORT+6, BD+1, ED+1*
DIR(0	REPORT+1, BD+1, ED+1, HD+1
>> DIRUT	BD+2, ED+2
DUZ(2	DISPLAY+11
FIRST	DISPLAY+1~, DISPLAY+2, DISPLAY+8, DISPLAY+16
IO	PRINT+2
IOF	HD+2
IOSL	PRINT+4
IOST	EN+2, HD+1
LENGTH	PAD~, PAD+1
LINE	DISPLAY+1~, DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+14, DISPLAY+15
N	SP~, SP+1
NODE	DISPLAY+1~, DISPLAY+6*, DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+14
PAT	DISPLAY+1~, DISPLAY+5*, DISPLAY+6
SC	INIT+2~, INIT+5, ALL+1, ALL+2, ALL+3, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+8
SD	INIT+2~, INIT+5*
U	ALL+2, DISPLAY+13, DISPLAY+14
VALMCNT	EXIT+1!, EN+3~, INIT+6, ALL+4
>> VALMHDR(1	HDR+1*
VAUTC	EXIT!, INIT+3
VAUTC(	INIT+5
VAUTD	EXIT!
VAUTD(	ALL+2
VAUTD(0	ALL+2
X	EXIT!, HD~, HD+1
Y	REPORT+6, REPORT+7, BD+2, ED+2, EXIT!, HD+1
ZTSK	EXIT!