BTPWTIUS.m

BTPWTIUS ;VNGT/HS/ALA-Check for Electronic Signature ; 15 Jun 2010  2:55 PM

 ;;1.0;CARE MANAGEMENT EVENT TRACKING;;Feb 07, 2011

 ;

SIG(DATA,FAKE) ; EP - BTPW CHECK FOR ESIG

 ;

 NEW UID,II,RESULT,MSG,X1,X2

 S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)

 S DATA=$NA(^TMP("BTPWTIUS",UID))

 K @DATA

 ;

 S II=0

 NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BTPWTIUS D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2

 ;

 ;Header

 S @DATA@(II)="I00010RESULT^T01024MSG"_$C(30)

 S RESULT=1

 S X2=$G(^VA(200,+$G(DUZ),20)),X1=$P(X2,U,4)

 I X1="" S RESULT=-1,MSG="You have no Electronic Signature code on file"

 S II=II+1,@DATA@(II)=RESULT_U_$G(MSG)_$C(30)

 ;

 ;

DONE ;

 S II=II+1,@DATA@(II)=$C(31)

 Q

 ;

ERR ;

 D ^%ZTER

 NEW Y,ERRDTM

 S Y=$$NOW^XLFDT() X ^DD("DD") S ERRDTM=Y

 S BMXSEC="Recording that an error occurred at "_ERRDTM

 S II=II+1,@DATA@(II)=$C(31)

 Q

BTPWTIUS  ;VNGT/HS/ALA-Check for Electronic Signature ; 15 Jun 2010  2:55 PM

 +1       ;;1.0;CARE MANAGEMENT EVENT TRACKING;;Feb 07, 2011

 +2       ;

SIG(DATA,FAKE) ; EP - BTPW CHECK FOR ESIG

 +1       ;

 +2        NEW UID,II,RESULT,MSG,X1,X2

 +3        SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)

 +4        SET DATA=$NAME(^TMP("BTPWTIUS",UID))

 +5        KILL @DATA

 +6       ;

 +7        SET II=0

 +8       ; SAC 2006 2.2.3.3.2

           NEW $ESTACK,$ETRAP

           SET $ETRAP="D ERR^BTPWTIUS D UNWIND^%ZTER"

 +9       ;

 +10      ;Header

 +11       SET @DATA@(II)="I00010RESULT^T01024MSG"_$CHAR(30)

 +12       SET RESULT=1

 +13       SET X2=$GET(^VA(200,+$GET(DUZ),20))

           SET X1=$PIECE(X2,U,4)

 +14       IF X1=""

               SET RESULT=-1

               SET MSG="You have no Electronic Signature code on file"

 +15       SET II=II+1

           SET @DATA@(II)=RESULT_U_$GET(MSG)_$CHAR(30)

 +16      ;

 +17      ;

DONE      ;

 +1        SET II=II+1

           SET @DATA@(II)=$CHAR(31)

 +2        QUIT 

 +3       ;

ERR       ;

 +1        DO ^%ZTER

 +2        NEW Y,ERRDTM

 +3        SET Y=$$NOW^XLFDT()

           XECUTE ^DD("DD")

           SET ERRDTM=Y

 +4        SET BMXSEC="Recording that an error occurred at "_ERRDTM

 +5        SET II=II+1

           SET @DATA@(II)=$CHAR(31)

 +6        QUIT