Routine: BDGPV

Package	Total	Call Graph
Kernel	4	^%ZISC ($$FMADD,$$FMTE)^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To ADT	3	($$BROWSE,$$CONF,$$READ,MSG,ZIS)^BDGF $$ADMPRV^BDGF1 ($$CWAD,$$HRCN)^BDGF2
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To Scheduling	2	CLINICS^BSDPVD PCP^BSDU1
IHS Additions To Surgery	1	PRVSUR^BSRPEP
VA Fileman	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
WRD()	; return current ward abbreviation for patient
EN	;EP; -- main entry point for BDG PROVIDER INQUIRY
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
SRV()	; return current service abbreviation for patient
SET(LINE,LNUM,PNUM,IEN)	; puts display line into array
EXPND	; -- expand code
SCHVST	; find scheduled outpat visits and those for quarters
HDG	; heading for paper report
START	;EP; entry when printing to paper
INIT	; -- init variables and list array
SCHDS	; find scheduled day surgeries
PRINT	; print report to paper
EXIT	; -- exit code
APPTS	; find all appts for provider for today
SCHADM	; find scheduled admissions for next week for provider
INPT	; find all inpatients for this provider
DAYSUR	; find all day surgery patients for this provider
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+6
$$BROWSE^BDGF	BDGPV+10
$$CONF^BDGF	HDR+1
$$READ^BDGF	BDGPV+6, BDGPV+9
MSG^BDGF	INIT+1
ZIS^BDGF	BDGPV+11
$$ADMPRV^BDGF1	INPT+15, INPT+51
$$CWAD^BDGF2	INPT+49, APPTS+38
$$HRCN^BDGF2	INPT+42, DAYSUR+35, APPTS+37
CLINICS^BSDPVD	APPTS+3
PCP^BSDU1	INPT+19, INPT+52
PRVSUR^BSRPEP	DAYSUR+1, DAYSUR+5
$$GET1^DIQ	BDGPV+4, INPT+7, INPT+12, INPT+16, INPT+21, INPT+45, INPT+46, INPT+50, DAYSUR+33, DAYSUR+34 , DAYSUR+36, DAYSUR+40, DAYSUR+42, DAYSUR+43, DAYSUR+46, DAYSUR+47, APPTS+12, APPTS+36, SRV+1, WRD+3
EN^VALM	EN+2
TERM^VALM0	EN+1
CLEAR^VALM1	EN+1, EN+3
$$FMADD^XLFDT	APPTS+33
$$FMTE^XLFDT	APPTS+32, APPTS+33
$$REPEAT^XLFSTR	HDG+3, HDG+6, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BDGPV",$J,LINE,0) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF,?30,"Provider's Current Inpatients" 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,"Patient Name",?23,"Chart #",?33,"Wrd/Srv",?42,"Room-Bed" Line Location: HDG+4
Function Call: WRITE	Prompt: ?51,"Admit Date",?65,"Admitting Dx" Line Location: HDG+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+6
Function Call: WRITE	Prompt: !! Line Location: HELP+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
^DGPM - [#405]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^DIC(45.7 - [#45.7]	GET1^DIQ
9009012.01	GET1^DIQ
^BDGWD - [#9009016.5]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADGDS("AA"	DAYSUR+24, DAYSUR+25, DAYSUR+26
^DIC(42 - [#42]	WRD+3
^DPT - [#2]	INPT+7, INPT+11, INPT+44, SRV+1, WRD+2
^DPT("ACA"	INPT+3, INPT+4
^SC - [#44]	APPTS+15, APPTS+16, APPTS+19, APPTS+20
^TMP("BDGPV"	INIT+3!, INIT+7, PRINT+3, PRINT+5, EXIT+1!, SET+2, SET+3*
^TMP("BDGPV1"	INIT+3!, INIT+8!, INPT+12, INPT+16, INPT+21, INPT+24, INPT+30, INPT+36, INPT+37, INPT+38 , DAYSUR+3!, DAYSUR+6, DAYSUR+10, DAYSUR+11, DAYSUR+12, DAYSUR+13, DAYSUR+15, DAYSUR+18!, APPTS+7!, APPTS+20 , APPTS+22, APPTS+28, APPTS+29, APPTS+30, APPTS+31, APPTS+54!
^TMP("BSDPVD2"	APPTS+11
^XUSEC("PROVIDER"	BDGPV+4

Label References

Name	Line Occurrences
$$PAD	INPT+42, INPT+43, INPT+44, INPT+45, INPT+46, INPT+49, DAYSUR+34, DAYSUR+35, DAYSUR+36, APPTS+35 , APPTS+36, APPTS+37, APPTS+38, SP+1
$$SP	HDR+1, HDR+2, HDR+3, INPT+34, INPT+49, DAYSUR+14, DAYSUR+49, APPTS+24, APPTS+49
$$SRV	INPT+43
$$WRD	INPT+43
APPTS	INIT+6
DAYSUR	INIT+6
EN	BDGPV+10
EXIT	PRINT+6
HDG	PRINT+1, PRINT+4
HDR	HDG+1
INIT	START+1
INPT	INIT+6
PRINT	START+1
SCHADM	INIT+6
SCHDS	INIT+6
SCHVST	INIT+6
SET	INPT+28, INPT+34, INPT+36, INPT+47, INPT+54, DAYSUR+8, DAYSUR+16, DAYSUR+29, DAYSUR+37, DAYSUR+49 , APPTS+23, APPTS+24, APPTS+43, APPTS+47, APPTS+49

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDGCA	INPT+1~, INPT+3, INPT+4, INPT+12, INPT+15, INPT+16, INPT+21, INPT+38, INPT+45, INPT+46 , INPT+47, INPT+51, INPT+54
BDGCNT	INIT+2~, INIT+5, INPT+28, INPT+34, INPT+36, INPT+41, INPT+47, INPT+54, INPT+57, DAYSUR+8 , DAYSUR+14, DAYSUR+16, DAYSUR+17, DAYSUR+29, DAYSUR+33, DAYSUR+37, DAYSUR+49, DAYSUR+52, APPTS+23, APPTS+24 , APPTS+32, APPTS+43, APPTS+47, APPTS+49, APPTS+52*
>> BDGDS	DAYSUR+26*, DAYSUR+32, DAYSUR+37, DAYSUR+49
BDGDT	DAYSUR+22~, DAYSUR+23, DAYSUR+24, DAYSUR+25, DAYSUR+26
BDGEND	DAYSUR+22~, DAYSUR+23*, DAYSUR+24
BDGFRST	DAYSUR+22~, DAYSUR+23, DAYSUR+29
BDGI	DAYSUR+2~, DAYSUR+13*, DAYSUR+14, DAYSUR+15
BDGPRT	START+1*, INIT+1, EXIT+1!
BDGPV	BDGPV+3~, BDGPV+6, BDGPV+7, INPT+11, INPT+20, DAYSUR+5, APPTS+2
BDGPVN	BDGPV+3~, BDGPV+7*, HDR+2, INPT+15
BDGRR	DAYSUR+2~, DAYSUR+4*, DAYSUR+5
BDGSRT	BDGPV+3~, BDGPV+9*, INPT+7, INPT+33, INPT+43
BDGX	INPT+1~, INPT+19!, INPT+52!
BDGX(1	INPT+20, INPT+53
BSDDT	APPTS+1~, APPTS+2*, APPTS+14
BSDPRV	APPTS+1~, APPTS+2*
BSDQUIET	APPTS+1~, APPTS+2*
CAT	INPT+1~, INPT+24*, INPT+27, INPT+30, INPT+36, INPT+37, INPT+38
CLN	APPTS+10~, APPTS+11, APPTS+12, APPTS+15, APPTS+16, APPTS+19, APPTS+20, APPTS+27~, APPTS+29, APPTS+30 , APPTS+31, APPTS+35
CLNM	APPTS+10~, APPTS+12*, APPTS+20
D	PAD~, PAD+2
DATA	APPTS+27~, APPTS+31*, APPTS+33, APPTS+34, APPTS+36, APPTS+37, APPTS+38, APPTS+47, APPTS+49
DATE	DAYSUR+2~, DAYSUR+11, DAYSUR+12, DAYSUR+13, DAYSUR+15, APPTS+10~, APPTS+14, APPTS+15, APPTS+16, APPTS+19 , APPTS+20, APPTS+27~, APPTS+28, APPTS+29, APPTS+30, APPTS+31, APPTS+32, APPTS+33, APPTS+42, APPTS+47
DEF	BDGPV+3~, BDGPV+4*, BDGPV+6
DFN	INPT+1~, INPT+4, INPT+7, INPT+11, INPT+12, INPT+15, INPT+16, INPT+19, INPT+21, INPT+37 , INPT+38, INPT+42, INPT+44, INPT+47, INPT+49, INPT+50, INPT+51, INPT+52, INPT+54, DAYSUR+22~ , DAYSUR+25*, DAYSUR+26, DAYSUR+32, DAYSUR+34, DAYSUR+35, DAYSUR+37, DAYSUR+49, SRV+1, WRD+2
DT	DAYSUR+5, DAYSUR+23, APPTS+2
DUZ	BDGPV+4
DUZ(2	INPT+42, DAYSUR+35, APPTS+37
END	APPTS+10~, APPTS+14*, APPTS+15
ENDTM	APPTS+27~, APPTS+33*, APPTS+34, APPTS+44
I	APPTS+27~, APPTS+43, HDG+2~
IEN	DAYSUR+2~, DAYSUR+12, DAYSUR+13, DAYSUR+15, DAYSUR+16, APPTS+10~, APPTS+16, APPTS+19, APPTS+20, APPTS+27~ , APPTS+30*, APPTS+31, SET~, SET+3
IENS	DAYSUR+22~, DAYSUR+32*, DAYSUR+33, DAYSUR+36, DAYSUR+40, DAYSUR+42, DAYSUR+43, DAYSUR+46, DAYSUR+47
IO	PRINT+1
IOF	HDG+1
>> IORVOFF	INPT+28, DAYSUR+29, APPTS+23
>> IORVON	INPT+28, DAYSUR+29, APPTS+23
IOSL	PRINT+4
>> IOUOFF	INPT+34, APPTS+24
>> IOUON	INPT+34, APPTS+24
L	PAD~, PAD+2
LAST	APPTS+27~, APPTS+41, APPTS+42, APPTS+44*
LINE	INPT+1~, INPT+27, INPT+28, INPT+33, INPT+34, INPT+41, INPT+42, INPT+43, INPT+44, INPT+45* , INPT+46, INPT+47, INPT+49, INPT+50, INPT+51, INPT+53, INPT+54, DAYSUR+22~, DAYSUR+33, DAYSUR+34* , DAYSUR+35, DAYSUR+36, DAYSUR+37, APPTS+27~, APPTS+32, APPTS+34, APPTS+35, APPTS+36, APPTS+37, APPTS+38 , APPTS+47, PRINT+2~, PRINT+3*, PRINT+5, SET~, SET+2
LNUM	SET~, SET+1*, SET+2, SET+3
N	SP~, SP+1
NAME	INPT+1~, INPT+36*, INPT+37, INPT+38, INPT+41
NODE	APPTS+10~, APPTS+19*, APPTS+20
PNUM	SET~, SET+3
SCR	BDGPV+3~, BDGPV+5*, BDGPV+6
SRT	INPT+1~, INPT+7, INPT+8, INPT+12, INPT+16, INPT+21, INPT+30*, INPT+33, INPT+36, INPT+37 , INPT+38
>> STATUS	DAYSUR+40, DAYSUR+41, DAYSUR+42, DAYSUR+43, DAYSUR+45, DAYSUR+46, DAYSUR+47, DAYSUR+49
U	BDGPV+7, BDGPV+9, INPT+47, INPT+54, DAYSUR+16, DAYSUR+37, DAYSUR+49, APPTS+20, APPTS+33, APPTS+34 , APPTS+47, APPTS+49
VALMCNT	EN+1~, INIT+4, INIT+7, INPT+28, INPT+34, INPT+36, INPT+47, INPT+54, DAYSUR+8, DAYSUR+16 , DAYSUR+29, DAYSUR+37, DAYSUR+49, APPTS+23, APPTS+24, APPTS+43, APPTS+47, APPTS+49
>> VALMHDR(	HDG+2
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
>> VALMSG	HDR+3*
X	INPT+1~, DAYSUR+2~, DAYSUR+14, DAYSUR+15, DAYSUR+16, DAYSUR+40, DAYSUR+41, APPTS+27~, APPTS+42, APPTS+43 , HELP+1, WRD+1~, WRD+2, WRD+3*, WRD+4

Marked Items

Name	Field # of Occurrence
$T(PRVSUR^BSRPEP	DAYSUR+1

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGPV

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items