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 Dec 13, 2024@02:53:02 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:"")
