Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LRBLSSN

Package: Lab Service

Routine: LRBLSSN


Information

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

Source Information

Source file <LRBLSSN.m>

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
Info |  Source |  Entry Points |  Interaction Calls