IBDFN9.m

IBDFN9 ;ALB/CJM - ENCOUNTER FORM - output transforms for data ;MAY 10, 1995

 ;;3.0;AUTOMATED INFO COLLECTION SYS;**38,36**;APR 24, 1997

 ;

DSPLYCPT(IEN) ;output transform for CPT codes (file #81)

 ;example of use: S Y=$$DSPLYCPT^IBDFN9(Y)

 ;;change to api cpt;dhh

 N CODE

 S CODE=$$CPT^ICPTCOD(IEN)

 I +CODE=-1 S CODE=""

 E  S CODE=$P(CODE,U,2)

 Q CODE

 ;

DSPLYICD(IEN) ;output transform for ICD9 codes (file #80)

 ;example of use: S Y=$$DSPLYICD^IBDFN9(Y)

 Q $P($G(^ICD9(+$G(IEN),0)),"^")

 ;

DSPLYPRV(IEN) ;output transform for provider (file #200)

 ;example of use: S Y=$$DSPLYPRV^IBDFN9(Y)

 Q $P($G(^VA(200,+$G(IEN),0)),"^")

 ;

DSPLYYN(Y) ;changes 1 to YES and 0 or "" to NO

 Q:Y=1 "YES"

 Q:(Y=0)!(Y="") "NO"

 Q " "

VARVAL(Y) ;determines PCE DIM NODE VALUE

 Q:'$D(Y) ""

 Q $S(Y="SC":6,Y="AO":7,Y="IR":8,Y="EC":9,Y="MST":10,1:"")

IBDFN9    ;ALB/CJM - ENCOUNTER FORM - output transforms for data ;MAY 10, 1995

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;**38,36**;APR 24, 1997

 +2       ;

DSPLYCPT(IEN) ;output transform for CPT codes (file #81)

 +1       ;example of use: S Y=$$DSPLYCPT^IBDFN9(Y)

 +2       ;;change to api cpt;dhh

 +3        NEW CODE

 +4        SET CODE=$$CPT^ICPTCOD(IEN)

 +5        IF +CODE=-1

               SET CODE=""

 +6       IF '$TEST

               SET CODE=$PIECE(CODE,U,2)

 +7        QUIT CODE

 +8       ;

DSPLYICD(IEN) ;output transform for ICD9 codes (file #80)

 +1       ;example of use: S Y=$$DSPLYICD^IBDFN9(Y)

 +2        QUIT $PIECE($GET(^ICD9(+$GET(IEN),0)),"^")

 +3       ;

DSPLYPRV(IEN) ;output transform for provider (file #200)

 +1       ;example of use: S Y=$$DSPLYPRV^IBDFN9(Y)

 +2        QUIT $PIECE($GET(^VA(200,+$GET(IEN),0)),"^")

 +3       ;

DSPLYYN(Y) ;changes 1 to YES and 0 or "" to NO

 +1        IF Y=1

               QUIT "YES"

 +2        IF (Y=0)!(Y="")

               QUIT "NO"

 +3        QUIT " "

VARVAL(Y) ;determines PCE DIM NODE VALUE

 +1        IF '$DATA(Y)

               QUIT ""

 +2        QUIT $SELECT(Y="SC":6,Y="AO":7,Y="IR":8,Y="EC":9,Y="MST":10,1:"")