Routine: AQAQNQ

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

External References

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

Label References

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

Local Variables

Legend:

>>	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

Routine: AQAQNQ

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: