Routine: AZZDACK

Package	Total	Call Graph
IHS Patient Registration	1	^AGDATCK
Kernel	1	^%ZIS
Uncategorized	1	^%AUCLS
Utilities	1	^AUKVAR
VA Fileman	1	^DIC

Entry Points

Name	Comments	DBIA/ICR reference
HEADER2	;
PROMPT	;
VARS	;
SCAN	;-----> BEGIN SCAN.
TOTALS	;
PROMPT1
START	;
HEADER1	;
EXIT	;
PRINT	;
STORE	;
HEADER3	;

External References

Name	Field # of Occurrence
^%AUCLS	START+1, HEADER1+1
^%ZIS	TOTALS+2, PRINT+2
^AGDATCK	SCAN+7
^AUKVAR	START+1
^DIC	START+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?6,"* * CHECK ALL ACTIVE PATIENTS FOR MISSING OR INVALID REG DATA * *" Line Location: START+2
Function Call: WRITE	Prompt: !!!!,"Select a Location for the patient records you wish to scan.",! Line Location: START+4
Function Call: WRITE	Prompt: !! Line Location: SCAN+1
Function Call: WRITE	Prompt: "-" Line Location: SCAN+5
Function Call: WRITE	Prompt: "X" Line Location: STORE+2
Function Call: WRITE	Prompt: !! Line Location: TOTALS+2
Function Call: WRITE	Prompt: !!," ----------------------------------------------",?55,"-----------" Line Location: TOTALS+5
Function Call: WRITE	Prompt: !?5,"Total patients at ",AZZDA("SITE") Line Location: TOTALS+7
Function Call: WRITE	Prompt: !?5,"with Missing or Invalid data: ",?55,$J(AZZDA("BAD"),10) Line Location: TOTALS+8
Function Call: WRITE	Prompt: !!?5,"Total patients in this database" Line Location: TOTALS+9
Function Call: WRITE	Prompt: !?5,"registered at ",AZZDA("SITE"),": ",?55,$J(AZZDA("HERE"),10) Line Location: TOTALS+10
Function Call: WRITE	Prompt: !!?5,"Total patients in the database: ",?55,$J(AZZDA("ALL"),10) Line Location: TOTALS+11
Function Call: WRITE	Prompt: !! Line Location: PRINT+2
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+11
Function Call: WRITE	Prompt: ! Line Location: PROMPT+2
Function Call: WRITE	Prompt: "During the scanning processes the following symbols will be displayed:" Line Location: HEADER1+1
Function Call: WRITE	Prompt: !!?3,"""X"" = Patients with missing/invalid data." Line Location: HEADER1+2
Function Call: WRITE	Prompt: !?3,"""."" = Patients registered with correct data." Line Location: HEADER1+3
Function Call: WRITE	Prompt: !?3,"""-"" = Patients in the database not registered at ",$E(AZZDA("SITE"),1,28) Line Location: HEADER1+4
Function Call: WRITE	Prompt: !!!!?6,"* * * SCANNING FOR PATIENTS WITH MISSING OR INVALID DATA * * *",!,?22,"AT ",AZZDA("SITE") Line Location: HEADER1+6
Function Call: WRITE	Prompt: @IOF,!?8,"* * * PATIENTS WITH MISSING OR INVALID REQUIRED DATA * * *",!,?22,"AT ",AZZDA("SITE"),!! Line Location: HEADER2+1
Function Call: WRITE	Prompt: @IOF,?6,"* * * STATISTICS ON PATIENTS WITH MISSING OR INVALID DATA * * *",!,?22,"AT ",AZZDA("SITE"),!! Line Location: HEADER3+1
Routine Call	DIC Line Location: START+7
Routine Call	%ZIS Line Location: TOTALS+2 PRINT+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	EXIT+1, TOTALS+12, PRINT+11
^AUPNPAT - [#9000001]	SCAN+7, STORE+4, PRINT+6
^AZZDA	START+1!, EXIT+2!, STORE+3, STORE+4, STORE+5*, PRINT+4, PRINT+5, PRINT+9
^DIC(4 - [#4]	START+9
^DPT - [#2]	SCAN+2, SCAN+5, STORE+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	TOTALS+2, PRINT+2
>> %ZIS("A"	TOTALS+2, PRINT+2
AG	EXIT+2!
AG(	TOTALS+4, PRINT+9
AG("DTOT"	SCAN+7
AG("ER"	STORE+5
AG(1	VARS+2*
AG(10	VARS+4*
AG(11	VARS+4*
AG(12	VARS+4*
AG(2	VARS+2*
AG(3	VARS+2*
AG(4	VARS+2*
AG(5	VARS+2*
AG(6	VARS+3*
AG(7	VARS+3*
AG(8	VARS+3*
AG(9	VARS+3*
AZZDA	EXIT+2!
AZZDA("AG"	STORE+5, TOTALS+4, VARS+5
AZZDA("ALL"	START+8, SCAN+2, SCAN+3, TOTALS+11
AZZDA("BAD"	START+8, STORE+2, TOTALS+8
AZZDA("HERE"	START+8, SCAN+7, TOTALS+10
AZZDA("SITE"	START+9*, SCAN+3, TOTALS+7, TOTALS+10, PRINT+7, HEADER1+4, HEADER1+6, HEADER2+1, HEADER3+1
>> DFN	START+8, SCAN+2, SCAN+5, SCAN+7, STORE+3, STORE+4, STORE+5, PRINT+3, PRINT+4, PRINT+5 , PRINT+6, PRINT+9
>> DIC	START+6*
>> DIC("A"	START+6*
>> DIC(0	START+6*
DTIME	PROMPT1
DUZ(2	START+8*, START+9, SCAN+7, STORE+4, PRINT+6
I	EXIT+2!, STORE+5, TOTALS+4, PRINT+9, VARS+5
IO	TOTALS+2, PRINT+2
IOF	PRINT+11, HEADER2+1, HEADER3+1
IOSL	START+5*, TOTALS+4, TOTALS+6, PRINT+4, PROMPT+1
>> POP	TOTALS+2, PRINT+2
QQ	START+10, SCAN+1, SCAN+9, SCAN+10, EXIT+2!, TOTALS+4, TOTALS+6, PRINT+4, PRINT+10, PROMPT+1* , PROMPT1*, HEADER1+5
U	START+8, START+9, START+10, SCAN+7, SCAN+9, SCAN+10, STORE+4, STORE+5, TOTALS+4, TOTALS+6 , PRINT+4, PRINT+5, PRINT+9, PRINT+10
X	EXIT+2!
>> Y	START+7, START+8

Customize PDF page

Package: Headquarters Dental

Routine: AZZDACK

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
HEADER1	SCAN+1
HEADER2	PRINT+3, PRINT+4
HEADER3	TOTALS+3, TOTALS+4, TOTALS+6
PRINT	SCAN+10
PROMPT	START+10, SCAN+10, TOTALS+4, TOTALS+6, PRINT+4, PRINT+10
PROMPT1	SCAN+9, HEADER1+5
STORE	SCAN+7
TOTALS	SCAN+9
VARS	SCAN+1