source: WorldVistAEHR/trunk/r/HEALTH_DATA_AND_INFORMATICS-HDI/HDISVAP.m@ 1766

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

initial load of WorldVistAEHR

File size: 2.4 KB
Line 
1HDISVAP ;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 ;
4NTRTMSG(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 ;
18LOSVUID(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 ;
33LOSCODE(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 ;
48MSG ;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
Note: See TracBrowser for help on using the repository browser.