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

ECDSXREF.m

Go to the documentation of this file.
  1. ECDSXREF ;BIR/MAM,RHK-DSS M Cross References (Old Files) ;18 Apr 95
  1. ;;2.0; EVENT CAPTURE ;;8 May 96
  1. INACT ; kill 'AP' x-ref for inactivated code
  1. S ECK=$P(^ECK(DA,0),"^"),ECLOC=$P(ECK,"-"),ECUNIT=$P(ECK,"-",2),ECCAT=$P(ECK,"-",3),ECPRO=$P(ECK,"-",4)
  1. K ^ECK("AP",ECLOC,ECUNIT,ECCAT,ECPRO,DA),^ECK("APP",ECLOC,ECUNIT,ECPRO,DA)
  1. K ECK,ECCAT,ECLOC,ECPRO,ECUNIT
  1. Q
  1. ACTIV ; set 'AP' x-ref when re-activated
  1. Q:$D(ECCH) S ECK=$P(^ECK(DA,0),"^"),ECLOC=$P(ECK,"-"),ECUNIT=$P(ECK,"-",2),ECCAT=$P(ECK,"-",3),ECPRO=$P(ECK,"-",4)
  1. S ^ECK("AP",ECLOC,ECUNIT,ECCAT,ECPRO,DA)="",^ECK("APP",ECLOC,ECUNIT,ECPRO,DA)=""
  1. K ECK,ECCAT,ECLOC,ECPRO,ECUNIT
  1. Q
  1. AC ; set 'AC' x-ref on CATEGORY (Y/N) field in file 720
  1. I X=1 S ^ECP("AC",$P(^ECP(DA,0),"^"),DA)=""
  1. Q
  1. KILLAC ; kill 'AC' x-ref on CATEGORY (Y/N) field in file 720
  1. K ^ECP("AC",$P(^ECP(DA,0),"^"),DA)
  1. Q
  1. AP ; set 'AP' x-ref on EVENT CODE field in file 720.2
  1. Q:$D(ECCH) Q:$P(^ECK(DA,0),"^",2) S ECK=$P(^ECK(DA,0),"^",1),ECLOC=$P(ECK,"-",1),ECUNIT=$P(ECK,"-",2),ECCAT=$P(ECK,"-",3),ECPRO=$P(ECK,"-",4)
  1. S ^ECK("AP",ECLOC,ECUNIT,ECCAT,ECPRO,DA)="",^ECK("APP",ECLOC,ECUNIT,ECPRO,DA)=""
  1. K ECLOC,ECUNIT,ECCAT,ECPRO,ECK
  1. Q
  1. KILLAP ; kill 'AP' x-ref on EVENT CODE field in file 720.2
  1. S ECK=$P(^ECK(DA,0),"^",1),ECLOC=$P(ECK,"-",1),ECUNIT=$P(ECK,"-",2),ECCAT=$P(ECK,"-",3),ECPRO=$P(ECK,"-",4)
  1. K ^ECK("AP",ECLOC,ECUNIT,ECCAT,ECPRO,DA),^ECK("APP",ECLOC,ECUNIT,ECPRO,DA),ECLOC,ECCAT,ECPRO,ECUNIT,ECK
  1. Q
  1. ACC ; set 'ACC' x-ref on COST CENTER field in file 49
  1. S ^DIC(49,"ACC",+X,DA)=""
  1. Q
  1. KILLACC ; kill 'ACC' x-ref on COST CENTER field in file 49
  1. K ^DIC(49,"ACC",+X,DA)
  1. Q
  1. AST ; set AST cross reference on .01 field of 720.2
  1. S ECLOC=$P($P(^ECK(DA,0),"^"),"-"),^ECK("AST",ECLOC,DA)="" K ECLOC Q
  1. ;
  1. KAST ; kill AST cross reference on.01 field of 702.2
  1. S ECLOC=$P($P(^ECK(DA,0),"^"),"-") K ^ECK("AST",ECLOC,DA),ECLOC Q
  1. ;
  1. QUIT R !,"Enter ^ to quit or return to continue : ",ECZ:DTIME W ! I '$T!(ECZ["^") S ECQT=1
  1. Q