{"aaData": [["FREE TEXT", "", "
ALL
\n", "", "
THIS IS FREE TEXT
\n", "
RTV(1)
\n", "", ""], ["CLAIM NUMBER", "
S RTDPT=$P($P(RT0,\"^\"),\";\",2)=\"DPT(\" D:'RTDPT ^RTL3 S:RTDPT RTV(RTJ)=$S($D(^DPT(+RT0,.31)):$P(^(.31),\"^\",3),1:\"Unknown\") K RTDPT
\n", "
RECORD or REQUEST
\n", "
Claim #:
\n", "
99999999
\n", "
RTV(11)
\n", "", ""], ["VETERAN", "
S RTV(RTJ)=\"Unknown\" I $P($P(RT0,\"^\"),\";\",2)=\"DPT(\" D ^RTL3
\n", "
RECORD or REQUEST
\n", "
Veteran:
\n", "
YES
\n", "
RTV(12)
\n", "
\n
\n\n
\n", ""], ["SERVICE CONNECTED", "
S RTDPT=$P($P(RT0,\"^\"),\";\",2)=\"DPT(\",RTV(RTJ)=\"Unknown\" Q:'RTDPT S Y=$S($D(^DPT(+RT0,.3)):$P(^(.3),\"^\",1),1:\"\"),C=$P(^DD(2,.301,0),\"^\",2) D Y^DIQ S RTV(RTJ)=$S(Y]\"\":Y,1:\"Unknown\") K RTDPT,Y,C
\n", "
RECORD or REQUEST
\n", "
SC:
\n", "
NO
\n", "
RTV(14)
\n", "
\n
\n\n
\n", ""], ["NAME", "
S Y=$P(RT0,\"^\") D NAME^RTB S RTV(RTJ)=$S('Y:Y,1:\"Unknown\")
\n", "
ALL
\n", "
Name:
\n", "
DOE,JANE
\n", "
RTV(2)
\n", "
\n
\n\n
\n", ""], ["CURRENT DATE/TIME", "
S X=\"NOW\",%DT=\"TX\" D ^%DT K %DT S X=Y X ^DD(\"DD\") S RTV(RTJ)=Y
\n", "
ALL
\n", "
Printed at:
\n", "
Aug 6, 1986
\n", "
RTV(23)
\n", "", ""], ["REQUESTOR'S INSTITUTION", "
S Y=$P(RTQ,\"^\",12),C=$P(^DD(190.1,12,0),\"^\",2) D Y^DIQ S RTV(RTJ)=Y
\n", "
REQUEST
\n", "
Requestor's Div:
\n", "
TROY ISC
\n", "
RTV(25)
\n", "", "
NO
\n"], ["REQUESTOR", "
S Y=$S($D(^RTV(195.9,+$P(RTQ,\"^\",5),0)):$P(^(0),\"^\"),1:\"UNKNOWN\") D NAME^RTB:Y[\";\" S RTV(RTJ)=$S(Y'[\";\":Y,1:\"Unknown\")
\n", "
REQUEST
\n", "
Borrower:
\n", "
ICU
\n", "
RTV(26)
\n", "", ""], ["VOLUME NUMBER", "
S RTV(RTJ)=$P(RT0,\"^\",7)
\n", "
RECORD or REQUEST
\n", "
Volume #:
\n", "
999
\n", "
RTV(28)
\n", "", ""], ["HOME LOCATION", "
S Y=+$P(RT0,\"^\",6) D BOR^RTB S RTV(RTJ)=Y
\n", "
RECORD or REQUEST
\n", "
Home Location:
\n", "
TROY ISC
\n", "
RTV(29)
\n", "", ""], ["SSN", "
S RTDPT=$P($P(RT0,\"^\"),\";\",2)=\"DPT(\" D:'RTDPT ^RTL3 Q:'RTDPT S X=$S($D(^DPT(+RT0,0)):$P(^(0),\"^\",9),1:\"\"),RTV(RTJ)=$E(X,1,3)_\"-\"_$E(X,4,5)_\"-\"_$E(X,6,10) K RTDPT
\n", "
RECORD or REQUEST
\n", "
SSN:
\n", "
999-99-9999
\n", "
RTV(3)
\n", "", ""], ["REQUEST #", "
S RTV(RTJ)=RTIFN
\n", "
REQUEST
\n", "
Request #:
\n", "
566
\n", "
RTV(30)
\n", "", ""], ["RECORD #", "
S RTV(RTJ)=$S(T=\"q\":+RTQ,T=\"r\":RTIFN,1:0)
\n", "
RECORD or REQUEST
\n", "
Record #:
\n", "
99999
\n", "
RTV(33)
\n", "", ""], ["REQUESTOR'S PHONE", "
S RTV(34)=$S($D(^RTV(195.9,+$P(RTQ,\"^\",5),0)):$P(^(0),\"^\",8),1:\"UNKNOWN\")
\n", "
REQUEST
\n", "
Requestor's Phone #:
\n", "
444-3333
\n", "
RTV(34)
\n", "", "
NO
\n"], ["REQUESTOR'S LOCATION", "
S RTV(35)=$S($D(^RTV(195.9,+$P(RTQ,\"^\",5),0)):$P(^(0),\"^\",9),1:\"Unknown\")
\n", "
REQUEST
\n", "
Requestor's Loc:
\n", "
RM 456-D
\n", "
RTV(35)
\n", "", "
NO
\n"], ["BARCODE FOR RECORD", "
S W=$P(RT0,\"^\",2)_\"/\"_$S($D(RTQ):+RTQ,1:RTIFN) D CHAR^RTDPA S RTV(RTJ)=W_C
\n", "
RECORD or REQUEST
\n", "", "
500/1202029
\n", "
RTV(36)
\n", "", "
YES
\n"], ["BARCODE FOR REQUEST", "
S W=\"REQ\"_RTIFN D CHAR^RTDPA S RTV(RTJ)=W_C
\n", "
REQUEST
\n", "", "
REQ12234-
\n", "
RTV(37)
\n", "", "
YES
\n"], ["TYPE OF RECORD", "
S RTV(RTJ)=$S($D(^DIC(195.2,+$P(RT0,\"^\",3),0)):$P(^(0),\"^\"),1:\"UNKNOWN\")
\n", "
RECORD or REQUEST
\n", "
Record Type:
\n", "
MEDICAL RECORD
\n", "
RTV(38)
\n", "", ""], ["BORROWER'S PHONE", "
S RTV(RTJ)=$S($P(RT0,\"^\",8)]\"\":$P(RT0,\"^\",8),1:\"UNKNOWN\")
\n", "
BORROWER
\n", "
Phone #:
\n", "
444-3333
\n", "
RTV(39)
\n", "", "
NO
\n"], ["DATE OF BIRTH", "
S RTDPT=$P($P(RT0,\"^\"),\";\",2)=\"DPT(\" D:'RTDPT ^RTL3 I RTDPT S Y=$S($D(^DPT(+RT0,0)):$P(^(0),\"^\",3),1:\"\"),C=$P(^DD(2,.03,0),\"^\",2) D Y^DIQ S RTV(RTJ)=$S(Y]\"\":Y,1:\"Unknown\") K RTDPT
\n", "
RECORD or REQUEST
\n", "
Dob:
\n", "
05/10/57
\n", "
RTV(4)
\n", "", ""], ["BORROWER'S LOCATION", "
S RTV(RTJ)=$S($P(RT0,\"^\",9)]\"\":$P(RT0,\"^\",9),1:\"Unknown\")
\n", "
BORROWER
\n", "
Borrower's Loc:
\n", "
RM 456-D
\n", "
RTV(40)
\n", "", "
NO
\n"], ["BARCODE FOR BORROWER", "
S RTV(41)=\"??\" I @(\"$D(^\"_$P($P(RT0,\"^\"),\";\",2)_\"0))\") S RTV(41)=+$P(^(0),\"^\",2)_\"/\"_+RT0
\n", "
BORROWER
\n", "", "
6/234
\n", "
RTV(41)
\n", "", "
YES
\n"], ["CURRENT BORROWER/LOCATION", "
S Y=$P(RTCL,\"^\",5) D BOR^RTB S RTV(RTJ)=Y
\n", "
REQUEST
\n", "
Current Bor:
\n", "
WELBY,MARCUS
\n", "
RTV(42)
\n", "", "
NO
\n"], ["CURRENT PHONE #", "
S RTV(RTJ)=\"Unknown\" I $D(^RTV(195.9,+$P(RTCL,\"^\",5),0)),$P(^(0),\"^\",8)]\"\" S RTV(RTJ)=$P(^(0),\"^\",8)
\n", "
REQUEST
\n", "
Current Phone#:
\n", "
333-5553
\n", "
RTV(43)
\n", "", "
NO
\n"], ["CURRENT ROOM#", "
S RTV(RTJ)=\"Unknown\" I $D(^RTV(195.9,+$P(RTCL,\"^\",5),0)),$P(^(0),\"^\",9)]\"\" S RTV(RTJ)=$P(^(0),\"^\",9)
\n", "
REQUEST
\n", "
Current Room#:
\n", "
456D-1
\n", "
RTV(44)
\n", "", "
NO
\n"], ["REQUESTED DATE/TIME", "
S RTV(RTJ)=\"Unknown\" I $P(RTQ,\"^\",4) S Y=$P(RTQ,\"^\",4) D D^DIQ S RTV(RTJ)=Y
\n", "
REQUEST
\n", "
Needed:
\n", "
JAN 17,1986 11:30
\n", "
RTV(45)
\n", "", "
NO
\n"], ["REQUESTING USER", "
S RTV(RTJ)=$S($D(^VA(200,+$P(RTQ,\"^\",3),0)):$P(^(0),\"^\"),1:\"UNKNOWN\")
\n", "
REQUEST
\n", "
User:
\n", "
BOB TYPUSER
\n", "
RTV(46)
\n", "", "
NO
\n"], ["REQUEST COMMENT", "
S RTV(RTJ)=$S($D(^RTV(190.1,RTIFN,\"COMMENT\")):^(\"COMMENT\"),1:\"[No Comment Entered]\")
\n", "
REQUEST
\n", "
Comment:
\n", "
SEND TO DR. CASEY
\n", "
RTV(47)
\n", "", "
NO
\n"], ["DATE OF DEATH", "
S RTV(RTJ)=\"\" I $P(RT0,\";\",2)[\"DPT(\",$D(^DPT(+RT0,.35)) S Y=+$P(^(.35),\".\") I Y D D^DIQ S RTV(RTJ)=\"Deceased: \"_Y
\n", "
RECORD or REQUEST
\n", "
Dod:
\n", "
04/02/83
\n", "
RTV(48)
\n", "", ""], ["WARD LOCATION", "
S RTDPT=$P($P(RT0,\"^\"),\";\",2)=\"DPT(\" D:'RTDPT ^RTL3 Q:'RTDPT S RTV(RTJ)=$S($D(^DPT(+RT0,.1)):\"Ward: \"_^(.1),1:\"\")
\n", "
RECORD or REQUEST
\n", "", "
11D MICU
\n", "
RTV(49)
\n", "
\n
\n\n
\n", "
NO
\n"], ["SEX", "
S RTDPT=$P($P(RT0,\"^\"),\";\",2)=\"DPT(\" D:'RTDPT ^RTL3 Q:'RTDPT S Y=$S($D(^DPT(+RT0,0)):$P(^(0),\"^\",2),1:\"\"),C=$P(^DD(2,.02,0),\"^\",2) D Y^DIQ S RTV(RTJ)=$S(Y]\"\":Y,1:\"Unknown\") K RTDPT,Y,C
\n", "
RECORD or REQUEST
\n", "
Sex:
\n", "
FEMALE
\n", "
RTV(5)
\n", "
\n
\n\n
\n", ""], ["CURRENT BORROWER DATE/TIME", "
S (RTV(RTJ),Y)=$S($P(RTCL,\"^\",6):$P(RTCL,\"^\",6),1:\"\") I Y D D^DIQ S RTV(RTJ)=Y
\n", "
REQUEST
\n", "
Date Charged:
\n", "
July 10, 1991@19:00
\n", "
RTV(50)
\n", "", ""], ["AGE", "
S RTDPT=$P($P(RT0,\"^\"),\";\",2)=\"DPT(\" D:'RTDPT ^RTL3 S:RTDPT X=$P(^DPT(+RT0,0),\"^\",3),RTV(RTJ)=$E(X,4,7)_$E(X,2,3) S %DT=\"P\",X=RTV(RTJ),RTV(RTJ)=\"Unknown\" D ^%DT I Y>0 S X2=Y,X1=DT D ^%DTC S RTV(RTJ)=X\\365.25 K RTDPT,X,Y
\n", "
RECORD or REQUEST
\n", "
Age:
\n", "
65
\n", "
RTV(7)
\n", "
\n
\n\n
\n", ""]]}