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

ASUP42T2.m

Go to the documentation of this file.
  1. ASUP42T2 ; 06/05/2000 2:49 PM ]
  1. ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
  1. ;
  1. ;****************************************************************
  1. ;***** This subroutine will reactivate the following options *******
  1. ;***** ASU03JCPBO,ASU527SDRP,ASU5270DRP,ASU5271DRP,ASU5173DRP ***
  1. ;************ ASU826PPIB, ASU024TRCT & ASU036TISS ***************
  1. ;****************************************************************
  1. FIXOPTNS ;
  1. S DIE="^DIC(19," ;Set up option file
  1. S ASUMENU=0
  1. F S ASUMENU=$O(^DIC(19,ASUMENU)) S TEMP=^DIC(19,ASUMENU,0) Q:'ASUMENU D
  1. .I ($P(TEMP,U)="ASU024TRCT")!($P(TEMP,U)="ASU03JCPBO")!($P(TEMP,U)="ASU5270DRP")!($P(TEMP,U)="ASU527SDRP")!($P(TEMP,U)="ASU5271DRP")!($P(TEMP,U)="ASU5173DRP")!($P(TEMP,U)="ASU826PPIB")!($P(TEMP,U)="ASU034TISS")!($P(TEMP,U)="ASU036TISS") D
  1. ..I $P(TEMP,U,3)'="" D
  1. ...S DA=ASUMENU
  1. ...S DR="2///@"
  1. ...D ^DIE
  1. FIXHIST ;
  1. ;***************************************************************
  1. ;*** This subroutine will delete and reindex the corrupt********
  1. ;*********************** ASUH records. *************************
  1. ;***************************************************************
  1. ;
  1. S ASUHCRPT=0
  1. F S ASUHCRPT=$O(^ASUH(ASUHCRPT)) Q:'ASUHCRPT D
  1. .I ASUHCRPT["." S DA=ASUHCRPT,DIK="^ASUH(" D ^DIK