- ATSMNG ;TUCSON/DG;CREATE, MODIFY SEARCH TEMPLATES [ 10/25/91 1:47 PM ]
- ;;2.5;SEARCH TEMPLATE COMPARISON;;OCT 25, 1991
- ;
- CREATE ; - EP - SELECT FILE FROM WHICH TO GENERATE SEARCH TEMPLATE
- S ATSNOASK="" ;SETS FLAG SO THAT ADD DOESN`T ASK SEARCH TEMPLATE NAME
- S DIC="^DIC(",DIC(0)="AEMQ",DIC("A")="Select File: " D ^DIC K DIC
- I Y<0 D EOJ Q
- E S ATSFLNUM=+Y
- D NAME D:'$D(ATSTP) ADD D EOJ
- Q
- ;
- NAME ;CREATE SEARCH TEMPLATE
- R !,"Enter Name Of New Search Template: ",X:300 S:'$T X="^"
- I "^"[X S ATSTP="" Q
- I $E(X)="?" G NAME
- S DIC="^DIBT(",DIC(0)="EQL",DIC("DR")="[ATSCREATE]",DLAYGO=.401,DIADD=1 D ^DIC K DIC,DLAYGO,DR,DIE,DIADD
- I Y<0 S ATSTP=""
- E S ATSTMP=+Y
- Q
- ;
- ADD ; - EP - ADD ENTRY TO A SEARCH TEMPLATE
- 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
- 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)=""
- D:'$D(ATSNOASK) EOJ
- Q
- ;
- DELETE ; - EP - DELETE ENTRY FROM A SEARCH TEMPLATE
- 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
- 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)
- D EOJ
- Q
- ;
- EOJ ;
- K ATSTMP,ATSNOASK,ATSTP,ATSFLNUM,ATSL
- Q
- ;
- ATSMNG ;TUCSON/DG;CREATE, MODIFY SEARCH TEMPLATES [ 10/25/91 1:47 PM ]
- +1 ;;2.5;SEARCH TEMPLATE COMPARISON;;OCT 25, 1991
- +2 ;
- CREATE ; - EP - SELECT FILE FROM WHICH TO GENERATE SEARCH TEMPLATE
- +1 ;SETS FLAG SO THAT ADD DOESN`T ASK SEARCH TEMPLATE NAME
- SET ATSNOASK=""
- +2 SET DIC="^DIC("
- SET DIC(0)="AEMQ"
- SET DIC("A")="Select File: "
- DO ^DIC
- KILL DIC
- +3 IF Y<0
- DO EOJ
- QUIT
- +4 IF '$TEST
- SET ATSFLNUM=+Y
- +5 DO NAME
- IF '$DATA(ATSTP)
- DO ADD
- DO EOJ
- +6 QUIT
- +7 ;
- NAME ;CREATE SEARCH TEMPLATE
- +1 READ !,"Enter Name Of New Search Template: ",X:300
- IF '$TEST
- SET X="^"
- +2 IF "^"[X
- SET ATSTP=""
- QUIT
- +3 IF $EXTRACT(X)="?"
- GOTO NAME
- +4 SET DIC="^DIBT("
- SET DIC(0)="EQL"
- SET DIC("DR")="[ATSCREATE]"
- SET DLAYGO=.401
- SET DIADD=1
- DO ^DIC
- KILL DIC,DLAYGO,DR,DIE,DIADD
- +5 IF Y<0
- SET ATSTP=""
- +6 IF '$TEST
- SET ATSTMP=+Y
- +7 QUIT
- +8 ;
- ADD ; - EP - ADD ENTRY TO A SEARCH TEMPLATE
- +1 IF '$DATA(ATSNOASK)
- SET DIC="^DIBT("
- SET DIC(0)="AEMQ"
- SET DIC("S")="I $P(^(0),""^"",5)=DUZ,($D(^(1))!('$D(^(2))))"
- SET DIC("A")="Select SEARCH TEMPLATE: "
- DO ^DIC
- KILL DIC
- IF Y<0
- QUIT
- SET ATSTMP=+Y
- +2 FOR ATSL=0:0
- SET DIC=$PIECE(^DIBT(ATSTMP,0),"^",4)
- SET DIC(0)="AEMQ"
- DO ^DIC
- KILL DIC
- IF Y<0
- QUIT
- WRITE @$SELECT($DATA(^DIBT(ATSTMP,1,+Y)):"!,*7,""Entry already in search template!"",!",1:"!,""Entered!"",!")
- SET ^DIBT(ATSTMP,1,+Y)=""
- +3 IF '$DATA(ATSNOASK)
- DO EOJ
- +4 QUIT
- +5 ;
- DELETE ; - EP - DELETE ENTRY FROM A SEARCH TEMPLATE
- +1 SET DIC="^DIBT("
- SET DIC(0)="AEMQ"
- SET DIC("S")="I $P(^(0),""^"",5)=DUZ,($D(^(1))!('$D(^(2))))"
- SET DIC("A")="Select SEARCH TEMPLATE: "
- DO ^DIC
- KILL DIC
- IF Y<0
- QUIT
- SET ATSTMP=+Y
- +2 FOR ATSL=0:0
- SET DIC=$PIECE(^DIBT(ATSTMP,0),"^",4)
- SET DIC(0)="AEMQ"
- DO ^DIC
- KILL DIC
- IF Y<0
- QUIT
- WRITE @$SELECT('$DATA(^DIBT(ATSTMP,1,+Y)):"!,*7,""Entry does not exist in search template!"",!",1:"!,""Deleted!"",!")
- KILL ^DIBT(ATSTMP,1,+Y)
- +3 DO EOJ
- +4 QUIT
- +5 ;
- EOJ ;
- +1 KILL ATSTMP,ATSNOASK,ATSTP,ATSFLNUM,ATSL
- +2 QUIT
- +3 ;