Routine: AUPATLK

Information

AUPATLK ;IHS PATIENT LOOK-UP UTILITY [ 08/21/87 10:54 AM ]

Source file <AUPATLK.m>

Package	Total	Call Graph
Utilities	1	^AUNMLK
VA Fileman	1	IX^DIC

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Select PATIENT: " Line Location: LKUP+0
Function Call: WRITE	Prompt: $P(^(0),"^",1),"//" Line Location: LKUP+0
Function Call: WRITE	Prompt: ! Line Location: L2+0
Function Call: WRITE	Prompt: !!,"Please enter:",!," a) the PATIENT'S NAME (HORSECHIEF,ALLEN J) or",!," b) the IHS CHART NUMBER." Line Location: QUES+0
Function Call: READ	Timeout: DTIME Variable: Y Line Location: SBRS+0
Function Call: READ	Timeout: 5 Variable: Y Line Location: SBRS+0
Routine Call	DIC Line Location: L2

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	LKUP
^DISV($I	NOASK+1, END*
^DPT - [#2]	LKUP, NOASK+1

Name	Field # of Occurrence
>> AGOPT(11	OPT, OPTCH
>> AUNOASK	Z, NO
>> D	OPTCH+1*
DFLT	LKUP!
DFN	LKUP!, NOASK+1, L1, L2, END
DFOUT	LKUP+1, SBRS!*
>> DIC	NOASK+2, OPTCH+1
>> DIC("S"	LKUP!, NOASK+2, OPT, CHART, OPTCH, END!
>> DIC("W"	LKUP1*
>> DIC(0	NOASK+2*
DLOUT	LKUP+1, SBRS!, SBRS+1*
DQOUT	NOASK, SBRS!, SBRS+1*
DTIME	SBRS
DTOUT	LKUP+1, SBRS!*
DUOUT	LKUP+1, SBRS!, SBRS+1*
DUZ(2	LKUP
>> LX	NOASK+2, L1, CHART
>> NOASK	NOASK
RGG	END!
>> X	NOASK+2, CHART
>> Y	NOASK+1, NOASK+2, L1, L2, SBRS, SBRS+1*