Routine: DGYZODS

Customize PDF page

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

Information

DGYZODS ;ALB/MIR - UTILITIES FOR ODS SOFTWARE ; 11 JAN 91

Source Information

Source file <DGYZODS.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	2	FILE^DICN IX1^DIK
ODS	1	(FAC,ON)^A1B2UTL

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

Package	Total	Caller Graph
Registration	13	DG CONSISTENCY CHECKER DG ELIG ENTER/EDIT DG EMPLOYER DGDIS DGPMVODS DGPMX1 DGPMX3 DGPMXA DGPMXAS1 DGRP7 DGRPX75 DGRPXC DGRPXX72
Graphics	1	GRPX78
ODS	1	A1B2MUT1

Entry Points

Name	Comments	DBIA/ICR reference
ODS
ON	;is the ODS software turned on?
PT	;pass in DFN from register/admit. If it doesn't exist, create a new entry.
PT1
DFN	;Called from admit templates to N DFN

External References

Name	Field # of Occurrence
FAC^A1B2UTL	PT1+10
ON^A1B2UTL	ON+2
FILE^DICN	PT1+8
IX1^DIK	PT1+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^A1B2(11500.1	PT1+4, PT1+11, PT1+12, PT1+13*
^DGPM - [#405]	DFN+1
^DIC(21 - [#21]	ODS+1
^DIC(5 - [#5]	PT1+12
^DPT - [#2]	ODS+1, PT1+1, PT1+5, PT1+9, PT1+11, PT1+12

Label References

Name	Line Occurrences
ODS	PT1+2, DFN+2
ON	ODS, PT1+3

Naked Globals

Name	Field # of Occurrence
^(	ODS+1, PT1+9, PT1+12
^("DAC"	PT1+11
^(0	ODS+1, PT1+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A1B2FN	PT1+11
A1B2ODS	ON+2, ON+3!
DA	PT1~, PT1+14*, DFN+1
DD	PT1+8!
DFN	ODS+1, PT1+1, PT1+4, PT1+5, PT1+9, PT1+11, PT1+12, DFN+1~*
>> DGODS	ODS, ODS+1, ON+2, PT1+2, PT1+3, PT1+4, PT1+8, PT1+11, PT1+12, PT1+13 , PT1+14
DGONLY	PT+9~*, PT1+2, PT1+3, PT1+11
DIC	PT1~, PT1+7*, PT1+14
DIC(0	PT1+7*
DIK	PT1~, PT1+14*
DO	PT1+8!
>> I	PT1+9*
SSN	PT1~, PT1+5*, PT1+7, PT1+11
X	PT1~, PT1+7, PT1+12
X(	PT1+9*, PT1+11
X("ODS"	PT1+11
X(0	PT1+5*, PT1+11
Y	PT1~, PT1+8