SROTRIG.m

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 ---SROTRIG   346     printed  Apr 09, 2024@21:40:36                                                                                                                                                                                                      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