Routine: BDGIPL6

Information

BDGIPL6 ; IHS/ANMC/LJF - CHAPLAIN'S LIST ;

Source file <BDGIPL6.m>

Package	Total	Call Graph
IHS Changes To ADT	3	($$CONF,INIT,PRTKL)^BDGF $$INPT1^BDGF1 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 CHAPLAIN ; assumes BDGSRT is 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	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,?32,"Chaplain's List",?70,"Page: ",BDGPG Line Location: HDG+3
Function Call: WRITE	Prompt: !,BDGTIME,?(80-$L(X)\2),X Line Location: HDG+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+6
Function Call: WRITE	Prompt: !,"Ward",?7,"Room",?15,"Patient Name",?35,"Age",?45,"Community" Line Location: HDG+7
Function Call: WRITE	Prompt: ?65,"Admit Date" Line Location: HDG+8
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+9
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	LINE+2
^DPT - [#2]	INIT+10
^DPT("CN"	INIT+6, INIT+7
^TMP("BDGIPL"	INIT+2!, PRINT+5, PRINT+6, EXIT+1!
^TMP("BDGIPL1"	INIT+2!, INIT+11*, INIT+14, INIT+24, INIT+25, INIT+26, INIT+29!

Name	Field # of Occurrence
BDGCNT	INIT+1~, INIT+3*, INIT+18, INIT+21, LINE+8
>> BDGCOP	PRINT+13
>> BDGDATE	HDG+3
BDGLN	PRINT+1~, PRINT+6*, PRINT+9, PRINT+12
BDGPG	PRINT+1~, HDG+1*, HDG+3
>> BDGSRT	HDR+3, INIT+9, INIT+16, HDG+4
>> BDGTIME	HDG+5
>> BDGUSR	HDG+2
BDGX	PRINT+1~, PRINT+5*, PRINT+6
COUNT	SET~, SET+1
D	PAD~, PAD+2
DFN	INIT+1~, INIT+7, INIT+8, INIT+10, INIT+11, INIT+26, LINE+4, LINE+5, LINE+6, LINE+7 , LINE+8, AGE+1
DT	LINE+7
FIRST	INIT+1~, INIT+3, INIT+18, INIT+19
IEN	SET~, SET+1
IO	PRINT+2
IOF	HDG+1
>> IORVOFF	INIT+21
>> IORVON	INIT+21
IOSL	PRINT+11
IOST	BDGIPL6+7, INIT+18
L	PAD~, PAD+2
LINE	LINE+1~, LINE+3, LINE+4, LINE+5, LINE+6, LINE+7*, LINE+8, SET~, SET+1
N	SP~, SP+1
NAME	INIT+1~
NUM	SET~, SET+1
P	AGE~
REL	INIT+8, INIT+9, INIT+11, INIT+14, INIT+21, INIT+24, INIT+25, INIT+26, PRINT+1~
>> RM	INIT+10, INIT+11, INIT+25, INIT+26, LINE+3
U	HDR+3, INIT+9, HDG+4
VALMCNT	EN+2~, INIT+3*, INIT+18, INIT+21, LINE+8
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
WD	INIT+1~, INIT+6, INIT+7, INIT+11, INIT+24, INIT+25, INIT+26, LINE+2
X	HDR+1~, HDR+3, HDR+4, LINE+1~, LINE+2, LINE+3, HDG+4, HDG+5, HELP+1, AGE+1~* , AGE+2*, AGE+3