SROATMN1 ;BIR/SJA - TRANSMIT NO ASSESSMENT ;06/02/2015
;;3.0;Surgery;**184,205**;24 Jun 93;Build 12
;** NOTICE: This routine is part of an implementation of a nationally
;** controlled procedure. Local modifications to this routine
;** are prohibited.
;
N II,OT,DATE1,DATE2,SRNM11,SRNM13,SRNM23,SRNM2
S (SRNM11,SRNM13,SRNM23,SRNM25)="",SRA(211)=$G(^SRF(SRTN,211))
S DATE1=$E($P(SRA(211),"^",54),1,12),DATE2=$E($P(SRA(211),"^",55),1,12)
S SRA("VER1")=$G(^SRF(SRTN,"VER1"))
F II=11,23,13,25 I $P(SRA("VER1"),"^",II) S @("SRNM"_II)=$P($G(^VA(200,$P(SRA("VER1"),"^",II),0)),"^")
S SRTEMP="@"_$J(SRASITE,3)_$J(SRTN,7)_" E"_$J(DATE1,12)_$J(DATE2,12)
S II=0,OT="" F S II=$O(^SRF(SRTN,63,"B",II)) Q:'II S OT=OT_II
S SRTEMP=SRTEMP_$J(OT,7)_$J($P(SRA("VER1"),"^",2),10)_$J($P(SRA("VER1"),"^",3),2)_$J($P(SRA("VER1"),"^",4),2)_$J($P(SRA("VER1"),"^",5),2)
S SRTEMP=SRTEMP_$J($P(SRA("VER1"),"^",6),2)_$J($P(SRA("VER1"),"^",7),1)_$J($P(SRA("VER1"),"^",8),1)_$J($P(SRA("VER1"),"^",9),1)_$J($E($P(SRA("VER1"),"^",19),1,12),12)
S SRTEMP=SRTEMP_$J($P(SRA("VER1"),"^",10),1)_$J($E($P(SRA("VER1"),"^",21),1,12),12)_$J($E(SRNM11,1,30),30)_$J($P(SRA("VER1"),"^",22),1)_$J($P(SRA("VER1"),"^",12),1)
S SRTEMP=SRTEMP_$J($E(SRNM23,1,30),30)_$J($E(SRNM13,1,30),30)_$J($P(SRA("VER1"),"^",24),2)_$J($P(SRA("VER1"),"^",14),2)_$J($E(SRNM25,1,30),30)
S SRTEMP=SRTEMP_$J($P(SRA("VER1"),"^",15),1)_$J($P(SRA("VER1"),"^",16),2)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROATMN1 1447 printed Oct 16, 2024@18:42:53 Page 2
SROATMN1 ;BIR/SJA - TRANSMIT NO ASSESSMENT ;06/02/2015
+1 ;;3.0;Surgery;**184,205**;24 Jun 93;Build 12
+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 NEW II,OT,DATE1,DATE2,SRNM11,SRNM13,SRNM23,SRNM2
+7 SET (SRNM11,SRNM13,SRNM23,SRNM25)=""
SET SRA(211)=$GET(^SRF(SRTN,211))
+8 SET DATE1=$EXTRACT($PIECE(SRA(211),"^",54),1,12)
SET DATE2=$EXTRACT($PIECE(SRA(211),"^",55),1,12)
+9 SET SRA("VER1")=$GET(^SRF(SRTN,"VER1"))
+10 FOR II=11,23,13,25
IF $PIECE(SRA("VER1"),"^",II)
SET @("SRNM"_II)=$PIECE($GET(^VA(200,$PIECE(SRA("VER1"),"^",II),0)),"^")
+11 SET SRTEMP="@"_$JUSTIFY(SRASITE,3)_$JUSTIFY(SRTN,7)_" E"_$JUSTIFY(DATE1,12)_$JUSTIFY(DATE2,12)
+12 SET II=0
SET OT=""
FOR
SET II=$ORDER(^SRF(SRTN,63,"B",II))
if 'II
QUIT
SET OT=OT_II
+13 SET SRTEMP=SRTEMP_$JUSTIFY(OT,7)_$JUSTIFY($PIECE(SRA("VER1"),"^",2),10)_$JUSTIFY($PIECE(SRA("VER1"),"^",3),2)_$JUSTIFY($PIECE(SRA("VER1"),"^",4),2)_$JUSTIFY($PIECE(SRA("VER1"),"^",5),2)
+14 SET SRTEMP=SRTEMP_$JUSTIFY($PIECE(SRA("VER1"),"^",6),2)_$JUSTIFY($PIECE(SRA("VER1"),"^",7),1)_$JUSTIFY($PIECE(SRA("VER1"),"^",8),1)_$JUSTIFY($PIECE(SRA("VER1"),"^",9),1)_$JUSTIFY($EXTRACT($PIECE(SRA("VER1"),"^",19),1,12),12)
+15 SET SRTEMP=SRTEMP_$JUSTIFY($PIECE(SRA("VER1"),"^",10),1)_$JUSTIFY($EXTRACT($PIECE(SRA("VER1"),"^",21),1,12),12)_$JUSTIFY($EXTRACT(SRNM11,1,30),30)_$JUSTIFY($PIECE(SRA("VER1"),"^",22),1)_$JUSTIFY($PIECE(SRA("VER1"),"^",12),1)
+16 SET SRTEMP=SRTEMP_$JUSTIFY($EXTRACT(SRNM23,1,30),30)_$JUSTIFY($EXTRACT(SRNM13,1,30),30)_$JUSTIFY($PIECE(SRA("VER1"),"^",24),2)_$JUSTIFY($PIECE(SRA("VER1"),"^",14),2)_$JUSTIFY($EXTRACT(SRNM25,1,30),30)
+17 SET SRTEMP=SRTEMP_$JUSTIFY($PIECE(SRA("VER1"),"^",15),1)_$JUSTIFY($PIECE(SRA("VER1"),"^",16),2)
