Routine: BSDNXAA

Information

BSDNXAA ; IHS/ANMC/LJF - # DAYS TIL NEXT APPT ;

Source file <BSDNXAA.m>

Package	Total	Call Graph
Kernel	5	HOME^%ZIS ^%ZISC ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
VA Fileman	2	^%DTC $$GET1^DIQ
IHS Changes To ADT	1	($$BROWSE,$$READ,MSG,ZIS)^BDGF
IHS Changes To Scheduling	1	($$PRIN,CLINIC)^BSDU

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; -- set display data into global
EN	;EP; -- main entry point for BSDRM NEXT AVAIL APPT
DAY(CLN,NAME)	; -- loop visit days / clinic and print next appt
HDR	; -- header code
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
PRINT	; -- print display global to paper
EXPND	; -- expand code
START	;EP; -- re-entry for printing to paper
INIT	; -- init variables and list array
EXIT	; -- exit code
NA()	; -- next appointment
HELP1	;EP; help for 3rd appt question
ASK	; -- ask user for clinics and device
D(X1,X2,X)	; -- number of days from today
OKAY(C)	; -- active clinic? (yes=true)
HD	; -- heading
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BSDNXAA",$J,X,0) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF,!!,?2,"Next Available Appointment by Principle Clinic" Line Location: HD+1
Function Call: WRITE	Prompt: ?50,"Printed at ",$$FMTE^XLFDT($$NOW^XLFDT),! Line Location: HD+2
Routine Call	VALM Line Location: EN+2
Routine Call	%ZIS Line Location: PRINT+6

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	DAY+5, NA+2, NA+3, NA+6, OKAY+2, OKAY+3
^SC("AIHSPC"	INIT+7
^TMP("BSDNXAA"	INIT+2!, EXIT+1!, SET+2*, PRINT+3, PRINT+5
^TMP("BSDNXAA1"	INIT+2!, INIT+12*, INIT+14, INIT+17, INIT+19, INIT+21, INIT+24!

Name	Field # of Occurrence
ARRAY	INIT+1~, INIT+3*, INIT+5
BSD3CT	DAY+1~, DAY+3, NA+8, NA+11
BSD3RD	ASK+1~, ASK+2*, ASK+3, NA+7, NA+8, NA+9
BSDAY	DAY+1~, DAY+3, DAY+5, DAY+7, DAY+10, NA+2, NA+3, NA+6
>> BSDQ	ASK+4
C	OKAY~, OKAY+2, OKAY+3
CLINIC	INIT+1~, INIT+4, INIT+5, INIT+6, INIT+7, INIT+8, INIT+9, INIT+12, INIT+20, INIT+21 , INIT+22
CLN	DAY~, DAY+5, NA+2, NA+3, NA+6
D	PAD~, PAD+2
DATA	SET~, SET+2
DT	DAY+3, D+1, OKAY+2, OKAY+3
IO	PRINT+1
IOF	HD+1
IOSL	PRINT+4
J	NA+1~, NA+7, NA+8, NA+9, NA+10*, NA+11
L	PAD~, PAD+2
LINE	DAY+1~, DAY+2*, DAY+7, DAY+10
N	SP~, SP+1
NAME	INIT+1~, INIT+9, INIT+12, INIT+19, INIT+21, INIT+22, DAY~, DAY+2
NUM	SET~, SET+1*, SET+2
PC	INIT+1~, INIT+8, INIT+12, INIT+17, INIT+18, INIT+19, INIT+21
POP	ASK+1~, EXIT+1!
U	ASK+3, OKAY+3
VALMCNT	EN+1~, INIT+2*, INIT+14, INIT+18, INIT+22, EXIT+1!
VAUTC	ASK+1~, INIT+3
VAUTD	ASK+1~
X	HELP+1, NA+1~, NA+5, NA+8, NA+10, D~, D+1, PRINT+2~, PRINT+3, PRINT+5 , OKAY+1~, OKAY+2, OKAY+3
X1	D~
X2	D~, D+1*
Y	ASK+5, NA+1~, NA+2, NA+6
Z	NA+1~, NA+6*, NA+7, NA+8, NA+9, NA+10