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

Package: Kernel

Routine: XUSESIG3


Information

XUSESIG3 ;EPIP/WLC - ROUTINE TO ENTER OR CHNAGE ELECTRONIC SIGNATURE REVISED; 10 Feb 2017 11:15 AM ; 21 Feb 2017 8:31 AM

Source Information

Source file <XUSESIG3.m>

Entry Points

Name Comments DBIA/ICR reference
PNM ; Signature Block Printed Name & Title edit
DEG ; Old method
DEGREE ; test input for DEGREE field
COMP(X) ;
; Compares input string to determine if it contains dups
PATM(X) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$GET1^DIQ(200,DA,.01),!
  • Line Location: DEGREE+4
Function Call: WRITE
  • Prompt: !,"Current entry for DEGREE is: ",DEF
  • Line Location: DEGREE+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEGREE+6
Function Call: WRITE
  • Prompt: !,"***** Entry too long. Try Again. *****",!,"Entry must be less than ten (10) characters."
  • Line Location: DEGREE+20
Function Call: WRITE
  • Prompt: !,"***** Entry contains duplicates. Try Again. *****",!
  • Line Location: DEGREE+21
Function Call: WRITE
  • Prompt: !,"Error in filing data. Please try again."
  • Line Location: DEGREE+24
Info |  Source |  Entry Points |  Interaction Calls