Routine: IBDFDE61

Information

IBDFDE61 ;ALB/AAS - AICS Manual Data Entry, process selection lists ; 24-FEB-96

Name	Comments	DBIA/ICR reference
PARTLST(NEXT,ANS)	; -- user gave inexact match, find which one
ASKNUM
PARTLQ
MULT(CNT,IBD)	; -- multiple appointment
ASKN
MULTQ
ASKPT(CNT)	; -- select patient from list

Name	Line Occurrences
Function Call: WRITE	Prompt: !," Choose 1-",J,": " Line Location: ASKNUM+1
Function Call: WRITE	Prompt: !,"Enter a number from 1 - ",J Line Location: ASKNUM+3
Function Call: WRITE	Prompt: ! Line Location: ASKNUM+7
Function Call: WRITE	Prompt: !," Choose 1-",CNT,": " Line Location: ASKN+1
Function Call: WRITE	Prompt: !,"Enter a number from 1 - ",CNT Line Location: ASKN+3
Function Call: WRITE	Prompt: ! Line Location: ASKN+7
Function Call: WRITE	Prompt: ! Line Location: ASKPT+2
Function Call: WRITE	Prompt: !," Choose 1-",CNT,": " Line Location: ASKPT+6
Function Call: WRITE	Prompt: !,"Enter a number from 1 - ",CNT Line Location: ASKPT+8
Function Call: WRITE	Prompt: ! Line Location: ASKPT+12