- ECDSXREF ;BIR/MAM,RHK-DSS M Cross References (Old Files) ;18 Apr 95
- ;;2.0; EVENT CAPTURE ;;8 May 96
- INACT ; kill 'AP' x-ref for inactivated code
- S ECK=$P(^ECK(DA,0),"^"),ECLOC=$P(ECK,"-"),ECUNIT=$P(ECK,"-",2),ECCAT=$P(ECK,"-",3),ECPRO=$P(ECK,"-",4)
- K ^ECK("AP",ECLOC,ECUNIT,ECCAT,ECPRO,DA),^ECK("APP",ECLOC,ECUNIT,ECPRO,DA)
- K ECK,ECCAT,ECLOC,ECPRO,ECUNIT
- Q
- ACTIV ; set 'AP' x-ref when re-activated
- Q:$D(ECCH) S ECK=$P(^ECK(DA,0),"^"),ECLOC=$P(ECK,"-"),ECUNIT=$P(ECK,"-",2),ECCAT=$P(ECK,"-",3),ECPRO=$P(ECK,"-",4)
- S ^ECK("AP",ECLOC,ECUNIT,ECCAT,ECPRO,DA)="",^ECK("APP",ECLOC,ECUNIT,ECPRO,DA)=""
- K ECK,ECCAT,ECLOC,ECPRO,ECUNIT
- Q
- AC ; set 'AC' x-ref on CATEGORY (Y/N) field in file 720
- I X=1 S ^ECP("AC",$P(^ECP(DA,0),"^"),DA)=""
- Q
- KILLAC ; kill 'AC' x-ref on CATEGORY (Y/N) field in file 720
- K ^ECP("AC",$P(^ECP(DA,0),"^"),DA)
- Q
- AP ; set 'AP' x-ref on EVENT CODE field in file 720.2
- 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)
- S ^ECK("AP",ECLOC,ECUNIT,ECCAT,ECPRO,DA)="",^ECK("APP",ECLOC,ECUNIT,ECPRO,DA)=""
- K ECLOC,ECUNIT,ECCAT,ECPRO,ECK
- Q
- KILLAP ; kill 'AP' x-ref on EVENT CODE field in file 720.2
- S ECK=$P(^ECK(DA,0),"^",1),ECLOC=$P(ECK,"-",1),ECUNIT=$P(ECK,"-",2),ECCAT=$P(ECK,"-",3),ECPRO=$P(ECK,"-",4)
- K ^ECK("AP",ECLOC,ECUNIT,ECCAT,ECPRO,DA),^ECK("APP",ECLOC,ECUNIT,ECPRO,DA),ECLOC,ECCAT,ECPRO,ECUNIT,ECK
- Q
- ACC ; set 'ACC' x-ref on COST CENTER field in file 49
- S ^DIC(49,"ACC",+X,DA)=""
- Q
- KILLACC ; kill 'ACC' x-ref on COST CENTER field in file 49
- K ^DIC(49,"ACC",+X,DA)
- Q
- AST ; set AST cross reference on .01 field of 720.2
- S ECLOC=$P($P(^ECK(DA,0),"^"),"-"),^ECK("AST",ECLOC,DA)="" K ECLOC Q
- ;
- KAST ; kill AST cross reference on.01 field of 702.2
- S ECLOC=$P($P(^ECK(DA,0),"^"),"-") K ^ECK("AST",ECLOC,DA),ECLOC Q
- ;
- QUIT R !,"Enter ^ to quit or return to continue : ",ECZ:DTIME W ! I '$T!(ECZ["^") S ECQT=1
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECDSXREF 1986 printed Feb 18, 2025@23:23:40 Page 2
- ECDSXREF ;BIR/MAM,RHK-DSS M Cross References (Old Files) ;18 Apr 95
- +1 ;;2.0; EVENT CAPTURE ;;8 May 96
- INACT ; kill 'AP' x-ref for inactivated code
- +1 SET ECK=$PIECE(^ECK(DA,0),"^")
- SET ECLOC=$PIECE(ECK,"-")
- SET ECUNIT=$PIECE(ECK,"-",2)
- SET ECCAT=$PIECE(ECK,"-",3)
- SET ECPRO=$PIECE(ECK,"-",4)
- +2 KILL ^ECK("AP",ECLOC,ECUNIT,ECCAT,ECPRO,DA),^ECK("APP",ECLOC,ECUNIT,ECPRO,DA)
- +3 KILL ECK,ECCAT,ECLOC,ECPRO,ECUNIT
- +4 QUIT
- ACTIV ; set 'AP' x-ref when re-activated
- +1 if $DATA(ECCH)
- QUIT
- SET ECK=$PIECE(^ECK(DA,0),"^")
- SET ECLOC=$PIECE(ECK,"-")
- SET ECUNIT=$PIECE(ECK,"-",2)
- SET ECCAT=$PIECE(ECK,"-",3)
- SET ECPRO=$PIECE(ECK,"-",4)
- +2 SET ^ECK("AP",ECLOC,ECUNIT,ECCAT,ECPRO,DA)=""
- SET ^ECK("APP",ECLOC,ECUNIT,ECPRO,DA)=""
- +3 KILL ECK,ECCAT,ECLOC,ECPRO,ECUNIT
- +4 QUIT
- AC ; set 'AC' x-ref on CATEGORY (Y/N) field in file 720
- +1 IF X=1
- SET ^ECP("AC",$PIECE(^ECP(DA,0),"^"),DA)=""
- +2 QUIT
- KILLAC ; kill 'AC' x-ref on CATEGORY (Y/N) field in file 720
- +1 KILL ^ECP("AC",$PIECE(^ECP(DA,0),"^"),DA)
- +2 QUIT
- AP ; set 'AP' x-ref on EVENT CODE field in file 720.2
- +1 if $DATA(ECCH)
- QUIT
- if $PIECE(^ECK(DA,0),"^",2)
- QUIT
- SET ECK=$PIECE(^ECK(DA,0),"^",1)
- SET ECLOC=$PIECE(ECK,"-",1)
- SET ECUNIT=$PIECE(ECK,"-",2)
- SET ECCAT=$PIECE(ECK,"-",3)
- SET ECPRO=$PIECE(ECK,"-",4)
- +2 SET ^ECK("AP",ECLOC,ECUNIT,ECCAT,ECPRO,DA)=""
- SET ^ECK("APP",ECLOC,ECUNIT,ECPRO,DA)=""
- +3 KILL ECLOC,ECUNIT,ECCAT,ECPRO,ECK
- +4 QUIT
- KILLAP ; kill 'AP' x-ref on EVENT CODE field in file 720.2
- +1 SET ECK=$PIECE(^ECK(DA,0),"^",1)
- SET ECLOC=$PIECE(ECK,"-",1)
- SET ECUNIT=$PIECE(ECK,"-",2)
- SET ECCAT=$PIECE(ECK,"-",3)
- SET ECPRO=$PIECE(ECK,"-",4)
- +2 KILL ^ECK("AP",ECLOC,ECUNIT,ECCAT,ECPRO,DA),^ECK("APP",ECLOC,ECUNIT,ECPRO,DA),ECLOC,ECCAT,ECPRO,ECUNIT,ECK
- +3 QUIT
- ACC ; set 'ACC' x-ref on COST CENTER field in file 49
- +1 SET ^DIC(49,"ACC",+X,DA)=""
- +2 QUIT
- KILLACC ; kill 'ACC' x-ref on COST CENTER field in file 49
- +1 KILL ^DIC(49,"ACC",+X,DA)
- +2 QUIT
- AST ; set AST cross reference on .01 field of 720.2
- +1 SET ECLOC=$PIECE($PIECE(^ECK(DA,0),"^"),"-")
- SET ^ECK("AST",ECLOC,DA)=""
- KILL ECLOC
- QUIT
- +2 ;
- KAST ; kill AST cross reference on.01 field of 702.2
- +1 SET ECLOC=$PIECE($PIECE(^ECK(DA,0),"^"),"-")
- KILL ^ECK("AST",ECLOC,DA),ECLOC
- QUIT
- +2 ;
- QUIT READ !,"Enter ^ to quit or return to continue : ",ECZ:DTIME
- WRITE !
- IF '$TEST!(ECZ["^")
- SET ECQT=1
- +1 QUIT