SROQ0A ;BIR/ADM - QUARTERLY REPORT (CONTINUED) ;08/23/2011
;;3.0;Surgery;**37,38,62,70,88,103,129,142,176**;24 Jun 93;Build 8
;** NOTICE: This routine is part of an implementation of a nationally
;** controlled procedure. Local modifications to this routine
;** are prohibited.
;
; Reference to ^DGPM("APTT1" supported by DBIA #565
;
RS ; surgical residents used?
N SRK,SRDIV,SRSITE S SRK=0,SRDIV=$P($G(^SRF(SRTN,8)),"^") I SRDIV S SRSITE=$O(^SRO(133,"B",SRDIV,0)),Y=$P(^SRO(133,SRSITE,0),"^",19) I Y=0 D Q
.I $P(^SRF(SRTN,0),"^",9)<3040401 S SRATT=1 Q
.S SRATT=9 Q
S SRATT=99
Q
ADM ; check for admission within 14 days of surgery
S (SRSDATE,X1)=$P($G(^SRF(SRTN,.2)),"^",12),X2=14 D C^%DTC S SR14=X
S SRSDATE=$O(^DGPM("APTT1",DFN,SRSDATE)) I SRSDATE,SRSDATE'>SR14 S SRADMT=SRADMT+1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROQ0A 834 printed Dec 13, 2024@02:45:24 Page 2
SROQ0A ;BIR/ADM - QUARTERLY REPORT (CONTINUED) ;08/23/2011
+1 ;;3.0;Surgery;**37,38,62,70,88,103,129,142,176**;24 Jun 93;Build 8
+2 ;** NOTICE: This routine is part of an implementation of a nationally
+3 ;** controlled procedure. Local modifications to this routine
+4 ;** are prohibited.
+5 ;
+6 ; Reference to ^DGPM("APTT1" supported by DBIA #565
+7 ;
RS ; surgical residents used?
+1 NEW SRK,SRDIV,SRSITE
SET SRK=0
SET SRDIV=$PIECE($GET(^SRF(SRTN,8)),"^")
IF SRDIV
SET SRSITE=$ORDER(^SRO(133,"B",SRDIV,0))
SET Y=$PIECE(^SRO(133,SRSITE,0),"^",19)
IF Y=0
Begin DoDot:1
+2 IF $PIECE(^SRF(SRTN,0),"^",9)<3040401
SET SRATT=1
QUIT
+3 SET SRATT=9
QUIT
End DoDot:1
QUIT
+4 SET SRATT=99
+5 QUIT
ADM ; check for admission within 14 days of surgery
+1 SET (SRSDATE,X1)=$PIECE($GET(^SRF(SRTN,.2)),"^",12)
SET X2=14
DO C^%DTC
SET SR14=X
+2 SET SRSDATE=$ORDER(^DGPM("APTT1",DFN,SRSDATE))
IF SRSDATE
IF SRSDATE'>SR14
SET SRADMT=SRADMT+1
+3 QUIT
