Routine: AQAOPA5

Information

AQAOPA5 ; IHS/ORDC/LJF - REVIEWED ACTIONS REPORT ;

Source file <AQAOPA5.m>

Package	Total	Call Graph
VA Fileman	3	^DIC EN1^DIP ^DIR
Quality Assurance	2	KILL^AQAOUTIL PRTOPT^AQAOVAR
Kernel	1	^%ZISC

Name	Comments	DBIA/ICR reference
SORT	; >>> choose sorting order for report
BDATE	; >>> choose beginning date for report
END
RPT	;;
TYPE	; >> choose listing vs summaries
CHOOSE	; >>> choose all or just one entry
PRINT	; >>> set up variables for dip call
EDATE	; >>> choose ending occurrence date for report

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: TYPE+1
Function Call: WRITE	Prompt: !! Line Location: SORT+1
Function Call: WRITE	Prompt: !! Line Location: BDATE+1
Function Call: WRITE	Prompt: *7," NO FUTURE DATES" Line Location: BDATE+3
Function Call: WRITE	Prompt: ! Line Location: EDATE+1
Function Call: WRITE	Prompt: *7," NO FUTURE DATES" Line Location: EDATE+4
Function Call: WRITE	Prompt: *7," ENDING DATE MUST BE AFTER BEGINNING DATE" Line Location: EDATE+5
Routine Call	DIC Line Location: CHOOSE+7
Routine Call	DIR Line Location: TYPE+2 SORT+4 CHOOSE+3 BDATE+3 EDATE+3

FileNo	Call Tags
^AQAO(5 - [#9002168.5]	Classic Fileman Calls

Name	Line Occurrences
BDATE	CHOOSE+4, BDATE+3, BDATE+4, EDATE+5, EDATE+6
CHOOSE	CHOOSE+8
EDATE	EDATE+3, EDATE+4, EDATE+6
END	TYPE+3, SORT+4, CHOOSE+3, BDATE+4, EDATE+6
PRINT	SORT+8, CHOOSE+4, CHOOSE+5, CHOOSE+9
SORT	SORT+4
TYPE	CHOOSE+8, BDATE+4

Name	Field # of Occurrence
>> AQAOCHK("OK"	PRINT+4!
>> AQAORPT	SORT+4*, SORT+7, SORT+8, CHOOSE+4
>> AQAOSRT	SORT+8, CHOOSE+4, CHOOSE+5, CHOOSE+9, PRINT+1
>> BY	SORT+5, SORT+7
DIC	CHOOSE+7!, PRINT+1!
DIC(0	CHOOSE+7*
DIR	TYPE+1!, SORT+1!, CHOOSE+1!, BDATE+1!, EDATE+1!
DIR("A"	TYPE+2, SORT+1, CHOOSE+2, BDATE+2, EDATE+2*
DIR("B"	CHOOSE+1*
DIR(0	TYPE+1, SORT+1, SORT+2, SORT+3, CHOOSE+1, BDATE+1, EDATE+1*
>> DIRUT	TYPE+3, SORT+4, CHOOSE+3, CHOOSE+8, BDATE+4, EDATE+6
>> DIS(0	PRINT+2*
>> DIS(1	PRINT+3*
DT	BDATE+3, EDATE+4
>> FLDS	TYPE+4, TYPE+5, SORT+6
>> FR	BDATE+4, EDATE+5, PRINT+1
IOST	PRINT+7
>> L	PRINT+1*
>> TO	EDATE+6, PRINT+1
U	CHOOSE+9
>> X	TYPE+3, SORT+2*, SORT+4, BDATE+4, EDATE+6
>> Y	TYPE+3, TYPE+4, SORT+4, CHOOSE+4, CHOOSE+5, CHOOSE+8, CHOOSE+9, BDATE+3, BDATE+4, EDATE+3 , EDATE+4, EDATE+5, EDATE+6