Routine: AQAOLKP

Information

AQAOLKP ; IHS/ORDC/LJF - LOOKUP UTILITIES ;

Source file <AQAOLKP.m>

Package	Total	Call Graph
VA Fileman	5	^%DT ^DIC FILE^DICN EN1^DIP ^DIR
Quality Assurance	3	^AQAOAUD $$OCCID^AQAOCID ^AQAOENTQ

Package	Total	Caller Graph
Quality Assurance	24	AQAOAPA AQAODEL AQAODICC AQAOENTR AQAOENTS AQAOPA6 AQAOPC1 AQAOPC11 AQAOPC2 AQAOPC21 AQAOPC3 AQAOPC4 AQAOPC41 AQAOPC51 AQAOPC7 AQAOPC71 AQAOPC8 AQAOPC82 AQAOPR6 AQAOPR7 AQAOPR9 AQAOREV AQAOUSA AQAOVAL

Name	Comments	DBIA/ICR reference
AUDIT
BDATE()	;ENTRY POINT EXTR VAR ask user to choose beginning date for report
RTYPE()	;EP; EXTRN VAR - screen on selecting review types ; to select BTR must have Blood Product file ; to select PTF must have Drug file
IND()	;ENTRY POINT EXTR VAR to ask user for indicator
CREATE	;ENTRY POINT else, create case identifier than add entry
EDATE()	;ENTRY POINT EXTR VAR ask user to choose ending date for report
OCCDT(V)	;ENTRY POINT EXTR FUNC to ask user for occ date;PATCH 2
ADD	;ENTRY POINT for adding new occurrence ; >>> ask patient name & date & indicator then enter
ED1
BD1
EXCEP(X)	;EP; EXTRN FUNC to test whether ind has exception recorded
ASK	;ENTRY POINT for selecting occurrence ; >>> ask for occ id or patient name or indicator
RTEND
CHECK	; >>> check if occurrence already entered; if so go to edit

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ASK+2
Function Call: WRITE	Prompt: ! Line Location: ADD+2
Function Call: WRITE	Prompt: ! Line Location: ADD+4
Function Call: WRITE	Prompt: ! Line Location: ADD+7
Function Call: WRITE	Prompt: ! Line Location: ADD+10
Function Call: WRITE	Prompt: !!,"Please wait while I create the occurrence entry . . ." Line Location: CREATE+1
Function Call: WRITE	Prompt: !!,"CANNOT ADD; AUDIT FILE LOCKED. TRY AGAIN.",! Line Location: CREATE+5
Function Call: WRITE	Prompt: !,"CANNOT ADD NEW ENTRY; ANOTHER USER ADDING TO FILE. TRY AGAIN." Line Location: CREATE+6
Function Call: WRITE	Prompt: !!,"Your CASE # is ",AQAOCID,! Line Location: CREATE+10
Function Call: WRITE	Prompt: ! Line Location: OCCDT+2
Function Call: WRITE	Prompt: !! Line Location: IND+2
Function Call: WRITE	Prompt: !! Line Location: BD1+1
Function Call: WRITE	Prompt: *7," NO FUTURE DATES" Line Location: BD1+2
Function Call: WRITE	Prompt: ! Line Location: ED1+1
Function Call: WRITE	Prompt: *7," NO FUTURE DATES" Line Location: ED1+2
Function Call: WRITE	Prompt: *7," ENDING DATE MUST BE AFTER BEGINNING DATE" Line Location: ED1+3
Routine Call	DIC Line Location: ASK+5 ADD+2 ADD+10 IND+4
Routine Call	DIR Line Location: ASK+14 BD1+2 ED1+2

Name	Line Occurrences (* Changed, ! Killed)
^AQAGU(0	CREATE+5, CREATE+8
^AQAOC - [#9002167]	EXCEP+1
^AQAOC(0	CREATE+6, CREATE+8
^DD(50.6	RTYPE+6
^LAB(66 - [#66]	RTYPE+5
^PSDRUG(0	RTYPE+6

Name	Field # of Occurrence
%DT	ADD+4, OCCDT+1~, OCCDT+2
%DT("A"	ADD+4, OCCDT+2
%DT("B"	OCCDT+3*
>> AQAO	CHECK+2
>> AQAOBD	ED1+3
>> AQAOCHK("OK"	ADD+10!, IND+4!
>> AQAOCID	ASK+6, CHECK+3, CREATE+2, CREATE+7, CREATE+10
>> AQAODATE	ASK+7, ADD+5, CREATE+4
AQAOIFN	ASK+2!, ASK+6, ASK+11, CHECK+2, CREATE+9, AUDIT
>> AQAOIND	ASK+7, ADD+10, CREATE+4
>> AQAOPAT	ASK+7, ADD+2, CREATE+4
>> AQAOUDIT("ACTION"	CHECK+2, AUDIT
>> AQAOUDIT("COMMENT"	CHECK+2, AUDIT+1
>> AQAOUDIT("DA"	CHECK+2, AUDIT
>> BY	ASK+11*
DD	CREATE+7!
DIC	ASK+2!, ASK+10, ADD+2!, ADD+7!, CREATE+3, IND+1~, IND+2
DIC("A"	ASK+3, ADD+9, IND+4*
DIC("DR"	CREATE+4*, CREATE+7!
DIC("S"	ASK+4, ADD+8, IND+3*
DIC(0	ASK+2, ADD+2, ADD+7, CREATE+3, IND+2*
DINUM	CREATE+7!
DIR	ASK+12!, BD1~, ED1~
DIR("A"	ASK+13, BD1+1, ED1+1*
DIR(0	ASK+12, BD1+1, ED1+1*
DIRUT	CHECK+1!
DO	CREATE+7!
DT	BD1+2, ED1+2
>> DTOUT	ASK+5, IND+5, BD1+3, ED1+4
>> DUOUT	ASK+5, IND+5
DUZ(2	CREATE+4
>> FLDS	ASK+10*
>> FR	ASK+11*
IO(0	ASK+11
>> IOP	ASK+11*
>> L	ASK+10*
>> TO	ASK+11*
U	ASK+7, IND+5, BD1+3, ED1+4, EXCEP+1
V	OCCDT~, OCCDT+3
X	ASK+5, CREATE+7, IND+5, RTYPE+3~, RTYPE+4, RTYPE+5, RTYPE+6*, RTEND, EXCEP~, EXCEP+1
Y	ASK+5, ASK+6, ADD+2, ADD+5, ADD+10, CREATE+8, CREATE+9, OCCDT+1~, OCCDT+4, IND+1~ , IND+5, IND+6, BD1~, BD1+2, BD1+3, BD1+4, ED1~, ED1+2, ED1+3, ED1+4 , ED1+5, RTYPE+4, RTYPE+5
Y(0	ASK+6, ASK+7