Routine: BDGIPL9

Information

BDGIPL9 ; IHS/ANMC/LJF - CURR INPTS ON SI/DNR LIST ;

Source file <BDGIPL9.m>

Package	Total	Call Graph
IHS Changes To ADT	4	($$CONF,$$NUMDATE,INIT,PRTKL)^BDGF $$CURPRV^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

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BDG IPL SI/DNR ; 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
EXPND	; -- expand code
HDG	; heading for paper report
INIT	; -- init variables and list array
EXIT	; -- exit code
PRINT	; print report to paper
AGE(P)	; return formatted age
LINE	; set up dislay line for patient
HELP	; -- help code

Name	Field # of Occurrence
^%ZISC	PRINT+8
$$CONF^BDGF	HDR+2, HDG+2
$$NUMDATE^BDGF	LINE+10
INIT^BDGF	PRINT+2
PRTKL^BDGF	PRINT+9
$$CURPRV^BDGF1	LINE+8
$$HRCN^BDGF2	LINE+4
SET^BDGIPL1	SET+1
$$GET1^DIQ	INIT+12, INIT+13, INIT+22, INIT+23, LINE+3, LINE+7, AGE+1
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

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BDGIPL",$J,BDGX,0) Line Location: PRINT+7
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,BDGUSR,?13,"*",$$CONF^BDGF,"*" Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGDATE,?(80-$L(X)\2),X,?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",?23,"Chart #",?31,"Age",?39,"Room",?47,"Srv" Line Location: HDG+8
Function Call: WRITE	Prompt: ?53,"Provider",?69,"Added" 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

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	INIT+10, INIT+20, LINE+6, LINE+7, LINE+10
^DPT("CN"	INIT+7, INIT+16, INIT+17
^TMP("BDGIPL"	INIT+2!, PRINT+5, PRINT+7, EXIT+1!
^TMP("BDGIPL1"	INIT+2!, INIT+12, INIT+13, INIT+22, INIT+23, INIT+33, INIT+38, INIT+39, INIT+44!

Name	Line Occurrences
$$AGE	LINE+5
$$PAD	LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8, LINE+10, SP+1
$$SP	HDR+2, HDR+4, INIT+36, LINE+2
EXIT	PRINT+9
HDG	PRINT+2, PRINT+6
INIT	BDGIPL9+7
LINE	INIT+40
PRINT	BDGIPL9+7
SET	INIT+31, INIT+36, INIT+42, LINE+11

Name	Field # of Occurrence
BDGCNT	INIT+1~, INIT+3, INIT+31, INIT+36, INIT+42, LINE+2, LINE+11, LINE+14
>> BDGCOP	PRINT+8
>> BDGDATE	HDG+4
>> BDGI	INIT+26*, INIT+30, INIT+33, INIT+38, INIT+39
BDGLN	PRINT+1~
BDGPG	PRINT+1~, HDG+1*, HDG+4
>> BDGSRT	HDR+3, INIT+6, INIT+7, INIT+35, HDG+5
>> BDGSRT2	INIT+29, HDG+3
>> BDGTIME	HDG+6
>> BDGUSR	HDG+2
BDGX	PRINT+1~, PRINT+5*, PRINT+7
COUNT	SET~, SET+1
D	PAD~, PAD+2
DFN	INIT+1~, INIT+7, INIT+10, INIT+12, INIT+13, INIT+17, INIT+20, INIT+22, INIT+23, INIT+39* , LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8, LINE+10, LINE+11, AGE+1
DUZ(2	LINE+4
IEN	SET~, SET+1
IO	PRINT+2
IOF	HDG+1
>> IORVOFF	INIT+31
>> IORVON	INIT+31
IOSL	PRINT+6
IOST	BDGIPL9+7, LINE+2
>> IOUOFF	INIT+36
>> IOUON	INIT+36
L	PAD~, PAD+2
LINE	LINE+1~, LINE+2, LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8, LINE+10, LINE+11 , SET~, SET+1
N	SP~, SP+1
NAME	INIT+1~, INIT+38*, INIT+39
NUM	SET~, SET+1
P	AGE~
U	HDR+3, INIT+7, INIT+10, INIT+20, LINE+10, HDG+5
VALMCNT	EN+2~, INIT+3*, INIT+31, INIT+36, INIT+42, LINE+11
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
WD	INIT+1~, INIT+7, INIT+12, INIT+13, INIT+16, INIT+17, INIT+22, INIT+23, INIT+33*, INIT+36 , INIT+38, INIT+39
X	HDR+1~, HDR+3, HDR+4, INIT+10, INIT+12, INIT+13, INIT+20, INIT+22, INIT+23, INIT+30 , INIT+31, HDG+3~, HDG+4, HDG+5, HDG+6, HELP+1, AGE+1~, AGE+2*, AGE+3