SROTRIG ;B'HAM ISC/MAM - TRIGGERS FOR CONCURRENT CASES ; 21 AUG 1990
;;3.0; Surgery ;;24 Jun 93
I '$D(^SRF(DA,"CON")) Q
S SRCON=$P(^SRF(DA,"CON"),"^") I 'SRCON Q
K DIV S (DIV,Y(0))=X,(D0,DIV(0))=DA
S Y(1)=^SRF(D0,0),X=$P(Y(1),"^",3),DIU=X K Y
S Y(1)=";"_$P(^DD(130,.011,0),"^",3),X=$P($P(Y(1),";"_DIV_":",2),";")
S DIH=130,DIG=.03
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROTRIG 346 printed Nov 22, 2024@17:56:17 Page 2
SROTRIG ;B'HAM ISC/MAM - TRIGGERS FOR CONCURRENT CASES ; 21 AUG 1990
+1 ;;3.0; Surgery ;;24 Jun 93
+2 IF '$DATA(^SRF(DA,"CON"))
QUIT
+3 SET SRCON=$PIECE(^SRF(DA,"CON"),"^")
IF 'SRCON
QUIT
+4 KILL DIV
SET (DIV,Y(0))=X
SET (D0,DIV(0))=DA
+5 SET Y(1)=^SRF(D0,0)
SET X=$PIECE(Y(1),"^",3)
SET DIU=X
KILL Y
+6 SET Y(1)=";"_$PIECE(^DD(130,.011,0),"^",3)
SET X=$PIECE($PIECE(Y(1),";"_DIV_":",2),";")
+7 SET DIH=130
SET DIG=.03
