Routine: APSPLIST

Information

APSPLIST ;BHAM/ISC/JCM - LIST OF NUMBERS READER [ 02/20/2001 3:38 PM ];21-Mar-2004 20:35;PLS

Package	Total	Caller Graph
IHS Changes To Pharmacy	2	APSPNUM APSPSUM

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$S($G(PSONUM("A"))]"":PSONUM("A"),1:"Select ")_PSOLO_" - "_PSOHI_" > " Line Location: ASK+1
Function Call: WRITE	Prompt: !,"WHAT'S WITH THE DOTS!!" Line Location: ASK+4
Function Call: WRITE	Prompt: !!?5,"Response should be no less than "_+PSOLO_" and no greater than "_PSOHI Line Location: L+5
Function Call: WRITE	Prompt: !!?5,"Enter a number, or a list of numbers sperated by commas," Line Location: QUES+0
Function Call: WRITE	Prompt: !?5,"or a range of numbers seperated by a semicolon." Line Location: QUES+1
Function Call: WRITE	Prompt: !!?5,"Examples:" Line Location: QUES+2
Function Call: WRITE	Prompt: !!?5,"1,4,6,7",!?5,"3,5:9,2" Line Location: QUES+3
Function Call: WRITE	Prompt: !?5,"'ALL' (to select all)" Line Location: QUES+4
Function Call: WRITE	Prompt: !?5,"'R' to list allergies/adverse reactions" Line Location: QUES+5
Function Call: WRITE	Prompt: !?5,"'P' (to see profile)",! Line Location: QUES+6
Function Call: WRITE	Prompt: ! Line Location: DUPCHK+3
Function Call: WRITE	Prompt: !?5,*7,"Duplicate # "_RXM_" was found in your list, ignoring it!" Line Location: DUPCHK+3
Function Call: WRITE	Prompt: !,"No date selected so I'm quitting!!",! Line Location: ENMDT+2

Name	Field # of Occurrence
%	BAD*, BAD+1, BAD+2!
>> %DT	ENMDT+1*
>> %DT("A"	ENMDT+1*
>> APSPBDT	ENMDT+1*, ENMDT+4
>> APSPEDT	ENMDT+1*, ENMDT+2, ENMDT+4
>> APSPID	APSPLIST+6
>> APSPK	ENMDT+4*
>> APSPL	ENMDT+4*, ESET
>> APSPZDT(	ENMDT+4
BAD	DUPCHK+2, DUPCHK+3, DUPCHK+4*, BAD, BAD+1, BAD+2!
DTIME	ASK+2
DUP	EXIT!, DUPCHK+3, DUPCHK+4, BAD, BAD+1*, BAD+2!
END	DUPCHK+2*, DUPCHK+3, DUPCHK+4, BAD+2!
>> I	DUPCHK+3, DUPCHK+4
>> J	DUPCHK+3*
PSO	L+6!, EXIT!, L0, L1+1, L1+2
PSOA	EXIT!
PSOC	L+1, EXIT!, L0+2, L0+4, L1, L1+1, L1+2
>> PSOERR	L+1, L+3, L+5, L0, L0+1, BAD+1
PSOHI	ASK+1, ASK+6, L+5, EXIT!, L0
PSOI	L+3*, EXIT!
PSOJ	EXIT!, L0+1, L0+3, L1, L1+1, L1+2
PSOLIST	ASK+3!, ASK+5!
PSOLO	ASK, ASK+1, ASK+6, L+1, L+5, EXIT!, L0
>> PSONUM("A"	ASK+1
>> PSOQFLG	ASK+3, ASK+5
>> PSORX("BAR CO	DE" , ASK+5, ASK+12
>> PSOSD	ASK+8, QUES+6
PSOX	L+3, EXIT!, L0, L0+1, L0+2, L0+3, L0+4
RNM	BAD+2!
>> RXM	DUPCHK+3, DUPCHK+4
X	ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, ASK+7, ASK+8, ASK+9, ASK+10, ASK+11 , L+3, DUPCHK+1~, DUPCHK+2, DUPCHK+3, DUPCHK+4, BAD+2*
>> Y	ASK, ASK+7, L+6, L1+2, ENMDT+1, ENMDT+3, ESET
>> Y(	L0+2, L0+4, L1, L1+1, L1+2
>> Y(1	L+1, L+6, DUPCHK+1, ENMDT+3, ESET*