Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDFN9

IBDFN9.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ;
  1. DSPLYCPT(IEN) ;output transform for CPT codes (file #81)
  1. ;example of use: S Y=$$DSPLYCPT^IBDFN9(Y)
  1. ;;change to api cpt;dhh
  1. N IBDCODE
  1. S IBDCODE=$$CPT^ICPTCOD(IEN)
  1. ;;I +CODE=-1 S CODE=""
  1. ;;E S CODE=$P(CODE,U,2)
  1. ;
  1. ;Check status for CSV
  1. I $P(IBDCODE,U,7)'=1 S IBDCODE="" Q IBDCODE
  1. S IBDCODE=$P(IBDCODE,U,2)
  1. Q IBDCODE
  1. ;
  1. DSPICD10(IEN) ;output transform for ICD10 codes (file #8010)
  1. ;example of use: S Y=$$DSPICD10^IBDFN9(Y)
  1. ;Use API for CSV
  1. Q $P($$ICDDATA^ICDXCODE("10D",IEN,DT),"^",2)
  1. ;
  1. DSPLYICD(IEN) ;output transform for ICD9 codes (file #80)
  1. ;example of use: S Y=$$DSPLYICD^IBDFN9(Y)
  1. ;;Q $P($G(^ICD9(+$G(IEN),0)),"^")
  1. ;
  1. ;Use API for CSV
  1. Q $P($$ICDDX^ICDCODE(IEN),"^",2)
  1. ;
  1. DSPLYPRV(IEN) ;output transform for provider (file #200)
  1. ;example of use: S Y=$$DSPLYPRV^IBDFN9(Y)
  1. Q $P($G(^VA(200,+$G(IEN),0)),"^")
  1. ;
  1. DSPLYYN(Y) ;changes 1 to YES and 0 or "" to NO
  1. Q:Y=1 "YES"
  1. Q:(Y=0)!(Y="") "NO"
  1. Q " "
  1. VARVAL(Y) ;determines PCE DIM NODE VALUE
  1. Q:'$D(Y) ""
  1. Q $S(Y="SC":6,Y="AO":7,Y="IR":8,Y="EC":9,Y="MST":10,1:"")