- BEDDGET ;GDIT/HS/BEE-BEDD Utility Routine ; 08 Nov 2011 12:00 PM
- ;;2.0;BEDD DASHBOARD;**1**;Jun 04, 2014;Build 22
- ;
- Q
- ;
- GETCHIEF(BEDDIEN,BEDDCOMP,TYPE,CCLIST,LATEST) ;EP - Get V NARRATIVE TEXT
- ;
- ; Input:
- ; BEDDIEN - V NARRATIVE TEXT Entry IEN
- ; BEDDCOMP - BEDD.EDVISIT - Complaint field value
- ; TYPE - Return type - P - Presenting, C - Chief, Null - All
- ;
- ; Output:
- ; V NARRATIVE TEXT (1st) or Complaint value (2nd)
- ; CCLIST - Array of chief complaint entries
- ;
- ;Error Trap
- NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BEDDGET D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
- ;
- S TYPE=$G(TYPE)
- S BEDDCOMP=$G(BEDDCOMP)
- S BEDDIEN=$G(BEDDIEN)
- S LATEST=$G(LATEST)
- ;
- ;Return only presenting complaint
- I BEDDCOMP="" D
- . NEW DFN
- . S DFN=$$GET1^DIQ(9000010,BEDDIEN_",",.05,"I") Q:DFN=""
- . S BEDDCOMP=$$GET1^DIQ(9009081,DFN_",",23,"E")
- I TYPE="P" Q BEDDCOMP
- ;
- ;Retrieve V NARRATIVE TEXT entries
- NEW BEDDCTXT
- S BEDDCTXT=""
- ;
- I $G(BEDDIEN)]"",$D(^AUPNVNT("AD",BEDDIEN)) D
- . NEW BEDDCC
- . S BEDDCC="" F S BEDDCC=$O(^AUPNVNT("AD",BEDDIEN,BEDDCC),-1) Q:'BEDDCC D I $G(BEDDCTXT)]"",LATEST Q
- .. ;
- .. ;Pull the entry
- .. I $D(^AUPNVNT(BEDDCC,11,0)) D
- ... N LN
- ... S CCLIST=$G(CCLIST)+1
- ... S LN=0 F S LN=$O(^AUPNVNT(BEDDCC,11,LN)) Q:'LN D
- .... S BEDDCTXT=$G(BEDDCTXT)_$S(BEDDCTXT="":"",1:" ")_$G(^AUPNVNT(BEDDCC,11,LN,0))
- .... S CCLIST(CCLIST)=$G(CCLIST(CCLIST))_$S($G(CCLIST(CCLIST))="":"",1:"; ")_$G(^AUPNVNT(BEDDCC,11,LN,0))
- ;
- ;If request for all, add the presenting complaint
- I TYPE="" D
- . I LATEST,BEDDCTXT]"" Q
- . S BEDDCTXT=BEDDCTXT_$S(BEDDCTXT="":"",1:"; ")_BEDDCOMP
- . S CCLIST=$G(CCLIST)+1
- . S CCLIST(CCLIST)=BEDDCOMP
- ;
- Q BEDDCTXT
- ;
- ;
- ERR ;
- D ^%ZTER
- Q
- BEDDGET ;GDIT/HS/BEE-BEDD Utility Routine ; 08 Nov 2011 12:00 PM
- +1 ;;2.0;BEDD DASHBOARD;**1**;Jun 04, 2014;Build 22
- +2 ;
- +3 QUIT
- +4 ;
- GETCHIEF(BEDDIEN,BEDDCOMP,TYPE,CCLIST,LATEST) ;EP - Get V NARRATIVE TEXT
- +1 ;
- +2 ; Input:
- +3 ; BEDDIEN - V NARRATIVE TEXT Entry IEN
- +4 ; BEDDCOMP - BEDD.EDVISIT - Complaint field value
- +5 ; TYPE - Return type - P - Presenting, C - Chief, Null - All
- +6 ;
- +7 ; Output:
- +8 ; V NARRATIVE TEXT (1st) or Complaint value (2nd)
- +9 ; CCLIST - Array of chief complaint entries
- +10 ;
- +11 ;Error Trap
- +12 ; SAC 2006 2.2.3.3.2
- NEW $ESTACK,$ETRAP
- SET $ETRAP="D ERR^BEDDGET D UNWIND^%ZTER"
- +13 ;
- +14 SET TYPE=$GET(TYPE)
- +15 SET BEDDCOMP=$GET(BEDDCOMP)
- +16 SET BEDDIEN=$GET(BEDDIEN)
- +17 SET LATEST=$GET(LATEST)
- +18 ;
- +19 ;Return only presenting complaint
- +20 IF BEDDCOMP=""
- Begin DoDot:1
- +21 NEW DFN
- +22 SET DFN=$$GET1^DIQ(9000010,BEDDIEN_",",.05,"I")
- IF DFN=""
- QUIT
- +23 SET BEDDCOMP=$$GET1^DIQ(9009081,DFN_",",23,"E")
- End DoDot:1
- +24 IF TYPE="P"
- QUIT BEDDCOMP
- +25 ;
- +26 ;Retrieve V NARRATIVE TEXT entries
- +27 NEW BEDDCTXT
- +28 SET BEDDCTXT=""
- +29 ;
- +30 IF $GET(BEDDIEN)]""
- IF $DATA(^AUPNVNT("AD",BEDDIEN))
- Begin DoDot:1
- +31 NEW BEDDCC
- +32 SET BEDDCC=""
- FOR
- SET BEDDCC=$ORDER(^AUPNVNT("AD",BEDDIEN,BEDDCC),-1)
- IF 'BEDDCC
- QUIT
- Begin DoDot:2
- +33 ;
- +34 ;Pull the entry
- +35 IF $DATA(^AUPNVNT(BEDDCC,11,0))
- Begin DoDot:3
- +36 NEW LN
- +37 SET CCLIST=$GET(CCLIST)+1
- +38 SET LN=0
- FOR
- SET LN=$ORDER(^AUPNVNT(BEDDCC,11,LN))
- IF 'LN
- QUIT
- Begin DoDot:4
- +39 SET BEDDCTXT=$GET(BEDDCTXT)_$SELECT(BEDDCTXT="":"",1:" ")_$GET(^AUPNVNT(BEDDCC,11,LN,0))
- +40 SET CCLIST(CCLIST)=$GET(CCLIST(CCLIST))_$SELECT($GET(CCLIST(CCLIST))="":"",1:"; ")_$GET(^AUPNVNT(BEDDCC,11,LN,0))
- End DoDot:4
- End DoDot:3
- End DoDot:2
- IF $GET(BEDDCTXT)]""
- IF LATEST
- QUIT
- End DoDot:1
- +41 ;
- +42 ;If request for all, add the presenting complaint
- +43 IF TYPE=""
- Begin DoDot:1
- +44 IF LATEST
- IF BEDDCTXT]""
- QUIT
- +45 SET BEDDCTXT=BEDDCTXT_$SELECT(BEDDCTXT="":"",1:"; ")_BEDDCOMP
- +46 SET CCLIST=$GET(CCLIST)+1
- +47 SET CCLIST(CCLIST)=BEDDCOMP
- End DoDot:1
- +48 ;
- +49 QUIT BEDDCTXT
- +50 ;
- +51 ;
- ERR ;
- +1 DO ^%ZTER
- +2 QUIT
