Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
710 bytes
|
Line | |
---|
1 | PXRMTAXS ; SLC/PKR - Set taxonomy search variables. ;04/07/2005
|
---|
2 | ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
|
---|
3 | ;
|
---|
4 | ;=====================================================
|
---|
5 | SETVAR(TAXARR,ENS,INS,NICD0,NICD9,NCPT,NRCPT,PLS,RAS) ;
|
---|
6 | N ALL,TEMP
|
---|
7 | ;Initialize the taxonomy search variables.
|
---|
8 | S TEMP=$G(TAXARR(0))
|
---|
9 | S NICD0=+$P(TEMP,U,3)
|
---|
10 | S NICD9=+$P(TEMP,U,5)
|
---|
11 | S NCPT=+$P(TEMP,U,7)
|
---|
12 | S NRCPT=+$P(TEMP,U,9)
|
---|
13 | ;Setup the Patient Data Source control variables.
|
---|
14 | S TEMP=$P(TAXARR(811.2,0),U,4)
|
---|
15 | ;The default is to search all locations.
|
---|
16 | S ALL=$S(TEMP="":1,TEMP="ALL":1,1:0)
|
---|
17 | I ALL S (ENS,INS,PLS,RAS)=1 Q
|
---|
18 | S ENS=$S(TEMP["EN":1,1:0)
|
---|
19 | S INS=$S(TEMP["IN":1,1:0)
|
---|
20 | S PLS=$S(TEMP["PL":1,1:0)
|
---|
21 | S RAS=$S(TEMP["RA":1,1:0)
|
---|
22 | Q
|
---|
23 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.