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

ATSMNG.m

Go to the documentation of this file.
  1. ATSMNG ;TUCSON/DG;CREATE, MODIFY SEARCH TEMPLATES [ 10/25/91 1:47 PM ]
  1. ;;2.5;SEARCH TEMPLATE COMPARISON;;OCT 25, 1991
  1. ;
  1. CREATE ; - EP - SELECT FILE FROM WHICH TO GENERATE SEARCH TEMPLATE
  1. S ATSNOASK="" ;SETS FLAG SO THAT ADD DOESN`T ASK SEARCH TEMPLATE NAME
  1. S DIC="^DIC(",DIC(0)="AEMQ",DIC("A")="Select File: " D ^DIC K DIC
  1. I Y<0 D EOJ Q
  1. E S ATSFLNUM=+Y
  1. D NAME D:'$D(ATSTP) ADD D EOJ
  1. Q
  1. ;
  1. NAME ;CREATE SEARCH TEMPLATE
  1. R !,"Enter Name Of New Search Template: ",X:300 S:'$T X="^"
  1. I "^"[X S ATSTP="" Q
  1. I $E(X)="?" G NAME
  1. S DIC="^DIBT(",DIC(0)="EQL",DIC("DR")="[ATSCREATE]",DLAYGO=.401,DIADD=1 D ^DIC K DIC,DLAYGO,DR,DIE,DIADD
  1. I Y<0 S ATSTP=""
  1. E S ATSTMP=+Y
  1. Q
  1. ;
  1. ADD ; - EP - ADD ENTRY TO A SEARCH TEMPLATE
  1. I '$D(ATSNOASK) S DIC="^DIBT(",DIC(0)="AEMQ",DIC("S")="I $P(^(0),""^"",5)=DUZ,($D(^(1))!('$D(^(2))))",DIC("A")="Select SEARCH TEMPLATE: " D ^DIC K DIC Q:Y<0 S ATSTMP=+Y
  1. F ATSL=0:0 S DIC=$P(^DIBT(ATSTMP,0),"^",4),DIC(0)="AEMQ" D ^DIC K DIC Q:Y<0 W @$S($D(^DIBT(ATSTMP,1,+Y)):"!,*7,""Entry already in search template!"",!",1:"!,""Entered!"",!") S ^DIBT(ATSTMP,1,+Y)=""
  1. D:'$D(ATSNOASK) EOJ
  1. Q
  1. ;
  1. DELETE ; - EP - DELETE ENTRY FROM A SEARCH TEMPLATE
  1. S DIC="^DIBT(",DIC(0)="AEMQ",DIC("S")="I $P(^(0),""^"",5)=DUZ,($D(^(1))!('$D(^(2))))",DIC("A")="Select SEARCH TEMPLATE: " D ^DIC K DIC Q:Y<0 S ATSTMP=+Y
  1. F ATSL=0:0 S DIC=$P(^DIBT(ATSTMP,0),"^",4),DIC(0)="AEMQ" D ^DIC K DIC Q:Y<0 W @$S('$D(^DIBT(ATSTMP,1,+Y)):"!,*7,""Entry does not exist in search template!"",!",1:"!,""Deleted!"",!") K ^DIBT(ATSTMP,1,+Y)
  1. D EOJ
  1. Q
  1. ;
  1. EOJ ;
  1. K ATSTMP,ATSNOASK,ATSTP,ATSFLNUM,ATSL
  1. Q
  1. ;