Routine: AZHZCL

Package	Total	Call Graph
Local Area Programs	4	(,AZHZPG,EXIT,INIT)^AZHZCL1 ^AZHZCLI SAV^AZHZCLN ^AZHZCLV
VA Fileman	1	YN^DICN

Package	Total	Caller Graph
Local Area Programs	3	AZHZCL1 AZHZCLAG AZHZCLN

Entry Points

Name	Comments	DBIA/ICR reference
DOIT
PULL	;ENTRY POINT: set data back to previous state
SCDFN	;ENTRY POINT scan DFN for data errors, VA and IHS checks
DQPRT	;ENTRY POINT FOR TASKING
ESCDFN
DQSET	;ENTRY POINT FOR TASKING
DQSCAN	;ENTRY POINT FOR TASKING
INIT	;EP
DQPULL	;ENTRY POINT FOR TASKING
Q
PRT	;ENTRY POINT: print report of edits to be performed
S	;
SET	; ENTRY POINT: perform sets
KILL	;ENTRY POINT kill ^AZHZTEMP
IEN
BINDEX
EXIT	;EP
AZHZPG	;EP
EPRT

External References

Name	Field # of Occurrence
^AZHZCL1	DOIT
AZHZPG^AZHZCL1	AZHZPG+1
EXIT^AZHZCL1	EXIT+1
INIT^AZHZCL1	INIT+1
^AZHZCLI	SCDFN+4
SAV^AZHZCLN	BINDEX+2
^AZHZCLV	SCDFN+3
YN^DICN	Q

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Site and Area not specified for facility <Fatal Error>",! Line Location: S+5
Function Call: WRITE	Prompt: !,*7,"< SCAN has already been Completed >",! Line Location: S+6
Function Call: WRITE	Prompt: "Each dot =100 patients:",!,"Running for ",AZHZSITE,":",$P(^AUTTLOC(AZHZSITE,0),"^",2)," Area and Service : ",AZHZ("LOC"),! Line Location: DQSCAN+2
Function Call: WRITE	Prompt: !!,AZHZZ("I")," Patient Names Scanned with ",AZHZCC," set for error corrections" Line Location: BINDEX+1
Function Call: WRITE	Prompt: *7,!,"<NO Compiled Edits Global Present>",! Line Location: SET+4
Function Call: WRITE	Prompt: !,"SORRY ... ",^AZHZTEMP," NEEDS TO BE COMPLETED FIRST",! Line Location: SET+5
Function Call: WRITE	Prompt: !,"< EDITS have already been Completed >",!,*7 Line Location: SET+6
Function Call: WRITE	Prompt: !,"There are only dots printed for this option",! Line Location: SET+7
Function Call: WRITE	Prompt: !,"EACH DOT =100 PATIENTS SET. THERE ARE ",^AZHZTEMP(0)," PATIENTS TO PROCESS",!,"STARTING AT " Line Location: DQSET+2
Function Call: WRITE	Prompt: ! Line Location: DQSET+2
Function Call: WRITE	Prompt: *7,!,"<NO Compiled Edits Global Present>",! Line Location: PULL+1
Function Call: WRITE	Prompt: !,"SORRY ... ",^AZHZTEMP," NEEDS TO BE COMPLETED FIRST",! Line Location: PULL+2
Function Call: WRITE	Prompt: !,"This will put data fields back to their incorrect forms.",!,"Are you sure you want to proceed ? " Line Location: Q+0
Function Call: WRITE	Prompt: !,"EACH DOT =100 PATIENTS SET. THERE ARE ",^AZHZTEMP(0)," PATIENTS TO PROCESS",!,"STARTING AT " Line Location: DQPULL+2
Function Call: WRITE	Prompt: ! Line Location: DQPULL+2
Function Call: WRITE	Prompt: *7,!,"<NO Compiled Edits Global Present>",! Line Location: PRT+3
Function Call: WRITE	Prompt: 7,!,"< Sorry ",^AZHZTEMP," needs to be completed first >",!,7 Line Location: PRT+4
Function Call: WRITE	Prompt: !,*7,"< SCAN must be completed First > ",! Line Location: PRT+5
Function Call: WRITE	Prompt: !,"THERE ARE ",^AZHZTEMP(0)," PATIENTS TO PRINT",!,"STARTING AT " Line Location: DQPRT+2
Function Call: WRITE	Prompt: ! Line Location: DQPRT+2
Function Call: WRITE	Prompt: !," Patient Name : DFN",!," Old Data to be Corrected : New Data Corrections ",!! Line Location: DQPRT+3
Function Call: WRITE	Prompt: *7,!,"<NO Compiled Edits Global Present>",! Line Location: KILL+1
Function Call: WRITE	Prompt: !,7,"<AGPATCH HAS NOT BEEN SET YET>",!,7 Line Location: KILL+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	SCDFN+4
^AUTTLOC - [#9999999.06]	S+4, DQSCAN+2
^AUTTSITE(1	S+3, S+4, SET+3
^AZHZTEMP	DQSCAN+1, BINDEX+2, SET+4, SET+5, DQSET+1, DQSET+3, PULL+1, PULL+2, DQPULL+1, DQPULL+3! , PRT+3, PRT+4, KILL+1, KILL+3!, BINDEX, SCDFN+5*
^AZHZTEMP("A"	S+6, BINDEX+2, SET+6, DQSET+3, PRT+5, DQPRT+4*, KILL+2
^AZHZTEMP("B"	BINDEX!*
^AZHZTEMP("LDFN"	DQSCAN+3, IEN*, BINDEX+2!, DQSET+3!
^AZHZTEMP("P"	DQSET+1!
^AZHZTEMP(0	BINDEX+1*, DQSET+2, DQPULL+2, DQPRT+2
^DPT - [#2]	SCDFN+1, SCDFN+2, SCDFN+5
^DPT("B"	IEN, SCDFN+1!

Name	Field # of Occurrence
^(	BINDEX
^("LDFN"	DQSCAN+3
^(0	S+3, S+4, SET+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	Q*, Q+1, Q+2
>> AZHZ("B"	DQSCAN+3, IEN, SCDFN+1
>> AZHZ("L"	S+4*
>> AZHZ("LOC"	S+4*, S+5, DQSCAN+2
>> AZHZCC	BINDEX*, BINDEX+1
>> AZHZHDR	S+7, SET+8, Q+3, PRT+6
>> AZHZHIT	S+7, SET+8, Q+3, PRT+6
>> AZHZRTN	S+7, SET+8, Q+3, PRT+6
>> AZHZSET	SET+8, Q+3, PRT+6*
>> AZHZSITE	S+3, DQSCAN+2, SET+3
>> AZHZZ("I"	IEN*, BINDEX+1
>> DFN	IEN, BINDEX, SCDFN+1, SCDFN+2, SCDFN+4, SCDFN+5, DQSET+1, DQPULL+1, DQPRT+1*
>> DFOUT	S+1, S+2, S+5, S+8, IEN, BINDEX+2, SET+1, SET+2, SET+9, DQSET+3 , Q+3, PRT+1, PRT+2, PRT+7
>> DUOUT	S+1, S+2, S+5, S+8, IEN, BINDEX+2, SET+1, SET+2, SET+9, DQSET+3 , Q+1, Q+3, PRT+1*, PRT+2, PRT+7
U	S+3, S+4, SCDFN+2, SCDFN+5, SET+3

Customize PDF page

Package: Local Area Programs

Routine: AZHZCL

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
DOIT	DQSET+2, DQPULL+2, DQPRT+4
EXIT	S+6, BINDEX+3, SET+5, SET+6, DQSET+5, PULL+2, Q+1, DQPULL+3, PRT+4, PRT+5 , EPRT
INIT	S+8, SET+9, Q+3, PRT+7
Q	Q+2
SCDFN	IEN