RASIGU.m

RASIGU ;HISC/CAH,FPT,GJC,CRT - Check E-sig Code ;1/8/97  14:38

 ;;5.0;Radiology/Nuclear Medicine;**26**;Mar 16, 1998

 ;

ES ; Ask Electronic Signature Code

 ;

 S %=1

 I $G(RASIG("PER"))=""!($G(RASIG("NAME"))="") D DUZ^RAUTL Q:'%

 S X1=RASIG("PER")

ES1 D SIG^XUSESIG

 Q:X1]""

 W "   <Signature Failed> ",*7

ESQ S %=0 ; the sig entry failed

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RASIGU   354     printed  Oct 16, 2024@18:40:23                                                                                                                                                                                                       Page 2

RASIGU    ;HISC/CAH,FPT,GJC,CRT - Check E-sig Code ;1/8/97  14:38

 +1       ;;5.0;Radiology/Nuclear Medicine;**26**;Mar 16, 1998

 +2       ;

ES        ; Ask Electronic Signature Code

 +1       ;

 +2        SET %=1

 +3        IF $GET(RASIG("PER"))=""!($GET(RASIG("NAME"))="")

               DO DUZ^RAUTL

               if '%

                   QUIT 

 +4        SET X1=RASIG("PER")

ES1        DO SIG^XUSESIG

 +1        if X1]""

               QUIT 

 +2        WRITE "   <Signature Failed> ",*7

ESQ       ; the sig entry failed

           SET %=0

 +1        QUIT