Routine: BDGIPL3

Package	Total	Call Graph
IHS Changes To ADT	5	($$CONF,$$TIME,INIT,PRTKL)^BDGF ($$CURDX,$$CURLOS,$$CURPRV)^BDGF1 ($$HRCN,$$HRCND)^BDGF2 SET^BDGIPL1 ^BDGIPL31
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 BY WARD/ROOM ; assumes BDGSRT and BDGSRT2 are set
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
LINES	; set up dislay lines for patient
EXPND	; -- expand code
HDG	; heading for paper report
OBSERV(P)	; obs if observatrion service
INIT	; -- init variables and list array
PEND	; display line for pending DSO/SDA patients for ward
EXIT	; -- exit code
PRINT	; print report to paper
LASTCOL(X,P)	; returns last column data based on request from user
DASHES	; adds line of dashes
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+19
$$CONF^BDGF	HDR+2, HDG+2
$$TIME^BDGF	PEND+12
INIT^BDGF	PRINT+2
PRTKL^BDGF	PRINT+20
$$CURDX^BDGF1	LINES+9, LINES+24, LASTCOL+2
$$CURLOS^BDGF1	LINES+14
$$CURPRV^BDGF1	LINES+10, LINES+22
$$HRCN^BDGF2	LINES+6, PEND+6
$$HRCND^BDGF2	LINES+6, PEND+6
SET^BDGIPL1	SET+1
^BDGIPL31	INIT+4
$$GET1^DIQ	LINES+5, LINES+13, LINES+23, PEND+7, LASTCOL+3, OBSERV+1
EN^VALM	EN+3
TERM^VALM0	EN+2
CLEAR^VALM1	EN+2, EN+4
$$REPEAT^XLFSTR	HDG+6, HDG+7, HDG+10, DASHES+1, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(BDGLN,1,80) Line Location: PRINT+17
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !?16,$$CONF^BDGF Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGUSR,?(80-$L(BDGFAC)\2),BDGFAC Line Location: HDG+3
Function Call: WRITE	Prompt: !,BDGTIME,?27,"Current Inpatients by Ward",?71,"Page: ",BDGPG Line Location: HDG+4
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: !?5,"Room",?14,"Patient",?34,"Chart #",?44,"Diagnosis",?64,"Attending",!,$$REPEAT^XLFSTR("-",80) Line Location: HDG+7
Function Call: WRITE	Prompt: !?5,"Room",?14,"Patient",?34,"Chart #",?44,"Age",?52,"LOS" Line Location: HDG+8
Function Call: WRITE	Prompt: ?58,$S(BDGSRT2=1:"Admitting Diagnosis",BDGSRT2=2:"Service",1:"Nursing Notes") 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

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("BDGIPL"	INIT+2!, PRINT+8, PRINT+9, EXIT+1!
^TMP("BDGIPL1"	INIT+2!, INIT+7, INIT+8, INIT+18, INIT+21, INIT+26, INIT+30, INIT+34!, PEND+3

Label References

Name	Line Occurrences
$$LASTCOL	LINES+15
$$OBSERV	LINES+21
$$PAD	HDR+5, LINES+5, LINES+6, LINES+9, LINES+10, LINES+13, LINES+14, LINES+15, LINES+22, LINES+23 , LINES+24, PEND+5, PEND+6, PEND+7, PEND+8, PEND+13, PEND+14, SP+1
$$SP	HDR+2, HDR+4, HDR+5, INIT+22, LINES+4, LINES+21
DASHES	INIT+23, LINES+26, PEND+16
EXIT	PRINT+20
HDG	PRINT+5, PRINT+12, PRINT+15, PRINT+16
INIT	BDGIPL3+8
LINES	INIT+27, INIT+32
PEND	INIT+31
PRINT	BDGIPL3+8
SET	INIT+11, INIT+15, INIT+22, INIT+23, LINES+11, LINES+16, LINES+25, PEND+9, PEND+15, DASHES+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDGCNT	INIT+1~, INIT+3, INIT+11, INIT+15, INIT+22, INIT+23, INIT+27, INIT+32*, LINES+4, LINES+11 , LINES+16, LINES+25, PEND+9, PEND+15, DASHES+1
>> BDGCOP	PRINT+19
>> BDGDATE	HDG+5
>> BDGFAC	HDG+3
BDGIOM	BDGIPL3+7~*, DASHES+1
BDGLN	PRINT+1~, PRINT+9*, PRINT+12, PRINT+15, PRINT+17
BDGPG	PRINT+1~, HDG+1*, HDG+4
>> BDGSRT	HDR+3, INIT+10, PRINT+5
>> BDGSRT2	HDR+5, INIT+23, LINES+8, LINES+15, LINES+18, LINES+24, HDG+7, HDG+9
>> BDGTIME	HDG+4
>> BDGUSR	HDG+3
BDGWD	INIT+1~, PRINT+1~, PRINT+5, PRINT+12, HDG+5
BDGWDN	INIT+1~
BDGX	PRINT+1~, PRINT+8*, PRINT+9
COUNT	SET~, SET+1
D	PAD~, PAD+2
DFN	INIT+1~, INIT+26, INIT+30, INIT+31, LINES+5, LINES+6, LINES+9, LINES+10, LINES+11, LINES+13 , LINES+14, LINES+15, LINES+16, LINES+21, LINES+22, LINES+23, LINES+24, LINES+25, PEND+2, PEND+3 , PEND+9, PEND+15, LASTCOL+2, LASTCOL+3
DUZ(2	LINES+6, PEND+6
IEN	SET~, SET+1
IO	PRINT+2
IOF	HDG+1
IOM	BDGIPL3+7
>> IORVOFF	INIT+11
>> IORVON	INIT+11
IOSL	PRINT+15, PRINT+16
IOST	BDGIPL3+8, LINES+4
L	PAD~, PAD+2
LINE	INIT+1~, LINES+1~, LINES+4, LINES+5, LINES+6, LINES+9, LINES+10, LINES+11, LINES+13, LINES+14* , LINES+15, LINES+16, LINES+21, LINES+22, LINES+23, LINES+24, LINES+25, PEND+1~, PEND+4, PEND+5* , PEND+6, PEND+7, PEND+8, PEND+9, PEND+12, PEND+13, PEND+14, PEND+15, SET~, SET+1
N	SP~, SP+1
NAME	INIT+1~
NODE	PEND+1~, PEND+3*, PEND+4, PEND+5, PEND+8, PEND+12, PEND+13, PEND+14
NUM	SET~, SET+1
ORD	INIT+1~, INIT+7*, INIT+8, INIT+18
P	LASTCOL~, OBSERV~, OBSERV+1
PAT	PEND+1~, PEND+2*, PEND+6, PEND+7
RM	INIT+1~, INIT+18*, INIT+21, INIT+22, INIT+26, LINES+4
SRV	INIT+1~
U	HDR+3, PEND+4, PEND+5, PEND+8, PEND+12, PEND+13, PEND+14, PRINT+5
>> VALMCAP	HDR+5*
VALMCNT	EN+2~, INIT+3*, INIT+11, INIT+15, INIT+22, INIT+23, LINES+11, LINES+16, LINES+25, PEND+9 , PEND+15, DASHES+1
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
WD	INIT+1~, INIT+8*, INIT+11, INIT+15, INIT+18, INIT+21, INIT+26, INIT+30, PEND+3
X	HDR+1~, HDR+3, HDR+4, LASTCOL~, LASTCOL+1, LASTCOL+2, LASTCOL+3, HDG+5~, HELP+1*

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGIPL3

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: