- DICE3 ;SFISC/GFT-TRIGGER LOGIC ;8/14/89 12:37
- ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
- ;;Per VA Directive 6402, this routine should not be modified.
- ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
- ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
- ;;Licensed under the terms of the Apache License, Version 2.0.
- ;
- G DIU:DIK=1
- ;
- DEL ;
- G DIU:'DLAY
- W !!,$C(7),"ARE YOU SURE YOU WANT TO 'ADD A NEW ENTRY' WHEN THIS "_$P("SET^KILL",U,DIK)_" LOGIC OCCURS"
- S %=2 D YN^DICN W ! I %<1 S X=U Q
- G DIU:%=1 W "..OK, LET ME THINK A SECOND...",! S X=DCNEW,DICOMP="",DA="^DD("_DI_","_DL_",1,"_DQ_","_9 D DICOMP^DICE1
- S DFLD=X F %=9.2:.1 Q:'$D(X(%)) S ^UTILITY("DICE",$J,90+%)=X(%)
- DIU S Y=DFLD_" S DIU=X K Y",DA="^DD("_DI_","_DL_",1,"_DQ_","
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDICE3 787 printed Feb 19, 2025@00:12:11 Page 2
- DICE3 ;SFISC/GFT-TRIGGER LOGIC ;8/14/89 12:37
- +1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
- +4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
- +5 ;;Licensed under the terms of the Apache License, Version 2.0.
- +6 ;
- +7 if DIK=1
- GOTO DIU
- +8 ;
- DEL ;
- +1 if 'DLAY
- GOTO DIU
- +2 WRITE !!,$CHAR(7),"ARE YOU SURE YOU WANT TO 'ADD A NEW ENTRY' WHEN THIS "_$PIECE("SET^KILL",U,DIK)_" LOGIC OCCURS"
- +3 SET %=2
- DO YN^DICN
- WRITE !
- IF %<1
- SET X=U
- QUIT
- +4 if %=1
- GOTO DIU
- WRITE "..OK, LET ME THINK A SECOND...",!
- SET X=DCNEW
- SET DICOMP=""
- SET DA="^DD("_DI_","_DL_",1,"_DQ_","_9
- DO DICOMP^DICE1
- +5 SET DFLD=X
- FOR %=9.2:.1
- if '$DATA(X(%))
- QUIT
- SET ^UTILITY("DICE",$JOB,90+%)=X(%)
- DIU SET Y=DFLD_" S DIU=X K Y"
- SET DA="^DD("_DI_","_DL_",1,"_DQ_","
