Routine: BSDNAA

Information

BSDNAA ; IHS/ANMC/LJF - NUM AVAIL APPT REPORT ; [ 02/10/2005 3:59 PM ]

Source file <BSDNAA.m>

Package	Total	Call Graph
Kernel	4	^%ZISC $$FMADD^XLFDT ($$REPEAT,$$STRIP)^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	1	($$BROWSE,$$RANGE,$$READ,ZIS)^BDGF
IHS Changes To Scheduling	1	($$PRIN,CLINIC)^BSDU
VA Fileman	1	$$GET1^DIQ

Name	Comments	DBIA/ICR reference
DAYS()	; -- creates array of date range
EN	; -- main entry point for BSDRM NUM AVAIL 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	; -- loop thru ^tmp and print
EXPND	; -- expand code
HED	; -- heading
START	;EP; -- re-entry for printing to paper
INIT	; -- loop thru clinics selected and build display array
EXIT	; -- exit code
COUNT(LINE)	; returns # of avail appts in display line LINE
SET(LINE,NUM)	; put display line into display array
ASK	; -- ask user for clinics and device
OKAY(C)	; -- active clinic with schedule? (yes=true)
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BSDNAA",$J,X,0) Line Location: PRINT+7
Function Call: WRITE	Prompt: @IOF Line Location: HED+3
Function Call: WRITE	Prompt: !,VALMHDR(I) Line Location: HED+5
Function Call: WRITE	Prompt: ?70,"Page ",BSDPG Condition for execution: I=1 Line Location: HED+5
Function Call: WRITE	Prompt: !,BSDAYS,!,$$REPEAT^XLFSTR("=",80) Line Location: HED+6
Routine Call	VALM Line Location: EN+2

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	INIT+27, OKAY+2, OKAY+3
^SC("AIHSPC"	INIT+9
^TMP("BSDNAA"	INIT+1!, SET+2*, EXIT+1!, PRINT+5, PRINT+7
^TMP("BSDNAA1"	INIT+1!, INIT+13*, INIT+17, INIT+19, INIT+21, INIT+32!

Name	Field # of Occurrence
ABBR	INIT+5~, INIT+11, INIT+12, INIT+13, INIT+16~, INIT+19*, INIT+21, INIT+22
ARRAY	INIT+2~*, INIT+7
BSDATE	ASK+1~, ASK+3*, HDR+2, INIT+25, DAYS+2, OKAY+2, OKAY+3
BSDAYS	PRINT+3~, PRINT+4*, HED+6
BSDNUM	ASK+1~
BSDPG	PRINT+3~, HED+3, HED+4*, HED+5
>> BSDQ	ASK+4
C	OKAY~, OKAY+2, OKAY+3
CLINIC	INIT+5~, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10, INIT+11, INIT+12, INIT+13, INIT+16~ , INIT+20, INIT+21, INIT+27
CNT	COUNT+1~, COUNT+7, COUNT+8, COUNT+10
COUNT	INIT+16~, INIT+29*
D	PAD~, PAD+2
DATE	INIT+16~, INIT+25, INIT+26, INIT+27
DAYS	DAYS+1~
DAYS(	DAYS+2, DAYS+3, DAYS+5
END	INIT+16~, INIT+25, INIT+26, DAYS+1~, DAYS+2, DAYS+3
I	COUNT+1~, COUNT+4, COUNT+7, COUNT+8, COUNT+9, HED+5*
IO	PRINT+2
IOF	HED+3
IOSL	PRINT+6
J	COUNT+1~, COUNT+8*
L	PAD~, PAD+2
LINE	INIT+16~, INIT+22, INIT+28, INIT+29, INIT+30, COUNT~, COUNT+2, COUNT+3, COUNT+4, COUNT+7 , COUNT+8, COUNT+9, SET~, SET+2
N	SP~, SP+1
NUM	SET~, SET+1*, SET+2
PC	INIT+5~, INIT+10, INIT+13, INIT+16~, INIT+17, INIT+18, INIT+19, INIT+21
POP	ASK+1~
SCHED	INIT+16~, INIT+27*, INIT+28, INIT+29
U	OKAY+3
>> VALMCAP	HDR+3*
VALMCNT	EN+1~, INIT+1*, INIT+18, INIT+30
VALMHDR	PRINT+3~
VALMHDR(	HED+5
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2*
VAUTC	ASK+1~, INIT+2
VAUTD	ASK+1~
X	ASK+1~, ASK+2, ASK+3, COUNT+1~, COUNT+8, HELP+1, PRINT+3~, PRINT+5, PRINT+7, DAYS+1~ , DAYS+2, DAYS+3, DAYS+5, OKAY+1~, OKAY+2, OKAY+3
Y	ASK+5, DAYS+1~, DAYS+4, DAYS+5*, DAYS+6