- 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 Mar 13, 2025@21:47:25 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)
