HDISVAP ;ALB/RMO,BPFO/JRM - Application Programmer API(s); 4/23/15@13:25:00 ; 4/23/15 1:25pm
;;1.0;HEALTH DATA & INFORMATICS;**2,14**;Feb 22, 2005;Build 22
;
NTRTMSG(HDISARYF,HDISARY) ;New Term Rapid Turnaround (NTRT) Message
; Input -- HDISARYF Return Text in an Array Flag (Optional- Default 0)
; 1=Yes and 0=No
; Output -- HDISARY If requested, an array containing the NTRT Message is returned otherwise
; the message is displayed on the screen. The Output variable is assumed
; to be Null when the API is invoked.
; Notes -- Use of this supported API is covered by ICR 4638
N HDISLNE,HDISTXT
F HDISLNE=1:1 S HDISTXT=$P($T(MSG+HDISLNE),";;",2) Q:HDISTXT="END" D
. I $G(HDISARYF) D
. . S HDISARY(HDISLNE)=HDISTXT
. ELSE D
. . W !?3,HDISTXT
Q
;
LOSVUID(CODE) ;Convert Lab's Organism Screen set of codes to VUID
; Input: Code - Code representing organism screen
;Output: VUID - VUID for input code
; NULL returned on bad input
; Notes: Use of this supported API is covered by ICR 4801
; : This API is only to be used to determine the VUID for the
; Organism Screen fields that a site may add to the Organism
; multiple (subfile #63.3) in the Microbiology multiple
; (subfile #63.05) of the Lab Data file (#63) via the option
; LRWU7 [Add a new internal name for an antibiotic]
;
N RSLT
S CODE=$G(CODE)
S RSLT=$S(CODE="A":4500665,CODE="N":4500805,CODE="R":4500877,1:"")
Q RSLT
;
LOSCODE(VUID) ;Convert Lab's Organism Screen VUID to set of codes
;Input: VUID - VUID representing organism screen
;Output: Code - Code for input VUID
; NULL returned on bad input
; Notes: Use of this supported API is covered by ICR 4801
; : This API is only to be used to determine the code for the
; Organism Screen fields that a site may add to the Organism
; multiple (subfile #63.3) in the Microbiology multiple
; (subfile #63.05) of the Lab Data file (#63) via the option
; LRWU7 [Add a new internal name for an antibiotic]
;
N RSLT
S VUID=$G(VUID)
S RSLT=$S(VUID=4500665:"A",VUID=4500805:"N",VUID=4500877:"R",1:"")
Q RSLT
;
MFSEXIT ;Invoke code to update file implementation status
;from MFS event driver protocol exit action
; Input -- ^TMP("XUMF EVENT",$J
; Output -- None
N HDISERFN,HDISFILN
;Check for an error in MFS, if error get file number being
;processed at time of error
I $D(^TMP("XUMF EVENT",$J,"ERROR",1)) S HDISERFN=+$P(^(1),"^",1)
;Loop through MFS event array,update status
S HDISFILN=0
F S HDISFILN=$O(^TMP("XUMF EVENT",$J,HDISFILN)) Q:'HDISFILN D
. I HDISFILN'=$G(HDISERFN) D MFSUP^HDISVF09(HDISFILN,0)
;Check for error file number, update status
I $G(HDISERFN)>0 D MFSUP^HDISVF09(HDISERFN,1)
Q
;
MSG ;NTRT message text
;;
;;In support of national standardization of the contents of this file,
;;local site addition and modification functions are no longer available.
;;If you wish to contact Standards & Terminology Services (STS), request
;;a new term, or modify an existing term, please refer to the New
;;Term Rapid Turnaround (NTRT) web site located at
;;http://vista.domain.ext/ntrt/.
;;
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHDISVAP 3297 printed Oct 16, 2024@17:57:25 Page 2
HDISVAP ;ALB/RMO,BPFO/JRM - Application Programmer API(s); 4/23/15@13:25:00 ; 4/23/15 1:25pm
+1 ;;1.0;HEALTH DATA & INFORMATICS;**2,14**;Feb 22, 2005;Build 22
+2 ;
NTRTMSG(HDISARYF,HDISARY) ;New Term Rapid Turnaround (NTRT) Message
+1 ; Input -- HDISARYF Return Text in an Array Flag (Optional- Default 0)
+2 ; 1=Yes and 0=No
+3 ; Output -- HDISARY If requested, an array containing the NTRT Message is returned otherwise
+4 ; the message is displayed on the screen. The Output variable is assumed
+5 ; to be Null when the API is invoked.
+6 ; Notes -- Use of this supported API is covered by ICR 4638
+7 NEW HDISLNE,HDISTXT
+8 FOR HDISLNE=1:1
SET HDISTXT=$PIECE($TEXT(MSG+HDISLNE),";;",2)
if HDISTXT="END"
QUIT
Begin DoDot:1
+9 IF $GET(HDISARYF)
Begin DoDot:2
+10 SET HDISARY(HDISLNE)=HDISTXT
End DoDot:2
+11 IF '$TEST
Begin DoDot:2
+12 WRITE !?3,HDISTXT
End DoDot:2
End DoDot:1
+13 QUIT
+14 ;
LOSVUID(CODE) ;Convert Lab's Organism Screen set of codes to VUID
+1 ; Input: Code - Code representing organism screen
+2 ;Output: VUID - VUID for input code
+3 ; NULL returned on bad input
+4 ; Notes: Use of this supported API is covered by ICR 4801
+5 ; : This API is only to be used to determine the VUID for the
+6 ; Organism Screen fields that a site may add to the Organism
+7 ; multiple (subfile #63.3) in the Microbiology multiple
+8 ; (subfile #63.05) of the Lab Data file (#63) via the option
+9 ; LRWU7 [Add a new internal name for an antibiotic]
+10 ;
+11 NEW RSLT
+12 SET CODE=$GET(CODE)
+13 SET RSLT=$SELECT(CODE="A":4500665,CODE="N":4500805,CODE="R":4500877,1:"")
+14 QUIT RSLT
+15 ;
LOSCODE(VUID) ;Convert Lab's Organism Screen VUID to set of codes
+1 ;Input: VUID - VUID representing organism screen
+2 ;Output: Code - Code for input VUID
+3 ; NULL returned on bad input
+4 ; Notes: Use of this supported API is covered by ICR 4801
+5 ; : This API is only to be used to determine the code for the
+6 ; Organism Screen fields that a site may add to the Organism
+7 ; multiple (subfile #63.3) in the Microbiology multiple
+8 ; (subfile #63.05) of the Lab Data file (#63) via the option
+9 ; LRWU7 [Add a new internal name for an antibiotic]
+10 ;
+11 NEW RSLT
+12 SET VUID=$GET(VUID)
+13 SET RSLT=$SELECT(VUID=4500665:"A",VUID=4500805:"N",VUID=4500877:"R",1:"")
+14 QUIT RSLT
+15 ;
MFSEXIT ;Invoke code to update file implementation status
+1 ;from MFS event driver protocol exit action
+2 ; Input -- ^TMP("XUMF EVENT",$J
+3 ; Output -- None
+4 NEW HDISERFN,HDISFILN
+5 ;Check for an error in MFS, if error get file number being
+6 ;processed at time of error
+7 IF $DATA(^TMP("XUMF EVENT",$JOB,"ERROR",1))
SET HDISERFN=+$PIECE(^(1),"^",1)
+8 ;Loop through MFS event array,update status
+9 SET HDISFILN=0
+10 FOR
SET HDISFILN=$ORDER(^TMP("XUMF EVENT",$JOB,HDISFILN))
if 'HDISFILN
QUIT
Begin DoDot:1
+11 IF HDISFILN'=$GET(HDISERFN)
DO MFSUP^HDISVF09(HDISFILN,0)
End DoDot:1
+12 ;Check for error file number, update status
+13 IF $GET(HDISERFN)>0
DO MFSUP^HDISVF09(HDISERFN,1)
+14 QUIT
+15 ;
MSG ;NTRT message text
+1 ;;
+2 ;;In support of national standardization of the contents of this file,
+3 ;;local site addition and modification functions are no longer available.
+4 ;;If you wish to contact Standards & Terminology Services (STS), request
+5 ;;a new term, or modify an existing term, please refer to the New
+6 ;;Term Rapid Turnaround (NTRT) web site located at
+7 ;;http://vista.domain.ext/ntrt/.
+8 ;;
+9 ;;END
