Routine: BSDAPL

Information

BSDAPL ; IHS/ANMC/LJF - APPTS PRINTED LIST ; [ 11/02/2004 11:42 AM ]

Source Information

Source file <BSDAPL.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Kernel	4	^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	4	ZIS^DGUTQ EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	2	($$CONF,$$READ,MSG)^BDGF ($$HRCN,$$HRCND,$$HRCNT)^BDGF2
IHS Changes To Scheduling	2	START^BSDAPL ($$ACTV,$$CLNCODE,$$DIVC,$$FAC,$$PRIN,CLINIC)^BSDU
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To Scheduling	1	BSDAPL

Entry Points

Name	Comments	DBIA/ICR reference
DATES	; -- select date
EN	;EP; -- entry for list manager interface
HDR	;EP; -- report heading
SET(DATA,LINE)	; -- puts data into display array
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 to paper
GATHER	;EP; -- gathers data and sets into display array
SOME	; -- loop thru selected clinics
ALL	; -- loop thru all clinics
DOB(PAT)	; -- return date of birth in numerical format with leading zeros
START	;EP; entry to report after calling print device
CLINIC	; -- all clinics or selected ones? ; if ALL clinics are selected, VAUTC=1 ; otherwise the VAUTC array is set and VAUTC=0
GETAPP	; -- for clinic, get appts & chart requests for date
EXIT	;
HELP1	;
DEVICE	; -- select device
SORTS	; -- sort by
HEADING	; -- heading for paper report
HELP	;EP; -- help for SORTS question

External References

Name	Field # of Occurrence
^%ZISC	PRINT+6
$$CONF^BDGF	HDR+1
$$READ^BDGF	DATES+1, SORTS+4
MSG^BDGF	DEVICE+2, HELP+1, HELP+2, HELP+3, HELP+4, HELP+5, HELP+6, HELP+7
$$HRCN^BDGF2	GETAPP+16
$$HRCND^BDGF2	GETAPP+19
$$HRCNT^BDGF2	GETAPP+17
START^BSDAPL	DEVICE+5
$$ACTV^BSDU	ALL+4, SOME+5
$$CLNCODE^BSDU	GETAPP+14
$$DIVC^BSDU	ALL+5, GETAPP+18
$$FAC^BSDU	GETAPP+16
$$PRIN^BSDU	GETAPP+15
CLINIC^BSDU	CLINIC+3
ZIS^DGUTQ	DEVICE+4
$$GET1^DIQ	ALL+3, SOME+4, GETAPP+18, GETAPP+23, GETAPP+24, GETAPP+26, GETAPP+30, DOB+1
EN^VALM	EN+2
TERM^VALM0	EN+1
CLEAR^VALM1	EN+1, EN+3
$$FMTE^XLFDT	HDR+2, GETAPP+25, GETAPP+27
$$REPEAT^XLFSTR	HEADING+4, PAD+2
DISP^XQORM1	HELP1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BSDAPL",$J,BDGLN,0) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF,!,VALMHDR(1),!,VALMHDR(2) Line Location: HEADING+1
Function Call: WRITE	Prompt: !,?2,"HRCN",?8,"Patient Name",?28,"Clinic",?37,"Appt Made On",?57,"By",?62,"Printed On",?82,"Delivery Information",!,$$REPEAT^XLFSTR("=",79),! Line Location: HEADING+4
Function Call: WRITE	Prompt: !! Line Location: HELP1+1
Routine Call	VALM Line Location: EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^BSDPAR - [#9009020.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GETAPP+9
^SC - [#44]	ALL+2, GETAPP+3, GETAPP+5, GETAPP+6, GETAPP+7
^TMP("BSDAPL"	GATHER+3!, GATHER+22, PRINT+3, PRINT+5, EXIT+1!, SET+2
^TMP("BSDAPL1"	GATHER+3!, GATHER+9, GATHER+14, GATHER+15, GATHER+16, GATHER+17, GETAPP+39*

Label References

Name	Line Occurrences
$$PAD	GETAPP+24, GETAPP+25, GETAPP+26, GETAPP+27, GETAPP+31, GETAPP+37, SP+1
$$SP	HDR+1, HDR+2, GATHER+12, GATHER+22
@(	GATHER+5
EN	START+1
EXIT	CLINIC+3, SORTS+5, DEVICE+4, PRINT+6
GATHER	START+2
GETAPP	ALL+6, SOME+6
HDR	HEADING+1
HEADING	PRINT+2, PRINT+4
PRINT	START+2
SET	GATHER+12, GATHER+17, GATHER+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	GATHER+8~, GATHER+9*, GATHER+12, GATHER+14, GATHER+15, GATHER+16, GATHER+17
B	GATHER+8~, GATHER+14*, GATHER+15, GATHER+16, GATHER+17
BDGLN	PRINT+2~, PRINT+3*, PRINT+5
BSDCL	SOME+1~, SOME+2*, SOME+3
BSDCLN	ALL+1~, ALL+2, ALL+3, ALL+4, ALL+5, SOME+1~, SOME+3, SOME+4, SOME+5, GETAPP+3 , GETAPP+5, GETAPP+6, GETAPP+7, GETAPP+14, GETAPP+15, GETAPP+16, GETAPP+18, GETAPP+24, GETAPP+30
BSDCNT	GATHER+1~, GATHER+4, GATHER+19, GETAPP+32, GETAPP+35*
BSDDT	BSDAPL+6~, DATES+1*, HDR+2, ALL+4, SOME+5, GETAPP+2
BSDEND	GETAPP+1~, GETAPP+2*, GETAPP+3
BSDLN	GATHER+8*, GATHER+12, GATHER+17, GATHER+19, GATHER+21, EXIT+1!
BSDN	GETAPP+1~, GETAPP+4, GETAPP+5, GETAPP+6, GETAPP+7
BSDNP	GATHER+1~, GATHER+4, GATHER+19, GETAPP+35
BSDSRT	BSDAPL+6~, SORTS+4*, SORTS+5, GATHER+11, GETAPP+13, GETAPP+14, GETAPP+15, GETAPP+20
BSDT	GETAPP+1~, GETAPP+2, GETAPP+3, GETAPP+5, GETAPP+6, GETAPP+7, GETAPP+9, GETAPP+39
C	GATHER+8~, GATHER+15*, GATHER+16, GATHER+17
D	GATHER+8~, GATHER+16*, GATHER+17, PAD~, PAD+2
DATA	SET~, SET+2
DGVAR	DEVICE+1~, DEVICE+3*
DIR0	SORTS+1~, SORTS+2*, SORTS+4
DIRA	SORTS+1~, SORTS+3*, SORTS+4
DIRB	SORTS+1~
HRCN	GETAPP+1~, GETAPP+16*, GETAPP+17, GETAPP+19, GETAPP+23
IO	PRINT+2
IO("Q"	DEVICE+5
IOF	HEADING+1
IOSL	PRINT+4
IOST	START+1
L	PAD~, PAD+2
LINE	GETAPP+1~, GETAPP+23, GETAPP+24, GETAPP+25, GETAPP+26, GETAPP+27, GETAPP+31, GETAPP+37, GETAPP+39, SET~ , SET+1, SET+2
N	SP~, SP+1
NODE	GETAPP+1~, GETAPP+7*, GETAPP+8, GETAPP+13, GETAPP+25, GETAPP+26, GETAPP+37
>> NODE2	GETAPP+9*, GETAPP+13, GETAPP+27, GETAPP+35
PAT	GETAPP+1~, GETAPP+6*, GETAPP+9, GETAPP+16, GETAPP+23, GETAPP+39, DOB~, DOB+1
PGM	DEVICE+1~, DEVICE+3*
POP	DEVICE+1~, DEVICE+4
SORT	GETAPP+1~, GETAPP+13, GETAPP+14, GETAPP+15, GETAPP+20, GETAPP+39
TERM	GETAPP+1~, GETAPP+17, GETAPP+19, GETAPP+20, GETAPP+39
U	GETAPP+8, GETAPP+13, GETAPP+25, GETAPP+26, GETAPP+27, GETAPP+35, GETAPP+37
VALMCNT	EN+1~, GATHER+21, GATHER+22
>> VALMHDR(1	HDR+1*, HEADING+1
>> VALMHDR(2	HDR+2*, HEADING+1
VAUTC	BSDAPL+6~, GATHER+5
VAUTC(	SOME+2, SOME+3
VAUTD	BSDAPL+6~, ALL+5
VAUTD(	ALL+5
X	GATHER+5, GETAPP+1~, HELP1+1, DOB+1~*, DOB+2
>> Y	CLINIC+3

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDAPL

Call Graph Total: 13

Caller Graph Total: 1