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 |
Rev | Line | |
---|---|---|
[613] | 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.