Routine: BSDPVD

Information

BSDPVD ; IHS/ANMC/LJF - PROVIDER'S DAILY SCHEDULE ;

Source file <BSDPVD.m>

Package	Total	Call Graph
Kernel	3	($$FMADD,$$FMTE)^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	2	($$CONF,$$READ,MSG)^BDGF $$NAMEPRT^BDGF2
IHS Changes To Scheduling	1	^BSDPVW
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGPV

Name	Comments	DBIA/ICR reference
HELP	; -- help code
EN	;EP; -- main entry point for BSDAM PROVIDER DAY
DAYWEEK	; -- select view by day or week
CLINICS	;EP; -- sets ^tmp for provider's clinics ; called by ^BDGPV to display provider's appts ; If BSDQUIET is set & >0 no messages display on screen
PROV	; -- select provider to display
EXPND	; -- expand code
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
INIT	; -- init variables and list array
EXIT	; -- exit code
SP(N)	; -- SUBRTN to pad N number of spaces
DATE	; -- select day to view
SET(DATA,IENS,COUNT,LINE)	; -- put data into display array
HDR	; -- header code

Name	Field # of Occurrence
$$CONF^BDGF	HDR+1
$$READ^BDGF	PROV+1, DAYWEEK+1, DATE+1
MSG^BDGF	CLINICS+12, CLINICS+13, CLINICS+15, CLINICS+16
$$NAMEPRT^BDGF2	INIT+31
^BSDPVW	DAYWEEK+3
$$GET1^DIQ	HDR+2, CLINICS+9
EN^VALM	EN+3
TERM^VALM0	EN+2
CLEAR^VALM1	EN+2, EN+4
$$FMADD^XLFDT	INIT+28
$$FMTE^XLFDT	HDR+3, INIT+27, INIT+28
$$REPEAT^XLFSTR	PAD+2
DISP^XQORM1	HELP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+3

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	INIT+10, INIT+11, INIT+14, INIT+16
^SC("AIHSDPR"	CLINICS+6, CLINICS+7, CLINICS+8
^TMP("BSDPVD"	INIT+2!, EXIT+1!, SET+2, SET+3
^TMP("BSDPVD1"	INIT+2!, INIT+16*, INIT+18, INIT+22, INIT+23, INIT+24, INIT+25, INIT+44!
^TMP("BSDPVD2"	PROV+4, INIT+6, INIT+7, EXIT+1!, CLINICS+5!, CLINICS+10*, CLINICS+12, CLINICS+15

Name	Field # of Occurrence
BSDCNT	INIT+21~, INIT+26*, INIT+27, INIT+37, INIT+41
BSDDT	BSDPVD+4~, DATE+1*, HDR+3, INIT+9
>> BSDLN	INIT+1*, INIT+18, INIT+37, INIT+41, INIT+43
BSDPRV	BSDPVD+4~, PROV+1*, PROV+2, HDR+2, CLINICS+6, CLINICS+7, CLINICS+8
>> BSDQUIET	CLINICS+11, CLINICS+14
BSDVW	BSDPVD+4~, DAYWEEK+1*, DAYWEEK+2, DAYWEEK+3
CLN	INIT+5~, INIT+6, INIT+7, INIT+10, INIT+11, INIT+14, INIT+16, INIT+21~, INIT+23, INIT+24 , INIT+25, INIT+30, CLINICS+4~, CLINICS+6*, CLINICS+7, CLINICS+8, CLINICS+9, CLINICS+10
CLNM	INIT+5~, INIT+7*, INIT+16
COUNT	SET~, SET+3
D	PAD~, PAD+2
DATA	INIT+21~, INIT+25*, INIT+28, INIT+29, INIT+31, INIT+32, INIT+41, SET~, SET+2
DATE	INIT+5~, INIT+9, INIT+10, INIT+11, INIT+14, INIT+16, INIT+21~, INIT+22*, INIT+23, INIT+24 , INIT+25, INIT+27, INIT+28, INIT+36, INIT+41
END	INIT+5~, INIT+9*, INIT+10
ENDTM	INIT+21~, INIT+28*, INIT+29, INIT+38
I	INIT+21~, INIT+37*
IEN	INIT+5~, INIT+11, INIT+14, INIT+16, INIT+21~, INIT+24, INIT+25, CLINICS+4~, CLINICS+7*, CLINICS+8
IENS	SET~, SET+3
L	PAD~, PAD+2
LAST	INIT+21~, INIT+35, INIT+36, INIT+38*
LINE	INIT+21~, INIT+27, INIT+29, INIT+30, INIT+31, INIT+32, INIT+41, SET~, SET+1, SET+2 , SET+3
N	SP~, SP+1
NAME	CLINICS+4~, CLINICS+9*, CLINICS+10, CLINICS+13
NODE	INIT+5~, INIT+14*, INIT+15, INIT+16
U	INIT+15, INIT+16, INIT+28, INIT+29, INIT+32, INIT+41
VALMCNT	EN+1~, INIT+18, INIT+43, EXIT+1!
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2, HDR+3
X	INIT+21~, INIT+36, INIT+37, HELP+1