|
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 | |
|---|
| 1 | RTM ;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
|
|---|
| 5 | A 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 | ;
|
|---|
| 7 | 1 ;;Generate Record Retirement Pull lists
|
|---|
| 8 | G ^RTSM8
|
|---|
| 9 | ;
|
|---|
| 10 | 2 ;;Print Record Retirement Pull Lists
|
|---|
| 11 | S RTIRE="" D ^RTP3 K RTIRE Q
|
|---|
| 12 | ;
|
|---|
| 13 | 3 ;;Designate Non-fillables
|
|---|
| 14 | G 5^RTP1
|
|---|
| 15 | ;
|
|---|
| 16 | 4 ;;Delete a Record
|
|---|
| 17 | G ^RTDEL
|
|---|
| 18 | ;
|
|---|
| 19 | 5 ;;Create a Perpetual Record/Volume
|
|---|
| 20 | G ^RTDPA1
|
|---|
| 21 | ;
|
|---|
| 22 | 6 ;;Charge out/transfer Record Retirement lists
|
|---|
| 23 | S RTIRE="" D ^RTP4 K RTIRE Q
|
|---|
| 24 | ;
|
|---|
| 25 | 7 ;;[not used]
|
|---|
| 26 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
