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 Oct 16, 2024@18:46:30 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_","
