Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRBLSSN

Package: Lab Service

Routine: LRBLSSN


Information

LRBLSSN ; IHS/DIR/FJE - SSN SYNTAX CHECKER/EDIT 11/12/88 15:30 ;

Source Information

Source file <LRBLSSN.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 ^LRE  

Entry Points

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

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+12, PCHK+1, PCHK+2, PV, NO, DUP

Label References

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

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+6!, LRBLSSN+7*, LRBLSSN+8, LRBLSSN+9, LRBLSSN+10, LRBLSSN+11, LRBLSSN+12, END!, PCHK+2*, STRIP*
, PV, NO, DUP, DUP+1
B LRBLSSN+9*, END!
C END!, PSUE*, PSUE+1
>> DA LRBLSSN+12, PCHK+1, PCHK+2, PSUE, PV, DUP
L LRBLSSN+8, LRBLSSN+9*, 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+6!, LRBLSSN+7!, LRBLSSN+8*, LRBLSSN+10!, LRBLSSN+11!, LRBLSSN+12*, PV!, NO!, DUP!, DUP+1*
Z END!, CON*, PSUE+1*
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All