Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RTM

RTM.m

Go to the documentation of this file.
  1. RTM ;PKE/ISC-ALBANY;Record Maintenance Option ; ; 9/10/90 14:24 ;
  1. ;;v 2.0;Record Tracking;;10/22/91
  1. 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)
  1. D IXALL^DIK
  1. 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
  1. ;
  1. 1 ;;Generate Record Retirement Pull lists
  1. G ^RTSM8
  1. ;
  1. 2 ;;Print Record Retirement Pull Lists
  1. S RTIRE="" D ^RTP3 K RTIRE Q
  1. ;
  1. 3 ;;Designate Non-fillables
  1. G 5^RTP1
  1. ;
  1. 4 ;;Delete a Record
  1. G ^RTDEL
  1. ;
  1. 5 ;;Create a Perpetual Record/Volume
  1. G ^RTDPA1
  1. ;
  1. 6 ;;Charge out/transfer Record Retirement lists
  1. S RTIRE="" D ^RTP4 K RTIRE Q
  1. ;
  1. 7 ;;[not used]
  1. ;