source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRUC.m@ 1006

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

initial load of WorldVistAEHR

File size: 823 bytes
Line 
1LRUC ;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
7GET 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
15EN 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
Note: See TracBrowser for help on using the repository browser.