Routine: A1B2UTL

Customize PDF page

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

Information

A1B2UTL ;ALB/MJK - ODS Utility Routine;

Source Information

Source file <A1B2UTL.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
VA FileMan	2	FILE^DICN ^DIE

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

Package	Total	Caller Graph
ODS	10	A1B2ADM A1B2MAIN A1B2MSP A1B2MUT A1B2MUT1 A1B2OLC A1B2Q1 A1B2SUP A1B2T1 A1B2XFR
Registration	3	DGDIS DGPMVODS DGYZODS

Entry Points

Name	Comments	DBIA/ICR reference
ADD	; -- add an entry to a file ; input: A1B2FL := file number ; A1B2DT := date/time for .01 ; DFN := pt ifn
ADDQ
FAC	; -- find inst and get fac # and name
NTL	; -- get fac # and name for nationally sign input user (IHS) ; input: DUZ, DUZ(2) ; output: A1B2FN := fac # ; A1B2FNME := fac name ; A1B2VRG := vhs&ra region # ;
KVAR	; -- kill vars set in NTL call
GET	; -- get fac data
ON	;is the ODS software turned on? ; input: none ; output: A1B2ODS := 0 for off and 1 for on
DIS	; -- screen set

External References

Name	Field # of Occurrence
FILE^DICN	ADD+7
^DIE	ADD+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^A1B2(11500.5	ON+4
^DG(40.8 - [#40.8]	FAC+3, FAC+4
^DIC(4 - [#4]	GET+1, GET+2

Label References

Name	Line Occurrences
ADDQ	ADD+6, ADD+7
FAC	ADD+6
GET	FAC+4, NTL+7

Naked Globals

Name	Field # of Occurrence
^(0	FAC+4, GET+1, ON+4
^(11002	GET+2
^(99	GET+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A1B2DT	ADD+7
>> A1B2FL	ADD+7
A1B2FN	ADD+6, ADD+8, ADDQ!, FAC+3, NTL+6, KVAR+1!, GET+1*
A1B2FNME	ADD+8, ADDQ!, FAC+3, NTL+6, KVAR+1!, GET+1*
>> A1B2ODS	ON+4*
A1B2VRG	NTL+6, KVAR+1!, GET+2
A1B2Y	ADD+8*, ADD+9, ADDQ!
D0	ADD+7!
DA	ADD+8*, ADD+9!
DD	ADD+7!
DE	ADD+9!
>> DFN	ADD+8
DG	ADD+9!
DIC	ADD+7*, ADD+8!
DIC(0	ADD+7*
DIE	ADD+8*, ADD+9!
>> DIS(0	DIS+1*
DQ	ADD+9!
DR	ADD+8*, ADD+9!
DUZ	ADD+8
DUZ(2	NTL+7
U	FAC+4, GET+1, ON+4
X	ADD+7, FAC+2~, FAC+3, FAC+4, NTL+7, GET+1, GET+2
>> Y	ADD+6, ADD+7, ADD+8, ADD+9