Routine: APCDRVH2

APCDRVH2 ; IHS/CMI/LAB - CONT. HOSP REVIEW ; 02 Nov 2015  11:43 AM

 ;;2.0;IHS PCC SUITE;**11,13**;MAY 14, 2009;Build 9

;;

 ;;BJPC v1.0 patch 1

START ;

 D CHKTS

 D DATES

XIT ;

ERR ;

 D ERR^APCDRV

CHKTS ;

 I APCDTS="07",AUPNDAYS]"",AUPNDAYS>1 S APCDE="E318",APCDE("FILE")=9000010.02,APCDE("ENTRY")=APCDVINP D ERR Q

 I APCDTS="05"!(APCDTS="08"),AUPNSEX'="F" S APCDE="E320",APCDE("FILE")="9000010.02",APCDE("ENTRY")=APCDVINP D ERR

 I APCDDS="05"!(APCDDS="08"),AUPNSEX'="F" S APCDE="E324",APCDE("FILE")="9000010.02",APCDE("ENTRY")=APCDVINP D ERR

DATES ;

 S X1=$P(APCDVINR,U),X2=$P(^AUPNVSIT(APCDVSIT,0),U) D ^%DTC I X<0 S APCDE("FILE")=9000010,APCDE("ENTRY")=APCDVSIT,APCDE="E326" D ERR Q

APCDRVH2  ; IHS/CMI/LAB - CONT. HOSP REVIEW ; 02 Nov 2015  11:43 AM

 +1       ;;2.0;IHS PCC SUITE;**11,13**;MAY 14, 2009;Build 9

 +2       ;;

 +3       ;;BJPC v1.0 patch 1

START     ;

 +1        DO CHKTS

 +2        DO DATES

 +3       ;

XIT       ;

 +1        QUIT

 +2       ;

 +3       ;

ERR       ;

 +1        DO ERR^APCDRV

 +2        QUIT

CHKTS     ;

 +1        IF APCDTS="07"

               IF AUPNDAYS]""

                   IF AUPNDAYS>1

                       SET APCDE="E318"

                       SET APCDE("FILE")=9000010.02

                       SET APCDE("ENTRY")=APCDVINP

                       DO ERR

                       QUIT

 +2        IF APCDTS="05"!(APCDTS="08")

               IF AUPNSEX'="F"

                   SET APCDE="E320"

                   SET APCDE("FILE")="9000010.02"

                   SET APCDE("ENTRY")=APCDVINP

                   DO ERR

 +3        IF APCDDS="05"!(APCDDS="08")

               IF AUPNSEX'="F"

                   SET APCDE="E324"

                   SET APCDE("FILE")="9000010.02"

                   SET APCDE("ENTRY")=APCDVINP

                   DO ERR

 +4        QUIT

DATES     ;

 +1        SET X1=$PIECE(APCDVINR,U)

           SET X2=$PIECE(^AUPNVSIT(APCDVSIT,0),U)

           DO ^%DTC

           IF X<0

               SET APCDE("FILE")=9000010

               SET APCDE("ENTRY")=APCDVSIT

               SET APCDE="E326"

               DO ERR

               QUIT

 +2        QUIT

APCDRVH2.m