source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RASIGU.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 341 bytes
Line 
1RASIGU ;HISC/CAH,FPT,GJC,CRT - Check E-sig Code ;1/8/97 14:38
2 ;;5.0;Radiology/Nuclear Medicine;**26**;Mar 16, 1998
3 ;
4ES ; Ask Electronic Signature Code
5 ;
6 S %=1
7 I $G(RASIG("PER"))=""!($G(RASIG("NAME"))="") D DUZ^RAUTL Q:'%
8 S X1=RASIG("PER")
9ES1 D SIG^XUSESIG
10 Q:X1]""
11 W " <Signature Failed> ",*7
12ESQ S %=0 ; the sig entry failed
13 Q
Note: See TracBrowser for help on using the repository browser.