Routine: BSDWLL

Information

BSDWLL ; IHS/ITSC/LJF, WAR - WAITING LIST LT CODE ; [ 08/20/2004 11:59 AM ]

Source Information

Source file <BSDWLL.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Kernel	4	^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	4	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
IHS Changes To ADT	2	$$CONF^BDGF $$HRCN^BDGF2
IHS Changes To Scheduling	1	EN^BSDWLV
VA Fileman	1	($$GET1,GETS)^DIQ

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To Scheduling	1	BSDWL

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP -- main entry point for BSDRM WAITING LIST
RETURN	; -- reset variables for return to lt
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
EXPND	; -- expand code
SORT(CLN,IEN)	; set sort value for ^tmp
HDG	; heading for paper report
INIT	; -- init variables and list array
FIELD(F,N)	; find field's name
EXIT	; -- exit code
SET(DATA,IEN,COUNT,NUM)	; puts data line into display array
GETONE	; -- select entry from listing
PRINT	; print report to paper
VIEW	;EP; called by BSDRM WAIT LIST VIEW protocol
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+7
$$CONF^BDGF	HDR+2
$$HRCN^BDGF2	INIT+45
EN^BSDWLV	VIEW+4
$$GET1^DIQ	HDR+3, INIT+44, INIT+46, INIT+47, INIT+49, SORT+2, SORT+3, VIEW+3
GETS^DIQ	INIT+56
EN^VALM	EN+3
TERM^VALM0	EN+2, RETURN+1
CLEAR^VALM1	EN+2, EN+4
FULL^VALM1	GETONE+2
EN^VALM2	GETONE+4
$$FMTE^XLFDT	INIT+33, INIT+43, INIT+63
$$REPEAT^XLFSTR	HDG+3, HDG+11, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BSDWL",$J,LINE,0) Line Location: PRINT+6
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,VALMHDR(I) Line Location: HDG+2
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+3
Function Call: WRITE	Prompt: !?5,"Date Selected",?20,"Patient Name",?42,"Chart #",?52,"Age" Line Location: HDG+8
Function Call: WRITE	Prompt: ?59,"Sex",?64,"Home Phone" Line Location: HDG+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+11
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+3

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^BSDWL - [#9009017.1]	GET1^DIQ
9009017.11	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BSDWL - [#9009017.1]	INIT+7, INIT+8, INIT+10, INIT+11, INIT+12, INIT+13, INIT+15, INIT+42
^DD(	FIELD+1
^TMP("BSDWL"	INIT+1!, SET+2, SET+3, PRINT+3, PRINT+4, PRINT+6, EXIT+1!, GETONE+7, GETONE+8, GETONE+9 , GETONE+10
^TMP("BSDWL1"	INIT+1!, INIT+16*, INIT+22, INIT+38, INIT+39, INIT+69!

Label References

Name	Line Occurrences
$$FIELD	HDR+5, INIT+34
$$PAD	INIT+44, INIT+45, INIT+46, INIT+47, INIT+49, SP+1
$$SORT	INIT+16
$$SP	HDR+2, HDR+4, HDR+7, INIT+34, INIT+58, INIT+68
EXIT	PRINT+7
GETONE	VIEW+2
HDG	PRINT+1, PRINT+4, PRINT+5
HDR	HDG+1
INIT	EN+1
PRINT	EN+1
RETURN	VIEW+2, VIEW+4
SET	INIT+28, INIT+29, INIT+35, INIT+52, INIT+58, INIT+59, INIT+63, INIT+65, INIT+68

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	INIT+19~, INIT+22*, INIT+33, INIT+38, INIT+39, INIT+61, INIT+63
B	INIT+19~, INIT+38*, INIT+39, INIT+43
BSDATA	INIT+20~, INIT+55!
BSDATA(	INIT+57, INIT+58
>> BSDATE	HDR+6, INIT+5
>> BSDBD	INIT+6
BSDCNT	INIT+19~, INIT+28, INIT+29, INIT+35, INIT+43*, INIT+52, INIT+58, INIT+59, INIT+63, INIT+65
>> BSDED	INIT+7
BSDN	INIT+4~, INIT+8, INIT+10, INIT+11, INIT+12, INIT+13, INIT+15, INIT+16, GETONE+3, GETONE+7 , GETONE+10*, VIEW+1~, VIEW+2, VIEW+3
>> BSDPAG	INIT+28
>> BSDPRI(	INIT+10
>> BSDPROV(	INIT+11
>> BSDPRTB	INIT+10, INIT+11, INIT+12, INIT+13
>> BSDPRTYN	INIT+10, INIT+11, INIT+12, INIT+13
>> BSDREA(	INIT+12
>> BSDREM	INIT+15
>> BSDRES(	INIT+13
>> BSDSRT	HDR+5, INIT+33, INIT+34, INIT+63, SORT+2, SORT+3
BSDSUB	INIT+4~, INIT+5*, INIT+7, INIT+8
BSDT	INIT+4~, INIT+6, INIT+7, INIT+8, INIT+16
BSDTPRI	INIT+4~, INIT+10*
BSDTPROV	INIT+4~, INIT+11*
BSDTREA	INIT+4~, INIT+12*
BSDTRES	INIT+4~, INIT+13*
>> BSDWLN	HDR+3, INIT+8, INIT+10, INIT+11, INIT+12, INIT+13, INIT+15, INIT+16, INIT+42, INIT+55 , VIEW+3
C	INIT+19~, INIT+39*, INIT+42, INIT+52, INIT+55, INIT+58, INIT+59, INIT+63
CLN	SORT~, SORT+2, SORT+3
COUNT	SET~, SET+1*, SET+3
D	PAD~, PAD+2
DATA	SET~, SET+2
DFN	INIT+19~, INIT+42, INIT+44, INIT+45, INIT+46, INIT+47, INIT+49, VIEW+1~, VIEW+3
DUZ(2	INIT+45
F	FIELD~, FIELD+1
FILE	INIT+20~, INIT+55*, INIT+56, INIT+57, INIT+58
FIRST	INIT+19~, INIT+21, INIT+27, INIT+32
I	HDG+2~*
IEN	SORT~, SORT+2, SORT+3, SET~, SET+3
IENS	INIT+20~, INIT+55*, INIT+56, INIT+57, INIT+58
IO	PRINT+1
IOF	HDG+1
IOSL	PRINT+5
IOST	EN+1
L	PAD~, PAD+2
LINE	INIT+19~, INIT+34, INIT+35, INIT+43, INIT+44, INIT+45, INIT+46, INIT+47, INIT+49, INIT+52 , PRINT+2~, PRINT+3, PRINT+4, PRINT+6
N	FIELD~, FIELD+1, SP~, SP+1
NUM	SET~, SET+1*, SET+2, SET+3
SUBCNT	INIT+20~
SUBCNT(	INIT+61*, INIT+63
TOTAL	INIT+20~, INIT+61*, INIT+65
U	HDR+5, HDR+6, INIT+10, INIT+11, INIT+12, INIT+13, INIT+15, INIT+34, SORT+2, SORT+3 , FIELD+1
>> VALMBCK	RETURN+1*
VALMCNT	EN+2~, INIT+1*, INIT+28, INIT+29, INIT+35, INIT+52, INIT+58, INIT+59, INIT+63, INIT+65 , INIT+68
>> VALMHDR(	HDG+2
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
>> VALMHDR(3	HDR+7*
>> VALMY	GETONE+5
>> VALMY(0	GETONE+6
X	HDR+1~, HDR+3, HDR+4, HDR+5, HDR+6, HDR+7, INIT+19~, INIT+33, INIT+34, INIT+57* , INIT+58, SORT+1~, SORT+2, SORT+3, SORT+4, HELP+1, GETONE+1~, GETONE+6, GETONE+10
>> XQORNOD(0	GETONE+4
Y	GETONE+1~, GETONE+7*, GETONE+8, GETONE+9, GETONE+10
Z	GETONE+1~, GETONE+8*, GETONE+9, GETONE+10

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDWLL

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: