Routine: AQAQMCP

Package	Total	Caller Graph
Quality Assurance	1	AQAQMCC

Entry Points

Name	Comments	DBIA/ICR reference
A	;;Professional Degree NOT on file
HEAD	;***> SUBRTN to print heading
B	;;Professional Degree NOT verified
END	;***> end of job
D	;;Internship NOT verified
G	;;Residency Certificate NOT on file
F	;;2nd Residency/Fellowship NOT verified
I	;;Bylaws Agreement NOT signed
H	;;Residency NOT verified
K	;;Curriculum Vitae NOT on file
J	;;Information Release NOT signed
C	;;Internship Certificate NOT on file
O	;;Health Status NOT on file
N	;;Number of Letters of Reference NOT acceptable
PRINTMSG	;***> SUBRTN to print missing credential messages
NEWPG	;***> SUBRTN for end of page control
Z	;;No Medical License Entered;;PATCH #7
P	;;NPDB Inquiry NOT Made;;PATCH #4

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO MISSING CREDENTIALS FOUND" Line Location: AQAQMCP+7
Function Call: WRITE	Prompt: !!,$E(AQAQNM,1,30) Line Location: AQAQMCP+18
Function Call: WRITE	Prompt: ?35,Y Line Location: AQAQMCP+20
Function Call: WRITE	Prompt: ?60,Y Line Location: AQAQMCP+21
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !,AQAQLINE Line Location: HEAD+2
Function Call: WRITE	Prompt: !?8,"***Confidential Medical Staff Data Covered by Privacy Act***" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,AQAQDUZ,?80-$L(AQAQSITE)/2,AQAQSITE Line Location: HEAD+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+6
Function Call: WRITE	Prompt: ?80-$L(AQAQTY)/2,AQAQTY,?70,"Page: ",AQAQPAGE Line Location: HEAD+6
Function Call: WRITE	Prompt: !?80-$L(Y)/2,Y Line Location: HEAD+7
Function Call: WRITE	Prompt: !,"Provider Name",?35,"Staff Category",?58,"Last Application Date" Line Location: HEAD+8
Function Call: WRITE	Prompt: !,AQAQLINE Line Location: HEAD+9
Function Call: WRITE	Prompt: !?15,"# of Letters on file: ",$P(^AQAQC(AQAQ,0),U,17) Line Location: PRINTMSG+4
Routine Call	DIR Line Location: END+1 NEWPG+2

Name	Line Occurrences (* Changed, ! Killed)
^AQAQC - [#9002165]	PRINTMSG+4
^DD("DD"	AQAQMCP+21, HEAD+7
^DD(9002165	AQAQMCP+19
^DIC(3 - [#3]	AQAQMCP+4
^DIC(4 - [#4]	AQAQMCP+5
^UTILITY("AQAQMC"	AQAQMCP+7, AQAQMCP+11, AQAQMCP+13, AQAQMCP+15

Name	Field # of Occurrence
^(	AQAQMCP+18

Name	Field # of Occurrence
>> AQAQ	AQAQMCP+14, AQAQMCP+15, AQAQMCP+18, PRINTMSG+4
>> AQAQDUZ	AQAQMCP+4*, HEAD+4
>> AQAQLINE	AQAQMCP+6*, HEAD+2, HEAD+9
>> AQAQMS	AQAQMCP+23, PRINTMSG+1, PRINTMSG+5
>> AQAQMSG	PRINTMSG+1*, PRINTMSG+4
>> AQAQNM	AQAQMCP+12, AQAQMCP+13, AQAQMCP+15, AQAQMCP+18
>> AQAQPAGE	AQAQMCP+6, NEWPG+2, HEAD+1, HEAD+2, HEAD+6
>> AQAQSITE	AQAQMCP+5*, HEAD+4
>> AQAQSR	AQAQMCP+10, AQAQMCP+11, AQAQMCP+13, AQAQMCP+15
>> AQAQST	AQAQMCP+18*, AQAQMCP+19, AQAQMCP+21, AQAQMCP+23
>> AQAQSTOP	AQAQMCP+4, AQAQMCP+11, AQAQMCP+13, AQAQMCP+15, AQAQMCP+23, NEWPG+1, NEWPG+2*, NEWPG+3, PRINTMSG+1
>> AQAQTY	HEAD+5*, HEAD+6
>> C	AQAQMCP+19*
DIR	END+1!, NEWPG+2!
DIR("A"	END+1*
DIR(0	END+1, NEWPG+2
DT	HEAD+7
DUZ	AQAQMCP+4
DUZ(2	AQAQMCP+5
IOF	END+2, HEAD+1
IOSL	AQAQMCP+24, PRINTMSG+6
IOST	END+1, NEWPG+1, HEAD+1
U	AQAQMCP+4, AQAQMCP+5, AQAQMCP+11, AQAQMCP+13, AQAQMCP+15, AQAQMCP+19, AQAQMCP+21, AQAQMCP+23, NEWPG+3, PRINTMSG+1 , PRINTMSG+4
>> X	NEWPG+2
>> Y	AQAQMCP+19, AQAQMCP+20, AQAQMCP+21, HEAD+7*

Name	Field # of Occurrence
$T(@AQAQMSG	PRINTMSG+2, PRINTMSG+3