AUPNVLI.m

AUPNVLI ; IHS/CMI/LAB - CALLED from v line item ;

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

 ;

 ;

DES(AUPNIEN) ;EP called from trigger on #.05 to stuff

 ;description of item in #.06

 NEW %,%1

 S %=""

 I $P($G(^AUPNVLI(AUPNIEN,0)),U)="" Q %

 I $P($G(^AUPNVLI(AUPNIEN,0)),U,5)="" Q %

 S %1=$P(^AUTTLIT($P(^AUPNVLI(AUPNIEN,0),U),0),U,3)

 I %1="" Q %

 S %=$$VAL^XBDIQ1($P(^AUPNVLI(AUPNIEN,0),U),$P(^AUPNVLI(AUPNIEN,0),U,5),%1)

 Q %

 ;

VAL(%,AUPNIEN) ;EP - called from input transform of .04

 ;make sure that value passed in X is legitimate value in file

 ;in .01 field

 NEW %1,%

 S %1=$G(^AUTTLIT($P(^AUPNVLI(AUPNIEN,0),U),11)) I %1="" Q 1

 X %1

 Q $T

AUPNVLI   ; IHS/CMI/LAB - CALLED from v line item ;

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

 +2       ;

 +3       ;

DES(AUPNIEN) ;EP called from trigger on #.05 to stuff

 +1       ;description of item in #.06

 +2        NEW %,%1

 +3        SET %=""

 +4        IF $PIECE($GET(^AUPNVLI(AUPNIEN,0)),U)=""

               QUIT %

 +5        IF $PIECE($GET(^AUPNVLI(AUPNIEN,0)),U,5)=""

               QUIT %

 +6        SET %1=$PIECE(^AUTTLIT($PIECE(^AUPNVLI(AUPNIEN,0),U),0),U,3)

 +7        IF %1=""

               QUIT %

 +8        SET %=$$VAL^XBDIQ1($PIECE(^AUPNVLI(AUPNIEN,0),U),$PIECE(^AUPNVLI(AUPNIEN,0),U,5),%1)

 +9        QUIT %

 +10      ;

VAL(%,AUPNIEN) ;EP - called from input transform of .04

 +1       ;make sure that value passed in X is legitimate value in file

 +2       ;in .01 field

 +3        NEW %1,%

 +4        SET %1=$GET(^AUTTLIT($PIECE(^AUPNVLI(AUPNIEN,0),U),11))

           IF %1=""

               QUIT 1

 +5        XECUTE %1

 +6        QUIT $TEST