Routine: BDGIPL7

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
IHS Changes To ADT	4	($$CONF,INIT,PRTKL)^BDGF ($$CURPRV,$$INPT1)^BDGF1 ($$HRCN,$$HRCND,$$NEWINS,NEWINS)^BDGF2 SET^BDGIPL1
Kernel	3	^%ZISC $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
VA Fileman	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BDG IPL INSURANCE ; assumes BDGSRT is set
INITC	;-- init variables for coverage type and list array
HDR	; -- header code
SET(LINE,NUM,COUNT,IEN)	; put display line into array
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 for paper report
INIT	; -- init variables and list array
EXIT	; -- exit code
PRINT	; print report to paper
LINE	; set up dislay line for patient
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+13
$$CONF^BDGF	HDR+2, HDG+2
INIT^BDGF	PRINT+2
PRTKL^BDGF	PRINT+14
$$CURPRV^BDGF1	LINE+7
$$INPT1^BDGF1	LINE+8
$$HRCN^BDGF2	LINE+4
$$HRCND^BDGF2	LINE+4
$$NEWINS^BDGF2	INITC+8, INITC+10, INITC+12, INITC+31, INITC+33, INITC+35, LINE+19, LINE+20
NEWINS^BDGF2	INITC+14, INITC+37
SET^BDGIPL1	SET+1
$$GET1^DIQ	INIT+9, INIT+14, INITC+7, INITC+17, INITC+23, INITC+39, LINE+3, LINE+6, LINE+12, LINE+14
EN^VALM	EN+3
TERM^VALM0	EN+2
CLEAR^VALM1	EN+2, EN+4
$$REPEAT^XLFSTR	HDG+7, HDG+10, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,BDGLN Line Location: PRINT+12
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: !,BDGDATE,?20,"Insurance Coverage for Current Inpatients" Line Location: HDG+3
Function Call: WRITE	Prompt: ?71,"Page: ",BDGPG Line Location: HDG+4
Function Call: WRITE	Prompt: !,BDGTIME,?(80-$L(X)\2),X Line Location: HDG+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+7
Function Call: WRITE	Prompt: !?5,"Patient",?25,"Chart #",?35,"Room",?43,"Srv",?50,"Provider" Line Location: HDG+8
Function Call: WRITE	Prompt: ?67,"Admit Date" Line Location: HDG+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+10
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+3

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ
^DIC(45.7 - [#45.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	LINE+5, LINE+6, LINE+12
^DPT("CN"	INIT+8, INIT+12, INIT+13, INITC+5, INITC+20, INITC+21
^TMP("BDGIPL"	INIT+2!, PRINT+5, PRINT+6, EXIT+1!
^TMP("BDGIPL1"	INIT+2!, INIT+9, INIT+14, INIT+17, INIT+27, INIT+28, INIT+31!, INITC+17, INITC+39, INITC+42 , INITC+53, INITC+54, INITC+55, INITC+58!

Label References

Name	Line Occurrences
$$PAD	LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8, LINE+27, SP+1
$$SP	HDR+2, HDR+4, LINE+2, LINE+12, LINE+22, LINE+32
EXIT	PRINT+14
HDG	PRINT+2, PRINT+9, PRINT+11
INIT	BDGIPL7+9
INITC	INIT+5
LINE	INIT+29, INITC+56
PRINT	BDGIPL7+9
SET	INIT+22, INIT+25, INITC+47, INITC+50, LINE+9, LINE+28, LINE+32, LINE+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	LINE+1~, LINE+14*, LINE+19, LINE+20
BDGADM	INITC+3~, INITC+7, INITC+8, INITC+10, INITC+12, INITC+14, INITC+23, INITC+31, INITC+33, INITC+35 , INITC+37
BDGCNT	INIT+1~, INIT+3, INIT+22, INIT+25, INITC+47, INITC+50, LINE+2, LINE+9, LINE+28, LINE+32 , LINE+34, LINE+37
>> BDGCOP	PRINT+13
BDGCOV	INITC+3~, INITC+6, INITC+9, INITC+11, INITC+13, INITC+15, INITC+16, INITC+17, INITC+22, INITC+32 , INITC+34, INITC+36, INITC+38, INITC+39, LINE+1~, LINE+13, LINE+27
>> BDGDATE	HDG+3
BDGLN	PRINT+1~, PRINT+6*, PRINT+9, PRINT+12
BDGMCD	INITC+3~, INITC+8, INITC+9, INITC+31, INITC+32
BDGMCR	INITC+3~, INITC+10, INITC+11, INITC+33, INITC+34
BDGPG	PRINT+1~, HDG+1*, HDG+4
BDGRAIL	INITC+3~, INITC+12, INITC+13, INITC+35, INITC+36
BDGRR	INITC+3~, INITC+15, LINE+18~
BDGRR(	LINE+31, LINE+32
>> BDGSRT	HDR+3, INIT+7, INIT+8, INIT+19, INITC+4, INITC+5, INITC+44, HDG+5
>> BDGSRT2	INIT+5
>> BDGTIME	HDG+6
>> BDGUSR	HDG+2
BDGW	LINE+18~, LINE+20*, LINE+22
BDGX	LINE+18~, LINE+19, LINE+22, PRINT+1~, PRINT+5, PRINT+6
BDGY	LINE+18~, LINE+19*, LINE+22
BDGZ	LINE+18~, LINE+20*
COUNT	SET~, SET+1
COV	INITC+52~, INITC+53*, INITC+54, INITC+55
D	PAD~, PAD+2
DFN	INIT+1~, INIT+8, INIT+9, INIT+13, INIT+14, INIT+28, INITC+5, INITC+7, INITC+8, INITC+10 , INITC+12, INITC+14, INITC+17, INITC+21, INITC+23, INITC+31, INITC+33, INITC+35, INITC+37, INITC+39 , INITC+55, LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8, LINE+9, LINE+12, LINE+14 , LINE+19, LINE+20, LINE+28, LINE+32
DT	LINE+8
DUZ(2	LINE+4
FIRST	INIT+1~, INIT+3, INIT+22, INIT+23, INITC+47, INITC+48*
>> I	LINE+31*, LINE+32
IEN	SET~, SET+1
IO	PRINT+2
IOF	HDG+1
>> IORVOFF	INIT+25, INITC+50
>> IORVON	INIT+25, INITC+50
IOSL	PRINT+11
IOST	BDGIPL7+9, INIT+22, INITC+47, LINE+2
L	PAD~, PAD+2
LINE	LINE+1~, LINE+2, LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8, LINE+9, LINE+12 , LINE+22, LINE+27, LINE+28, SET~, SET+1
N	SP~, SP+1
NAME	INIT+1~, INIT+27, INIT+28, INITC+54, INITC+55
NUM	SET~, SET+1
U	HDR+3, INIT+8, INITC+5, HDG+5
VALMCNT	EN+2~, INIT+3*, INIT+22, INIT+25, INITC+47, INITC+50, LINE+9, LINE+28, LINE+32, LINE+34
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
WD	INIT+1~, INIT+8, INIT+9, INIT+12, INIT+13, INIT+14, INIT+17, INIT+25, INIT+27, INIT+28 , INITC+5, INITC+17, INITC+20, INITC+21, INITC+39, INITC+42, INITC+50, INITC+53, INITC+54, INITC+55
X	HDR+1~, HDR+3, HDR+4, HDG+5, HDG+6, HELP+1*

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGIPL7

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: