Routine: AZHZCLAG

Package	Total	Call Graph
Local Area Programs	2	(EXIT,INIT)^AZHZCL EXIT^AZHZCL1
VA Fileman	2	DD^%DT DT^DICRW

Package	Total	Caller Graph
Local Area Programs	1	AZHZCLN

Entry Points

Name	Comments	DBIA/ICR reference
SET	;set AGPATCH with Patient site that matches Area/Service number
E
EACT
EAZHZPG
AZHZHDR	; Header controller
TEST
S	;
EXIT
T
DQTRAN	;ENTRY POINT FOR TASKING
INIT
AZHZPG	; page controller
ACTIVE	;ENTRY POINT for testing to see if patient is active
CON

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"< Compiled Edits Global not Present >",! Line Location: S+3
Function Call: WRITE	Prompt: 7,!,"< Sorry ",^AZHZTEMP," needs to be completed first >",!,7 Line Location: S+4
Function Call: WRITE	Prompt: !,*7,"< Perform Edits must be completed first >",! Line Location: S+5
Function Call: WRITE	Prompt: !,*7,"<TRANSMISSION sets have already been completed >",! Line Location: S+6
Function Call: WRITE	Prompt: !,"Listed here are Patients that do not have a HRN at a Facility",!,"compatible with this Site's Area-Service Unit Number",! Line Location: DQTRAN+2
Function Call: WRITE	Prompt: !,"Scanning the Compiled Edit Global",!,"EACH DOT = 100 of ",^AZHZTEMP(0),! Line Location: DQTRAN+5
Function Call: WRITE	Prompt: !,?10,AZHZCC," nodes set from the Compiled Edit Global" Line Location: DQTRAN+7
Function Call: WRITE	Prompt: ! Line Location: DQTRAN+7
Function Call: WRITE	Prompt: !,DFN,?10,$P(^DPT(DFN,0),U) Line Location: T+1
Function Call: READ	Prompt: "^ to quit " Formatting: ! Timeout: DTIME Variable: AZHZX Line Location: AZHZPG+2
Function Call: WRITE	Prompt: !,@IOF Line Location: AZHZHDR+1
Function Call: WRITE	Prompt: ?(IOM-20-$L(AZHZHDR)/2),AZHZHDR,?(IOM-25),AZHZDT,?(IOM-10),"PAGE: ",AZHZPG,!,AZHZLINE,! Line Location: AZHZHDR+2

Name	Line Occurrences (* Changed, ! Killed)
^AGPATCH(	SET+2, TEST+1, T
^AUPNPAT - [#9000001]	TEST+1, TEST+2, ACTIVE+2
^AUTTLOC - [#9999999.06]	DQTRAN+3, TEST+2
^AUTTSITE(1	DQTRAN+3
^AZHZTEMP	S+3, S+4, DQTRAN+1, DQTRAN+8, TEST
^AZHZTEMP("A"	S+5, S+6, DQTRAN+8*
^AZHZTEMP("AG"	SET+2
^AZHZTEMP("B"	DQTRAN+6
^AZHZTEMP(0	DQTRAN+5
^DPT - [#2]	T+1

Name	Field # of Occurrence
^(	ACTIVE+2
^(0	ACTIVE+2

Name	Field # of Occurrence
>> AZHZAAP	SET+1, ACTIVE+2*
AZHZAS	ACTIVE+2*, EACT!
>> AZHZASN	DQTRAN+3*, TEST+2
>> AZHZCC	DQTRAN+6, DQTRAN+7, TEST+1, T*
>> AZHZDT	AZHZHDR+1*, AZHZHDR+2
>> AZHZHDR	CON*, AZHZHDR+1, AZHZHDR+2
>> AZHZLINE	AZHZHDR+1*, AZHZHDR+2
>> AZHZPG	AZHZPG+2, AZHZHDR+1, AZHZHDR+2
>> AZHZPN	DQTRAN+6*
>> AZHZRTN	CON*
>> AZHZS	TEST+2*, T
>> AZHZSASN	TEST+2*
>> AZHZSITE	DQTRAN+3*, SET+2, TEST+1
>> AZHZX	AZHZPG+2*
>> AZHZXC	DQTRAN+6*
>> DFN	DQTRAN+6*, SET+2, TEST, TEST+1, TEST+2, T, T+1, ACTIVE+2
>> DFOUT	S+1, S+2, CON+1, DQTRAN+6, DQTRAN+8, SET+2, TEST+2, AZHZPG+1, AZHZPG+2*
DT	SET+2, TEST+1, T, AZHZHDR+1
DTIME	AZHZPG+2
>> DUOUT	S+1, S+2, CON+1, DQTRAN+6, DQTRAN+8, SET+2, TEST+2, AZHZPG+1, AZHZPG+2*
IO	T+1, AZHZHDR+2
IOF	AZHZHDR+1
IOM	AZHZHDR+1, AZHZHDR+2
IOSL	AZHZPG+2
IOST	AZHZPG+2
U	DQTRAN+3, TEST+2, T+1, ACTIVE+2
>> Y	AZHZHDR+1*