Routine: BDGIPL5

Information

BDGIPL5 ; IHS/ANMC/LJF - CURR INPTS BY SRV & PROV ;

Source Information

Source file <BDGIPL5.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
IHS Changes To ADT	4	($$CONF,INIT,PRTKL)^BDGF ($$ADMPRV,$$ADMSRV,$$CURDX,$$CURLOS,$$CURPRV,$$INPT1,$$LASTTXN,$$WRDABRV)^BDGF1 $$HRCN^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 BY PROVIDER ; assumes BDGSRT and BDGSRT1 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
TRANSFER	; returns new service and date if transferred from admtg service
EXPND	; -- expand code
HDG	; heading for paper report
SERVS()	; returns service name or "selected services";IHS/ANMC/LJF 10/31/2002
INIT	; -- init variables and list array
EXIT	; -- exit code
SP(N)	; -- SUBRTN to pad N number of spaces
PRINT	; print report to paper
PATLOOP	; loop by dfn then sort results by provider
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+7
$$CONF^BDGF	HDR+2, HDG+2
INIT^BDGF	PRINT+2
PRTKL^BDGF	PRINT+8
$$ADMPRV^BDGF1	TRANSFER+18
$$ADMSRV^BDGF1	TRANSFER+5
$$CURDX^BDGF1	INIT+46
$$CURLOS^BDGF1	INIT+51
$$CURPRV^BDGF1	INIT+59, PATLOOP+4
$$INPT1^BDGF1	INIT+50
$$LASTTXN^BDGF1	TRANSFER+15
$$WRDABRV^BDGF1	INIT+52
$$HRCN^BDGF2	INIT+42
SET^BDGIPL1	SET+1
$$GET1^DIQ	INIT+15, INIT+41, INIT+43, INIT+44, INIT+45, INIT+58, TRANSFER+8, TRANSFER+15
EN^VALM	EN+3
TERM^VALM0	EN+2
CLEAR^VALM1	EN+2, EN+4
$$REPEAT^XLFSTR	HDG+13, HDG+16, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BDGIPL",$J,BDGX,0) Line Location: PRINT+6
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,"Current Inpatients by Service/Provider" Line Location: HDG+3
Function Call: WRITE	Prompt: ?70,"Page: ",BDGPG Line Location: HDG+7
Function Call: WRITE	Prompt: !,BDGTIME,?(80-$L(X)\2),X Line Location: HDG+9
Function Call: WRITE	Prompt: !?(80-$L(X)\2),X Line Location: HDG+12
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+13
Function Call: WRITE	Prompt: !?5,"Patient Name",?27,"Chart #",?36,"Age",?43,"Sex Community" Line Location: HDG+14
Function Call: WRITE	Prompt: ?64,"Admitting Dx" Line Location: HDG+15
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+16
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
^DGPM - [#405]	GET1^DIQ
^DIC(45.7 - [#45.7]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(45.7 - [#45.7]	TRANSFER+12
^DPT - [#2]	INIT+53, TRANSFER+4
^DPT("ATR"	INIT+12, PATLOOP+3
^DPT("CN"	TRANSFER+2, TRANSFER+3
^TMP("BDGIPL"	INIT+2!, PRINT+4, PRINT+6, EXIT+1!
^TMP("BDGIPL1"	INIT+2!, INIT+21, INIT+26, INIT+38, INIT+57, INIT+68, INIT+70!, PATLOOP+6, TRANSFER+19

Label References

Name	Line Occurrences
$$PAD	INIT+42, INIT+43, INIT+44, INIT+45, INIT+46, INIT+52, SP+1
$$SERVS	HDG+6
$$SP	HDR+2, HDR+5, HDR+8, INIT+35, INIT+40, INIT+49, INIT+58
EXIT	PRINT+8
HDG	PRINT+2, PRINT+5
INIT	BDGIPL5+6
PATLOOP	INIT+18
PRINT	BDGIPL5+6
SET	INIT+24, INIT+31, INIT+36, INIT+47, INIT+54, INIT+61, INIT+63, INIT+68
TRANSFER	INIT+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDGCNT	INIT+1~, INIT+3, INIT+24, INIT+31, INIT+36, INIT+40, INIT+47, INIT+54, INIT+61, INIT+63 , INIT+65, INIT+68
>> BDGCOP	PRINT+7
>> BDGDATE	HDG+3
BDGPG	PRINT+1~, HDG+1*, HDG+7
>> BDGSRT	HDR+3, INIT+13, TRANSFER+12, TRANSFER+14, HDG+6
>> BDGSRT(	INIT+13, TRANSFER+12, SERVS+2, SERVS+3
>> BDGSRT(0	SERVS+2
>> BDGSRT1	HDR+4, PATLOOP+5, HDG+8
>> BDGSRT2	HDR+6, HDR+7, INIT+11*, INIT+16, INIT+17, TRANSFER+14, HDG+10, HDG+11
BDGSRV	INIT+1~, INIT+12*, INIT+13, INIT+15, PATLOOP+3
BDGSVN	INIT+1~, INIT+15*, INIT+16, INIT+17, PATLOOP+2, PATLOOP+6
>> BDGTIME	HDG+9
>> BDGUSR	HDG+2
BDGX	PRINT+1~, PRINT+4*, PRINT+6
CA	TRANSFER+1~, TRANSFER+4*, TRANSFER+5, TRANSFER+15, TRANSFER+18
COUNT	SET~, SET+1
D	PAD~, PAD+2
DATE	TRANSFER+1~, TRANSFER+15*, TRANSFER+19
DFN	INIT+1~, INIT+38, INIT+41, INIT+42, INIT+43, INIT+44, INIT+45, INIT+46, INIT+47, INIT+50 , INIT+51, INIT+52, INIT+53, INIT+54, INIT+57, INIT+58, INIT+59, INIT+61, INIT+63, PATLOOP+1~ , PATLOOP+3, PATLOOP+4, PATLOOP+6, TRANSFER+1~, TRANSFER+3*, TRANSFER+4, TRANSFER+5, TRANSFER+8, TRANSFER+15, TRANSFER+18 , TRANSFER+19
DT	INIT+50
DUZ(2	INIT+42
IEN	SET~, SET+1
IO	PRINT+2
IOF	HDG+1
>> IORVOFF	INIT+24, INIT+35
>> IORVON	INIT+24, INIT+35
IOSL	PRINT+5
IOST	BDGIPL5+6, INIT+40
L	PAD~, PAD+2
LINE	INIT+1~, INIT+40, INIT+41, INIT+42, INIT+43, INIT+44, INIT+45, INIT+46, INIT+47, INIT+49 , INIT+50, INIT+51, INIT+52, INIT+53, INIT+54, INIT+58, INIT+59, INIT+60*, INIT+61, SET~ , SET+1
N	SP~, SP+1
NUM	SET~, SET+1
PROV	INIT+1~, INIT+26*, INIT+30, INIT+35, INIT+38, INIT+57, INIT+68
SRV	INIT+1~, INIT+21, INIT+24, INIT+26, INIT+29, INIT+30, INIT+38, INIT+57, INIT+68, TRANSFER+1~ , TRANSFER+5, TRANSFER+8, TRANSFER+12, TRANSFER+14, TRANSFER+19
U	HDR+3, HDR+4, PATLOOP+5, HDG+8
VALMCNT	EN+2~, INIT+3*, INIT+24, INIT+31, INIT+36, INIT+47, INIT+54, INIT+61, INIT+63, INIT+68
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+5*
>> VALMHDR(3	HDR+8*
>> WARD	TRANSFER+2*, TRANSFER+3
X	HDR+1~, HDR+3, HDR+4, HDR+5, HDR+7, HDR+8, INIT+1~, INIT+30, INIT+31, INIT+35* , INIT+36, INIT+53, INIT+57, INIT+60, PATLOOP+1~, PATLOOP+4, PATLOOP+5, PATLOOP+6, TRANSFER+1~, TRANSFER+12~ , TRANSFER+18, TRANSFER+19, HDG+6, HDG+8, HDG+9, HDG+11, HDG+12, HELP+1, SERVS+1~, SERVS+2* , SERVS+3

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGIPL5

Call Graph Total: 11