source: WorldVistAEHR/trunk/r/RECORD_TRACKING-RT/RTLDIV.m@ 1141

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

initial load of WorldVistAEHR

File size: 781 bytes
Line 
1RTLDIV ;ISC-ALBANY/pke-look up 40.8 for select label print; 3/1/88 10:38 AM ;
2 ;;v 2.0;Record Tracking;;10/22/91
3 ; returns RTLDIV="^pt^pt^pt^"
4 S:'$D(DTIME) DTIME=300
5 S N=0 D LIST,ASK G Q
6NAM S N=1 D LIST,ASK
7Q K N,Z,I,RTS,RTY,RTRD,RTC,RTSEL,X Q
8 ;
9LIST S Z=0 F I=1:1 S Z=$O(^DG(40.8,"B",Z)) Q:Z="" S RTS(I)=Z_"^"_$O(^DG(40.8,"B",Z,0))
10 I I=1 W !,"No Divisions Defined" G Q
11 E W !,?7,"Selecting... Choose to Print by "_$S('N:"Terminal Digits for",N:"Name of patient for",1:"")
12 S RTS(I)="Patients with no Registration^"
13 S J=I F I=1:1:J W !,?10,I,?31,$P(RTS(I),"^")
14 Q
15ASK S RTRD("S")="",RTSEL="S",RTRD(0)="",(RTCXX,RTC)=J
16 S RTRD("A")="Select Medical Center Division(s): "
17 D SEL^RTRD
18 I X S RTLDIV="^" F Z=0:0 S Z=$O(RTY(Z)) Q:'Z S RTLDIV=RTLDIV_$P(RTY(Z),"^",2)_"^"
19 Q
Note: See TracBrowser for help on using the repository browser.