Routine: AQAQNQ

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Label References
Local Variables

Information

AQAQNQ ;IHS/ANMC/LJF - INQUIRE TO CREDENTIAL ENTRY; [ 12/23/93 12:04 PM ]

Source Information

Source file <AQAQNQ.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^DIC EN1^DIP ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
UEND
DLQPRV	;EP;***> print inquiry on delq chart numbers for provider
NOTC1	;**> set variables then call FileMan print
MLHELP	;EP;***> help on Medical License Verified field
KEND
KEYS	;EP;****> displays who has access to Credential system
PROV	;EP;****> displays data for a given provider
APPL1	;**> set variables then call FileMan print
APPL	;EP;****> prints summary for all pending applications
AEND
USER	;EP;****> prints list of all entries and users who have accessed them
NEND
PEND
IEND
INAC	;EP;****> displays data for an inactive provider
NOTCONV	;EP;****> print data not converted to NEW CREDENTIALS file
DEND

Name	Field # of Occurrence
^%ZIS	APPL+6, NOTCONV+7
^%ZISC	APPL+8, NOTCONV+9
^%ZTLOAD	APPL+8, NOTCONV+9
^DIC	PROV+3, INAC+5, DLQPRV+3
EN1^DIP	PROV+5, INAC+7, APPL1+3, KEYS+8, USER+3, NOTC1+2, DLQPRV+5
^DIR	PROV+6, INAC+8, APPL1+4, KEYS+9, USER+4, NOTC1+3, DLQPRV+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?20,"INQUIRY TO PROVIDER CREDENTIALS",!! Line Location: PROV+1
Function Call: WRITE	Prompt: @IOF Line Location: PEND+0
Function Call: WRITE	Prompt: @IOF,!!?20,"VIEW INACTIVE PROVIDER'S RECORD",!! Line Location: INAC+1
Function Call: WRITE	Prompt: @IOF Line Location: IEND+0
Function Call: WRITE	Prompt: @IOF,!!?20,"PENDING APPOINTMENT APPLICATIONS",!! Line Location: APPL+1
Function Call: WRITE	Prompt: ?5,"This report will print summaries on each provider whose" Line Location: APPL+2
Function Call: WRITE	Prompt: !,"original application has not yet been approved. The summaries" Line Location: APPL+3
Function Call: WRITE	Prompt: !,"will print in alphabetical order.",!! Line Location: APPL+4
Function Call: WRITE	Prompt: @IOF Line Location: AEND+0
Function Call: WRITE	Prompt: @IOF Line Location: KEYS+1
Function Call: WRITE	Prompt: !!,"This program displays a list of computer users who have access" Line Location: KEYS+2
Function Call: WRITE	Prompt: !,"to this Credential Tracking System. This tool is designed to" Line Location: KEYS+3
Function Call: WRITE	Prompt: !,"be used to monitor the security of the package.",!! Line Location: KEYS+4
Function Call: WRITE	Prompt: @IOF Line Location: KEND+0
Function Call: WRITE	Prompt: @IOF,!!?20,"LISTING OF USER ACCESS TO PROVIDER ENTRIES",!! Line Location: USER+1
Function Call: WRITE	Prompt: @IOF Line Location: UEND+0
Function Call: WRITE	Prompt: @IOF,!!?20,"DATA NOT CONVERTED TO NEW CREDENTIALS FILE",!! Line Location: NOTCONV+1
Function Call: WRITE	Prompt: ?5,"This report will print a list of the data that could not" Line Location: NOTCONV+2
Function Call: WRITE	Prompt: !?5,"be converted to the NEW CREDENTIALS file. This data includes" Line Location: NOTCONV+3
Function Call: WRITE	Prompt: !?5,"medical licensure data plus the date privileges were granted." Line Location: NOTCONV+4
Function Call: WRITE	Prompt: !! Line Location: NOTCONV+5
Function Call: WRITE	Prompt: @IOF Line Location: NEND+0
Function Call: WRITE	Prompt: !!?5,"The license verification date should be one of the following:" Line Location: MLHELP+1
Function Call: WRITE	Prompt: !?10,"(1) Date of Verification Letter" Line Location: MLHELP+2
Function Call: WRITE	Prompt: !?10,"(2) Date of Printout" Line Location: MLHELP+3
Function Call: WRITE	Prompt: !?10,"(3) Date of Call" Line Location: MLHELP+4
Function Call: WRITE	Prompt: !?10,"(4) Date Copy Received (for re-licensure)" Line Location: MLHELP+5
Function Call: WRITE	Prompt: !! Line Location: MLHELP+6
Function Call: WRITE	Prompt: @IOF,!!?20,"MEDICAL RECORDS REVIEW FOR A PROVIDER",!! Line Location: DLQPRV+1
Function Call: WRITE	Prompt: @IOF Line Location: DEND+0
Routine Call	DIC Line Location: PROV+3 INAC+5 DLQPRV+3
Routine Call	DIR Line Location: PROV+6 INAC+8 APPL1+4 KEYS+9 USER+4 NOTC1+3 DLQPRV+6
Routine Call	%ZIS Line Location: APPL+6 NOTCONV+7

Name	Line Occurrences
APPL1	APPL+6
NOTC1	NOTCONV+7
PEND	PROV+3, INAC+5, DLQPRV+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	APPL+6, NOTCONV+7
AQAQINAC	INAC+2*, IEND!
>> BY	PROV+4, INAC+6, APPL1+1, KEYS+7, USER+2, NOTC1+1, DLQPRV+5*
DIC	PROV+2!, PROV+4, PEND!, INAC+3!, INAC+5, INAC+6, IEND!, APPL1+1, AEND!, KEYS+7 , KEND!, USER+2, UEND!, NOTC1+1, NEND!, DLQPRV+2!, DLQPRV+4, DEND!
DIC("A"	PROV+2, INAC+3, DLQPRV+2*
DIC("S"	INAC+4*
DIC(0	PROV+2, INAC+3, DLQPRV+2*
DIR	PROV+6!, PEND!, INAC+8!, IEND!, APPL1+4!, AEND!, KEYS+9!, KEND!, USER+4!, UEND! , NOTC1+3!, NEND!, DLQPRV+6!, DEND!
DIR("A"	PROV+6*
DIR(0	PROV+6, INAC+8, APPL1+4, KEYS+9, USER+4, NOTC1+3, DLQPRV+6*
>> DIS(0	APPL1+2*
>> FLDS	PROV+4, INAC+6, APPL1+1, KEYS+7, USER+2, NOTC1+1, DLQPRV+4*
>> FR	PROV+4, INAC+6, APPL1+1, USER+2, NOTC1+1, DLQPRV+5
IO("Q"	APPL+6, APPL+7!, NOTCONV+7, NOTCONV+8!
IOF	PROV+1, PEND, INAC+1, IEND, APPL+1, AEND, KEYS+1, KEND, USER+1, UEND , NOTCONV+1, NEND, DLQPRV+1, DEND
ION	APPL1+2, NOTC1+2
>> IOP	APPL1+2, NOTC1+2
>> L	PROV+4, INAC+6, APPL1+1, KEYS+7, USER+2, NOTC1+1, DLQPRV+4*
>> POP	APPL+6, NOTCONV+7
>> TO	PROV+4, INAC+6, APPL1+1, USER+2, NOTC1+1, DLQPRV+5
X	PEND!, IEND!, AEND!, KEND!, UEND!, NEND!, DEND!
Y	PROV+3, PROV+4, PEND!, INAC+5, INAC+6, IEND!, AEND!, KEND!, UEND!, NEND! , DLQPRV+3, DLQPRV+5, DEND!
>> ZTDESC	APPL+7, NOTCONV+8
>> ZTQUEUED	APPL1+4, NOTC1+3
>> ZTRTN	APPL+7, NOTCONV+8
ZTSK	APPL+8!, NOTCONV+9!

Customize PDF page

Package: Quality Assurance