Routine: AQAQNQ1

Entry Points

Name	Comments	DBIA/ICR reference
MCHOOSE	;***> choose which class or category to print
MLIC1	;**> set variables then call FileMan print
MHDR	;**> SUBRTN for report header
MALL	;***> choose one or all classes or categories
MDEV
MEND
TYPE
MLIC	;EP;****> prints listing of all medical licenses due to expire

Name	Field # of Occurrence
C^%DTC	MLIC+14
YX^%DTC	MHDR+3
^%ZIS	MDEV
^%ZISC	MDEV+3
^%ZTLOAD	MDEV+3
KILL^AQAQUTIL	MEND
EN1^DIP	MLIC1+8
^DIR	MLIC+13, TYPE+4, MALL+3, MCHOOSE+2, MCHOOSE+6, MLIC1+9

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?20,"MEDICAL LICENSURES DUE TO EXPIRE",!! Line Location: MLIC+1
Function Call: WRITE	Prompt: ?5,"This report will print a listing of all medical licenses" Line Location: MLIC+2
Function Call: WRITE	Prompt: !,"that are due to expire and those already overdue." Line Location: MLIC+3
Function Call: WRITE	Prompt: !,"The report will list the providers in alphabetical order.",!! Line Location: MLIC+4
Function Call: WRITE	Prompt: ! Line Location: TYPE+0
Function Call: WRITE	Prompt: @IOF Line Location: MLIC1+9
Function Call: WRITE	Prompt: !?8,"***Confidential Medical Staff Data Covered by Privacy Act***" Line Location: MHDR+1
Function Call: WRITE	Prompt: !,"Medical Licenses DUE TO EXPIRE in the next "_AQAQNUM_" months " Line Location: MHDR+2
Function Call: WRITE	Prompt: ?60,$P(Y,":",1,2) Line Location: MHDR+3
Function Call: WRITE	Prompt: !!,"PROVIDER NAME",?27,"STATE",?39,"EXPIRATION DATE" Line Location: MHDR+4
Function Call: WRITE	Prompt: ! Line Location: MHDR+5
Function Call: WRITE	Prompt: X,!! Line Location: MHDR+5
Routine Call	DIR Line Location: MLIC+13 TYPE+4 MALL+3 MCHOOSE+2 MCHOOSE+6 MLIC1+9
Routine Call	%ZIS Line Location: MDEV

Name	Field # of Occurrence
>> %H	MHDR+3*
>> %ZIS	MDEV*
AQAQDUE	MLIC+14*, MDEV+3!
>> AQAQI	MDEV+2*
AQAQNUM	MLIC+13*, MDEV+3!, MHDR+2
AQAQSRT	TYPE+6, MALL+3, MCHOOSE+1, MCHOOSE+2!, MCHOOSE+4, MCHOOSE+5, MCHOOSE+6!, MCHOOSE+8, MDEV+3!, MLIC1+4 , MLIC1+5
AQAQTYP	TYPE+5*, TYPE+6, MALL+2, MCHOOSE+1, MDEV+3!, MLIC1+3, MLIC1+4, MLIC1+5
>> BY	MLIC1+3, MLIC1+4, MLIC1+5*
>> DHD	MLIC1+2*
>> DIC	MLIC1+1*
DIR	MLIC+6!, TYPE!, MALL+1!, MCHOOSE+2!, MCHOOSE+6!, MLIC1+9!
DIR("?"	MLIC+8, MLIC+9, MLIC+10, MLIC+11, MLIC+12*
DIR("A"	MLIC+7, TYPE, TYPE+1, TYPE+2, TYPE+3, TYPE+4, MALL+2, MLIC1+9
DIR("B"	MLIC+6, MALL+3
DIR(0	MLIC+6, TYPE+4, MALL+1, MCHOOSE+2, MCHOOSE+6, MLIC1+9
>> DIRUT	MLIC+13, MALL+4
>> DIS(0	MLIC1+6*
>> DIS(1	MLIC1+7*
DT	MLIC+14
>> DTOUT	TYPE+5, MCHOOSE+3, MCHOOSE+7
>> DUOUT	TYPE+5, MCHOOSE+3, MCHOOSE+7
>> FLDS	MLIC1+1*
>> FR	MLIC1+3, MLIC1+4, MLIC1+5*
IO("Q"	MDEV, MDEV+1!
IOF	MLIC+1, MLIC1+9
ION	MLIC1+7
>> IOP	MLIC1+7*
>> L	MLIC1+1*
>> POP	MDEV
>> TO	MLIC1+3, MLIC1+4, MLIC1+5*
U	MCHOOSE+4
>> X	MLIC+14, TYPE+5, MCHOOSE+3, MCHOOSE+7, MHDR+5*
>> X1	MLIC+14*
>> X2	MLIC+14*
>> Y	MLIC+13, MLIC+14, TYPE+5, MALL+3, MCHOOSE+3, MCHOOSE+4, MCHOOSE+7, MHDR+3
>> Y(0	MCHOOSE+8
>> ZTDESC	MDEV+1*
>> ZTQUEUED	MLIC1+9
>> ZTRTN	MDEV+1*
>> ZTSAVE(	MDEV+2*
ZTSK	MDEV+3!