Routine: BDGSD1

Information

BDGSD1 ; IHS/ANMC/LJF - APPTS FOR CURRENT INPTS ;

Source file <BDGSD1.m>

Package	Total	Call Graph
Kernel	4	^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	4	EN^VALM TERM^VALM0 CLEAR^VALM1 (CLINIC,WARD)^VAUTOMA
IHS Changes To ADT	2	($$BROWSE,$$CONF,$$READ,$$TIME,INIT,PRTKL,ZIS)^BDGF $$HRCN^BDGF2
IHS Changes To Scheduling	1	$$OI^BSDU2
Scheduling	1	ASK2^SDDIV
VA Fileman	1	$$GET1^DIQ

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; put display line into array
EN	; -- main entry point for BDG INPT APPTS
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
HDG	; heading when printing to paper
PRINT	; print to paper
INIT	; -- init variables and list array
EXIT	; -- exit code
ASK	;EP; ask user questions ; Called by ^BDGSD when choice 2 is selected
HELP	; -- help code

Name	Field # of Occurrence
^%ZISC	PRINT+6
$$BROWSE^BDGF	ASK+9
$$CONF^BDGF	HDR+2, HDG+2
$$READ^BDGF	ASK+5, ASK+6
$$TIME^BDGF	INIT+39
INIT^BDGF	PRINT+2
PRTKL^BDGF	PRINT+6
ZIS^BDGF	ASK+10
$$HRCN^BDGF2	INIT+41
$$OI^BSDU2	INIT+46
$$GET1^DIQ	INIT+40, INIT+42
ASK2^SDDIV	ASK+3
EN^VALM	EN+3
TERM^VALM0	EN+2
CLEAR^VALM1	EN+2, EN+4
CLINIC^VAUTOMA	ASK+4
WARD^VAUTOMA	ASK+3
$$FMTE^XLFDT	HDR+3, INIT+32, INIT+47, INIT+53, INIT+54, INIT+55, HDG+4
$$REPEAT^XLFSTR	HDG+6, HDG+8, PAD+2
DISP^XQORM1	HELP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BDGSD1",$J,LINE,0) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,BDGUSR,?16,$$CONF^BDGF Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGTIME,?23,"Appointments for Current Inpatients",?71,"Page: ",BDGPG Line Location: HDG+3
Function Call: WRITE	Prompt: !,BDGDATE,?(80-$L(X)\2),X Line Location: HDG+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+6
Function Call: WRITE	Prompt: !,"Appt",?13,"Patient Name",?35,"Chart #",?49,"Clinic" Line Location: HDG+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+8
Routine Call	VALM Line Location: EN+3

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	INIT+12, INIT+14, INIT+38
^DPT("CN"	INIT+6, INIT+8
^TMP("BDGSD1"	INIT+2!, INIT+60, SET+2*, EXIT+1!, PRINT+3, PRINT+5
^TMP("BDGSD1A"	INIT+2!, INIT+18*, INIT+23, INIT+29, INIT+35, INIT+62!

Name	Line Occurrences
$$PAD	INIT+39, INIT+41, INIT+42, INIT+47, SP+1
$$SP	HDR+2, HDR+4, INIT+26, INIT+39, INIT+46, INIT+52
EN	ASK+9
EXIT	PRINT+6
HDG	PRINT+2, PRINT+4
INIT	EN+1
PRINT	EN+1
SET	INIT+26, INIT+32, INIT+43, INIT+48, INIT+56, INIT+58, INIT+60

Name	Field # of Occurrence
BDGBD	ASK+2~, ASK+5*, ASK+6, HDR+3, INIT+11, EXIT+1!, HDG+4
>> BDGDATE	HDG+5
BDGED	ASK+2~, ASK+6*, ASK+7, HDR+3, INIT+11, EXIT+1!, HDG+4
BDGPG	PRINT+1~, HDG+1*, HDG+3
>> BDGTIME	HDG+3
>> BDGUSR	HDG+2
CLINIC	INIT+5~, INIT+14*, INIT+15
D	PAD~, PAD+2
DATA	SET~, SET+2
DATE	INIT+5~, INIT+11, INIT+12, INIT+14, INIT+18, INIT+22~, INIT+28, INIT+29, INIT+32, INIT+33 , INIT+35, INIT+38, INIT+39, INIT+46
DFN	INIT+5~, INIT+8, INIT+12, INIT+14, INIT+18, INIT+22~, INIT+35, INIT+38, INIT+40, INIT+41 , INIT+46
DUZ(2	INIT+41
END	INIT+5~, INIT+11*, INIT+12
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+4
IOST	EN+1
L	PAD~, PAD+2
LAST	INIT+22~, INIT+28, INIT+32, INIT+33
LINE	INIT+22~, INIT+39, INIT+40, INIT+41, INIT+42, INIT+43, INIT+46, INIT+47, INIT+48, INIT+52* , INIT+53, INIT+54, INIT+55, INIT+56, PRINT+1~, PRINT+3, PRINT+5
N	SP~, SP+1
NODE	INIT+22~, INIT+38*, INIT+42, INIT+46, INIT+47, INIT+51, INIT+53, INIT+54, INIT+55
NUM	SET~, SET+1*, SET+2
U	INIT+47, INIT+51, INIT+53, INIT+54, INIT+55
VALMCNT	EN+2~, INIT+1*, INIT+26, INIT+32, INIT+43, INIT+48, INIT+56, INIT+58, INIT+60
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
VAUTC	ASK+2~, INIT+15, EXIT+1!
VAUTC(	INIT+15
VAUTD	ASK+2~, EXIT+1!
VAUTNI	ASK+2~, ASK+3, ASK+4
VAUTW	ASK+2~, INIT+7, EXIT+1!
VAUTW(	INIT+7
WARD	INIT+5~, INIT+6, INIT+7, INIT+8, INIT+18, INIT+22~, INIT+23, INIT+26, INIT+29, INIT+35
X	HDR+1~, HDR+3, HDR+4, INIT+22~, INIT+26, INIT+53, INIT+54, INIT+55, HELP+1, HDG+4~* , HDG+5
>> Y	ASK+3