APCDECC.m

APCDECC ; IHS/CMI/LAB - DATA ENTRY CHECK CHART LOCATIONS ;

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

 ;

 ;

START ;

 Q:'$D(^APCDSITE(DUZ(2),11,APCDLOC))

 Q:$D(^AUPNPAT(APCDPAT,41,APCDLOC))

 W !!,$C(7),$C(7),"This patient, ",$P(^DPT(APCDPAT,0),U),", does NOT have a CHART",!,"at the Location of Visit that you specified.  The site parameter indicates",!,"that he/she should have a chart at that location."

 W ! S DIR(0)="Y",DIR("A")="Do you want to continue with this VISIT",DIR("B")="N" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT)!(Y=0) S APCDPAT="" Q

 Q

APCDECC   ; IHS/CMI/LAB - DATA ENTRY CHECK CHART LOCATIONS ;

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

 +2       ;

 +3       ;

START     ;

 +1        IF '$DATA(^APCDSITE(DUZ(2),11,APCDLOC))

               QUIT 

 +2        IF $DATA(^AUPNPAT(APCDPAT,41,APCDLOC))

               QUIT 

 +3        WRITE !!,$CHAR(7),$CHAR(7),"This patient, ",$PIECE(^DPT(APCDPAT,0),U),", does NOT have a CHART",!,"at the Location of Visit that you specified.  The site parameter indicates",!,"that he/she should have a chart at that location."

 +4        WRITE !

           SET DIR(0)="Y"

           SET DIR("A")="Do you want to continue with this VISIT"

           SET DIR("B")="N"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +5        IF $DATA(DIRUT)!(Y=0)

               SET APCDPAT=""

               QUIT 

 +6        QUIT