SROESNR1 ;BIR/ADM - NURSE REPORT E-SIG UTILITY ;02/20/05
;;3.0; Surgery ;**100,143,157**;24 Jun 93;Build 3
;
;** NOTICE: This routine is part of an implementation of a nationally
;** controlled procedure. Local modifications to this routine
;** are prohibited.
;
MULT ; process multiples
N I,SRFF,SRI,SRK1,SRP,SRJ,SRFLD,SRNP,SRN,SRCAT,SRP,SRSUB,SRL,SRE,SRE1,SRW,X,Y
S SRI="."_$P(SRK,".",2) D TR S SRK1=SRP
F SRJ=0:1 S SRFLD=$P($T(@SRK1+SRJ),";;",2) Q:SRFLD="" D ^SROESNRA
Q
REV N SRP D TR S SRK1=SRP D
.I SRCAT="Anesthesia Technique(s)" D REV^SROESNR3 Q
.S SRFLD=$P($T(@SRK1+SRJ),";;",2)
Q
TR S SRP=SRI,SRP=$TR(SRP,"1234567890.,","ABCDEFGHIJPK")
Q
;;
PBC ;;Other Scrubbed Assistant(s)^0;30^28,0
;;Other Scrubbed Assistant(s)^01-Other Scrubbed Assistant-130.23,.01-2^28,0;1
;;Other Scrubbed Assistant(s)^02-Comments-130.23,1;W-4^28,1,0;1
;;
PBH ;;O.R. Circulating Nurse(s)^0;.111^19,0
;;O.R. Circulating Nurse(s)^01-O.R. Circulating Nurse-130.28,.01-2^19,0;1
;;O.R. Circulating Nurse(s)^02-Educational Status-130.28,3-4^19,0;3
PBI ;;O.R. Circulating Nurse(s)^03X-Time On-130.29,.01-4^19,1,0;1
;;O.R. Circulating Nurse(s)^04X-Time Off-130.29,1-6^19,1,0;2
;;O.R. Circulating Nurse(s)^05X-Reason for Relief-130.29,2-6^19,1,0;3
;;O.R. Circulating Nurse(s)^06X-Comment-130.29,3;W-6^19,1,1,0;1
;;
PCF ;;O.R. Scrub Nurse(s)^0;.112^23,0
;;O.R. Scrub Nurse(s)^01-O.R. Scrub Nurse-130.36,.01-2^23,0;1
;;O.R. Scrub Nurse(s)^02-Educational Status-130.36,3-4^23,0;3
;;O.R. Scrub Nurse(s)^03X-Time On-130.36,.01-4^19,1,0;1
;;O.R. Scrub Nurse(s)^04X-Time Off-130.36,1-6^19,1,0;2
;;O.R. Scrub Nurse(s)^05X-Reason for Relief-130.36,2-6^19,1,0;3
;;O.R. Scrub Nurse(s)^06X-Comment-130.36,3;W-6^19,1,1,0;1
;;
PBD ;;Other Persons in O.R.^0;31^32,0
;;Other Persons in O.R.^01-Other Person in O.R.-130.24,.01-2^32,0;1
;;Other Persons in O.R.^02-Title/Organization-130.24,1-4^32,0;2
;;
PJFE ;;Surgery Position(s)^0;65^42,0
;;Surgery Position(s)^01-Position-130.065,.01-2^42,0;1
;;Surgery Position(s)^02-Placed-130.065,1-4^42,0;2
;;
PCA ;;Restraints and Position Aids^0;.13^20,0
;;Restraints and Position Aids^01-Restraint/Position Aid-130.31,.01-2^20,0;1
;;Restraints and Position Aids^02-Applied By-130.31,1-4^20,0;2
;;Restraints and Position Aids^03-Comments-130.31,2-4^20,0;3
;;
PJBH ;;Principal CPT Modifier^0;28^OPMOD,0
;;Principal CPT Modifier^01-CPT Modifier-130.028,.01-2^OPMOD,0;1
;;
PAF ;;Other Procedures Performed^0;.42^13,0
;;Other Procedures Performed^01-Other Procedure-130.16,.01-2^13,0;1
;;Other Procedures Performed^02-CPT Code-130.16,3-4^13,2;1
PAFD ;;Other Procedures Performed^03-CPT Modifier-130.164,.01-4^13,MOD,0;1
;;Other Procedures Performed^04X-Completed-130.16,2-4^13,0;3
;;Other Procedures Performed^05X-Procedure Code Comments-130.16,1.5;W-4^13,1,0;1
;;
PJB ;;Tourniquet^0;.48^2,0
;;Tourniquet^01-Time Applied-130.02,.01-2^2,0;1
;;Tourniquet^02-Time Released-130.02,3-4^2,0;4
;;Tourniquet^03-Site Applied-130.02,1-4^2,0;2
;;Tourniquet^04-Pressure Applied (in TORR)-130.02,4-4^2,0;5
;;Tourniquet^05-Applied By-130.02,2-4^2,0;3
;;
PCB ;;Thermal Unit^0;.757^21,0
;;Thermal Unit^01-Thermal Unit-130.32,.01-2^21,0;1
;;Thermal Unit^02-Temperature-130.32,2-4^21,0;3
;;Thermal Unit^03-Time On-130.32,1-4^21,0;2
;;Thermal Unit^04-Time Off-130.32,3-4^21,0;4
;;
PJA ;;Prosthesis Installed^0;.47^1,0
;;Prosthesis Installed^01-Item-130.01,.01-2^1,0;1
;;Prosthesis Installed^02-Sterility Checked-130.01,8-4^1,2;1
;;Prosthesis Installed^03-Sterility Expiration Date-130.01,9-4^1,2;2
;;Prosthesis Installed^04-RN Verifier-130.01,10-4^1,2;3
;;Prosthesis Installed^05-Vendor-130.01,1-4^1,0;2
;;Prosthesis Installed^06-Model-130.01,2-4^1,0;3
;;Prosthesis Installed^07-Lot/Serial Number-130.01,2.5-4^1,0;5
;;Prosthesis Installed^08-Sterile Resp-130.01,5-4^1,0;7
;;Prosthesis Installed^09-Size-130.01,6-4^1,1;1
;;Prosthesis Installed^10-Quantity-130.01,7-4^1,1;2
;;
PCC ;;Medications^0;.375^22,0
;;Medications^01-Medication-130.33,.01-2^22,0;1
PCD ;;Medications^02-Time Administered-130.34,.01-4^22,1,0;1
;;Medications^03-Route-130.34,4-6^22,1,0;5
;;Medications^04-Dose-130.34,1-6^22,1,0;2
;;Medications^05-Ordered By-130.34,2-6^22,1,0;3
;;Medications^06-Administered By-130.34,3-6^22,1,0;4
;;Medications^07-Comments-130.34,5-6^22,1,0;6
;;
PJH ;;Irrigation Solution(s)^0;.39^26,0
;;Irrigation Solution(s)^01-Irrigation Solution-130.08,.01-2^26,0;1
PCI ;;Irrigation Solution(s)^02-Time Utilized-130.39,.01-4^26,1,0;1
;;Irrigation Solution(s)^03-Amount-130.39,1-6^26,1,0;2
;;Irrigation Solution(s)^04-Provider-130.39,2-6^26,1,0;3
;;
PJD ;;Blood Replacement Fluids^0;.27^4,0
;;Blood Replacement Fluids^01-Replacement Fluid Type-130.04,.01-2^4,0;1
;;Blood Replacement Fluids^02-Quantity (ml)-130.04,1-4^4,0;2
;;Blood Replacement Fluids^03-Source Identification-130.04,3-4^4,0;4
;;Blood Replacement Fluids^04-VA Identification-130.04,4-4^4,0;5
;;Blood Replacement Fluids^05-Comments-130.04,5;W-4^4,1,0;1
;;
PJABI ;;Laser Unit(s)^0;129^44,0
;;Laser Unit(s)^01-Laser Unit/ID-130.0129,.01-2^44,0;1
;;Laser Unit(s)^02-Duration-130.0129,1-4^44,0;2
;;Laser Unit(s)^03-Wattage-130.0129,2-4^44,0;3
;;Laser Unit(s)^04-Operator-130.0129,3-4^44,0;4
;;Laser Unit(s)^05-Plume Evacuator-130.0129,4-4^44,0;5
;;Laser Unit(s)^06-Comments-130.0129,5;W-4^44,1,0;1
;;
PJAC ;;Cell Saver(s)^0;130^45,0
;;Cell Saver(s)^01-Cell Saver ID-130.013,.01-2^45,0;1
;;Cell Saver(s)^02-Operator-130.013,1-4^45,0;2
;;Cell Saver(s)^03-Amount Salvaged (ml)-130.013,2-4^45,0;3
;;Cell Saver(s)^04-Amount Reinfused (ml)-130.013,3-4^45,0;4
;;Cell Saver(s)^05-Comments-130.013,5;W-4^45,2,0;1
PJACD ;;Cell Saver(s)^06-Disposables Name-130.0134,.01-4^45,1,0;1
;;Cell Saver(s)^07-Lot Number-130.0134,1-6^45,1,0;2
;;Cell Saver(s)^08-Quantity-130.0134,2-6^45,1,0;3
;;
PAH ;;Other Diagnosis^0;.74^15,0
;;Other Diagnosis^01X-Other Diagnosis-130.18,.01-2^15,0;1
;;Other Diagnosis^02-ICD Diagnosis Code-130.18,3-2^15,0;3
;;Other Diagnosis^03X-Diagnosis Comments-130.18,2;W-4^15,1,0;1
SROESNR1 ;BIR/ADM - NURSE REPORT E-SIG UTILITY ;02/20/05
+1 ;;3.0; Surgery ;**100,143,157**;24 Jun 93;Build 3
+2 ;
+3 ;** NOTICE: This routine is part of an implementation of a nationally
+4 ;** controlled procedure. Local modifications to this routine
+5 ;** are prohibited.
+6 ;
MULT ; process multiples
+1 NEW I,SRFF,SRI,SRK1,SRP,SRJ,SRFLD,SRNP,SRN,SRCAT,SRP,SRSUB,SRL,SRE,SRE1,SRW,X,Y
+2 SET SRI="."_$PIECE(SRK,".",2)
DO TR
SET SRK1=SRP
+3 FOR SRJ=0:1
SET SRFLD=$PIECE($TEXT(@SRK1+SRJ),";;",2)
IF SRFLD=""
QUIT
DO ^SROESNRA
+4 QUIT
REV NEW SRP
DO TR
SET SRK1=SRP
Begin DoDot:1
+1 IF SRCAT="Anesthesia Technique(s)"
DO REV^SROESNR3
QUIT
+2 SET SRFLD=$PIECE($TEXT(@SRK1+SRJ),";;",2)
End DoDot:1
+3 QUIT
TR SET SRP=SRI
SET SRP=$TRANSLATE(SRP,"1234567890.,","ABCDEFGHIJPK")
+1 QUIT
+2 ;;
PBC ;;Other Scrubbed Assistant(s)^0;30^28,0
+1 ;;Other Scrubbed Assistant(s)^01-Other Scrubbed Assistant-130.23,.01-2^28,0;1
+2 ;;Other Scrubbed Assistant(s)^02-Comments-130.23,1;W-4^28,1,0;1
+3 ;;
PBH ;;O.R. Circulating Nurse(s)^0;.111^19,0
+1 ;;O.R. Circulating Nurse(s)^01-O.R. Circulating Nurse-130.28,.01-2^19,0;1
+2 ;;O.R. Circulating Nurse(s)^02-Educational Status-130.28,3-4^19,0;3
PBI ;;O.R. Circulating Nurse(s)^03X-Time On-130.29,.01-4^19,1,0;1
+1 ;;O.R. Circulating Nurse(s)^04X-Time Off-130.29,1-6^19,1,0;2
+2 ;;O.R. Circulating Nurse(s)^05X-Reason for Relief-130.29,2-6^19,1,0;3
+3 ;;O.R. Circulating Nurse(s)^06X-Comment-130.29,3;W-6^19,1,1,0;1
+4 ;;
PCF ;;O.R. Scrub Nurse(s)^0;.112^23,0
+1 ;;O.R. Scrub Nurse(s)^01-O.R. Scrub Nurse-130.36,.01-2^23,0;1
+2 ;;O.R. Scrub Nurse(s)^02-Educational Status-130.36,3-4^23,0;3
+3 ;;O.R. Scrub Nurse(s)^03X-Time On-130.36,.01-4^19,1,0;1
+4 ;;O.R. Scrub Nurse(s)^04X-Time Off-130.36,1-6^19,1,0;2
+5 ;;O.R. Scrub Nurse(s)^05X-Reason for Relief-130.36,2-6^19,1,0;3
+6 ;;O.R. Scrub Nurse(s)^06X-Comment-130.36,3;W-6^19,1,1,0;1
+7 ;;
PBD ;;Other Persons in O.R.^0;31^32,0
+1 ;;Other Persons in O.R.^01-Other Person in O.R.-130.24,.01-2^32,0;1
+2 ;;Other Persons in O.R.^02-Title/Organization-130.24,1-4^32,0;2
+3 ;;
PJFE ;;Surgery Position(s)^0;65^42,0
+1 ;;Surgery Position(s)^01-Position-130.065,.01-2^42,0;1
+2 ;;Surgery Position(s)^02-Placed-130.065,1-4^42,0;2
+3 ;;
PCA ;;Restraints and Position Aids^0;.13^20,0
+1 ;;Restraints and Position Aids^01-Restraint/Position Aid-130.31,.01-2^20,0;1
+2 ;;Restraints and Position Aids^02-Applied By-130.31,1-4^20,0;2
+3 ;;Restraints and Position Aids^03-Comments-130.31,2-4^20,0;3
+4 ;;
PJBH ;;Principal CPT Modifier^0;28^OPMOD,0
+1 ;;Principal CPT Modifier^01-CPT Modifier-130.028,.01-2^OPMOD,0;1
+2 ;;
PAF ;;Other Procedures Performed^0;.42^13,0
+1 ;;Other Procedures Performed^01-Other Procedure-130.16,.01-2^13,0;1
+2 ;;Other Procedures Performed^02-CPT Code-130.16,3-4^13,2;1
PAFD ;;Other Procedures Performed^03-CPT Modifier-130.164,.01-4^13,MOD,0;1
+1 ;;Other Procedures Performed^04X-Completed-130.16,2-4^13,0;3
+2 ;;Other Procedures Performed^05X-Procedure Code Comments-130.16,1.5;W-4^13,1,0;1
+3 ;;
PJB ;;Tourniquet^0;.48^2,0
+1 ;;Tourniquet^01-Time Applied-130.02,.01-2^2,0;1
+2 ;;Tourniquet^02-Time Released-130.02,3-4^2,0;4
+3 ;;Tourniquet^03-Site Applied-130.02,1-4^2,0;2
+4 ;;Tourniquet^04-Pressure Applied (in TORR)-130.02,4-4^2,0;5
+5 ;;Tourniquet^05-Applied By-130.02,2-4^2,0;3
+6 ;;
PCB ;;Thermal Unit^0;.757^21,0
+1 ;;Thermal Unit^01-Thermal Unit-130.32,.01-2^21,0;1
+2 ;;Thermal Unit^02-Temperature-130.32,2-4^21,0;3
+3 ;;Thermal Unit^03-Time On-130.32,1-4^21,0;2
+4 ;;Thermal Unit^04-Time Off-130.32,3-4^21,0;4
+5 ;;
PJA ;;Prosthesis Installed^0;.47^1,0
+1 ;;Prosthesis Installed^01-Item-130.01,.01-2^1,0;1
+2 ;;Prosthesis Installed^02-Sterility Checked-130.01,8-4^1,2;1
+3 ;;Prosthesis Installed^03-Sterility Expiration Date-130.01,9-4^1,2;2
+4 ;;Prosthesis Installed^04-RN Verifier-130.01,10-4^1,2;3
+5 ;;Prosthesis Installed^05-Vendor-130.01,1-4^1,0;2
+6 ;;Prosthesis Installed^06-Model-130.01,2-4^1,0;3
+7 ;;Prosthesis Installed^07-Lot/Serial Number-130.01,2.5-4^1,0;5
+8 ;;Prosthesis Installed^08-Sterile Resp-130.01,5-4^1,0;7
+9 ;;Prosthesis Installed^09-Size-130.01,6-4^1,1;1
+10 ;;Prosthesis Installed^10-Quantity-130.01,7-4^1,1;2
+11 ;;
PCC ;;Medications^0;.375^22,0
+1 ;;Medications^01-Medication-130.33,.01-2^22,0;1
PCD ;;Medications^02-Time Administered-130.34,.01-4^22,1,0;1
+1 ;;Medications^03-Route-130.34,4-6^22,1,0;5
+2 ;;Medications^04-Dose-130.34,1-6^22,1,0;2
+3 ;;Medications^05-Ordered By-130.34,2-6^22,1,0;3
+4 ;;Medications^06-Administered By-130.34,3-6^22,1,0;4
+5 ;;Medications^07-Comments-130.34,5-6^22,1,0;6
+6 ;;
PJH ;;Irrigation Solution(s)^0;.39^26,0
+1 ;;Irrigation Solution(s)^01-Irrigation Solution-130.08,.01-2^26,0;1
PCI ;;Irrigation Solution(s)^02-Time Utilized-130.39,.01-4^26,1,0;1
+1 ;;Irrigation Solution(s)^03-Amount-130.39,1-6^26,1,0;2
+2 ;;Irrigation Solution(s)^04-Provider-130.39,2-6^26,1,0;3
+3 ;;
PJD ;;Blood Replacement Fluids^0;.27^4,0
+1 ;;Blood Replacement Fluids^01-Replacement Fluid Type-130.04,.01-2^4,0;1
+2 ;;Blood Replacement Fluids^02-Quantity (ml)-130.04,1-4^4,0;2
+3 ;;Blood Replacement Fluids^03-Source Identification-130.04,3-4^4,0;4
+4 ;;Blood Replacement Fluids^04-VA Identification-130.04,4-4^4,0;5
+5 ;;Blood Replacement Fluids^05-Comments-130.04,5;W-4^4,1,0;1
+6 ;;
PJABI ;;Laser Unit(s)^0;129^44,0
+1 ;;Laser Unit(s)^01-Laser Unit/ID-130.0129,.01-2^44,0;1
+2 ;;Laser Unit(s)^02-Duration-130.0129,1-4^44,0;2
+3 ;;Laser Unit(s)^03-Wattage-130.0129,2-4^44,0;3
+4 ;;Laser Unit(s)^04-Operator-130.0129,3-4^44,0;4
+5 ;;Laser Unit(s)^05-Plume Evacuator-130.0129,4-4^44,0;5
+6 ;;Laser Unit(s)^06-Comments-130.0129,5;W-4^44,1,0;1
+7 ;;
PJAC ;;Cell Saver(s)^0;130^45,0
+1 ;;Cell Saver(s)^01-Cell Saver ID-130.013,.01-2^45,0;1
+2 ;;Cell Saver(s)^02-Operator-130.013,1-4^45,0;2
+3 ;;Cell Saver(s)^03-Amount Salvaged (ml)-130.013,2-4^45,0;3
+4 ;;Cell Saver(s)^04-Amount Reinfused (ml)-130.013,3-4^45,0;4
+5 ;;Cell Saver(s)^05-Comments-130.013,5;W-4^45,2,0;1
PJACD ;;Cell Saver(s)^06-Disposables Name-130.0134,.01-4^45,1,0;1
+1 ;;Cell Saver(s)^07-Lot Number-130.0134,1-6^45,1,0;2
+2 ;;Cell Saver(s)^08-Quantity-130.0134,2-6^45,1,0;3
+3 ;;
PAH ;;Other Diagnosis^0;.74^15,0
+1 ;;Other Diagnosis^01X-Other Diagnosis-130.18,.01-2^15,0;1
+2 ;;Other Diagnosis^02-ICD Diagnosis Code-130.18,3-2^15,0;3
+3 ;;Other Diagnosis^03X-Diagnosis Comments-130.18,2;W-4^15,1,0;1