ABMDINST.m

ABMDINST ; IHS/DSD/DMJ - INSTALL PATCH #7 ;

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

START ;START HERE

 S ^DD(9002274.3033,.01,12)="MUST BE IN FEE SCHEDULE"

 S ^DD(9002274.3033,.01,12.1)=$P($T(TXT+1),";;",2)

 S $P(^DD(9002274.3033,.01,0),"^",5,99)=$P($T(TXT+2),";;",2)

 Q

TXT ;TEXT

 ;;S DIC("S")="I $D(^ABMDFEE(+$G(ABMP(""FEE"")),21,1_$P(^(0),""^"",1),0))"

 ;;S DIC("S")="I $D(^ABMDFEE(+$G(ABMP(""FEE"")),21,1_$P(^(0),""^"",1),0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X

ABMDINST  ; IHS/DSD/DMJ - INSTALL PATCH #7 ;

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

START     ;START HERE

 +1        SET ^DD(9002274.3033,.01,12)="MUST BE IN FEE SCHEDULE"

 +2        SET ^DD(9002274.3033,.01,12.1)=$PIECE($TEXT(TXT+1),";;",2)

 +3        SET $PIECE(^DD(9002274.3033,.01,0),"^",5,99)=$PIECE($TEXT(TXT+2),";;",2)

 +4        QUIT 

TXT       ;TEXT

 +1       ;;S DIC("S")="I $D(^ABMDFEE(+$G(ABMP(""FEE"")),21,1_$P(^(0),""^"",1),0))"

 +2       ;;S DIC("S")="I $D(^ABMDFEE(+$G(ABMP(""FEE"")),21,1_$P(^(0),""^"",1),0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X