Routine: BDGPCCE

Information

BDGPCCE ; IHS/ANMC/LJF - CODE PCC H VISIT ;

Source file <BDGPCCE.m>

Name	Comments	DBIA/ICR reference
ASK	; ask user to select patient and visit
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No admissions on file for the past 2 years." Line Location: ASK+23
Function Call: WRITE	Prompt: !!,"Select from these recent admissions:" Line Location: ASK+27

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVINP("AD"	ASK+16
^AUPNVSIT("AAH"	ASK+6, ASK+8

Name	Line Occurrences
$$PAD	ASK+14, SP+1
ASK	ASK+23, ASK+31