Routine: DGPZ07C

Customize PDF page

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

Information

DGPZ07C ;BAJ - HL7 Z07 CONSISTENCY CHECKER -- DRIVER ROUTINE ; 10/14/05 11:48am

Source Information

Source file <DGPZ07C.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Registration	3	(,Q)^DGPZ07P ON^DGRPC ZIS^DGUTQ
Income Verification Match	1	$$EN^IVMZ07C
VA FileMan	1	^DIC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DG Z07 CONSISTENCY CHECK

Entry Points

Name	Comments	DBIA/ICR reference
EN	; entry point. ; Start loop, quit when no more patients to check
SELECT()	; Select patient and call support routine
NOTIFY(PASS)	; Notify user of Pass/Fail

External References

Name	Field # of Occurrence
^DGPZ07P	NOTIFY+5
Q^DGPZ07P	NOTIFY+5
ON^DGRPC	NOTIFY+4
ZIS^DGUTQ	NOTIFY+5
^DIC	SELECT+3
$$EN^IVMZ07C	SELECT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: SELECT+3
Function Call: WRITE	Prompt: !,"Checking..." Line Location: SELECT+6
Function Call: WRITE	Prompt: !! Line Location: NOTIFY+1
Function Call: WRITE	Prompt: "NO INCONSISTENCIES FOUND..." Line Location: NOTIFY+2
Function Call: WRITE	Prompt: "INCONSISTENCIES FOUND..." Line Location: NOTIFY+3
Routine Call	DIC Line Location: SELECT+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	SELECT+10!

Label References

Name	Line Occurrences
$$SELECT	EN+2
NOTIFY	SELECT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	SELECT+1~, SELECT+5*, SELECT+7
>> DGER	NOTIFY+4
DGP	SELECT+1~
>> DGPGM	NOTIFY+5*
DGSD	SELECT+1~
>> DGVAR	NOTIFY+5*
DIC	SELECT+1~, SELECT+3*
DIC("A"	SELECT+3*
DIC(0	SELECT+3*
IO	NOTIFY+5
PASS	SELECT+1~, SELECT+7*, SELECT+8, NOTIFY~, NOTIFY+2
>> POP	NOTIFY+5
SEL	SELECT+1~, SELECT+2, SELECT+4, SELECT+5, SELECT+11
Y	SELECT+1~, SELECT+4, SELECT+5