| 1 | HDISVAP ;ALB/RMO,BPFO/JRM - Application Programmer API(s); 2/11/05@9:10:00
|
|---|
| 2 | ;;1.0;HEALTH DATA & INFORMATICS;**2**;Feb 22, 2005
|
|---|
| 3 | ;
|
|---|
| 4 | NTRTMSG(HDISARYF,HDISARY) ;New Term Rapid Turnaround (NTRT) Message
|
|---|
| 5 | ; Input -- HDISARYF Return Text in an Array Flag (Optional- Default 0)
|
|---|
| 6 | ; 1=Yes and 0=No
|
|---|
| 7 | ; Output -- HDISARY If requested, an array containing the NTRT Message is returned otherwise
|
|---|
| 8 | ; the message is diplayed on the screen. The Output variable is assumed
|
|---|
| 9 | ; to be Null when the API is invoked.
|
|---|
| 10 | N HDISLNE,HDISTXT
|
|---|
| 11 | F HDISLNE=1:1 S HDISTXT=$P($T(MSG+HDISLNE),";;",2) Q:HDISTXT="END" D
|
|---|
| 12 | . I $G(HDISARYF) D
|
|---|
| 13 | . . S HDISARY(HDISLNE)=HDISTXT
|
|---|
| 14 | . ELSE D
|
|---|
| 15 | . . W !?3,HDISTXT
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | LOSVUID(CODE) ;Convert Lab's Organism Screen set of codes to VUID
|
|---|
| 19 | ; Input: Code - Code representing organism screen
|
|---|
| 20 | ;Output: VUID - VUID for input code
|
|---|
| 21 | ; NULL returned on bad input
|
|---|
| 22 | ; Notes: This API is only to be used to determine the VUID for the
|
|---|
| 23 | ; Organism Screen fields that a site may add to the Organism
|
|---|
| 24 | ; multiple (subfile #63.3) in the Microbiology multiple
|
|---|
| 25 | ; (subfile #63.05) of the Lab Data file (#63) via the option
|
|---|
| 26 | ; LRWU7 [Add a new internal name for an antibiotic]
|
|---|
| 27 | ;
|
|---|
| 28 | N RSLT
|
|---|
| 29 | S CODE=$G(CODE)
|
|---|
| 30 | S RSLT=$S(CODE="A":4500665,CODE="N":4500805,CODE="R":4500877,1:"")
|
|---|
| 31 | Q RSLT
|
|---|
| 32 | ;
|
|---|
| 33 | LOSCODE(VUID) ;Convert Lab's Organism Screen VUID to set of codes
|
|---|
| 34 | ;Input: VUID - VUID representing organism screen
|
|---|
| 35 | ;Output: Code - Code for input VUID
|
|---|
| 36 | ; NULL returned on bad input
|
|---|
| 37 | ; Notes: This API is only to be used to determine the code for the
|
|---|
| 38 | ; Organism Screen fields that a site may add to the Organism
|
|---|
| 39 | ; multiple (subfile #63.3) in the Microbiology multiple
|
|---|
| 40 | ; (subfile #63.05) of the Lab Data file (#63) via the option
|
|---|
| 41 | ; LRWU7 [Add a new internal name for an antibiotic]
|
|---|
| 42 | ;
|
|---|
| 43 | N RSLT
|
|---|
| 44 | S VUID=$G(VUID)
|
|---|
| 45 | S RSLT=$S(VUID=4500665:"A",VUID=4500805:"N",VUID=4500877:"R",1:"")
|
|---|
| 46 | Q RSLT
|
|---|
| 47 | ;
|
|---|
| 48 | MSG ;NTRT message text
|
|---|
| 49 | ;;
|
|---|
| 50 | ;;In support of national standardization of the contents of this file,
|
|---|
| 51 | ;;local site addition and modification functions are no longer available.
|
|---|
| 52 | ;;If you wish to request a new term or modify an existing term, please
|
|---|
| 53 | ;;refer to the New Term Rapid Turnaround (NTRT) web site located at
|
|---|
| 54 | ;;http://vista.med.va.gov/ntrt/. If you have any questions regarding this
|
|---|
| 55 | ;;new term request process, please contact the ERT NTRT Coordinator
|
|---|
| 56 | ;;via e-mail at VHA OI SDD HDS NTRT.
|
|---|
| 57 | ;;
|
|---|
| 58 | ;;END
|
|---|
