Routine: IBCNSU4

Customize PDF page

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

Information

IBCNSU4 ;ALB/CPM - SPONSOR UTILITIES ; 21-JAN-97

Source Information

Source file <IBCNSU4.m>

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	DGRP15

Entry Points

Name	Comments	DBIA/ICR reference
GET(DFN,ARR)	; Retrieve sponsor relationships for a patient. ; Input: DFN -- Pointer to the patient in file #2 ; Output: ARR -- Passed by reference:	ICR #2034 Status: Active Usage: Supported
GETQ
SSN(X)	; Strip dashes from SSN and add them back in.

Name

Comments

DBIA/ICR reference

GET(DFN,ARR)

; Retrieve sponsor relationships for a patient.
; Input: DFN -- Pointer to the patient in file #2
; Output: ARR -- Passed by reference:

ICR #2034

Status: Active

Usage: Supported

GETQ

SSN(X)

; Strip dashes from SSN and add them back in.

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	GET+35, GET+41
^DIC(23 - [#23]	GET+51
^DPT - [#2]	GET+34
^IBA(355.8 - [#355.8]	GET+29
^IBA(355.81 - [#355.81]	GET+27, GET+28
^IBA(355.82 - [#355.82]	GET+40

Label References

Name	Line Occurrences
$$SSN	GET+36, GET+42
GETQ	GET+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARR	GET~, GET+23!, GET+47, GET+52
ARR(	GET+47, GET+52
BRAN	GET+22~, GET+51*, GET+52
DFN	GET~, GET+24, GET+27
REL	GET+22~, GET+28, GET+29, GET+30, GET+46*, GET+47
SPON	GET+22~, GET+29*, GET+33, GET+34, GET+40, GET+50, GET+51, GET+52
STAT	GET+22~, GET+50*, GET+52
X	GET+22~, GET+27, GET+28, GET+47, SSN~, SSN+1, SSN+2
X1	GET+22~, GET+34*, GET+35, GET+36
XSPON	GET+22~, GET+36, GET+40, GET+41, GET+42, GET+47, GET+52
Y	GET+22~, GET+35, GET+36, GET+41, GET+42*
Y1	GET+22~