source:
WorldVistAEHR/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RASIGU.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 341 bytes |
Line | |
---|---|
1 | RASIGU ;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 | ; |
4 | ES ; 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") |
9 | ES1 D SIG^XUSESIG |
10 | Q:X1]"" |
11 | W " <Signature Failed> ",*7 |
12 | ESQ S %=0 ; the sig entry failed |
13 | Q |
Note:
See TracBrowser
for help on using the repository browser.