| 1 | LRUC ;DALISC/CYM GET LOCATIONS BY DIVISION ; 9/13/1999
|
|---|
| 2 | ;;5.2;LAB SERVICE;**72,247**;Sep 27, 1994
|
|---|
| 3 | ; Called from input transform of LOCATION field (#65.03,.04)
|
|---|
| 4 | S DIC="^SC(",DIC(0)="EQMZ",DIC("S")="I '$P(^(0),U,15)!(DUZ(2)=+$$SITE^VASITE(DT,+$P(^(0),U,15)))"
|
|---|
| 5 | D ^DIC K DIC
|
|---|
| 6 | I Y>0 S X=$P(Y,U,2) Q
|
|---|
| 7 | GET D EN^DDIOL("You must choose a location","","!,?5,$C(7)")
|
|---|
| 8 | D EN^DDIOL("Do you want to see the entire HOSPITAL LOCATION File?","","!,?3")
|
|---|
| 9 | S %=1 D YN^LRU I %=1 D
|
|---|
| 10 | . S DIC="^SC(",DIC(0)="AEQMZ",DIC("S")="I '$P(^(0),U,15)!(DUZ(2)=+$$SITE^VASITE(DT,+$P(^(0),U,15)))"
|
|---|
| 11 | . D ^DIC K DIC
|
|---|
| 12 | I Y=-1 K X Q
|
|---|
| 13 | I Y>0 S X=$P(Y,U,2) Q
|
|---|
| 14 | Q
|
|---|
| 15 | EN D EN^DDIOL("Please choose a location within your division","","!,?3,$C(7)")
|
|---|
| 16 | D EN^DDIOL("Type in at least two characters of your choice","","!,?3")
|
|---|
| 17 | D EN^DDIOL(" OR type in ^ to exit","","!,?5")
|
|---|
| 18 | Q
|
|---|
