- IBDFN9 ;ALB/CJM - ENCOUNTER FORM - output transforms for data ;05/10/95
- ;;3.0;AUTOMATED INFO COLLECTION SYS;**38,36,51,63**;APR 24, 1997;Build 80
- ;
- ;
- DSPLYCPT(IEN) ;output transform for CPT codes (file #81)
- ;example of use: S Y=$$DSPLYCPT^IBDFN9(Y)
- ;;change to api cpt;dhh
- N IBDCODE
- S IBDCODE=$$CPT^ICPTCOD(IEN)
- ;;I +CODE=-1 S CODE=""
- ;;E S CODE=$P(CODE,U,2)
- ;
- ;Check status for CSV
- I $P(IBDCODE,U,7)'=1 S IBDCODE="" Q IBDCODE
- S IBDCODE=$P(IBDCODE,U,2)
- Q IBDCODE
- ;
- DSPICD10(IEN) ;output transform for ICD10 codes (file #8010)
- ;example of use: S Y=$$DSPICD10^IBDFN9(Y)
- ;Use API for CSV
- Q $P($$ICDDATA^ICDXCODE("10D",IEN,DT),"^",2)
- ;
- DSPLYICD(IEN) ;output transform for ICD9 codes (file #80)
- ;example of use: S Y=$$DSPLYICD^IBDFN9(Y)
- ;;Q $P($G(^ICD9(+$G(IEN),0)),"^")
- ;
- ;Use API for CSV
- Q $P($$ICDDX^ICDCODE(IEN),"^",2)
- ;
- 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:"")
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDFN9 1225 printed Feb 19, 2025@00:19:27 Page 2
- IBDFN9 ;ALB/CJM - ENCOUNTER FORM - output transforms for data ;05/10/95
- +1 ;;3.0;AUTOMATED INFO COLLECTION SYS;**38,36,51,63**;APR 24, 1997;Build 80
- +2 ;
- +3 ;
- 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 IBDCODE
- +4 SET IBDCODE=$$CPT^ICPTCOD(IEN)
- +5 ;;I +CODE=-1 S CODE=""
- +6 ;;E S CODE=$P(CODE,U,2)
- +7 ;
- +8 ;Check status for CSV
- +9 IF $PIECE(IBDCODE,U,7)'=1
- SET IBDCODE=""
- QUIT IBDCODE
- +10 SET IBDCODE=$PIECE(IBDCODE,U,2)
- +11 QUIT IBDCODE
- +12 ;
- DSPICD10(IEN) ;output transform for ICD10 codes (file #8010)
- +1 ;example of use: S Y=$$DSPICD10^IBDFN9(Y)
- +2 ;Use API for CSV
- +3 QUIT $PIECE($$ICDDATA^ICDXCODE("10D",IEN,DT),"^",2)
- +4 ;
- DSPLYICD(IEN) ;output transform for ICD9 codes (file #80)
- +1 ;example of use: S Y=$$DSPLYICD^IBDFN9(Y)
- +2 ;;Q $P($G(^ICD9(+$G(IEN),0)),"^")
- +3 ;
- +4 ;Use API for CSV
- +5 QUIT $PIECE($$ICDDX^ICDCODE(IEN),"^",2)
- +6 ;
- 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:"")