SDTMPUTL.m

SDTMPUTL ;BAH/DRF - TELEHEALTH UTILITY FUNCTIONS;Aug 4, 2022

 ;;5.3;Scheduling;**821**;Aug 13, 1993;Build 9

 ;

 ; Integration Agreement #7348 - Access to #728.441

 ;

 Q

 ;

CHAR4DSC(CHAR4) ;Return the CHAR4 Description

 ;

 ;Input:  CHAR4 from file #728.44 in external format

 ;

 ;Output: CHAR4 description from #728.441 (IA #7348)

 ;

 N CHAR4IEN

 I $G(CHAR4)="" Q ""

 S CHAR4IEN=$O(^ECX(728.441,"B",CHAR4,"")) I CHAR4IEN="" Q ""

 Q $$GET1^DIQ(728.441,CHAR4IEN,1)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDTMPUTL   479     printed  Apr 09, 2024@22:00:26                                                                                                                                                                                                     Page 2

SDTMPUTL  ;BAH/DRF - TELEHEALTH UTILITY FUNCTIONS;Aug 4, 2022

 +1       ;;5.3;Scheduling;**821**;Aug 13, 1993;Build 9

 +2       ;

 +3       ; Integration Agreement #7348 - Access to #728.441

 +4       ;

 +5        QUIT 

 +6       ;

CHAR4DSC(CHAR4) ;Return the CHAR4 Description

 +1       ;

 +2       ;Input:  CHAR4 from file #728.44 in external format

 +3       ;

 +4       ;Output: CHAR4 description from #728.441 (IA #7348)

 +5       ;

 +6        NEW CHAR4IEN

 +7        IF $GET(CHAR4)=""

               QUIT ""

 +8        SET CHAR4IEN=$ORDER(^ECX(728.441,"B",CHAR4,""))

           IF CHAR4IEN=""

               QUIT ""

 +9        QUIT $$GET1^DIQ(728.441,CHAR4IEN,1)