- 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
