APCDALI.m

APCDALI ; IHS/CMI/LAB - prompt for line item value ;

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

 ;

 ;

VALUE ;EP - called from input template to get value of line item

 I '$D(DA) S APCDTERR=1 Q

 I 'DA S APCDTERR=1 Q

 S APCDTF=$P(^AUPNVLI(DA,0),U)

 I 'APCDTF S APCDTERR=1 D EOJ Q

 S DIC("A")="  Enter the "_$P(^DIC(APCDTF,0),U)_" value:",DIC=APCDTF,DIC(0)="AEMQ" D ^DIC

 I Y=-1 W !!,"Invalid entry.  Try again." G VALUE

 S APCDTLII=+Y

EOJ ;

 K Y

 Q

APCDALI   ; IHS/CMI/LAB - prompt for line item value ;

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

 +2       ;

 +3       ;

VALUE     ;EP - called from input template to get value of line item

 +1        IF '$DATA(DA)

               SET APCDTERR=1

               QUIT 

 +2        IF 'DA

               SET APCDTERR=1

               QUIT 

 +3        SET APCDTF=$PIECE(^AUPNVLI(DA,0),U)

 +4        IF 'APCDTF

               SET APCDTERR=1

               DO EOJ

               QUIT 

 +5        SET DIC("A")="  Enter the "_$PIECE(^DIC(APCDTF,0),U)_" value:"

           SET DIC=APCDTF

           SET DIC(0)="AEMQ"

           DO ^DIC

 +6        IF Y=-1

               WRITE !!,"Invalid entry.  Try again."

               GOTO VALUE

 +7        SET APCDTLII=+Y

EOJ       ;

 +1        KILL Y

 +2        QUIT