{"aaData": [["NAME OF PATIENT", "
S RANM=$P(RAY0,\"^\")
\n", "
PATIENT DEMOGRAPHICS
\n", "
Name:
\n", "
JONES,JOHN
\n", "
RANM
\n", ""], ["PROCEDURE", "
S RAPR=$E($S($D(^RAMIS(71,+$P(RAY3,\"^\",2),0)):$P(^(0),\"^\"),1:\"Unknown\"),1,28)
\n", "
EXAM SPECIFIC
\n", "
Procedure:
\n", "
1A - SKULL
\n", "
RAPR
\n", "
YES
\n"], ["LAST TIME THIS EXAM PERFORMED", "
S RAEXLST=\"\",Y=$O(^RADPT(RADFN,\"DT\",\"AP\",+$P(RAY3,\"^\",2),RADTI)) I Y>0,$D(^RADPT(RADFN,\"DT\",Y,0)) S Y=+^(0) D D^RAUTL S RAEXLST=Y
\n", "
EXAM SPECIFIC
\n", "
Last Performed:
\n", "
JUN 4,1984 08:15
\n", "
RAEXLST
\n", "
YES
\n"], ["FREE TEXT", "", "
OTHER
\n", "", "
Your text will appear here.
\n", "
RAFREE
\n", ""], ["USUAL PATIENT CATEGORY", "
S RACTY=$P($P(^DD(70,.04,0),$P(RAY1,\"^\",4)_\":\",2),\";\"),RACTY=$S(RACTY']\"\":\"Unknown\",1:RACTY)
\n", "
PATIENT DEMOGRAPHICS
\n", "
Category:
\n", "
OUTPATIENT
\n", "
RACTY
\n", ""], ["LAST VISIT FOR ANY EXAM", "
S RAVST=\"No previous Visits\" I $O(^RADPT(RADFN,\"DT\",RADTI))>0 S Y=9999999.9999-$O(^(RADTI)) D D^RAUTL S RAVST=Y
\n", "
PATIENT DEMOGRAPHICS
\n", "
Last Visit:
\n", "
Oct 12,1984 13:30
\n", "
RAVST
\n", ""], ["LONG CASE NUMBER", "
N RAEXDT S RAEXDT=($P(RAY2,\"^\")\\1) S RALCSE=$TR($$FMTE^XLFDT(RAEXDT,\"2F\"),\" /\",\"0\")_\"-\"_+RAY3
\n", "
EXAM SPECIFIC
\n", "
Case:
\n", "
121384-543
\n", "
RALCSE
\n", "
YES
\n"], ["TECHNOLOGIST", "
S RATECH=\"\" I $D(RADFN),$D(RADTI),$D(RACNI),$O(^RADPT(+RADFN,\"DT\",+RADTI,\"P\",+RACNI,\"TC\",0))>0,$D(^VA(200,+^($O(^(0)),0),0)) S RATECH=$P(^(0),\"^\")
\n", "
EXAM SPECIFIC
\n", "
Technologist:
\n", "
JONES,MARY
\n", "
RATECH
\n", "
YES
\n"], ["RESIDENT", "
S RARAD=$S($D(^VA(200,+$P(RAY3,\"^\",12),0)):$P(^(0),\"^\"),1:\"\")
\n", "
EXAM SPECIFIC
\n", "
Resident:
\n", "
DOE,JOE
\n", "
RARAD
\n", "
YES
\n"], ["STAFF RADIOLOGIST", "
S RASTAFF=$S($D(^VA(200,+$P(RAY3,\"^\",15),0)):$P(^(0),\"^\"),1:\"\")
\n", "
EXAM SPECIFIC
\n", "
Rad/NM Staff:
\n", "
SMITH,JOHN
\n", "
RASTAFF
\n", "
YES
\n"], ["REQUESTING AREA", "
S RAREA=$S($D(^DIC(42,+$P(RAY3,\"^\",6),0)):$P(^(0),\"^\"),$D(^SC(+$P(RAY3,\"^\",8),0)):$P(^(0),\"^\"),$D(^DIC(34,+$P(RAY3,\"^\",9),0)):$P(^(0),\"^\"),$P(RAY3,\"^\",4)=\"R\":\"RESEARCH\",1:\"UNKNOWN\")
\n", "
EXAM SPECIFIC
\n", "
Ward/Clinic:
\n", "
ICU
\n", "
RAREA
\n", ""], ["SSN OF PATIENT", "
S RAS=$$SSN^RAUTL
\n", "
PATIENT DEMOGRAPHICS
\n", "
SSN:
\n", "
382-38-3342
\n", "
RAS
\n", ""], ["SERVICE", "
S RASERV=$S($D(^DIC(49,+$P(RAY3,\"^\",7),0)):$P(^(0),\"^\"),1:\"\")
\n", "
EXAM SPECIFIC
\n", "
Service:
\n", "
MEDICINE
\n", "
RASERV
\n", ""], ["DIAGNOSTIC CODE", "
S RADIAG=$S($D(^RA(78.3,+$P(RAY3,\"^\",13),0)):$P(^(0),\"^\"),1:\"\")
\n", "
EXAM SPECIFIC
\n", "
Primary Dx:
\n", "
NORMAL
\n", "
RADIAG
\n", ""], ["RESIDENT SIGNATURE NAME", "
S RASIGR=$S($D(^VA(200,+$P(RAY3,\"^\",12),20)):$P(^(20),\"^\",2),$D(^(0)):$P(^(0),\"^\"),1:\"\")
\n", "
EXAM SPECIFIC
\n", "
Signature:
\n", "
Arthur B. Long
\n", "
RASIGR
\n", ""], ["STAFF SIGNATURE NAME", "
S RASIGS=$S($D(^VA(200,+$P(RAY3,\"^\",15),20)):$P(^(20),\"^\",2),$D(^(0)):$P(^(0),\"^\"),1:\"\")
\n", "
EXAM SPECIFIC
\n", "
Signature:
\n", "
Dr. Susan Dickerson
\n", "
RASIGS
\n", ""], ["DATE REPORT ENTERED", "
S RARPT=+$P(RAY3,\"^\",17),RATRAN=\"\" I $D(^RARPT(RARPT,0)),$P(^(0),\"^\",6) S Y=$P(^(0),\"^\",6) D D^RAUTL S RATRAN=Y
\n", "
EXAM SPECIFIC
\n", "
Date Transcribed:
\n", "
Jan 11,1985 09:33
\n", "
RATRAN
\n", ""], ["VERIFIED DATE", "
S RARPT=+$P(RAY3,\"^\",17),RAVERFDT=\"\" I $D(^RARPT(RARPT,0)),$P(^(0),\"^\",7) S Y=$P(^(0),\"^\",7) D D^RAUTL S RAVERFDT=Y
\n", "
EXAM SPECIFIC
\n", "
Date Verified:
\n", "
Jan 12,1985 08:54
\n", "
RAVERFDT
\n", ""], ["SEX OF PATIENT", "
S RASEX=$S($P(RAY0,\"^\",2)=\"M\":\"MALE\",$P(RAY0,\"^\",2)=\"F\":\"FEMALE\",1:\"\")
\n", "
PATIENT DEMOGRAPHICS
\n", "
Sex:
\n", "
MALE
\n", "
RASEX
\n", ""], ["PAGE NUMBER", "
S RAPAGE=$S($D(RAPAGE):RAPAGE+1,1:1)
\n", "
OTHER
\n", "
Page
\n", "
1
\n", "
RAPAGE
\n", ""], ["DATE REPORTED", "
S RARPT=+$P(RAY3,\"^\",17),RARPDT=\"\" I $D(^RARPT(RARPT,0)),$P(^(0),\"^\",8) S Y=$P(^(0),\"^\",8) D D^RAUTL S RARPDT=Y
\n", "
EXAM SPECIFIC
\n", "
Reported:
\n", "
JAN 18,1985
\n", "
RARPDT
\n", ""], ["VERIFYING RADIOLOGIST", "
S RAVER=\"\" I $D(^RARPT(+$P(RAY3,\"^\",17),0)),$D(^VA(200,+$P(^(0),\"^\",9),0)) S RAVER=$P(^(0),\"^\")
\n", "
EXAM SPECIFIC
\n", "
Verifier:
\n", "
DOE,JOE
\n", "
RAVER
\n", ""], ["AGE OF PATIENT", "
S X1=DT,X2=$P(RAY0,\"^\",3) D ^%DTC S RAGE=X\\365.25
\n", "
PATIENT DEMOGRAPHICS
\n", "
Age:
\n", "
35
\n", "
RAGE
\n", ""], ["EXAM MODIFIERS", "
D MODS^RAUTL2 S RAMOD=Y
\n", "
EXAM SPECIFIC
\n", "
Modifiers:
\n", "
RIGHT, BILATERAL
\n", "
RAMOD
\n", "
YES
\n"], ["CURRENT DATE/TIME", "
S X=\"NOW\",%DT=\"TX\" D ^%DT K %DT D D^RAUTL S RANOW=Y
\n", "
OTHER
\n", "
Date/Time:
\n", "
APR 29,1986 09:05
\n", "
RANOW
\n", ""], ["VERIFYING ELECTRONIC SIGNATURE", "
S RASIGVES=\"\" I $D(^RARPT(+$P(RAY3,\"^\",17),0)),$P(^(0),\"^\",10)]\"\",$D(^VA(200,+$P(^(0),\"^\",9),0)) S X2=+$P(RAY3,\"^\",17),X1=+$P(^RARPT(+$P(RAY3,\"^\",17),0),\"^\",9),X=$P(^(0),\"^\",10) D DE^XUSHSHP S:X]\"\" RASIGVES=\"/ES/\"_X
\n", "
EXAM SPECIFIC
\n", "
Verifier E-Sig:
\n", "
/ES/Dr. Joe Doe
\n", "
RASIGVES
\n", ""], ["VERIFYING SIGNATURE NAME", "
S RASIGVS=\"\" I $D(^RARPT(+$P(RAY3,\"^\",17),0)),$D(^VA(200,+$P(^(0),\"^\",9),20)) S RASIGVS=$P(^(20),\"^\",2)
\n", "
EXAM SPECIFIC
\n", "
Verifier Signature:
\n", "
Dr. Joe Doe
\n", "
RASIGVS
\n", ""], ["VERIFYING SIGNATURE TITLE", "
S RASIGVSB=\"\" I $D(^RARPT(+$P(RAY3,\"^\",17),0)),$D(^VA(200,+$P(^(0),\"^\",9),20)) S RASIGVSB=$P(^(20),\"^\",3)
\n", "
EXAM SPECIFIC
\n", "
Verifier Title:
\n", "
Staff Radiologist
\n", "
RASIGVSB
\n", ""], ["REPORT STATUS", "
S RARST=$$GET1^DIQ(74,+$P(RAY3,\"^\",17)_\",\",5)
\n", "
OTHER
\n", "
Status:
\n", "
RELEASED/NOT VERIFIED
\n", "
RARST
\n", ""], ["RESIDENT SIGNATURE", "
S RASIGR=$S($D(^VA(200,+$P(RAY3,\"^\",12),20)):$P(^(20),\"^\",3),$D(^(0)):$P(^(0),\"^\"),1:\"\")
\n", "
EXAM SPECIFIC
\n", "
Signature:
\n", "
Arthur B. Long
\n", "
RASIGR
\n", ""], ["STAFF SIGNATURE", "
S RASIGS=$S($D(^VA(200,+$P(RAY3,\"^\",15),20)):$P(^(20),\"^\",3),$D(^(0)):$P(^(0),\"^\"),1:\"\")
\n", "
EXAM SPECIFIC
\n", "
Signature:
\n", "
Dr. Susan Dickerson
\n", "
RASIGS
\n", ""], ["VERIFYING SIGNATURE", "
S RASIGVS=\"\" I $D(^RARPT(+$P(RAY3,\"^\",17),0)),$D(^VA(200,+$P(^(0),\"^\",9),20)) S RASIGVS=$P(^(20),\"^\",2)
\n", "
EXAM SPECIFIC
\n", "", "
Dr. Joe Doe
\n", "
RASIGVS
\n", ""], ["VERIFYING SIGNATURE BLOCK", "
S RASIGVSB=\"\" I $D(^RARPT(+$P(RAY3,\"^\",17),0)),$D(^VA(200,+$P(^(0),\"^\",9),20)) S RASIGVSB=$P(^(20),\"^\",3)
\n", "
EXAM SPECIFIC
\n", "", "
Staff Radiologist
\n", "
RASIGVSB
\n", ""], ["DATE OF BIRTH", "
S RADOB=$P(RAY0,\"^\",3),RADOB=$E(RADOB,4,5)_\"-\"_$E(RADOB,6,7)_\"-\"_(1700+$E(RADOB,1,3))
\n", "
PATIENT DEMOGRAPHICS
\n", "
DOB:
\n", "
12-3-1950
\n", "
RADOB
\n", ""], ["ATTENDING PHYSICIAN CURRENT", "
S RACATP=$$ATND^RAUTL5(RADFN,DT)
\n", "
VISIT SPECIFIC
\n", "
Attend Phy Current:
\n", "
DOE,JOE
\n", "
RACATP
\n", ""], ["PRIMARY PHYSICIAN CURRENT", "
S RACPRP=$$PRIM^RAUTL5(RADFN,DT)
\n", "
VISIT SPECIFIC
\n", "
Prim Phy Current:
\n", "
DOE,JOE
\n", "
RACPRP
\n", ""], ["ATTENDING PHYSICIAN AT ORDER", "
S RAOATP=$$ATND^RAUTL5(RADFN,$P($G(^RAO(75.1,+$P(RAY3,\"^\",11),0)),\"^\",16))
\n", "
VISIT SPECIFIC
\n", "
Attend Phy At Order:
\n", "
DOE,JOE
\n", "
RAOATP
\n", ""], ["PRIMARY PHYSICIAN AT ORDER", "
S RAOPRP=$$PRIM^RAUTL5(RADFN,$P($G(^RAO(75.1,+$P(RAY3,\"^\",11),0)),\"^\",16))
\n", "
VISIT SPECIFIC
\n", "
Prim Phy At Order:
\n", "
DOE,JOE
\n", "
RAOPRP
\n", ""], ["REQUEST ENTERED DATE/TIME", "
S Y=$P($G(^RAO(75.1,+$P(RAY3,\"^\",11),0)),\"^\",16) D:Y>0 D^RAUTL S RAREDT=Y
\n", "
EXAM SPECIFIC
\n", "
Request Entered:
\n", "
Jan 21, 1994 10:30
\n", "
RAREDT
\n", ""], ["CURRENT PATIENT LOCATION", "
S RAPTLOC=$$PTLOC^RAUTL12()
\n", "
PATIENT DEMOGRAPHICS
\n", "
Patient Location:
\n", "
1S/06-08-1994@13:35
\n", "
RAPTLOC
\n", ""], ["CASE NUMBER BARCODE", "
S RABCSE=$$BCDE^RAUTL18(+RAY3)
\n", "
EXAM SPECIFIC
\n", "
Case:
\n", "
Barcoded Case #
\n", "
RABCSE
\n", ""], ["PROCEDURE BARCODE, 30 CHARS", "
S RABPRC=$$BCDE^RAUTL18($E($P($G(^RAMIS(71,+$P(RAY3,\"^\",2),0)),\"^\"),1,30))
\n", "
EXAM SPECIFIC
\n", "
Procedure:
\n", "
Barcoded Procedure, 30 char's
\n", "
RABPRC
\n", ""], ["PROCEDURE BARCODE, 60 CHARS", "
S RABBPRC=$$BCDE^RAUTL18($E($P($G(^RAMIS(71,+$P(RAY3,\"^\",2),0)),\"^\"),1,60))
\n", "
EXAM SPECIFIC
\n", "
Procedure:
\n", "
Barcoded Procedure, 60 char's
\n", "
RABBPRC
\n", ""], ["SSN OF PATIENT BARCODE", "
S RABSSN=$$SSN^RAUTL,RABSSN=$$BCDE^RAUTL18($S(RABSSN=\"Unknown\":\"\",1:RABSSN))
\n", "
PATIENT DEMOGRAPHICS
\n", "
SSN:
\n", "
Barcoded SSN
\n", "
RABSSN
\n", ""], ["DATE OF EXAM", "
S Y=$P(RAY2,\"^\"),RAEXDT=\"Unknown\" I Y>0 D D^RAUTL S RAEXDT=Y
\n", "
VISIT SPECIFIC
\n", "
Date:
\n", "
DEC 13,1984 14:30
\n", "
RAEXDT
\n", ""], ["LONG CASE NUMBER BARCODE", "
N RALCSE,RAZ S RAZ=+$O(^RA(78.7,\"B\",\"LONG CASE NUMBER\",0)) X:RAZ ^RA(78.7,RAZ,\"E\") S:$D(RALCSE) RABLCSE=$$BCDE^RAUTL18(RALCSE)
\n", "
EXAM SPECIFIC
\n", "
Case:
\n", "
Barcoded Long Case #
\n", "
RABLCSE
\n", ""], ["PATIENT ADDRESS LINE 1", "
S RASTRONE=$$ADDRESS^RAUTL18(+$O(^RA(78.7,\"B\",\"PATIENT ADDRESS LINE 1\",0)),RADFN)
\n", "
PATIENT DEMOGRAPHICS
\n", "
Address Line 1:
\n", "
123 South Main Street
\n", "
RASTRONE
\n", ""], ["PATIENT ADDRESS LINE 2", "
S RASTRTWO=$$ADDRESS^RAUTL18(+$O(^RA(78.7,\"B\",\"PATIENT ADDRESS LINE 2\",0)),RADFN)
\n", "
PATIENT DEMOGRAPHICS
\n", "
Address Line 2:
\n", "
P.O. Box 12345
\n", "
RASTRTWO
\n", ""], ["PATIENT ADDRESS LINE 3", "
S RASTRTHR=$$ADDRESS^RAUTL18(+$O(^RA(78.7,\"B\",\"PATIENT ADDRESS LINE 3\",0)),RADFN)
\n", "
PATIENT DEMOGRAPHICS
\n", "
Address Line 3:
\n", "
ANYTOWN, ME 12345-1111
\n", "
RASTRTHR
\n", ""], ["NAME OF PATIENT (FIRST LAST)", "
S RANM=$TR($P($P(RAY0,\"^\"),\",\",2)_\" \"_$P($P(RAY0,\"^\"),\",\"),\".,\",\"\")
\n", "
PATIENT DEMOGRAPHICS
\n", "
Name:
\n", "
JOHN JONES
\n", "
RANM
\n", ""], ["SSN OF PATIENT BARCODE-NO DASH", "
S RABSSN=$TR($$SSN^RAUTL,\"-\",\"\"),RABSSN=$$BCDE^RAUTL18($S(RABSSN=\"Unknown\":\"\",1:RABSSN))
\n", "
PATIENT DEMOGRAPHICS
\n", "", "
Barcoded SSN
\n", "
RABSSN
\n", ""], ["IMAGING LOCATION", "
S RAL=$S('$D(^RA(79.1,+$P(RAY2,\"^\",4),0)):\"Unknown\",$D(^SC(+^(0),0)):$P(^(0),\"^\"),1:\"Unknown\")
\n", "
VISIT SPECIFIC
\n", "
Loc:
\n", "
SECOND FLOOR C-WING
\n", "
RAL
\n", ""], ["HOSPITAL DIVISION(INSTITUTION)", "
S RAINST=$S($D(^DIC(4,+$P(RAY2,\"^\",3),0)):$P(^(0),\"^\"),1:\"Unknown\")
\n", "
VISIT SPECIFIC
\n", "
Inst:
\n", "
PALO ALTO
\n", "
RAINST
\n", ""], ["CASE NUMBER", "
S RACSE=+RAY3
\n", "
EXAM SPECIFIC
\n", "
Case:
\n", "
543
\n", "
RACSE
\n", "
YES
\n"], ["REQUESTING PHYSICIAN", "
S RADOC=$S($D(^VA(200,+$P(RAY3,\"^\",14),0)):$P(^(0),\"^\"),1:\"\")
\n", "
EXAM SPECIFIC
\n", "
Phy:
\n", "
DOE,JOE
\n", "
RADOC
\n", ""]]}