source: WorldVistAEHR/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDFN9.m@ 619

Last change on this file since 619 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 979 bytes
Line 
1IBDFN9 ;ALB/CJM - ENCOUNTER FORM - output transforms for data ;MAY 10, 1995
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;**38,36,51**;APR 24, 1997
3 ;
4DSPLYCPT(IEN) ;output transform for CPT codes (file #81)
5 ;example of use: S Y=$$DSPLYCPT^IBDFN9(Y)
6 ;;change to api cpt;dhh
7 N CODE
8 S CODE=$$CPT^ICPTCOD(IEN)
9 ;;I +CODE=-1 S CODE=""
10 ;;E S CODE=$P(CODE,U,2)
11 ;
12 ;Check status for CSV
13 I $P(CODE,U,7)'=1 S CODE="" Q CODE
14 S CODE=$P(CODE,U,2)
15 Q CODE
16 ;
17DSPLYICD(IEN) ;output transform for ICD9 codes (file #80)
18 ;example of use: S Y=$$DSPLYICD^IBDFN9(Y)
19 ;;Q $P($G(^ICD9(+$G(IEN),0)),"^")
20 ;
21 ;Use API for CSV
22 Q $P($$ICDDX^ICDCODE(IEN),"^",2)
23 ;
24DSPLYPRV(IEN) ;output transform for provider (file #200)
25 ;example of use: S Y=$$DSPLYPRV^IBDFN9(Y)
26 Q $P($G(^VA(200,+$G(IEN),0)),"^")
27 ;
28DSPLYYN(Y) ;changes 1 to YES and 0 or "" to NO
29 Q:Y=1 "YES"
30 Q:(Y=0)!(Y="") "NO"
31 Q " "
32VARVAL(Y) ;determines PCE DIM NODE VALUE
33 Q:'$D(Y) ""
34 Q $S(Y="SC":6,Y="AO":7,Y="IR":8,Y="EC":9,Y="MST":10,1:"")
Note: See TracBrowser for help on using the repository browser.