source: WorldVistAEHR/trunk/r/SURGERY-SR/SROESNR1.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 5.9 KB
Line 
1SROESNR1 ;BIR/ADM - NURSE REPORT E-SIG UTILITY ;02/20/05
2 ;;3.0; Surgery ;**100,143,157**;24 Jun 93;Build 3
3 ;
4 ;** NOTICE: This routine is part of an implementation of a nationally
5 ;** controlled procedure. Local modifications to this routine
6 ;** are prohibited.
7 ;
8MULT ; process multiples
9 N I,SRFF,SRI,SRK1,SRP,SRJ,SRFLD,SRNP,SRN,SRCAT,SRP,SRSUB,SRL,SRE,SRE1,SRW,X,Y
10 S SRI="."_$P(SRK,".",2) D TR S SRK1=SRP
11 F SRJ=0:1 S SRFLD=$P($T(@SRK1+SRJ),";;",2) Q:SRFLD="" D ^SROESNRA
12 Q
13REV N SRP D TR S SRK1=SRP D
14 .I SRCAT="Anesthesia Technique(s)" D REV^SROESNR3 Q
15 .S SRFLD=$P($T(@SRK1+SRJ),";;",2)
16 Q
17TR S SRP=SRI,SRP=$TR(SRP,"1234567890.,","ABCDEFGHIJPK")
18 Q
19 ;;
20PBC ;;Other Scrubbed Assistant(s)^0;30^28,0
21 ;;Other Scrubbed Assistant(s)^01-Other Scrubbed Assistant-130.23,.01-2^28,0;1
22 ;;Other Scrubbed Assistant(s)^02-Comments-130.23,1;W-4^28,1,0;1
23 ;;
24PBH ;;O.R. Circulating Nurse(s)^0;.111^19,0
25 ;;O.R. Circulating Nurse(s)^01-O.R. Circulating Nurse-130.28,.01-2^19,0;1
26 ;;O.R. Circulating Nurse(s)^02-Educational Status-130.28,3-4^19,0;3
27PBI ;;O.R. Circulating Nurse(s)^03X-Time On-130.29,.01-4^19,1,0;1
28 ;;O.R. Circulating Nurse(s)^04X-Time Off-130.29,1-6^19,1,0;2
29 ;;O.R. Circulating Nurse(s)^05X-Reason for Relief-130.29,2-6^19,1,0;3
30 ;;O.R. Circulating Nurse(s)^06X-Comment-130.29,3;W-6^19,1,1,0;1
31 ;;
32PCF ;;O.R. Scrub Nurse(s)^0;.112^23,0
33 ;;O.R. Scrub Nurse(s)^01-O.R. Scrub Nurse-130.36,.01-2^23,0;1
34 ;;O.R. Scrub Nurse(s)^02-Educational Status-130.36,3-4^23,0;3
35 ;;O.R. Scrub Nurse(s)^03X-Time On-130.36,.01-4^19,1,0;1
36 ;;O.R. Scrub Nurse(s)^04X-Time Off-130.36,1-6^19,1,0;2
37 ;;O.R. Scrub Nurse(s)^05X-Reason for Relief-130.36,2-6^19,1,0;3
38 ;;O.R. Scrub Nurse(s)^06X-Comment-130.36,3;W-6^19,1,1,0;1
39 ;;
40PBD ;;Other Persons in O.R.^0;31^32,0
41 ;;Other Persons in O.R.^01-Other Person in O.R.-130.24,.01-2^32,0;1
42 ;;Other Persons in O.R.^02-Title/Organization-130.24,1-4^32,0;2
43 ;;
44PJFE ;;Surgery Position(s)^0;65^42,0
45 ;;Surgery Position(s)^01-Position-130.065,.01-2^42,0;1
46 ;;Surgery Position(s)^02-Placed-130.065,1-4^42,0;2
47 ;;
48PCA ;;Restraints and Position Aids^0;.13^20,0
49 ;;Restraints and Position Aids^01-Restraint/Position Aid-130.31,.01-2^20,0;1
50 ;;Restraints and Position Aids^02-Applied By-130.31,1-4^20,0;2
51 ;;Restraints and Position Aids^03-Comments-130.31,2-4^20,0;3
52 ;;
53PJBH ;;Principal CPT Modifier^0;28^OPMOD,0
54 ;;Principal CPT Modifier^01-CPT Modifier-130.028,.01-2^OPMOD,0;1
55 ;;
56PAF ;;Other Procedures Performed^0;.42^13,0
57 ;;Other Procedures Performed^01-Other Procedure-130.16,.01-2^13,0;1
58 ;;Other Procedures Performed^02-CPT Code-130.16,3-4^13,2;1
59PAFD ;;Other Procedures Performed^03-CPT Modifier-130.164,.01-4^13,MOD,0;1
60 ;;Other Procedures Performed^04X-Completed-130.16,2-4^13,0;3
61 ;;Other Procedures Performed^05X-Procedure Code Comments-130.16,1.5;W-4^13,1,0;1
62 ;;
63PJB ;;Tourniquet^0;.48^2,0
64 ;;Tourniquet^01-Time Applied-130.02,.01-2^2,0;1
65 ;;Tourniquet^02-Time Released-130.02,3-4^2,0;4
66 ;;Tourniquet^03-Site Applied-130.02,1-4^2,0;2
67 ;;Tourniquet^04-Pressure Applied (in TORR)-130.02,4-4^2,0;5
68 ;;Tourniquet^05-Applied By-130.02,2-4^2,0;3
69 ;;
70PCB ;;Thermal Unit^0;.757^21,0
71 ;;Thermal Unit^01-Thermal Unit-130.32,.01-2^21,0;1
72 ;;Thermal Unit^02-Temperature-130.32,2-4^21,0;3
73 ;;Thermal Unit^03-Time On-130.32,1-4^21,0;2
74 ;;Thermal Unit^04-Time Off-130.32,3-4^21,0;4
75 ;;
76PJA ;;Prosthesis Installed^0;.47^1,0
77 ;;Prosthesis Installed^01-Item-130.01,.01-2^1,0;1
78 ;;Prosthesis Installed^02-Sterility Checked-130.01,8-4^1,2;1
79 ;;Prosthesis Installed^03-Sterility Expiration Date-130.01,9-4^1,2;2
80 ;;Prosthesis Installed^04-RN Verifier-130.01,10-4^1,2;3
81 ;;Prosthesis Installed^05-Vendor-130.01,1-4^1,0;2
82 ;;Prosthesis Installed^06-Model-130.01,2-4^1,0;3
83 ;;Prosthesis Installed^07-Lot/Serial Number-130.01,2.5-4^1,0;5
84 ;;Prosthesis Installed^08-Sterile Resp-130.01,5-4^1,0;7
85 ;;Prosthesis Installed^09-Size-130.01,6-4^1,1;1
86 ;;Prosthesis Installed^10-Quantity-130.01,7-4^1,1;2
87 ;;
88PCC ;;Medications^0;.375^22,0
89 ;;Medications^01-Medication-130.33,.01-2^22,0;1
90PCD ;;Medications^02-Time Administered-130.34,.01-4^22,1,0;1
91 ;;Medications^03-Route-130.34,4-6^22,1,0;5
92 ;;Medications^04-Dose-130.34,1-6^22,1,0;2
93 ;;Medications^05-Ordered By-130.34,2-6^22,1,0;3
94 ;;Medications^06-Administered By-130.34,3-6^22,1,0;4
95 ;;Medications^07-Comments-130.34,5-6^22,1,0;6
96 ;;
97PJH ;;Irrigation Solution(s)^0;.39^26,0
98 ;;Irrigation Solution(s)^01-Irrigation Solution-130.08,.01-2^26,0;1
99PCI ;;Irrigation Solution(s)^02-Time Utilized-130.39,.01-4^26,1,0;1
100 ;;Irrigation Solution(s)^03-Amount-130.39,1-6^26,1,0;2
101 ;;Irrigation Solution(s)^04-Provider-130.39,2-6^26,1,0;3
102 ;;
103PJD ;;Blood Replacement Fluids^0;.27^4,0
104 ;;Blood Replacement Fluids^01-Replacement Fluid Type-130.04,.01-2^4,0;1
105 ;;Blood Replacement Fluids^02-Quantity (ml)-130.04,1-4^4,0;2
106 ;;Blood Replacement Fluids^03-Source Identification-130.04,3-4^4,0;4
107 ;;Blood Replacement Fluids^04-VA Identification-130.04,4-4^4,0;5
108 ;;Blood Replacement Fluids^05-Comments-130.04,5;W-4^4,1,0;1
109 ;;
110PJABI ;;Laser Unit(s)^0;129^44,0
111 ;;Laser Unit(s)^01-Laser Unit/ID-130.0129,.01-2^44,0;1
112 ;;Laser Unit(s)^02-Duration-130.0129,1-4^44,0;2
113 ;;Laser Unit(s)^03-Wattage-130.0129,2-4^44,0;3
114 ;;Laser Unit(s)^04-Operator-130.0129,3-4^44,0;4
115 ;;Laser Unit(s)^05-Plume Evacuator-130.0129,4-4^44,0;5
116 ;;Laser Unit(s)^06-Comments-130.0129,5;W-4^44,1,0;1
117 ;;
118PJAC ;;Cell Saver(s)^0;130^45,0
119 ;;Cell Saver(s)^01-Cell Saver ID-130.013,.01-2^45,0;1
120 ;;Cell Saver(s)^02-Operator-130.013,1-4^45,0;2
121 ;;Cell Saver(s)^03-Amount Salvaged (ml)-130.013,2-4^45,0;3
122 ;;Cell Saver(s)^04-Amount Reinfused (ml)-130.013,3-4^45,0;4
123 ;;Cell Saver(s)^05-Comments-130.013,5;W-4^45,2,0;1
124PJACD ;;Cell Saver(s)^06-Disposables Name-130.0134,.01-4^45,1,0;1
125 ;;Cell Saver(s)^07-Lot Number-130.0134,1-6^45,1,0;2
126 ;;Cell Saver(s)^08-Quantity-130.0134,2-6^45,1,0;3
127 ;;
128PAH ;;Other Diagnosis^0;.74^15,0
129 ;;Other Diagnosis^01X-Other Diagnosis-130.18,.01-2^15,0;1
130 ;;Other Diagnosis^02-ICD Diagnosis Code-130.18,3-2^15,0;3
131 ;;Other Diagnosis^03X-Diagnosis Comments-130.18,2;W-4^15,1,0;1
Note: See TracBrowser for help on using the repository browser.