Routine: BDGPI

Package	Total	Call Graph
IHS Changes To ADT	10	ASK^BDGEPI ($$CONF,$$READ,MSG,PAUSE)^BDGF $$OPTOUT^BDGF1 ($$CWAD,$$HRCN,$$STATUS)^BDGF2 PATSET^BDGICF2 $$OUTPT^BDGPAR (SECTION4,SECTION6)^BDGPI0 ^BDGPI1 EN^BDGPI3 PATSET^BDGSVE
Registration	8	^DGPMLOS INP^DGPMV10 SENS^DGSEC4 KVA^VADPT EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
Kernel	3	$$FMADD^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To Scheduling	2	EN^BSDDPA PCP^BSDU1
IHS Additions To Surgery	1	$$LASTDS^BSRPEP
IHS Patient	1	KILL^AUPNPAT
IHS VA Utilities	1	GUIR^XBLM
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	2	BDGPI0 BDGPI1
IHS View Patient Record	1	BVPRP

Entry Points

Name	Comments	DBIA/ICR reference
SET(LINE,LNUM,SNUM,SECTION)	; -- set display line into array ; LINE= display line ; LNUM=line number (VALMCNT) ; SNUM=section # (BDGS) ; SECTION=actual section (from INIT for loop - BDGI)
EN	; -- main entry point for BDG PATIENT INQUIRY
STATE(P)	; -- returns 2 letter state abbreviation for patient's address
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
INIT	; -- init variables and list array
EXIT	; -- exit code
SECTION6	; -- set up chart's status for display
SECTION5	; -- set up list of future appts for display
SECTION4	; -- set up scheduled visits for display
SECTION3	; -- set up last day surgery for display ; skip if not running day surgery program
SECTION2	; -- set up last admission for display ; skip if not inpt facility
SECTION1	; -- set up demographic data for display
HELP	; -- help code

External References

Name	Field # of Occurrence
KILL^AUPNPAT	EXIT+2
ASK^BDGEPI	EXPND+18
$$CONF^BDGF	HDR+1
$$READ^BDGF	BDGPI+6
MSG^BDGF	INIT+1, EXPND+15
PAUSE^BDGF	EXPND+16
$$OPTOUT^BDGF1	SECTION1+8
$$CWAD^BDGF2	SECTION1+12
$$HRCN^BDGF2	SECTION1+13
$$STATUS^BDGF2	SECTION2+6
PATSET^BDGICF2	EXPND+29
$$OUTPT^BDGPAR	SECTION2+2
SECTION4^BDGPI0	SECTION4+1
SECTION6^BDGPI0	SECTION6+1
^BDGPI1	EXPND+12
EN^BDGPI3	EXPND+22
PATSET^BDGSVE	EXPND+25
EN^BSDDPA	EXPND+28
PCP^BSDU1	SECTION1+35
$$LASTDS^BSRPEP	SECTION3+9
^DGPMLOS	SECTION2+34
INP^DGPMV10	SECTION2+10
SENS^DGSEC4	SECTION1+5
$$GET1^DIQ	SECTION1+12, SECTION1+14, SECTION1+18, SECTION1+19, SECTION1+20, SECTION1+24, SECTION1+25, SECTION1+26, SECTION1+31, SECTION2+25 , SECTION3+31, SECTION3+32, SECTION3+35, SECTION3+38, SECTION3+40, SECTION3+46, SECTION3+47, STATE+2, STATE+3
KVA^VADPT	EXIT+2
EN^VALM	EN+2
TERM^VALM0	EN+1
CLEAR^VALM1	EN+1, EN+3
FULL^VALM1	EXPND+2
EN^VALM2	EXPND+3
GUIR^XBLM	SECTION5+3
$$FMADD^XLFDT	EXPND+27
$$REPEAT^XLFSTR	PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
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
^DG(405.4 - [#405.4]	GET1^DIQ
^DIC(5 - [#5]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
9009012.01	GET1^DIQ
^AUTTCOM - [#9999999.05]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	SECTION3+8
^ADGDS - [#9009012]	SECTION3+17, SECTION3+24
^ADGDS("APID"	SECTION3+22, SECTION3+23
^ADGDS(0	SECTION3+2
^DGPM("C"	SECTION2+13
^SRF(0	SECTION3+2
^TMP("BDGPI"	INIT+3!, EXIT+1!, EXPND+6, EXPND+7, EXPND+8, EXPND+9, SET+6, SET+7
^TMP("BDGPI1"	SECTION5+2!, SECTION5+4, SECTION5+5, SECTION5+7!
^XUSEC("DGZNOCLN"	EXPND+14

Label References

Name	Line Occurrences
$$PAD	SECTION1+13, SECTION1+14, SECTION1+18, SECTION1+20, SECTION1+25, SECTION1+27, SECTION2+18, SECTION2+19, SECTION2+20, SECTION2+23 , SECTION2+24, SECTION2+29, SECTION2+30, SECTION2+33, SECTION2+34, SECTION3+34, SECTION3+39, SECTION3+41, SECTION3+43, SECTION3+47 , SP+1
$$SP	HDR+1, SECTION1+6, SECTION1+9, SECTION3+46, SECTION5+5
$$STATE	SECTION1+24
@(	INIT+4
EN	BDGPI+6
EXIT	BDGPI+7
SET	SECTION1+2, SECTION1+6, SECTION1+9, SECTION1+15, SECTION1+21, SECTION1+28, SECTION1+32, SECTION1+37, SECTION2+7, SECTION2+15 , SECTION2+21, SECTION2+26, SECTION2+31, SECTION2+35, SECTION3+11, SECTION3+12, SECTION3+13, SECTION3+18, SECTION3+19, SECTION3+26 , SECTION3+27, SECTION3+36, SECTION3+39, SECTION3+41, SECTION3+44, SECTION3+48, SECTION5+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDGDSN	EXPND+22, SECTION3+4!, SECTION3+25*
BDGI	INIT+2~, INIT+4*, SECTION1+2, SECTION1+6, SECTION1+9, SECTION1+15, SECTION1+21, SECTION1+28, SECTION1+32, SECTION1+37 , SECTION2+7, SECTION2+15, SECTION2+21, SECTION2+26, SECTION2+31, SECTION2+35, SECTION3+11, SECTION3+12, SECTION3+13, SECTION3+18 , SECTION3+19, SECTION3+26, SECTION3+27, SECTION3+36, SECTION3+39, SECTION3+41, SECTION3+44, SECTION3+48, SECTION5+6
BDGLDS	SECTION3+7~, SECTION3+9*, SECTION3+10
BDGN	EXPND+1~, EXPND+9*, EXPND+11, EXPND+12, EXPND+14, EXPND+18, EXPND+22, EXPND+25, EXPND+26, EXPND+29
BDGR	SECTION1+1~, SECTION1+5!, SECTION1+35!*
BDGR(1	SECTION1+5, SECTION1+36
BDGS	INIT+2~, INIT+4, SECTION1+2, SECTION1+6, SECTION1+9, SECTION1+15, SECTION1+21, SECTION1+28, SECTION1+32, SECTION1+37 , SECTION2+2, SECTION2+6, SECTION2+7, SECTION2+15, SECTION2+21, SECTION2+26, SECTION2+31, SECTION2+35, SECTION3+2*, SECTION3+11 , SECTION3+12, SECTION3+13, SECTION3+18, SECTION3+19, SECTION3+26, SECTION3+27, SECTION3+36, SECTION3+39, SECTION3+41, SECTION3+44 , SECTION3+48, SECTION5+5, SECTION5+6
BDGSRN	EXIT+1!, EXPND+22, SECTION3+4!, SECTION3+14*
BDGSVE	EXPND+25!
BDGX	SECTION3+7~, SECTION3+9*
BDGX(	SECTION3+13
BDGX(0	SECTION3+14
>> BSDBD	EXPND+27*
BSDDFN	EXPND+28*!
>> BSDED	EXPND+27*
D	PAD~, PAD+2
DFN	BDGPI+5~, BDGPI+6, EXPND+22, EXPND+28, SECTION1+5, SECTION1+8, SECTION1+12, SECTION1+13, SECTION1+14, SECTION1+18 , SECTION1+19, SECTION1+20, SECTION1+24, SECTION1+25, SECTION1+26, SECTION1+31, SECTION1+35, SECTION2+6, SECTION2+13, SECTION3+9 , SECTION3+17, SECTION3+22, SECTION3+23, SECTION3+24, SECTION3+30
DGPMCA	EXIT+1!, SECTION2+11*, SECTION2+34
DGPMDCD	SECTION2+37!
DGPMIFN	SECTION2+34~*, SECTION2+37!
DGPMT	SECTION2+37!
DGPMVI	SECTION2+37!
DGPMVI(	SECTION2+29
DGPMVI(13	SECTION2+11, SECTION2+18, SECTION2+20
DGPMVI(18	SECTION2+33
DGPMVI(2	SECTION2+17, SECTION2+19, SECTION2+20, SECTION2+28
DGPMVI(3	SECTION2+20
DGPMVI(5	SECTION2+23
DGPMVI(6	SECTION2+24, SECTION2+25
DGPMVI(8	SECTION2+30
DT	EXPND+27
DUZ	EXPND+14, SECTION1+5
DUZ(2	SECTION1+13, SECTION2+2
I	SECTION3+7~, SECTION3+13*
IEN	SECTION3+21~, SECTION3+23*, SECTION3+24, SECTION3+25, SECTION3+30
IENS	SECTION3+21~, SECTION3+30*, SECTION3+31, SECTION3+32, SECTION3+35, SECTION3+38, SECTION3+40, SECTION3+46, SECTION3+47
>> IORVOFF	SECTION1+6, SECTION1+9
>> IORVON	SECTION1+6, SECTION1+9
L	PAD~, PAD+2
LINE	SECTION1+1~, SECTION1+12, SECTION1+13, SECTION1+14, SECTION1+15, SECTION1+18, SECTION1+19, SECTION1+20, SECTION1+21, SECTION1+24* , SECTION1+25, SECTION1+27, SECTION1+28, SECTION1+31, SECTION1+32, SECTION1+36, SECTION1+37, SECTION2+5~, SECTION2+6, SECTION2+7 , SECTION2+14, SECTION2+15, SECTION2+17, SECTION2+18, SECTION2+19, SECTION2+20, SECTION2+21, SECTION2+23, SECTION2+24, SECTION2+25* , SECTION2+26, SECTION2+29, SECTION2+30, SECTION2+31, SECTION2+33, SECTION2+34, SECTION2+35, SECTION3+21~, SECTION3+31, SECTION3+34 , SECTION3+35, SECTION3+36, SECTION3+39, SECTION3+41, SECTION3+42, SECTION3+43, SECTION3+44, SECTION3+46, SECTION3+47, SECTION3+48 , SECTION5+1~, SECTION5+5*, SECTION5+6, SET~, SET+6
LNUM	SET~, SET+5*, SET+6, SET+7
N	SP~, SP+1
P	STATE~, STATE+2
SCDT2	EXIT+1!
SCP	EXIT+1!
SECTION	SET~, SET+7
SNUM	SET~, SET+7
U	SECTION2+17, SECTION2+18, SECTION2+19, SECTION2+20, SECTION2+23, SECTION2+24, SECTION2+28, SECTION2+30, SECTION2+33, SECTION2+34
VAIP	SECTION2+5~
VAIP("D"	SECTION2+10*
>> VALMBCK	EXPND+12, EXPND+16, EXPND+18, EXPND+22, EXPND+25, EXPND+26, EXPND+29*
VALMCNT	EN+1~, INIT+3*, SECTION1+2, SECTION1+6, SECTION1+9, SECTION1+15, SECTION1+21, SECTION1+28, SECTION1+32, SECTION1+37 , SECTION2+7, SECTION2+15, SECTION2+21, SECTION2+26, SECTION2+31, SECTION2+35, SECTION3+11, SECTION3+12, SECTION3+13, SECTION3+18 , SECTION3+19, SECTION3+26, SECTION3+27, SECTION3+36, SECTION3+39, SECTION3+41, SECTION3+44, SECTION3+48, SECTION5+6
>> VALMHDR(1	HDR+1*
>> VALMY	EXPND+4
>> VALMY(	EXPND+5
X	INIT+2~, INIT+4, HELP+1, EXPND+1~, EXPND+5, EXPND+9, SECTION1+26, SECTION1+27, SECTION2+34, SECTION3+7~ , SECTION3+8, SECTION3+21~, SECTION3+22, SECTION3+23, SECTION3+32, SECTION3+33, SECTION3+34, SECTION5+1~, SECTION5+4~, SECTION5+5 , STATE+1~, STATE+2*, STATE+3
>> XQORNOD(0	EXPND+3
Y	EXPND+1~, EXPND+6*, EXPND+7, EXPND+8, EXPND+9
Z	EXPND+1~, EXPND+7*, EXPND+8, EXPND+9

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGPI

Information

Source Information

Call Graph

Call Graph Total: 27

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: