Routine: BSDWLE

Package	Total	Call Graph
IHS Changes To Scheduling	6	(,RECALL,REST)^BSDLT MAIN^BSDLTP ADDRESS^BSDREG $$DIV^BSDU (HDR,INIT)^BSDWLE1 EN^BSDWLV
Registration	5	ZIS^DGUTQ EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
VA Fileman	4	^DIC FILE^DICN ^DIE ($$GET1,GETS)^DIQ
Kernel	3	^%ZISC $$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To ADT	1	($$CONF,$$READ,PAUSE)^BDGF

Entry Points

Name	Comments	DBIA/ICR reference
EDITALL	;EP - called by BSDWL EDIT ALL protocol (for closed cases)
HDR	; -- header code
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SET(DATA,SAVE,COUNT,LINENUM)	; puts data line into display array
EXPND	; -- expand code
PRINT	;-- print wait list letters
HELP	; -- help code
INIT	; -- init variables and list array
RETURN(MODE)	; -- reset variables for return to lt ; MODE=1 to rebuild list
GETONE	; -- select entry from listing
SP(N)	; -- SUBRTN to pad N number of spaces
ASK	; ask user questions
INACT	;-- PATCH 1010 RQMT91 set the wait list to inactive
EN	; -- main entry point for BSDRM WAITING LIST
ADD	;EP - called by BSDWL ADD protocol
SRT	;-- how do they want to sort
GETSOME(LET)	;-- select multiple entries from the list
EDIT	;EP - called by BSDWL EDIT protocol
REMOVE	;EP - called by BSDWL REMOVE protocol
EXIT	; -- exit code
ADDRESS	; ask to update address & phone number
ONNOW(PAT)	; return 1 if patient currently active on list
VIEW	;EP; called by BSDWL VIEW protocol

External References

Name	Field # of Occurrence
^%ZISC	PRINT+16
$$CONF^BDGF	HDR+2
$$READ^BDGF	SRT+1, ADD+4, ADD+5
PAUSE^BDGF	ADD+11
^BSDLT	PRINT+12
RECALL^BSDLT	PRINT+13
REST^BSDLT	PRINT+14
MAIN^BSDLTP	PRINT+2
ADDRESS^BSDREG	ADDRESS+4
$$DIV^BSDU	ADDRESS+3
HDR^BSDWLE1	RETURN+3
INIT^BSDWLE1	RETURN+3
EN^BSDWLV	VIEW+4
ZIS^DGUTQ	PRINT+6
^DIC	ASK+4, INACT+3
FILE^DICN	ADD+11
^DIE	ADD+16, EDIT+6, EDITALL+6, REMOVE+6, INACT+5
$$GET1^DIQ	HDR+3, INIT+32, VIEW+3, EDIT+3, EDITALL+3, REMOVE+3, ADDRESS+2, ADDRESS+3
GETS^DIQ	INIT+8, INIT+9, INIT+23
EN^VALM	EN+2
TERM^VALM0	EN+1, RETURN+2
CLEAR^VALM1	EN+1, EN+3
FULL^VALM1	GETONE+2, GETSOME+2, ADD+3
EN^VALM2	GETONE+4, GETSOME+4
$$REPEAT^XLFSTR	PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Wait List is Inactive" Line Location: ASK+7
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+11
Function Call: WRITE	Prompt: !!,$$GET1^DIQ(9009017.11,BSDN_","_BSDWLN,.01) Line Location: EDIT+3
Function Call: WRITE	Prompt: !!,$$GET1^DIQ(9009017.11,BSDN_","_BSDWLN,.01) Line Location: EDITALL+3
Function Call: WRITE	Prompt: !!,$$GET1^DIQ(9009017.11,BSDN_","_BSDWLN,.01) Line Location: REMOVE+3
Routine Call	VALM Line Location: EN+2
Routine Call	DIE Line Location: ADD+16 EDIT+6 EDITALL+6 REMOVE+6 INACT+5
Routine Call	DIC Line Location: ASK+4 INACT+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BSDWL - [#9009017.1]	GET1^DIQ
9009017.11	GET1^DIQ
^BSDPAR - [#9009020.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BSDWL - [#9009017.1]	ASK+6, INIT+5
^DD(9009017.1	ADD+7
^TMP("BSDWLE"	INIT+2!, INIT+35, SET+2, SET+3*, EXIT+1!, GETONE+7, GETONE+8, GETONE+9, GETONE+10, GETSOME+7 , GETSOME+8, GETSOME+9, GETSOME+11, GETSOME+12, ONNOW+3, ONNOW+4, ONNOW+5
^TMP("BSDWLE1"	INIT+2!, INIT+13, INIT+14, INIT+15, INIT+16, INIT+19, INIT+20, INIT+36!
^UTILITY($J	PRINT+1!, PRINT+5, PRINT+9, PRINT+18!, GETSOME+13*
^XUSEC("SDZAC"	ASK+3
^XUSEC("SDZREGEDIT"	ADDRESS+4

Label References

Name	Line Occurrences
$$ONNOW	ADD+5
$$PAD	INIT+26, INIT+27, INIT+28, INIT+29, INIT+30, INIT+31, SP+1
$$SP	HDR+2, HDR+4
ADDRESS	ADD+16, EDIT+6
GETONE	VIEW+2, EDIT+2, EDITALL+2, REMOVE+2
GETSOME	PRINT+4
HDR	RETURN+4
INIT	RETURN+4
RETURN	PRINT+17, VIEW+2, VIEW+4, ADD+4, ADD+5, ADD+11, ADD+16, EDIT+2, EDIT+7, EDITALL+2 , EDITALL+7, REMOVE+2, REMOVE+6
SET	INIT+33
SRT	ASK+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	PRINT+9*, PRINT+13
BSDATA	INIT+1~, INIT+8!, INIT+21!
BSDATA(	INIT+10, INIT+13, INIT+14, INIT+15, INIT+26, INIT+27, INIT+28, INIT+29, INIT+30, INIT+31
BSDATAI	INIT+9!
BSDATAI(	INIT+16
>> BSDCLOSE	RETURN+3
BSDCNT	INIT+1~, INIT+24*, INIT+33
BSDN	GETONE+3, GETONE+7, GETONE+10, GETSOME+3, GETSOME+11, VIEW+1~, VIEW+2, VIEW+3, EDIT+1~, EDIT+2 , EDIT+3, EDIT+4, EDITALL+1~, EDITALL+2, EDITALL+3, EDITALL+4, REMOVE+1~, REMOVE+2, REMOVE+3, REMOVE+4
BSDP	GETSOME+1~, GETSOME+12*, GETSOME+13
BSDREG	ADDRESS+1~, ADDRESS+3*, ADDRESS+4
BSDSRT	ASK+1~, SRT+1*, INIT+13, INIT+14, INIT+15, INIT+16, INACT+1~
BSDWLN	ASK+1~, ASK+4, ASK+6, HDR+3, INIT+5, INIT+6, INIT+21, PRINT+13, VIEW+3, ADD+6 , ADD+9, ADD+14, EDIT+3, EDIT+4, EDITALL+3, EDITALL+4, REMOVE+3, REMOVE+4, INACT+1~, INACT+3 , INACT+4
BSDX	GETSOME+1~, GETSOME+6*, GETSOME+10
CNT	PRINT+7~, PRINT+8, PRINT+11, PRINT+15
COUNT	SET~, SET+1*, SET+3
D	PAD~, PAD+2
DA	ADD+1~, ADD+12, EDIT+1~, EDIT+4, EDITALL+1~, EDITALL+4, REMOVE+1~, REMOVE+4, ADDRESS+2, INACT+4* , INACT+6!
DA(1	ADD+9, ADD+14, EDIT+4, EDITALL+4, REMOVE+4*, ADDRESS+2
DATA	SET~, SET+2
DD	ADD+1~, ADD+2!
DFN	INIT+1~, INIT+32, INIT+33, VIEW+1~, VIEW+3, ADD+1~, ADD+4, ADD+5, ADD+10, ADDRESS+1~ , ADDRESS+2
DIC	ASK+1~, ASK+2, ASK+4!, ADD+1~, ADD+6, INACT+1~, INACT+2*, INACT+4, INACT+6!
DIC("DR"	ADD+8*
DIC("P"	ADD+7*
DIC(0	ASK+2, ASK+3, ADD+6, INACT+2
DIE	ADD+1~, ADD+14, EDIT+1~, EDIT+4, EDITALL+1~, EDITALL+4, REMOVE+1~, REMOVE+4, INACT+4*
DINUM	ADD+1~
DLAYGO	ASK+1~, ASK+3*, ASK+4!, INACT+1~, INACT+6!
DO	ADD+1~, ADD+2!
DR	ADD+1~, ADD+15, EDIT+1~, EDIT+5, EDITALL+1~, EDITALL+5, REMOVE+1~, REMOVE+5, INACT+4*, INACT+6!
DT	GETSOME+13
DUZ	ASK+3, ADD+8, REMOVE+5, ADDRESS+4
FILE	INIT+1~, INIT+4*, INIT+8, INIT+9, INIT+10, INIT+13, INIT+14, INIT+15, INIT+16, INIT+23 , INIT+26, INIT+27, INIT+28, INIT+29, INIT+30, INIT+31, INIT+32
FOUND	ONNOW+1~, ONNOW+2, ONNOW+3, ONNOW+4, ONNOW+5, ONNOW+6
IEN	INIT+1~, INIT+5, INIT+6, INIT+13, INIT+14, INIT+15, INIT+16, INIT+20, INIT+21, INIT+33
IENS	INIT+1~, INIT+6, INIT+8, INIT+9, INIT+10, INIT+13, INIT+14, INIT+15, INIT+16, INIT+21 , INIT+23, INIT+26, INIT+27, INIT+28, INIT+29, INIT+30, INIT+31, INIT+32
IO	PRINT+10
IOF	PRINT+11
L	PAD~, PAD+2
LET	GETSOME~, GETSOME+13
LINE	INIT+1~, INIT+24, INIT+26, INIT+27, INIT+28, INIT+29, INIT+30, INIT+31*, INIT+33
LINENUM	SET~, SET+1*, SET+2, SET+3
MODE	RETURN~, RETURN+3, RETURN+4
N	SP~, SP+1
NAME	INIT+1~, INIT+19*, INIT+20
PAT	ONNOW~, ONNOW+5
>> POP	PRINT+6
REC	PRINT+7~
SAVE	SET~, SET+3
>> SDLET	PRINT+3, PRINT+4, PRINT+5, PRINT+9
U	ASK+6, INIT+33, GETSOME+12, ADD+7, ONNOW+5
>> VALMBCK	RETURN+2*
VALMCNT	EN+1~, INIT+2, INIT+33, INIT+35
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
>> VALMY	GETONE+5, GETSOME+5
>> VALMY(	GETSOME+6
>> VALMY(0	GETONE+6
X	ASK+1~, HDR+1~, HDR+3, HDR+4, HELP+1, GETONE+1~, GETONE+6, GETONE+10, GETSOME+1~, ADD+1~ , ADD+10, ONNOW+1~, INACT+1~
>> XQORNOD(0	GETONE+4, GETSOME+4
Y	ASK+1~, ASK+4, GETONE+1~, GETONE+7, GETONE+8, GETONE+9, GETONE+10, GETSOME+1~, GETSOME+7, GETSOME+8 , GETSOME+9, GETSOME+11, GETSOME+12, ADD+1~, ADD+11, ADD+12, EDIT+1~, EDITALL+1~, REMOVE+1~, ONNOW+1~ , ONNOW+3*, ONNOW+4, ONNOW+5, INACT+1~, INACT+3
Z	GETONE+1~, GETONE+8, GETONE+9, GETONE+10, GETSOME+1~, GETSOME+8, GETSOME+9, GETSOME+10, GETSOME+11, GETSOME+12 , ONNOW+4*, ONNOW+5

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDWLE

Information

Source Information

Call Graph

Call Graph Total: 19

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: