Routine: LRBLSSN

Customize PDF page

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

Information

LRBLSSN ;DALISC/FHS/DVR/AVAMC/REG - SSN SYNTAX CHECKER/EDIT ; 11/12/88 15:30 ;

Source Information

Source file <LRBLSSN.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
Lab Service	1	^LRE

Entry Points

Name	Comments	DBIA/ICR reference
END
CON
PCHK	;CHECK FOR DUPLICATE 'P' NUMBERS
STRIP
PSUE
PV
NO
DUP

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,$C(7),"Not a proper Pseudo SSN. Enter 9 numbers followed by 'P'",!?15,"or you may enter a 'P'." Line Location: PV+0
Function Call: WRITE	Prompt: !?10,"This SSN is assigned to ",N,!?15,"Donor #:",N(1),! Line Location: NO+0
Function Call: WRITE	Prompt: !!?10,"Duplicate Pseudo Number -- ALREADY AS ASSIGNED TO ",N,!?15,"Donor # :",N(1),! Line Location: DUP+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LRE - [#65.5]	PSUE, NO, DUP
^LRE("G"	LRBLSSN+10, PCHK+1, PCHK+2, PV, NO, DUP

Label References

Name	Line Occurrences
CON	PSUE+1
DUP	LRBLSSN+7
END	LRBLSSN+4, LRBLSSN+5, LRBLSSN+6, LRBLSSN+7, LRBLSSN+8, LRBLSSN+9, NO
NO	LRBLSSN+10
PCHK	LRBLSSN+6
PSUE	LRBLSSN+6, LRBLSSN+7
PV	LRBLSSN+7
STRIP	LRBLSSN+5

Naked Globals

Name	Field # of Occurrence
^(0	NO

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!, STRIP*
A	LRBLSSN+4!, LRBLSSN+5, LRBLSSN+6, LRBLSSN+7, LRBLSSN+8, LRBLSSN+9, LRBLSSN+10, END!, PCHK+2, STRIP* , PV, NO, DUP, DUP+1
B	LRBLSSN+7*, END!
C	END!, PSUE*, PSUE+1
>> DA	LRBLSSN+10, PCHK+1, PCHK+2, PSUE, PV, DUP
L	LRBLSSN+6, LRBLSSN+7, END!, PCHK+1, PCHK+2, PSUE, PSUE+1
L(1	PSUE, PSUE+1
L(2	PSUE, PSUE+1
L(3	PSUE, PSUE+1
N	END!, PSUE, NO, DUP*
N(1	NO, DUP
U	NO, DUP
X	LRBLSSN+4!, LRBLSSN+5!, LRBLSSN+6, LRBLSSN+8!, LRBLSSN+9!, LRBLSSN+10, PV!, NO!, DUP!, DUP+1*
Z	END!, CON, PSUE+1