|
Last change
on this file since 794 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
