APCDR01.m

APCDR01 ; IHS/CMI/LAB - V MEASUREMENT REVIEW ; 02 Sep 2010  7:04 AM

 ;;2.0;IHS PCC SUITE;**5**;MAY 14, 2009

 ;

CODE ;CHECK CODE

 Q:$P($G(^AUPNVMSR(APCDEDFN,2)),U,1)  ;entered in error

 S APCDX=$P(^AUPNVMSR(APCDEDFN,0),U) I APCDX="" S APCDE="E011" D ERR G XIT

 I '$D(^AUTTMSR(APCDX,0)) S APCDE="E011" D ERR G XIT

 I $P(^AUTTMSR(APCDX,0),U,3)="" S APCDE="E011" D ERR G XIT

 ;

 ;

RESULTS ;

 I $P(^AUPNVMSR(APCDEDFN,0),U,4)="" S APCDE="E013" D ERR G XIT

 ;

XIT ; Clean up and exit

 K APCDX,APCDE

 Q

ERR ;

 S APCDE("FILE")=9000010.01,APCDE("ENTRY")=APCDEDFN

 D ERR^APCDRV

 Q

APCDR01   ; IHS/CMI/LAB - V MEASUREMENT REVIEW ; 02 Sep 2010  7:04 AM

 +1       ;;2.0;IHS PCC SUITE;**5**;MAY 14, 2009

 +2       ;

CODE      ;CHECK CODE

 +1       ;entered in error

           IF $PIECE($GET(^AUPNVMSR(APCDEDFN,2)),U,1)

               QUIT 

 +2        SET APCDX=$PIECE(^AUPNVMSR(APCDEDFN,0),U)

           IF APCDX=""

               SET APCDE="E011"

               DO ERR

               GOTO XIT

 +3        IF '$DATA(^AUTTMSR(APCDX,0))

               SET APCDE="E011"

               DO ERR

               GOTO XIT

 +4        IF $PIECE(^AUTTMSR(APCDX,0),U,3)=""

               SET APCDE="E011"

               DO ERR

               GOTO XIT

 +5       ;

 +6       ;

RESULTS   ;

 +1        IF $PIECE(^AUPNVMSR(APCDEDFN,0),U,4)=""

               SET APCDE="E013"

               DO ERR

               GOTO XIT

 +2       ;

XIT       ; Clean up and exit

 +1        KILL APCDX,APCDE

 +2        QUIT 

ERR       ;

 +1        SET APCDE("FILE")=9000010.01

           SET APCDE("ENTRY")=APCDEDFN

 +2        DO ERR^APCDRV

 +3        QUIT