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

RTNQ.m

Go to the documentation of this file.
  1. RTNQ ;MJK/TROY ISC;Inquiry Utility Option; ; 3/20/87 11:09 AM ;
  1. ;;v 2.0;Record Tracking;;10/22/91
  1. D DT^DICRW S X=$T(+1),DIK="^DOPT("""_$P(X," ;",1)_""","
  1. G:$D(^DOPT($P(X," ;"),4)) 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)
  1. W !! S DIC="^DOPT("""_$P($T(+1)," ;")_""",",DIC(0)="IQEAM" D ^DIC Q:Y<0 D @+Y G A
  1. ;
  1. 1 ;;Record Inquiry
  1. G ^RTNQ2
  1. ;
  1. 2 ;;Short Inquiry
  1. I '$D(RTAPL) D APL2^RTPSET D NEXT2:$D(RTAPL) K RTAPL,RTSYS Q
  1. NEXT2 S RTA=+RTAPL D ASK^RTB K RTA I '$D(RTESC) G NEXT2:Y<0 S RTE=X D SHORT G NEXT2
  1. K RTE,RTESC,C,I,Y
  1. K %H,%I,DIC,DIY,N,POP,X,X1 Q
  1. SHORT S RTINACFL="",RTDC("S")="I $P(^(0),U,4)="_+RTAPL D ^RTUTL2 K RTINACFL,RT1,RTC,RTDC Q
  1. ;
  1. 3 ;;Trace Movement History of Record
  1. G ^RTNQ1
  1. ;
  1. 4 ;;Combination Data Trace
  1. G ^RTNQ3
  1. ;
  1. 5 ;;Expanded Inquiry
  1. G ^RTNQ4