source: WorldVistAEHR/trunk/r/RECORD_TRACKING-RT/RTM.m@ 789

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

initial load of WorldVistAEHR

File size: 779 bytes
Line 
1RTM ;PKE/ISC-ALBANY;Record Maintenance Option ; ; 9/10/90 14:24 ;
2 ;;v 2.0;Record Tracking;;10/22/91
3 D DT^DICRW S X=$T(+1),DIK="^DOPT("""_$P(X," ;",1)_"""," G:$D(^DOPT($P(X," ;"),10)) A S ^DOPT($P(X," ;"),0)=$P(X,";",3)_"^1N^" F I=1:1 S Y=$T(@I) Q:Y="" S ^DOPT($P(X," ;"),I,0)=$P(Y,";",3,99)
4 D IXALL^DIK
5A D OVERALL^RTPSET Q:$D(XQUIT) W !! S DIC="^DOPT("""_$P($T(+1)," ;")_""",",DIC(0)="IQEAMZ" D ^DIC Q:Y<0 D @+Y G A
6 ;
71 ;;Generate Record Retirement Pull lists
8 G ^RTSM8
9 ;
102 ;;Print Record Retirement Pull Lists
11 S RTIRE="" D ^RTP3 K RTIRE Q
12 ;
133 ;;Designate Non-fillables
14 G 5^RTP1
15 ;
164 ;;Delete a Record
17 G ^RTDEL
18 ;
195 ;;Create a Perpetual Record/Volume
20 G ^RTDPA1
21 ;
226 ;;Charge out/transfer Record Retirement lists
23 S RTIRE="" D ^RTP4 K RTIRE Q
24 ;
257 ;;[not used]
26 ;
Note: See TracBrowser for help on using the repository browser.