Summary Table
| Categories |
Total Count |
| PII |
0 |
| URL |
0 |
| DNS |
0 |
| EKL |
0 |
| IP |
0 |
| PORT |
0 |
| VsID |
0 |
| CF |
0 |
| AI |
0 |
| VPD |
0 |
| PL |
0 |
| Other |
0 |
File Content
KIDS Distribution saved on Jun 13, 2019@09:49:42
VPR*1*14 T1
**KIDS**:VPR*1.0*14^
**INSTALL NAME**
VPR*1.0*14
"BLD",10485,0)
VPR*1.0*14^VIRTUAL PATIENT RECORD^0^3190613^n
"BLD",10485,4,0)
^9.64PA^^
"BLD",10485,6)
1^
"BLD",10485,6.3)
14
"BLD",10485,"KRN",0)
^9.67PA^8994^24
"BLD",10485,"KRN",.4,0)
.4
"BLD",10485,"KRN",.401,0)
.401
"BLD",10485,"KRN",.402,0)
.402
"BLD",10485,"KRN",.403,0)
.403
"BLD",10485,"KRN",.5,0)
.5
"BLD",10485,"KRN",.84,0)
.84
"BLD",10485,"KRN",1.5,0)
1.5
"BLD",10485,"KRN",1.5,"NM",0)
^9.68A^114^86
"BLD",10485,"KRN",1.5,"NM",1,0)
VPR ALLERGY^^0
"BLD",10485,"KRN",1.5,"NM",2,0)
VPR ALLERGY EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",3,0)
VPR ALLERGY SIGN/SYMPTOM^^0
"BLD",10485,"KRN",1.5,"NM",4,0)
VPR ALLERGY SIGN EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",5,0)
VPR ALLERGY OBSERVATION^^0
"BLD",10485,"KRN",1.5,"NM",6,0)
VPR VITAL EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",7,0)
VPR REFERRAL^^0
"BLD",10485,"KRN",1.5,"NM",8,0)
VPR REFERRAL EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",9,0)
VPR REFERRAL ACTIVITY^^0
"BLD",10485,"KRN",1.5,"NM",10,0)
VPR DOCUMENT^^0
"BLD",10485,"KRN",1.5,"NM",11,0)
VPR DOCUMENT EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",14,0)
VPR LRCH RESULT ITEM^^0
"BLD",10485,"KRN",1.5,"NM",15,0)
VPR LRCH RESULT ITEM EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",16,0)
VPR PROBLEM EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",17,0)
VPR VACCINATION^^0
"BLD",10485,"KRN",1.5,"NM",18,0)
VPR IMM EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",19,0)
VPR ADMISSION^^0
"BLD",10485,"KRN",1.5,"NM",20,0)
VPR ADMISSION EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",21,0)
VPR PATIENT^^0
"BLD",10485,"KRN",1.5,"NM",22,0)
VPR PATIENT EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",23,0)
VPR PATIENT ADDRESS^^0
"BLD",10485,"KRN",1.5,"NM",24,0)
VPR PATIENT ADDRESS EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",25,0)
VPR PATIENT TEMP ADDRESS^^0
"BLD",10485,"KRN",1.5,"NM",26,0)
VPR PAT TEMP ADD EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",27,0)
VPR PATIENT ECON2^^0
"BLD",10485,"KRN",1.5,"NM",28,0)
VPR PATIENT ECON2 ADDRESS^^0
"BLD",10485,"KRN",1.5,"NM",29,0)
VPR PATIENT NOK2^^0
"BLD",10485,"KRN",1.5,"NM",30,0)
VPR PATIENT NOK2 ADDRESS^^0
"BLD",10485,"KRN",1.5,"NM",31,0)
VPR VIETNAM SERVICE^^0
"BLD",10485,"KRN",1.5,"NM",32,0)
VPR LEBANON SERVICE^^0
"BLD",10485,"KRN",1.5,"NM",33,0)
VPR GRENADA SERVICE^^0
"BLD",10485,"KRN",1.5,"NM",34,0)
VPR PANAMA SERVICE^^0
"BLD",10485,"KRN",1.5,"NM",35,0)
VPR PERSIAN GULF SERVICE^^0
"BLD",10485,"KRN",1.5,"NM",36,0)
VPR SOMALIA SERVICE^^0
"BLD",10485,"KRN",1.5,"NM",37,0)
VPR YUGOSLAVIA SERVICE^^0
"BLD",10485,"KRN",1.5,"NM",38,0)
VPR POW STATUS^^0
"BLD",10485,"KRN",1.5,"NM",39,0)
VPR COMBAT PERIOD^^0
"BLD",10485,"KRN",1.5,"NM",40,0)
VPR COMBAT SERVICE^^0
"BLD",10485,"KRN",1.5,"NM",41,0)
VPR PATIENT AO^^0
"BLD",10485,"KRN",1.5,"NM",42,0)
VPR PATIENT IR^^0
"BLD",10485,"KRN",1.5,"NM",43,0)
VPR PATIENT SWA^^0
"BLD",10485,"KRN",1.5,"NM",44,0)
VPR PATIENT MILITARY SERVICE^^0
"BLD",10485,"KRN",1.5,"NM",45,0)
VPR PATIENT ENROLLMENT^^0
"BLD",10485,"KRN",1.5,"NM",46,0)
VPR DOSAGE STEP^^0
"BLD",10485,"KRN",1.5,"NM",47,0)
VPR DOSE EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",48,0)
VPR MED EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",49,0)
VPR IV PRODUCT^^0
"BLD",10485,"KRN",1.5,"NM",50,0)
VPR MEDICATION^^0
"BLD",10485,"KRN",1.5,"NM",51,0)
VPR APPOINTMENT^^0
"BLD",10485,"KRN",1.5,"NM",53,0)
VPR DRUG PRODUCT^^0
"BLD",10485,"KRN",1.5,"NM",54,0)
VPR DRUG PRODUCT EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",56,0)
VPR ETHNICITY^^0
"BLD",10485,"KRN",1.5,"NM",57,0)
VPR RACE^^0
"BLD",10485,"KRN",1.5,"NM",58,0)
VPR CDC EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",83,0)
VPR ORDER EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",84,0)
VPR PRF EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",85,0)
VPR ORDERABLE ITEM^^0
"BLD",10485,"KRN",1.5,"NM",86,0)
VPR ORDERABLE ITEM CODE^^0
"BLD",10485,"KRN",1.5,"NM",87,0)
VPR ORDERABLE ITEM EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",88,0)
VPR LAB ORDER^^0
"BLD",10485,"KRN",1.5,"NM",89,0)
VPR COMMENT^^0
"BLD",10485,"KRN",1.5,"NM",90,0)
VPR LRCH RESULT^^0
"BLD",10485,"KRN",1.5,"NM",91,0)
VPR LRAP REPORT^^0
"BLD",10485,"KRN",1.5,"NM",92,0)
VPR LRMI REPORT^^0
"BLD",10485,"KRN",1.5,"NM",93,0)
VPR SIGNER^^0
"BLD",10485,"KRN",1.5,"NM",94,0)
VPR SIGNER EXTENSION^^0
"BLD",10485,"KRN",1.5,"NM",95,0)
VPR MARITAL STATUS^^0
"BLD",10485,"KRN",1.5,"NM",96,0)
VPR P14 ALERT^^0
"BLD",10485,"KRN",1.5,"NM",97,0)
VPR P14 ALLERGY^^0
"BLD",10485,"KRN",1.5,"NM",98,0)
VPR P14 APPOINTMENT^^0
"BLD",10485,"KRN",1.5,"NM",99,0)
VPR P14 DOCUMENT^^0
"BLD",10485,"KRN",1.5,"NM",100,0)
VPR P14 ENCOUNTER ADM^^0
"BLD",10485,"KRN",1.5,"NM",101,0)
VPR P14 ENCOUNTER VISIT^^0
"BLD",10485,"KRN",1.5,"NM",102,0)
VPR P14 EXT ALLERGY^^0
"BLD",10485,"KRN",1.5,"NM",103,0)
VPR P14 EXT DOCUMENT^^0
"BLD",10485,"KRN",1.5,"NM",104,0)
VPR P14 EXT LABORDER^^0
"BLD",10485,"KRN",1.5,"NM",105,0)
VPR P14 EXT OBSERVATION^^0
"BLD",10485,"KRN",1.5,"NM",106,0)
VPR P14 EXT PROBLEM^^0
"BLD",10485,"KRN",1.5,"NM",107,0)
VPR P14 EXT REFERRAL^^0
"BLD",10485,"KRN",1.5,"NM",108,0)
VPR P14 LABORDER^^0
"BLD",10485,"KRN",1.5,"NM",109,0)
VPR P14 MEDICATION^^0
"BLD",10485,"KRN",1.5,"NM",110,0)
VPR P14 OBSERVATION^^0
"BLD",10485,"KRN",1.5,"NM",111,0)
VPR P14 PROBLEM^^0
"BLD",10485,"KRN",1.5,"NM",112,0)
VPR P14 RADORDER^^0
"BLD",10485,"KRN",1.5,"NM",113,0)
VPR P14 REFERRAL^^0
"BLD",10485,"KRN",1.5,"NM",114,0)
VPR P14 VACCINATION^^0
"BLD",10485,"KRN",1.5,"NM","B","VPR ADMISSION",19)
"BLD",10485,"KRN",1.5,"NM","B","VPR ADMISSION EXTENSION",20)
"BLD",10485,"KRN",1.5,"NM","B","VPR ALLERGY",1)
"BLD",10485,"KRN",1.5,"NM","B","VPR ALLERGY EXTENSION",2)
"BLD",10485,"KRN",1.5,"NM","B","VPR ALLERGY OBSERVATION",5)
"BLD",10485,"KRN",1.5,"NM","B","VPR ALLERGY SIGN EXTENSION",4)
"BLD",10485,"KRN",1.5,"NM","B","VPR ALLERGY SIGN/SYMPTOM",3)
"BLD",10485,"KRN",1.5,"NM","B","VPR APPOINTMENT",51)
"BLD",10485,"KRN",1.5,"NM","B","VPR CDC EXTENSION",58)
"BLD",10485,"KRN",1.5,"NM","B","VPR COMBAT PERIOD",39)
"BLD",10485,"KRN",1.5,"NM","B","VPR COMBAT SERVICE",40)
"BLD",10485,"KRN",1.5,"NM","B","VPR COMMENT",89)
"BLD",10485,"KRN",1.5,"NM","B","VPR DOCUMENT",10)
"BLD",10485,"KRN",1.5,"NM","B","VPR DOCUMENT EXTENSION",11)
"BLD",10485,"KRN",1.5,"NM","B","VPR DOSAGE STEP",46)
"BLD",10485,"KRN",1.5,"NM","B","VPR DOSE EXTENSION",47)
"BLD",10485,"KRN",1.5,"NM","B","VPR DRUG PRODUCT",53)
"BLD",10485,"KRN",1.5,"NM","B","VPR DRUG PRODUCT EXTENSION",54)
"BLD",10485,"KRN",1.5,"NM","B","VPR ETHNICITY",56)
"BLD",10485,"KRN",1.5,"NM","B","VPR GRENADA SERVICE",33)
"BLD",10485,"KRN",1.5,"NM","B","VPR IMM EXTENSION",18)
"BLD",10485,"KRN",1.5,"NM","B","VPR IV PRODUCT",49)
"BLD",10485,"KRN",1.5,"NM","B","VPR LAB ORDER",88)
"BLD",10485,"KRN",1.5,"NM","B","VPR LEBANON SERVICE",32)
"BLD",10485,"KRN",1.5,"NM","B","VPR LRAP REPORT",91)
"BLD",10485,"KRN",1.5,"NM","B","VPR LRCH RESULT",90)
"BLD",10485,"KRN",1.5,"NM","B","VPR LRCH RESULT ITEM",14)
"BLD",10485,"KRN",1.5,"NM","B","VPR LRCH RESULT ITEM EXTENSION",15)
"BLD",10485,"KRN",1.5,"NM","B","VPR LRMI REPORT",92)
"BLD",10485,"KRN",1.5,"NM","B","VPR MARITAL STATUS",95)
"BLD",10485,"KRN",1.5,"NM","B","VPR MED EXTENSION",48)
"BLD",10485,"KRN",1.5,"NM","B","VPR MEDICATION",50)
"BLD",10485,"KRN",1.5,"NM","B","VPR ORDER EXTENSION",83)
"BLD",10485,"KRN",1.5,"NM","B","VPR ORDERABLE ITEM",85)
"BLD",10485,"KRN",1.5,"NM","B","VPR ORDERABLE ITEM CODE",86)
"BLD",10485,"KRN",1.5,"NM","B","VPR ORDERABLE ITEM EXTENSION",87)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 ALERT",96)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 ALLERGY",97)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 APPOINTMENT",98)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 DOCUMENT",99)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 ENCOUNTER ADM",100)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 ENCOUNTER VISIT",101)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 EXT ALLERGY",102)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 EXT DOCUMENT",103)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 EXT LABORDER",104)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 EXT OBSERVATION",105)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 EXT PROBLEM",106)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 EXT REFERRAL",107)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 LABORDER",108)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 MEDICATION",109)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 OBSERVATION",110)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 PROBLEM",111)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 RADORDER",112)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 REFERRAL",113)
"BLD",10485,"KRN",1.5,"NM","B","VPR P14 VACCINATION",114)
"BLD",10485,"KRN",1.5,"NM","B","VPR PANAMA SERVICE",34)
"BLD",10485,"KRN",1.5,"NM","B","VPR PAT TEMP ADD EXTENSION",26)
"BLD",10485,"KRN",1.5,"NM","B","VPR PATIENT",21)
"BLD",10485,"KRN",1.5,"NM","B","VPR PATIENT ADDRESS",23)
"BLD",10485,"KRN",1.5,"NM","B","VPR PATIENT ADDRESS EXTENSION",24)
"BLD",10485,"KRN",1.5,"NM","B","VPR PATIENT AO",41)
"BLD",10485,"KRN",1.5,"NM","B","VPR PATIENT ECON2",27)
"BLD",10485,"KRN",1.5,"NM","B","VPR PATIENT ECON2 ADDRESS",28)
"BLD",10485,"KRN",1.5,"NM","B","VPR PATIENT ENROLLMENT",45)
"BLD",10485,"KRN",1.5,"NM","B","VPR PATIENT EXTENSION",22)
"BLD",10485,"KRN",1.5,"NM","B","VPR PATIENT IR",42)
"BLD",10485,"KRN",1.5,"NM","B","VPR PATIENT MILITARY SERVICE",44)
"BLD",10485,"KRN",1.5,"NM","B","VPR PATIENT NOK2",29)
"BLD",10485,"KRN",1.5,"NM","B","VPR PATIENT NOK2 ADDRESS",30)
"BLD",10485,"KRN",1.5,"NM","B","VPR PATIENT SWA",43)
"BLD",10485,"KRN",1.5,"NM","B","VPR PATIENT TEMP ADDRESS",25)
"BLD",10485,"KRN",1.5,"NM","B","VPR PERSIAN GULF SERVICE",35)
"BLD",10485,"KRN",1.5,"NM","B","VPR POW STATUS",38)
"BLD",10485,"KRN",1.5,"NM","B","VPR PRF EXTENSION",84)
"BLD",10485,"KRN",1.5,"NM","B","VPR PROBLEM EXTENSION",16)
"BLD",10485,"KRN",1.5,"NM","B","VPR RACE",57)
"BLD",10485,"KRN",1.5,"NM","B","VPR REFERRAL",7)
"BLD",10485,"KRN",1.5,"NM","B","VPR REFERRAL ACTIVITY",9)
"BLD",10485,"KRN",1.5,"NM","B","VPR REFERRAL EXTENSION",8)
"BLD",10485,"KRN",1.5,"NM","B","VPR SIGNER",93)
"BLD",10485,"KRN",1.5,"NM","B","VPR SIGNER EXTENSION",94)
"BLD",10485,"KRN",1.5,"NM","B","VPR SOMALIA SERVICE",36)
"BLD",10485,"KRN",1.5,"NM","B","VPR VACCINATION",17)
"BLD",10485,"KRN",1.5,"NM","B","VPR VIETNAM SERVICE",31)
"BLD",10485,"KRN",1.5,"NM","B","VPR VITAL EXTENSION",6)
"BLD",10485,"KRN",1.5,"NM","B","VPR YUGOSLAVIA SERVICE",37)
"BLD",10485,"KRN",1.6,0)
1.6
"BLD",10485,"KRN",1.61,0)
1.61
"BLD",10485,"KRN",1.62,0)
1.62
"BLD",10485,"KRN",3.6,0)
3.6
"BLD",10485,"KRN",3.8,0)
3.8
"BLD",10485,"KRN",9.2,0)
9.2
"BLD",10485,"KRN",9.8,0)
9.8
"BLD",10485,"KRN",9.8,"NM",0)
^9.68A^8^5
"BLD",10485,"KRN",9.8,"NM",2,0)
VPRSDA^^0^B206628559
"BLD",10485,"KRN",9.8,"NM",3,0)
VPRSDAP^^0^B43498708
"BLD",10485,"KRN",9.8,"NM",6,0)
VPREVNT^^0^B135630021
"BLD",10485,"KRN",9.8,"NM",7,0)
VPRSDAL^^0^B8753328
"BLD",10485,"KRN",9.8,"NM",8,0)
VPRSDAB^^0^B20709415
"BLD",10485,"KRN",9.8,"NM","B","VPREVNT",6)
"BLD",10485,"KRN",9.8,"NM","B","VPRSDA",2)
"BLD",10485,"KRN",9.8,"NM","B","VPRSDAB",8)
"BLD",10485,"KRN",9.8,"NM","B","VPRSDAL",7)
"BLD",10485,"KRN",9.8,"NM","B","VPRSDAP",3)
"BLD",10485,"KRN",19,0)
19
"BLD",10485,"KRN",19.1,0)
19.1
"BLD",10485,"KRN",101,0)
101
"BLD",10485,"KRN",101,"NM",0)
^9.68A^2^2
"BLD",10485,"KRN",101,"NM",1,0)
VPR PSB EVENTS^^0
"BLD",10485,"KRN",101,"NM",2,0)
PSB EVSEND VPR^^2
"BLD",10485,"KRN",101,"NM","B","PSB EVSEND VPR",2)
"BLD",10485,"KRN",101,"NM","B","VPR PSB EVENTS",1)
"BLD",10485,"KRN",409.61,0)
409.61
"BLD",10485,"KRN",771,0)
771
"BLD",10485,"KRN",779.2,0)
779.2
"BLD",10485,"KRN",870,0)
870
"BLD",10485,"KRN",8989.51,0)
8989.51
"BLD",10485,"KRN",8989.52,0)
8989.52
"BLD",10485,"KRN",8994,0)
8994
"BLD",10485,"KRN","B",.4,.4)
"BLD",10485,"KRN","B",.401,.401)
"BLD",10485,"KRN","B",.402,.402)
"BLD",10485,"KRN","B",.403,.403)
"BLD",10485,"KRN","B",.5,.5)
"BLD",10485,"KRN","B",.84,.84)
"BLD",10485,"KRN","B",1.5,1.5)
"BLD",10485,"KRN","B",1.6,1.6)
"BLD",10485,"KRN","B",1.61,1.61)
"BLD",10485,"KRN","B",1.62,1.62)
"BLD",10485,"KRN","B",3.6,3.6)
"BLD",10485,"KRN","B",3.8,3.8)
"BLD",10485,"KRN","B",9.2,9.2)
"BLD",10485,"KRN","B",9.8,9.8)
"BLD",10485,"KRN","B",19,19)
"BLD",10485,"KRN","B",19.1,19.1)
"BLD",10485,"KRN","B",101,101)
"BLD",10485,"KRN","B",409.61,409.61)
"BLD",10485,"KRN","B",771,771)
"BLD",10485,"KRN","B",779.2,779.2)
"BLD",10485,"KRN","B",870,870)
"BLD",10485,"KRN","B",8989.51,8989.51)
"BLD",10485,"KRN","B",8989.52,8989.52)
"BLD",10485,"KRN","B",8994,8994)
"BLD",10485,"QUES",0)
^9.62^^
"BLD",10485,"REQB",0)
^9.611^1^1
"BLD",10485,"REQB",1,0)
VPR*1.0*15^2
"BLD",10485,"REQB","B","VPR*1.0*15",1)
"KRN",1.5,13,-1)
0^88
"KRN",1.5,13,0)
VPR LAB ORDER^100^^^^S
"KRN",1.5,13,.1)
LabOrder
"KRN",1.5,13,1,0)
^1.51^28^27
"KRN",1.5,13,1,1,0)
EnteredAt^35^E^100^6^^1^VPR FACILITY
"KRN",1.5,13,1,1,4)
S:VALUE VALUE=$$GET1^DIQ(44,+VALUE_",",3,"I") S:'VALUE VALUE=$G(VASITE) ;#4 ien
"KRN",1.5,13,1,2,0)
EnteredBy^34^E^100^3^^1^VPR USER
"KRN",1.5,13,1,3,0)
EnteredOn^36^S^100^4^^1
"KRN",1.5,13,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,13,1,4,0)
FillerId^3^S^100^33
"KRN",1.5,13,1,4,6)
S VALUE=$G(ORPK) S:VALUE?1.";" DDEOUT=1
"KRN",1.5,13,1,5,0)
OrderCategory^6^E^100^23^^1^VPR DISPLAY GROUP
"KRN",1.5,13,1,5,4)
D DG^VPRSDAB(.VALUE) ;cks VALUE, sets LRSUB
"KRN",1.5,13,1,6,0)
OrderItem^5^E^100^^^^VPR ORDERABLE ITEM
"KRN",1.5,13,1,6,6)
S ORIT=$$OI^ORX8(DIEN),VALUE=+ORIT
"KRN",1.5,13,1,7,0)
OrderedBy^8^E^100^1^^1^VPR PROVIDER
"KRN",1.5,13,1,9,0)
Priority^19^E^100^^^^VPR LAB URGENCY
"KRN",1.5,13,1,9,6)
S VALUE=$$VALUE^ORX8(DIEN,"URGENCY")
"KRN",1.5,13,1,10,0)
ResultCopiesTo^29^L^100^35^^1^VPR PROVIDER
"KRN",1.5,13,1,10,1)
4^CareProvider
"KRN",1.5,13,1,10,6)
N X S IEN=$S($G(ORDAD):ORDAD,1:DIEN),X=$$GET1^DIQ(FILE,IEN_",",FIELD,"I") S:X DLIST(1)=X
"KRN",1.5,13,1,11,0)
Specimen^12^S^100
"KRN",1.5,13,1,11,6)
N ID S IEN=$S($G(ORLAB):ORLAB,1:DIEN),ID=$$VALUE^ORX8(IEN,"SPECIMEN") S:ID VALUE=$$GET1^DIQ(61,ID_",",.01)
"KRN",1.5,13,1,12,0)
SpecimenCollectedTime^13^S^100^21^^1
"KRN",1.5,13,1,12,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,13,1,12,6)
S VALUE=$G(VPRCDT) S:$G(ORLAB) IEN=ORLAB
"KRN",1.5,13,1,13,0)
Status^18^S^100^5^.02
"KRN",1.5,13,1,13,4)
N X S X=VALUE,VALUE=$S(X="dc":"D",X="canc":"C",X="laps":"C",X="dc/e":"R",X="comp":"E",X="exp":"E",X="hold":"H",X="part":"A",1:"IP")
"KRN",1.5,13,1,14,0)
Result^39^E^100^33^^^VPR LRCH RESULT
"KRN",1.5,13,1,14,4)
"KRN",1.5,13,1,14,6)
D RSLT^VPRSDAB
"KRN",1.5,13,1,15,0)
PlacerId^1^I
"KRN",1.5,13,1,15,6)
S VALUE=$G(ORLAB) ;associated Lab order, if VBECS
"KRN",1.5,13,1,16,0)
EnteringOrganization^9^E^100^6^^1^VPR LOCATION
"KRN",1.5,13,1,16,4)
S VALUE=+VALUE S:VALUE<1 VALUE=""
"KRN",1.5,13,1,17,0)
FromTime^37^S^100^21^^1
"KRN",1.5,13,1,17,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,13,1,17,6)
S VALUE=$G(VPRCDT) S:$G(ORLAB) IEN=ORLAB
"KRN",1.5,13,1,18,0)
ToTime^38^S^100^22^^1
"KRN",1.5,13,1,18,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,13,1,19,0)
UpdatedOn^50^S^100^31^^1
"KRN",1.5,13,1,19,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,13,1,20,0)
AuthorizationTime^26^S^100.008^6^^1
"KRN",1.5,13,1,20,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,13,1,20,6)
S IEN="1,"_$S($G(ORDAD):ORDAD,1:DIEN) ;signature on parent
"KRN",1.5,13,1,21,0)
Extension^53^E^100^^^^VPR ORDER EXTENSION
"KRN",1.5,13,1,21,6)
S VALUE=DIEN
"KRN",1.5,13,1,22,0)
ExternalId^51^I
"KRN",1.5,13,1,22,6)
"KRN",1.5,13,1,23,0)
OrderQuantity^7^F
"KRN",1.5,13,1,23,6)
I $G(VPRVBEC) S VALUE=$$VALUE^ORX8(DIEN,"QTY")
"KRN",1.5,13,1,24,0)
TextInstruction^22^F
"KRN",1.5,13,1,24,6)
I $G(VPRVBEC) S VALUE=$$VALUE^ORX8(DIEN,"MODIFIER")
"KRN",1.5,13,1,25,0)
Comments^24^F
"KRN",1.5,13,1,25,6)
S VALUE=$$VALUE^ORX8(DIEN,"COMMENT")
"KRN",1.5,13,1,26,0)
GroupId^30^S^100^36^^1
"KRN",1.5,13,1,26,6)
S VALUE=$G(ORDAD) S:VALUE="" DDEOUT=1
"KRN",1.5,13,1,27,0)
ReasonForStudy^49^F
"KRN",1.5,13,1,27,6)
I $G(VPRVBEC) S VALUE=$$VALUE^ORX8(DIEN,"REASON")
"KRN",1.5,13,1,28,0)
ClinicalInformation^41^F
"KRN",1.5,13,1,28,6)
I $G(VPRVBEC) S VALUE=$$VALUE^ORX8(DIEN,"MISC")
"KRN",1.5,13,1,"B","AuthorizationTime",20)
"KRN",1.5,13,1,"B","ClinicalInformation",28)
"KRN",1.5,13,1,"B","Comments",25)
"KRN",1.5,13,1,"B","EnteredAt",1)
"KRN",1.5,13,1,"B","EnteredBy",2)
"KRN",1.5,13,1,"B","EnteredOn",3)
"KRN",1.5,13,1,"B","EnteringOrganization",16)
"KRN",1.5,13,1,"B","Extension",21)
"KRN",1.5,13,1,"B","ExternalId",22)
"KRN",1.5,13,1,"B","FillerId",4)
"KRN",1.5,13,1,"B","FromTime",17)
"KRN",1.5,13,1,"B","GroupId",26)
"KRN",1.5,13,1,"B","OrderCategory",5)
"KRN",1.5,13,1,"B","OrderItem",6)
"KRN",1.5,13,1,"B","OrderQuantity",23)
"KRN",1.5,13,1,"B","OrderedBy",7)
"KRN",1.5,13,1,"B","PlacerId",15)
"KRN",1.5,13,1,"B","Priority",9)
"KRN",1.5,13,1,"B","ReasonForStudy",27)
"KRN",1.5,13,1,"B","Result",14)
"KRN",1.5,13,1,"B","ResultCopiesTo",10)
"KRN",1.5,13,1,"B","Specimen",11)
"KRN",1.5,13,1,"B","SpecimenCollectedTime",12)
"KRN",1.5,13,1,"B","Status",13)
"KRN",1.5,13,1,"B","TextInstruction",24)
"KRN",1.5,13,1,"B","ToTime",18)
"KRN",1.5,13,1,"B","UpdatedOn",19)
"KRN",1.5,13,1,"SEQ",1,15)
"KRN",1.5,13,1,"SEQ",3,4)
"KRN",1.5,13,1,"SEQ",5,6)
"KRN",1.5,13,1,"SEQ",6,5)
"KRN",1.5,13,1,"SEQ",7,23)
"KRN",1.5,13,1,"SEQ",8,7)
"KRN",1.5,13,1,"SEQ",9,16)
"KRN",1.5,13,1,"SEQ",12,11)
"KRN",1.5,13,1,"SEQ",13,12)
"KRN",1.5,13,1,"SEQ",18,13)
"KRN",1.5,13,1,"SEQ",19,9)
"KRN",1.5,13,1,"SEQ",22,24)
"KRN",1.5,13,1,"SEQ",24,25)
"KRN",1.5,13,1,"SEQ",26,20)
"KRN",1.5,13,1,"SEQ",29,10)
"KRN",1.5,13,1,"SEQ",30,26)
"KRN",1.5,13,1,"SEQ",34,2)
"KRN",1.5,13,1,"SEQ",35,1)
"KRN",1.5,13,1,"SEQ",36,3)
"KRN",1.5,13,1,"SEQ",37,17)
"KRN",1.5,13,1,"SEQ",38,18)
"KRN",1.5,13,1,"SEQ",39,14)
"KRN",1.5,13,1,"SEQ",41,28)
"KRN",1.5,13,1,"SEQ",49,27)
"KRN",1.5,13,1,"SEQ",50,19)
"KRN",1.5,13,1,"SEQ",51,22)
"KRN",1.5,13,1,"SEQ",53,21)
"KRN",1.5,13,2)
S:'DFN&ID DFN=+$P($G(^OR(100,ID,0)),U,2) S LRDFN=+$$LRDFN^LRPXAPIU(DFN) S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,13,3)
K LRDFN,LRSUB,VASITE,ORIT,ORPK,ORDAD,ORLAB,VPRCDT,VPRVBEC
"KRN",1.5,13,4)
D ONE^VPRSDAB(DIEN)
"KRN",1.5,13,5)
ORDERS^VPRSDAQ("LAB")
"KRN",1.5,13,19,0)
^1.519^1^1^3190606^^
"KRN",1.5,13,19,1,0)
This entity populates the Lab Order container in HealthShare.
"KRN",1.5,15,-1)
0^85
"KRN",1.5,15,0)
VPR ORDERABLE ITEM^101.43^^^^S
"KRN",1.5,15,.1)
Order
"KRN",1.5,15,1,0)
^1.51^4^4
"KRN",1.5,15,1,1,0)
Code^6^I
"KRN",1.5,15,1,2,0)
Description^7^S^101.43^.01
"KRN",1.5,15,1,3,0)
SDACodingStandard^1^F
"KRN",1.5,15,1,3,2)
VA101.43
"KRN",1.5,15,1,4,0)
Extension^5^E^101.43^^^^VPR ORDERABLE ITEM EXTENSION
"KRN",1.5,15,1,4,6)
S VALUE=DIEN
"KRN",1.5,15,1,"B","Code",1)
"KRN",1.5,15,1,"B","Description",2)
"KRN",1.5,15,1,"B","Extension",4)
"KRN",1.5,15,1,"B","SDACodingStandard",3)
"KRN",1.5,15,1,"SEQ",1,3)
"KRN",1.5,15,1,"SEQ",5,4)
"KRN",1.5,15,1,"SEQ",6,1)
"KRN",1.5,15,1,"SEQ",7,2)
"KRN",1.5,15,19,0)
^^1^1^3190606^
"KRN",1.5,15,19,1,0)
This entity returns an Orderable Item #101.43 entry as a coded element.
"KRN",1.5,17,-1)
0^90
"KRN",1.5,17,0)
VPR LRCH RESULT^63.04^^^^S
"KRN",1.5,17,.1)
Result
"KRN",1.5,17,1,0)
^1.51^9^9
"KRN",1.5,17,1,1,0)
Extension^3^E^63.04^^^^VPR LRCH RESULT EXTENSION
"KRN",1.5,17,1,1,6)
S VALUE=DIEN
"KRN",1.5,17,1,2,0)
EnteredAt^22^E^63.04^.112^^1^VPR FACILITY
"KRN",1.5,17,1,2,6)
S VALUE=$G(LRFAC) S:'VALUE VALUE=$P($G(LR0),U,14)
"KRN",1.5,17,1,3,0)
ResultTime^7^S^63.04^.03^^1
"KRN",1.5,17,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,17,1,3,6)
S VALUE=$P($G(LR0),U,3)
"KRN",1.5,17,1,4,0)
ResultStatus^8^S^63.04^.03^^1
"KRN",1.5,17,1,4,4)
S VALUE=$S(VALUE:"F",1:"P") ;Date Rpt Comp = Final
"KRN",1.5,17,1,4,5)
S VALUE=""
"KRN",1.5,17,1,4,6)
S VALUE=$P($G(LR0),U,3)
"KRN",1.5,17,1,5,0)
ResultType^4^F
"KRN",1.5,17,1,5,2)
AT
"KRN",1.5,17,1,6,0)
VerifiedBy^6^E^63.04^.04^^1^VPR USER
"KRN",1.5,17,1,6,6)
S VALUE=$G(LRVER) S:'VALUE VALUE=$P($G(LR0),U,4)
"KRN",1.5,17,1,7,0)
Comments^15^W^63.04^.99^^^^1
"KRN",1.5,17,1,7,6)
N I S I=0 F S I=$O(^LR(+$G(LRDFN),"CH",+IEN,1,I)) S:(I="")&'$D(WP) DDEOUT=1 Q:I<1 S WP(I)=$P($G(^(I,0)),U)
"KRN",1.5,17,1,8,0)
ResultItems^5^L^^^^^VPR LRCH RESULT ITEM
"KRN",1.5,17,1,8,1)
4^LabResultItem
"KRN",1.5,17,1,8,6)
D CH^VPRSDAB(+DATA) ;build DLIST(60 ien) = CH data node#,LRIDT,LRDFN
"KRN",1.5,17,1,9,0)
ExternalId^24^F
"KRN",1.5,17,1,9,6)
S VALUE="CH;"_+DIEN
"KRN",1.5,17,1,"B","Comments",7)
"KRN",1.5,17,1,"B","EnteredAt",2)
"KRN",1.5,17,1,"B","Extension",1)
"KRN",1.5,17,1,"B","ExternalId",9)
"KRN",1.5,17,1,"B","ResultItems",8)
"KRN",1.5,17,1,"B","ResultStatus",4)
"KRN",1.5,17,1,"B","ResultTime",3)
"KRN",1.5,17,1,"B","ResultType",5)
"KRN",1.5,17,1,"B","VerifiedBy",6)
"KRN",1.5,17,1,"SEQ",3,1)
"KRN",1.5,17,1,"SEQ",4,5)
"KRN",1.5,17,1,"SEQ",5,8)
"KRN",1.5,17,1,"SEQ",6,6)
"KRN",1.5,17,1,"SEQ",7,3)
"KRN",1.5,17,1,"SEQ",8,4)
"KRN",1.5,17,1,"SEQ",15,7)
"KRN",1.5,17,1,"SEQ",22,2)
"KRN",1.5,17,1,"SEQ",24,9)
"KRN",1.5,17,3)
K LRVER,LRFAC
"KRN",1.5,17,4)
S LR0=$G(^LR(LRDFN,"CH",+DIEN,0)) I '$P(LR0,U,3) S DDEOUT=1
"KRN",1.5,17,19,0)
^^3^3^3190606^
"KRN",1.5,17,19,1,0)
This entity expects ID = IENS string of the desired accession in the Chem
"KRN",1.5,17,19,2,0)
sub-file #63.04 ('IDT,LRDFN'), and DATA = #60 ien of the ordered test or
"KRN",1.5,17,19,3,0)
panel. It is intended to be used with VPR LAB ORDER.
"KRN",1.5,18,-1)
0^14
"KRN",1.5,18,0)
VPR LRCH RESULT ITEM^63.04^^^^S
"KRN",1.5,18,.1)
ResultItem
"KRN",1.5,18,1,0)
^1.51^11^11
"KRN",1.5,18,1,1,0)
ObservationTime^18^S^63.04
"KRN",1.5,18,1,1,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,18,1,1,6)
S VALUE=9999999-$P(IEN,",",2)
"KRN",1.5,18,1,2,0)
ResultValue^5^F
"KRN",1.5,18,1,2,6)
S VALUE=$P(LRNODE,U)
"KRN",1.5,18,1,3,0)
ResultValueUnits^7^F
"KRN",1.5,18,1,3,6)
S VALUE=$P($P(LRNODE,U,5),"!",7)
"KRN",1.5,18,1,4,0)
ResultInterpretation^9^F
"KRN",1.5,18,1,4,6)
N X S X=$P(LRNODE,U,2) S:$L(X) VALUE=$E(X)_$S($E(X,2)="*":$E(X),1:"")
"KRN",1.5,18,1,5,0)
ResultNormalRange^8^F
"KRN",1.5,18,1,5,6)
S VALUE=$TR($P($P(LRNODE,U,5),"!",2,3),"!","-") I VALUE="-" S DDEOUT=1
"KRN",1.5,18,1,6,0)
TestItemCode^4^E^63.04^^^^VPR LAB TEST
"KRN",1.5,18,1,6,6)
S VALUE=$P($P(LRNODE,U,3),"!",7) S:VALUE="" VALUE=$$TEST^LRPXAPIU(+IEN)
"KRN",1.5,18,1,7,0)
PerformedAt^13^E^63.04^^^^VPR FACILITY
"KRN",1.5,18,1,7,6)
S VALUE=$P(LRNODE,U,9),LRFAC=VALUE
"KRN",1.5,18,1,8,0)
ResultCodedValue^17^E^63.04^^^^VPR LOINC
"KRN",1.5,18,1,8,6)
S VALUE=$P($P(LRNODE,U,3),"!",3)
"KRN",1.5,18,1,9,0)
ExternalId^23^F
"KRN",1.5,18,1,9,6)
S VALUE="CH;"_+$P(DIEN,",",2)_";"_+DIEN
"KRN",1.5,18,1,10,0)
Extension^3^E^63.04^^^^VPR LRCH RESULT ITEM EXTENSION
"KRN",1.5,18,1,10,6)
S VALUE=$G(LRNODE)
"KRN",1.5,18,1,11,0)
TestItemStatus^11^F
"KRN",1.5,18,1,11,6)
S VALUE=$S($P(LRNODE,U)["pending":"P",1:"F")
"KRN",1.5,18,1,"B","Extension",10)
"KRN",1.5,18,1,"B","ExternalId",9)
"KRN",1.5,18,1,"B","ObservationTime",1)
"KRN",1.5,18,1,"B","PerformedAt",7)
"KRN",1.5,18,1,"B","ResultCodedValue",8)
"KRN",1.5,18,1,"B","ResultInterpretation",4)
"KRN",1.5,18,1,"B","ResultNormalRange",5)
"KRN",1.5,18,1,"B","ResultValue",2)
"KRN",1.5,18,1,"B","ResultValueUnits",3)
"KRN",1.5,18,1,"B","TestItemCode",6)
"KRN",1.5,18,1,"B","TestItemStatus",11)
"KRN",1.5,18,1,"SEQ",3,10)
"KRN",1.5,18,1,"SEQ",4,6)
"KRN",1.5,18,1,"SEQ",5,2)
"KRN",1.5,18,1,"SEQ",7,3)
"KRN",1.5,18,1,"SEQ",8,5)
"KRN",1.5,18,1,"SEQ",9,4)
"KRN",1.5,18,1,"SEQ",11,11)
"KRN",1.5,18,1,"SEQ",13,7)
"KRN",1.5,18,1,"SEQ",17,8)
"KRN",1.5,18,1,"SEQ",18,1)
"KRN",1.5,18,1,"SEQ",23,9)
"KRN",1.5,18,3)
K LRNODE
"KRN",1.5,18,4)
D LRVALUE^LRPXAPI(.LRNODE,+$P(DIEN,",",3),+$P(DIEN,",",2),+DIEN) S LRVER=$P(LRNODE,"|",4) S:LRNODE="" DDEOUT=1
"KRN",1.5,18,19,0)
^^3^3^3190606^
"KRN",1.5,18,19,1,0)
This entity expects ID = IENS string of the desired test result in the
"KRN",1.5,18,19,2,0)
Chem sub-file #63.04 ('DN,IDT,LRDFN'). It is intended to be used with VPR
"KRN",1.5,18,19,3,0)
LRCH RESULT.
"KRN",1.5,20,-1)
0^21
"KRN",1.5,20,0)
VPR PATIENT^2^^^^S
"KRN",1.5,20,.1)
Patient
"KRN",1.5,20,1,0)
^1.51^53^40
"KRN",1.5,20,1,1,0)
Name^3^E^2^.01^^^VPR NAME
"KRN",1.5,20,1,1,6)
S VALUE=$G(VADM(1))
"KRN",1.5,20,1,4,0)
MothersMaidenName^5^S^2^.2403
"KRN",1.5,20,1,4,4)
S VALUE=$P(VALUE,",")
"KRN",1.5,20,1,4,6)
S VALUE=$G(VAPD(5))
"KRN",1.5,20,1,5,0)
MothersFullName^6^E^2^.2402^^^VPR NAME
"KRN",1.5,20,1,5,6)
S VALUE=$G(VAPD(4))
"KRN",1.5,20,1,6,0)
Aliases^7^L^2.01^^^^VPR PATIENT ALIAS
"KRN",1.5,20,1,6,1)
2^Name
"KRN",1.5,20,1,7,0)
PrimaryLanguage^8^E^2.07^^^^VPR LANGUAGE
"KRN",1.5,20,1,7,6)
N X S X=$P($G(VADM(13,1)),U,2) I $L(X) S DATA=X,VALUE=$$FIND1^DIC(.85,,"X",X)
"KRN",1.5,20,1,8,0)
Religion^10^E^2^.08^^1^VPR RELIGION
"KRN",1.5,20,1,8,6)
S VALUE=$P($G(VADM(9)),U),DATA=$P($G(VADM(9)),U,2)
"KRN",1.5,20,1,9,0)
MaritalStatus^11^E^2^.05^^1^VPR MARITAL STATUS
"KRN",1.5,20,1,9,6)
N X S X=$G(VADM(10)) S:'X DDEOUT=1 I X S VALUE=+$G(^DIC(11,+X,"MASTER")) S:'VALUE DATA=X
"KRN",1.5,20,1,10,0)
Gender^12^E^2^.02^^1^VPR CODE TABLE
"KRN",1.5,20,1,10,6)
S VALUE=$G(VADM(5))
"KRN",1.5,20,1,11,0)
Races^15^L^2.02^^^^VPR RACE
"KRN",1.5,20,1,11,1)
4^Race
"KRN",1.5,20,1,11,6)
N I S I=0 F S I=$O(VADM(12,I)) Q:I<1 S DLIST(I)=I ;M DLIST=VADM(12)
"KRN",1.5,20,1,12,0)
EthnicGroup^16^E^2.06^^^^VPR ETHNICITY
"KRN",1.5,20,1,12,6)
S VALUE=$P($G(VADM(11,1)),U)
"KRN",1.5,20,1,13,0)
SupportContacts^17^L^2
"KRN",1.5,20,1,13,1)
3^SupportContact
"KRN",1.5,20,1,13,3,0)
^1.513I^4^4
"KRN",1.5,20,1,13,3,1,0)
1^NOK
"KRN",1.5,20,1,13,3,2,0)
2^ECON
"KRN",1.5,20,1,13,3,3,0)
3^NOK2
"KRN",1.5,20,1,13,3,4,0)
4^ECON2
"KRN",1.5,20,1,13,3,"B",1,1)
"KRN",1.5,20,1,13,3,"B",2,2)
"KRN",1.5,20,1,13,3,"B",3,3)
"KRN",1.5,20,1,13,3,"B",4,4)
"KRN",1.5,20,1,14,0)
BirthTime^18^S^2^.03^^1
"KRN",1.5,20,1,14,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,20,1,14,6)
S VALUE=$P($G(VADM(3)),U) I $E(VALUE,4,5)="00"!($E(VALUE,6,7)="00") S DDEOUT=1
"KRN",1.5,20,1,15,0)
IsProtected^21^S^38.1^2^^1
"KRN",1.5,20,1,15,4)
S VALUE=$S(VALUE:"true",VALUE=0:"false",1:"")
"KRN",1.5,20,1,15,5)
S VALUE=$S(VALUE="true":1,VALUE="false":0,1:"")
"KRN",1.5,20,1,16,0)
ProtectedEffectiveDate^22^S^38.1^4^^1
"KRN",1.5,20,1,16,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,20,1,17,0)
DeathTime^23^S^2^.351^^1
"KRN",1.5,20,1,17,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,20,1,17,6)
S VALUE=$P($G(VADM(6)),U)
"KRN",1.5,20,1,18,0)
IsDead^24^S^2^.351^^1
"KRN",1.5,20,1,18,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,20,1,18,5)
S VALUE=""
"KRN",1.5,20,1,18,6)
S VALUE=+$G(VADM(6))
"KRN",1.5,20,1,19,0)
PatientNumbers^28^L
"KRN",1.5,20,1,19,1)
3^PatientNumber
"KRN",1.5,20,1,19,3,0)
^1.513I^2^2
"KRN",1.5,20,1,19,3,1,0)
1^SSN
"KRN",1.5,20,1,19,3,2,0)
2^MRN
"KRN",1.5,20,1,19,3,"B",1,1)
"KRN",1.5,20,1,19,3,"B",2,2)
"KRN",1.5,20,1,20,0)
Addresses^30^L
"KRN",1.5,20,1,20,1)
3^Address
"KRN",1.5,20,1,20,3,0)
^1.513I^2^2
"KRN",1.5,20,1,20,3,1,0)
1^PermanentAddress
"KRN",1.5,20,1,20,3,2,0)
2^TemporaryAddress
"KRN",1.5,20,1,20,3,"B",1,1)
"KRN",1.5,20,1,20,3,"B",2,2)
"KRN",1.5,20,1,21,0)
ContactInfo^31^C^
"KRN",1.5,20,1,21,3,0)
^1.513I^4^4
"KRN",1.5,20,1,21,3,1,0)
1^HomePhoneNumber
"KRN",1.5,20,1,21,3,2,0)
2^WorkPhoneNumber
"KRN",1.5,20,1,21,3,3,0)
3^MobilePhoneNumber
"KRN",1.5,20,1,21,3,4,0)
4^EmailAddress
"KRN",1.5,20,1,21,3,"B",1,1)
"KRN",1.5,20,1,21,3,"B",2,2)
"KRN",1.5,20,1,21,3,"B",3,3)
"KRN",1.5,20,1,21,3,"B",4,4)
"KRN",1.5,20,1,22,0)
FamilyDoctor^32^E^2^^^^VPR FAMILY DOCTOR
"KRN",1.5,20,1,22,6)
N X S X=$$OUTPTPR^SDUTL3(DIEN) S:X VALUE=+X ;pcProvider
"KRN",1.5,20,1,23,0)
Occupation^34^E^2^.07^^^VPR CODE ONLY
"KRN",1.5,20,1,23,6)
S VALUE=$G(VAPD(6))
"KRN",1.5,20,1,24,0)
Comments^37^S^2^.091
"KRN",1.5,20,1,24,6)
S VALUE=$G(VADM(7))
"KRN",1.5,20,1,27,0)
EnteredBy^43^E^2^.096^^1^VPR USER
"KRN",1.5,20,1,28,0)
EnteredAt^45^E^2^^^^VPR FACILITY
"KRN",1.5,20,1,28,6)
S VALUE=$G(VASITE) ;default #4 ien
"KRN",1.5,20,1,29,0)
EnteredOn^46^S^2^.097^^1
"KRN",1.5,20,1,29,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,20,1,32,0)
PermanentAddress^^E^2^^^^VPR PATIENT ADDRESS
"KRN",1.5,20,1,32,6)
S VALUE=DIEN
"KRN",1.5,20,1,33,0)
HomePhoneNumber^^S^2^.131
"KRN",1.5,20,1,34,0)
WorkPhoneNumber^^S^2^.132
"KRN",1.5,20,1,35,0)
MobilePhoneNumber^^S^2^.134
"KRN",1.5,20,1,36,0)
EmailAddress^^S^2^.133
"KRN",1.5,20,1,37,0)
SSN^^E^2^.09^^^VPR PATIENT NUMBER
"KRN",1.5,20,1,37,4)
S VALUE=VALUE_"^SSN^^SSA"
"KRN",1.5,20,1,37,6)
S VALUE=$P($G(VADM(2)),U)
"KRN",1.5,20,1,42,0)
MRN^^E^2^^^^VPR PATIENT NUMBER
"KRN",1.5,20,1,42,6)
S VALUE=DIEN_"^MRN^"_$G(VASTN)_U_$G(VASTN)
"KRN",1.5,20,1,46,0)
BirthPlace^19^E^2^^^^VPR PATIENT BIRTHPLACE
"KRN",1.5,20,1,46,6)
S VALUE=DIEN
"KRN",1.5,20,1,47,0)
NOK^^E^2^^^^VPR PATIENT NOK
"KRN",1.5,20,1,47,6)
S VALUE=DIEN
"KRN",1.5,20,1,48,0)
ECON^^E^2^^^^VPR PATIENT ECON
"KRN",1.5,20,1,48,6)
S VALUE=DIEN
"KRN",1.5,20,1,49,0)
Extension^1^E^2^^^^VPR PATIENT EXTENSION
"KRN",1.5,20,1,49,6)
S VALUE=DIEN
"KRN",1.5,20,1,50,0)
OtherLanguages^9^L^^^^^VPR PATIENT LANGUAGE
"KRN",1.5,20,1,50,1)
4^PatientLanguage
"KRN",1.5,20,1,50,6)
N I S I=+$G(VADM(13,1)) S:I DLIST(1)=I_","_$G(DFN)
"KRN",1.5,20,1,51,0)
TemporaryAddress^^E^2^^^^VPR PATIENT TEMP ADDRESS
"KRN",1.5,20,1,51,6)
S VALUE=DIEN S:$P($G(^DPT(DIEN,.121)),U,9)'="Y" DDEOUT=1
"KRN",1.5,20,1,52,0)
NOK2^^E^2^^^^VPR PATIENT NOK2
"KRN",1.5,20,1,52,6)
S VALUE=DIEN
"KRN",1.5,20,1,53,0)
ECON2^^E^2^^^^VPR PATIENT ECON2
"KRN",1.5,20,1,53,6)
S VALUE=DIEN
"KRN",1.5,20,1,"B","Addresses",20)
"KRN",1.5,20,1,"B","Aliases",6)
"KRN",1.5,20,1,"B","BirthPlace",46)
"KRN",1.5,20,1,"B","BirthTime",14)
"KRN",1.5,20,1,"B","Comments",24)
"KRN",1.5,20,1,"B","ContactInfo",21)
"KRN",1.5,20,1,"B","DeathTime",17)
"KRN",1.5,20,1,"B","ECON",48)
"KRN",1.5,20,1,"B","ECON2",53)
"KRN",1.5,20,1,"B","EmailAddress",36)
"KRN",1.5,20,1,"B","EnteredAt",28)
"KRN",1.5,20,1,"B","EnteredBy",27)
"KRN",1.5,20,1,"B","EnteredOn",29)
"KRN",1.5,20,1,"B","EthnicGroup",12)
"KRN",1.5,20,1,"B","Extension",49)
"KRN",1.5,20,1,"B","FamilyDoctor",22)
"KRN",1.5,20,1,"B","Gender",10)
"KRN",1.5,20,1,"B","HomePhoneNumber",33)
"KRN",1.5,20,1,"B","IsDead",18)
"KRN",1.5,20,1,"B","IsProtected",15)
"KRN",1.5,20,1,"B","MRN",42)
"KRN",1.5,20,1,"B","MaritalStatus",9)
"KRN",1.5,20,1,"B","MobilePhoneNumber",35)
"KRN",1.5,20,1,"B","MothersFullName",5)
"KRN",1.5,20,1,"B","MothersMaidenName",4)
"KRN",1.5,20,1,"B","NOK",47)
"KRN",1.5,20,1,"B","NOK2",52)
"KRN",1.5,20,1,"B","Name",1)
"KRN",1.5,20,1,"B","Occupation",23)
"KRN",1.5,20,1,"B","OtherLanguages",50)
"KRN",1.5,20,1,"B","PatientNumbers",19)
"KRN",1.5,20,1,"B","PermanentAddress",32)
"KRN",1.5,20,1,"B","PrimaryLanguage",7)
"KRN",1.5,20,1,"B","ProtectedEffectiveDate",16)
"KRN",1.5,20,1,"B","Races",11)
"KRN",1.5,20,1,"B","Religion",8)
"KRN",1.5,20,1,"B","SSN",37)
"KRN",1.5,20,1,"B","SupportContacts",13)
"KRN",1.5,20,1,"B","TemporaryAddress",51)
"KRN",1.5,20,1,"B","WorkPhoneNumber",34)
"KRN",1.5,20,1,"SEQ",1,49)
"KRN",1.5,20,1,"SEQ",3,1)
"KRN",1.5,20,1,"SEQ",5,4)
"KRN",1.5,20,1,"SEQ",6,5)
"KRN",1.5,20,1,"SEQ",7,6)
"KRN",1.5,20,1,"SEQ",8,7)
"KRN",1.5,20,1,"SEQ",9,50)
"KRN",1.5,20,1,"SEQ",10,8)
"KRN",1.5,20,1,"SEQ",11,9)
"KRN",1.5,20,1,"SEQ",12,10)
"KRN",1.5,20,1,"SEQ",15,11)
"KRN",1.5,20,1,"SEQ",16,12)
"KRN",1.5,20,1,"SEQ",17,13)
"KRN",1.5,20,1,"SEQ",18,14)
"KRN",1.5,20,1,"SEQ",19,46)
"KRN",1.5,20,1,"SEQ",21,15)
"KRN",1.5,20,1,"SEQ",22,16)
"KRN",1.5,20,1,"SEQ",23,17)
"KRN",1.5,20,1,"SEQ",24,18)
"KRN",1.5,20,1,"SEQ",28,19)
"KRN",1.5,20,1,"SEQ",30,20)
"KRN",1.5,20,1,"SEQ",31,21)
"KRN",1.5,20,1,"SEQ",32,22)
"KRN",1.5,20,1,"SEQ",34,23)
"KRN",1.5,20,1,"SEQ",37,24)
"KRN",1.5,20,1,"SEQ",43,27)
"KRN",1.5,20,1,"SEQ",45,28)
"KRN",1.5,20,1,"SEQ",46,29)
"KRN",1.5,20,2)
N X S X=$$SITE^VASITE S:X>0 VASITE=+X,VASTN=$P(X,U,3) I X'>0 S VASITE=$$KSP^XUPARAM("INST"),VASTN=$$STA^XUAF4(VASITE)
"KRN",1.5,20,3)
K VA,VADM,VAPD,DDESC,VASITE,VASTN
"KRN",1.5,20,4)
S DFN=DIEN D DEM^VADPT,OPD^VADPT
"KRN",1.5,20,19,0)
^1.519^2^2^3190606^^^^
"KRN",1.5,20,19,1,0)
This entity populates the Patient container in HealthShare. Data is pulled
"KRN",1.5,20,19,2,0)
from the Registration package using supported calls to VADPT.
"KRN",1.5,23,-1)
0^57
"KRN",1.5,23,0)
VPR RACE^10.99^^^^S
"KRN",1.5,23,.1)
Race
"KRN",1.5,23,1,0)
^1.51^4^4
"KRN",1.5,23,1,1,0)
Code^6^S^10.99^1^
"KRN",1.5,23,1,1,6)
I '$G(DIEN),$G(DATA) S VALUE=$$GET1^DIQ(10,+DATA,3,"I") ;use #10 code if no master
"KRN",1.5,23,1,2,0)
Description^7^S^10.99^.01
"KRN",1.5,23,1,2,6)
I '$G(DIEN),$G(DATA) S VALUE=$$LOWER^VALM1($P(DATA,U,2)) ;use #10 name if no master
"KRN",1.5,23,1,3,0)
SDACodingStandard^1^F
"KRN",1.5,23,1,3,2)
CDC
"KRN",1.5,23,1,4,0)
Extension^5^E^10.99^^^^VPR CDC EXTENSION
"KRN",1.5,23,1,4,6)
S VALUE=$G(DATA1) ;VADM(12,#,1)
"KRN",1.5,23,1,"B","Code",1)
"KRN",1.5,23,1,"B","Description",2)
"KRN",1.5,23,1,"B","Extension",4)
"KRN",1.5,23,1,"B","SDACodingStandard",3)
"KRN",1.5,23,1,"SEQ",1,3)
"KRN",1.5,23,1,"SEQ",5,4)
"KRN",1.5,23,1,"SEQ",6,1)
"KRN",1.5,23,1,"SEQ",7,2)
"KRN",1.5,23,3)
K DATA,DATA1
"KRN",1.5,23,4)
S DATA=$G(VADM(12,DIEN)),DATA1=$G(VADM(12,DIEN,1)),DIEN=+$G(^DIC(10,+DATA,"MASTER")) ;convert #10 ien^name to #10.99 ien
"KRN",1.5,23,19,0)
^1.519^5^5^3190606^^
"KRN",1.5,23,19,1,0)
This entity supports VPR PATIENT, and expects the VADM(12,#) array from
"KRN",1.5,23,19,2,0)
VADPT where ID is the subscript. The GET ID ACTION logic will get the
"KRN",1.5,23,19,3,0)
Race file #10 ien from the current VADM(12) entry and convert it to Race
"KRN",1.5,23,19,4,0)
Master file #10.99 ien; the #10 ien^name will be available in DATA, and
"KRN",1.5,23,19,5,0)
the method of collection in DATA1.
"KRN",1.5,24,-1)
0^23
"KRN",1.5,24,0)
VPR PATIENT ADDRESS^2^^^^S
"KRN",1.5,24,.1)
Address
"KRN",1.5,24,1,0)
^1.51^8^7
"KRN",1.5,24,1,1,0)
Street^4^S^2^.111
"KRN",1.5,24,1,1,6)
S VALUE=$G(VAPA(1)) I $L(VALUE) N I F I=2,3 S:$L($G(VAPA(I))) VALUE=VALUE_";"_VAPA(I)
"KRN",1.5,24,1,2,0)
City^5^E^2^.114^^^VPR CODE ONLY
"KRN",1.5,24,1,2,6)
S VALUE=$G(VAPA(4))
"KRN",1.5,24,1,3,0)
State^6^E^2^.115^^1^VPR STATE
"KRN",1.5,24,1,3,6)
S VALUE=$P($G(VAPA(5)),U)
"KRN",1.5,24,1,4,0)
Zip^7^E^2^.1112^^^VPR CODE ONLY
"KRN",1.5,24,1,4,6)
S VALUE=$G(VAPA(6))
"KRN",1.5,24,1,6,0)
Country^8^E^2^.1173^^1^VPR COUNTRY
"KRN",1.5,24,1,7,0)
County^9^E^2^.117^^1^VPR CODE TABLE
"KRN",1.5,24,1,7,6)
S VALUE=$G(VAPA(7)) S:'VALUE DDEOUT=1 ;subfile ptr, can't use FM
"KRN",1.5,24,1,8,0)
Extension^1^E^2^^^^VPR PATIENT ADDRESS EXTENSION
"KRN",1.5,24,1,8,6)
S VALUE=DIEN S:$G(DRES)="" DDEOUT=1
"KRN",1.5,24,1,"B","City",2)
"KRN",1.5,24,1,"B","Country",6)
"KRN",1.5,24,1,"B","County",7)
"KRN",1.5,24,1,"B","Extension",8)
"KRN",1.5,24,1,"B","State",3)
"KRN",1.5,24,1,"B","Street",1)
"KRN",1.5,24,1,"B","Zip",4)
"KRN",1.5,24,1,"SEQ",1,8)
"KRN",1.5,24,1,"SEQ",4,1)
"KRN",1.5,24,1,"SEQ",5,2)
"KRN",1.5,24,1,"SEQ",6,3)
"KRN",1.5,24,1,"SEQ",7,4)
"KRN",1.5,24,1,"SEQ",8,6)
"KRN",1.5,24,1,"SEQ",9,7)
"KRN",1.5,24,2)
S DFN=ID,VAPA("P")="" D ADD^VADPT
"KRN",1.5,24,3)
K VAPA
"KRN",1.5,24,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,24,19,1,0)
This entity supports VPR PATIENT, and expects the Patient file #2 ien
"KRN",1.5,24,19,2,0)
as the ID.
"KRN",1.5,26,-1)
0^56
"KRN",1.5,26,0)
VPR ETHNICITY^10.2^^^^S
"KRN",1.5,26,.1)
EthnicGroup
"KRN",1.5,26,1,0)
^1.51^4^4
"KRN",1.5,26,1,1,0)
Code^2^S^10.2^3^
"KRN",1.5,26,1,2,0)
Description^3^S^10.2^.01
"KRN",1.5,26,1,2,6)
S VALUE=$P($G(VADM(11,1)),U,2)
"KRN",1.5,26,1,3,0)
SDACodingStandard^1^F
"KRN",1.5,26,1,3,2)
CDC
"KRN",1.5,26,1,4,0)
Extension^7^E^10.3^^^^VPR CDC EXTENSION
"KRN",1.5,26,1,4,6)
S VALUE=$G(VADM(11,1,1))
"KRN",1.5,26,1,"B","Code",1)
"KRN",1.5,26,1,"B","Description",2)
"KRN",1.5,26,1,"B","Extension",4)
"KRN",1.5,26,1,"B","SDACodingStandard",3)
"KRN",1.5,26,1,"SEQ",1,3)
"KRN",1.5,26,1,"SEQ",2,1)
"KRN",1.5,26,1,"SEQ",3,2)
"KRN",1.5,26,1,"SEQ",7,4)
"KRN",1.5,26,19,0)
^1.519^2^2^3190606^^^
"KRN",1.5,26,19,1,0)
This entity supports VPR PATIENT, and expects the Ethnicity file #10.2
"KRN",1.5,26,19,2,0)
ien as the ID as well as the VADM(11) array from VADPT.
"KRN",1.5,28,-1)
0^95
"KRN",1.5,28,0)
VPR MARITAL STATUS^11.99^^^^S
"KRN",1.5,28,.1)
MaritalStatus
"KRN",1.5,28,1,0)
^1.51^3^3
"KRN",1.5,28,1,1,0)
Code^4^S^11.99^1^^1
"KRN",1.5,28,1,1,6)
I $G(DATA) N X S X=$$GET1^DIQ(11,+DATA,2,"I"),VALUE=$S(X="S":"A",X="N":"S",1:X)
"KRN",1.5,28,1,2,0)
Description^5^S^11.99^.01
"KRN",1.5,28,1,2,6)
I $G(DATA) N X S X=$P(DATA,U,2),VALUE=$S(X="NEVER MARRIED":"Single",1:$$LOWER^VALM1(X))
"KRN",1.5,28,1,3,0)
SDACodingStandard^1^F
"KRN",1.5,28,1,3,2)
HL7
"KRN",1.5,28,1,3,6)
"KRN",1.5,28,1,"B","Code",1)
"KRN",1.5,28,1,"B","Description",2)
"KRN",1.5,28,1,"B","SDACodingStandard",3)
"KRN",1.5,28,1,"SEQ",1,3)
"KRN",1.5,28,1,"SEQ",4,1)
"KRN",1.5,28,1,"SEQ",5,2)
"KRN",1.5,28,4)
I DIEN'>0,'$G(DATA) S DDEOUT=1
"KRN",1.5,28,19,0)
^^4^4^3180904^
"KRN",1.5,28,19,1,0)
This entity supports VPR PATIENT, and expects the Master Marital Status
"KRN",1.5,28,19,2,0)
file #11.99 ien as the ID. If the local variable DATA is defined (i.e.,
"KRN",1.5,28,19,3,0)
the Master Marital Status record cannot be identified), it will contain
"KRN",1.5,28,19,4,0)
the #11 ien^name and be converted manually to HL7 table values.
"KRN",1.5,31,-1)
0^1
"KRN",1.5,31,0)
VPR ALLERGY^120.8^^^^S
"KRN",1.5,31,.1)
Allergy
"KRN",1.5,31,1,0)
^1.51^25^18
"KRN",1.5,31,1,1,0)
Allergy^3^E^120.8^1^^1^VPR CODE TABLE
"KRN",1.5,31,1,1,4)
S VALUE=$$ALLERGEN^VPRSDAL(VALUE)
"KRN",1.5,31,1,1,6)
S VALUE=$P(VPRALG,U,9)
"KRN",1.5,31,1,2,0)
AllergyCategory^4^E^120.8^3.1^^1^VPR CODE TABLE
"KRN",1.5,31,1,2,4)
N X S X=$$EXTERNAL^DILFD(120.8,3.1,,VALUE),VALUE=X_U_X_"^VHAT"
"KRN",1.5,31,1,2,6)
S VALUE=$P(VPRALG,U,7)
"KRN",1.5,31,1,3,0)
EnteredBy^22^E^120.8^5^^1^VPR USER
"KRN",1.5,31,1,4,0)
Reaction^6^E^120.8^^^^VPR ALLERGY SIGN/SYMPTOM
"KRN",1.5,31,1,4,6)
I $D(VPRALG("S")) N X S X=$G(VPRALG("S",1)),VALUE=$P($P(X,U),";",2)_U_$P($P(X,U),";")_$S($L($P(X,U,2))>1:U_$P($P(X,U,2),";",2),1:"") ;first
"KRN",1.5,31,1,5,0)
Severity^7^E^120.85^^^^VPR CODE TABLE
"KRN",1.5,31,1,5,6)
S VALUE=$$ALGSEV^VPRSDAL(DIEN)
"KRN",1.5,31,1,6,0)
Certainty^8^E^120.8^19^^1^VPR CODE ONLY
"KRN",1.5,31,1,6,4)
S VALUE=$S(VALUE:"Confirmed",1:"")
"KRN",1.5,31,1,6,6)
S VALUE=($E($P($G(GMRAY),U,4))="V")
"KRN",1.5,31,1,8,0)
VerifiedTime^14^S^120.8^20^^1
"KRN",1.5,31,1,8,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,31,1,8,6)
S VALUE=$P($G(GMRAY),U,9)
"KRN",1.5,31,1,9,0)
FreeTextAllergy^17^S^120.8^.02
"KRN",1.5,31,1,9,6)
S VALUE=$P(VPRALG,U,2) S:VALUE="" VALUE=$P(GMRAY,U)
"KRN",1.5,31,1,11,0)
EnteredAt^23^E^120.8^^^^VPR FACILITY
"KRN",1.5,31,1,11,6)
S VALUE=$G(VASITE) ;default #4 ien
"KRN",1.5,31,1,12,0)
EnteredOn^24^S^120.8^4^^1
"KRN",1.5,31,1,12,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,31,1,12,6)
N X,Y,%DT S X=$P($G(GMRAY),U,10),%DT="TSX" I $L(X) D ^%DT S:Y>0 VALUE=Y
"KRN",1.5,31,1,18,0)
Extension^2^E^120.8^^^^VPR ALLERGY EXTENSION
"KRN",1.5,31,1,18,6)
S VALUE=DIEN
"KRN",1.5,31,1,19,0)
Clinician^5^E^120.8^21^^1^VPR PROVIDER
"KRN",1.5,31,1,20,0)
Status^19^S^120.8^22^^1
"KRN",1.5,31,1,20,4)
S VALUE=$S(VALUE:"I",1:"A")
"KRN",1.5,31,1,21,0)
FromTime^25^S^120.85
"KRN",1.5,31,1,21,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,31,1,21,6)
S VALUE=$$ALGDT^VPRSDAL(DIEN)
"KRN",1.5,31,1,22,0)
ToTime^26^S^120.8^23^^1
"KRN",1.5,31,1,22,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,31,1,23,0)
InactiveTime^12^S^120.8^23^^1
"KRN",1.5,31,1,23,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,31,1,23,6)
S VALUE=$P($G(VPRALG("ERROR")),";",2)
"KRN",1.5,31,1,24,0)
InactiveComments^13^S^120.8
"KRN",1.5,31,1,24,6)
S VALUE=$$ALGCMT1^VPRSDAL(DIEN,"E")
"KRN",1.5,31,1,25,0)
ExternalId^27^I
"KRN",1.5,31,1,"B","Allergy",1)
"KRN",1.5,31,1,"B","AllergyCategory",2)
"KRN",1.5,31,1,"B","Certainty",6)
"KRN",1.5,31,1,"B","Clinician",19)
"KRN",1.5,31,1,"B","EnteredAt",11)
"KRN",1.5,31,1,"B","EnteredBy",3)
"KRN",1.5,31,1,"B","EnteredOn",12)
"KRN",1.5,31,1,"B","Extension",18)
"KRN",1.5,31,1,"B","ExternalId",25)
"KRN",1.5,31,1,"B","FreeTextAllergy",9)
"KRN",1.5,31,1,"B","FromTime",21)
"KRN",1.5,31,1,"B","InactiveComments",24)
"KRN",1.5,31,1,"B","InactiveTime",23)
"KRN",1.5,31,1,"B","Reaction",4)
"KRN",1.5,31,1,"B","Severity",5)
"KRN",1.5,31,1,"B","Status",20)
"KRN",1.5,31,1,"B","ToTime",22)
"KRN",1.5,31,1,"B","VerifiedTime",8)
"KRN",1.5,31,1,"SEQ",2,18)
"KRN",1.5,31,1,"SEQ",3,1)
"KRN",1.5,31,1,"SEQ",4,2)
"KRN",1.5,31,1,"SEQ",5,19)
"KRN",1.5,31,1,"SEQ",6,4)
"KRN",1.5,31,1,"SEQ",7,5)
"KRN",1.5,31,1,"SEQ",8,6)
"KRN",1.5,31,1,"SEQ",12,23)
"KRN",1.5,31,1,"SEQ",13,24)
"KRN",1.5,31,1,"SEQ",14,8)
"KRN",1.5,31,1,"SEQ",17,9)
"KRN",1.5,31,1,"SEQ",19,20)
"KRN",1.5,31,1,"SEQ",22,3)
"KRN",1.5,31,1,"SEQ",23,11)
"KRN",1.5,31,1,"SEQ",24,12)
"KRN",1.5,31,1,"SEQ",25,21)
"KRN",1.5,31,1,"SEQ",26,22)
"KRN",1.5,31,1,"SEQ",27,25)
"KRN",1.5,31,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,31,3)
K GMRAL,GMRAY,VPRALG,VASITE
"KRN",1.5,31,4)
D ALG1^VPRSDAL(DIEN)
"KRN",1.5,31,5)
ALLERGYS^VPRSDAQ
"KRN",1.5,31,19,0)
^1.519^1^1^3190606^^
"KRN",1.5,31,19,1,0)
This entity populates the Allergy container in HealthShare.
"KRN",1.5,32,-1)
0^10
"KRN",1.5,32,0)
VPR DOCUMENT^8925^^^^S
"KRN",1.5,32,.1)
Document
"KRN",1.5,32,1,0)
^1.51^19^17
"KRN",1.5,32,1,1,0)
FromTime^1^S^8925^.07^^1
"KRN",1.5,32,1,1,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,32,1,1,6)
S VALUE=$G(VPRTIU(DIEN,.07,"I"))
"KRN",1.5,32,1,2,0)
ToTime^2^S^8925^.08^^1
"KRN",1.5,32,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,32,1,2,6)
S VALUE=$G(VPRTIU(DIEN,.08,"I"))
"KRN",1.5,32,1,3,0)
EncounterNumber^3^S^8925^.03^^1
"KRN",1.5,32,1,3,4)
S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
"KRN",1.5,32,1,3,6)
S VALUE=$G(VPRTIU(DIEN,.03,"I"))
"KRN",1.5,32,1,4,0)
DocumentTime^6^S^8925^1301^^1
"KRN",1.5,32,1,4,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,32,1,4,6)
S VALUE=$G(VPRTIU(DIEN,1301,"I"))
"KRN",1.5,32,1,5,0)
NoteText^7^W^8925^2
"KRN",1.5,32,1,5,6)
N VPRT,TAG,FILE,FIELD,IEN D RPT^VPRDTIU(.VPRT,DIEN) M WP=@VPRT ;protect variables
"KRN",1.5,32,1,6,0)
DocumentType^8^E^8925^.01^^1^VPR CODE TABLE
"KRN",1.5,32,1,6,4)
S VALUE=$$TIUTYPE^VPRSDA(VALUE)
"KRN",1.5,32,1,6,6)
S VALUE=$G(VPRTIU(DIEN,.01,"I"))
"KRN",1.5,32,1,7,0)
Clinician^9^E^8925^1202^^1^VPR PROVIDER
"KRN",1.5,32,1,7,6)
S VALUE=$G(VPRTIU(DIEN,1202,"I"))
"KRN",1.5,32,1,8,0)
TranscriptionTime^10^S^8925^1307^^1
"KRN",1.5,32,1,8,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,32,1,8,6)
S VALUE=$G(VPRTIU(DIEN,1307,"I"))
"KRN",1.5,32,1,9,0)
AuthorizationTime^11^S^8925^1501^^1
"KRN",1.5,32,1,9,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,32,1,9,6)
S VALUE=$$TIUSIG^VPRSDA
"KRN",1.5,32,1,10,0)
DocumentName^12^S^8925^.01
"KRN",1.5,32,1,10,6)
S VALUE=$P($G(^TIU(8925.1,+$G(VPRTIU(DIEN,.01,"I")),0)),U)
"KRN",1.5,32,1,11,0)
DocumentNumber^16^I
"KRN",1.5,32,1,11,4)
S VALUE=VALUE_";TIU"
"KRN",1.5,32,1,11,5)
S:$P(VALUE,";",2)="TIU" VALUE=+VALUE
"KRN",1.5,32,1,12,0)
DocumentCompletionStatus^19^E^8925^.05^^1^VPR DOCUMENT STATUS
"KRN",1.5,32,1,12,6)
S VALUE=$G(VPRTIU(DIEN,.05,"I"))
"KRN",1.5,32,1,13,0)
EnteredBy^22^E^8925^1302^^1^VPR USER
"KRN",1.5,32,1,13,6)
S VALUE=$G(VPRTIU(DIEN,1302,"I"))
"KRN",1.5,32,1,14,0)
EnteredAt^23^E^8925^1212^^1^VPR FACILITY
"KRN",1.5,32,1,14,6)
S VALUE=$G(VPRTIU(DIEN,1212,"I")) S:'VALUE VALUE=$G(VASITE)
"KRN",1.5,32,1,15,0)
EnteredOn^24^S^8925^1201^^1
"KRN",1.5,32,1,15,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,32,1,15,6)
S VALUE=$G(VPRTIU(DIEN,1201,"I"))
"KRN",1.5,32,1,18,0)
FileType^13^F
"KRN",1.5,32,1,18,2)
TXT
"KRN",1.5,32,1,19,0)
Extension^5^E^8925^^^^VPR DOCUMENT EXTENSION
"KRN",1.5,32,1,19,6)
S VALUE=DIEN
"KRN",1.5,32,1,"B","AuthorizationTime",9)
"KRN",1.5,32,1,"B","Clinician",7)
"KRN",1.5,32,1,"B","DocumentCompletionStatus",12)
"KRN",1.5,32,1,"B","DocumentName",10)
"KRN",1.5,32,1,"B","DocumentNumber",11)
"KRN",1.5,32,1,"B","DocumentTime",4)
"KRN",1.5,32,1,"B","DocumentType",6)
"KRN",1.5,32,1,"B","EncounterNumber",3)
"KRN",1.5,32,1,"B","EnteredAt",14)
"KRN",1.5,32,1,"B","EnteredBy",13)
"KRN",1.5,32,1,"B","EnteredOn",15)
"KRN",1.5,32,1,"B","Extension",19)
"KRN",1.5,32,1,"B","FileType",18)
"KRN",1.5,32,1,"B","FromTime",1)
"KRN",1.5,32,1,"B","NoteText",5)
"KRN",1.5,32,1,"B","ToTime",2)
"KRN",1.5,32,1,"B","TranscriptionTime",8)
"KRN",1.5,32,1,"SEQ",1,1)
"KRN",1.5,32,1,"SEQ",2,2)
"KRN",1.5,32,1,"SEQ",3,3)
"KRN",1.5,32,1,"SEQ",5,19)
"KRN",1.5,32,1,"SEQ",6,4)
"KRN",1.5,32,1,"SEQ",7,5)
"KRN",1.5,32,1,"SEQ",8,6)
"KRN",1.5,32,1,"SEQ",9,7)
"KRN",1.5,32,1,"SEQ",10,8)
"KRN",1.5,32,1,"SEQ",11,9)
"KRN",1.5,32,1,"SEQ",12,10)
"KRN",1.5,32,1,"SEQ",13,18)
"KRN",1.5,32,1,"SEQ",16,11)
"KRN",1.5,32,1,"SEQ",19,12)
"KRN",1.5,32,1,"SEQ",22,13)
"KRN",1.5,32,1,"SEQ",23,14)
"KRN",1.5,32,1,"SEQ",24,15)
"KRN",1.5,32,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,32,3)
K VPRTIU,VASITE
"KRN",1.5,32,4)
K VPRTIU D EXTRACT^TIULQ(DIEN,"VPRTIU",,".01:.08;1201;1205;1212;1301;1302;1307;1501:1508;1606;1701;2101",,,"I")
"KRN",1.5,32,5)
DOCUMENT^VPRSDAQ
"KRN",1.5,32,19,0)
^1.519^1^1^3190606^^
"KRN",1.5,32,19,1,0)
This entity populates the Document container in HealthShare.
"KRN",1.5,33,-1)
0^3
"KRN",1.5,33,0)
VPR ALLERGY SIGN/SYMPTOM^120.83^^^^S
"KRN",1.5,33,.1)
Reaction
"KRN",1.5,33,1,0)
^1.51^5^5
"KRN",1.5,33,1,1,0)
Code^6^I
"KRN",1.5,33,1,1,6)
S VALUE=$P($G(VPREACTN),U)
"KRN",1.5,33,1,2,0)
Description^7^S^120.83^.01
"KRN",1.5,33,1,2,6)
S VALUE=$P($G(VPREACTN),U,2)
"KRN",1.5,33,1,3,0)
SDACodingStandard^1^F
"KRN",1.5,33,1,3,2)
VA120.83
"KRN",1.5,33,1,3,6)
S VALUE=$P($G(VPREACTN),U,3)
"KRN",1.5,33,1,4,0)
Extension^5^E^120.83^^^^VPR ALLERGY SIGN EXTENSION
"KRN",1.5,33,1,4,6)
S VALUE=$G(VPRDT) S:VALUE="" DDEOUT=1
"KRN",1.5,33,1,5,0)
OriginalText^3^F
"KRN",1.5,33,1,5,6)
S VALUE=$G(VPRNAME)
"KRN",1.5,33,1,"B","Code",1)
"KRN",1.5,33,1,"B","Description",2)
"KRN",1.5,33,1,"B","Extension",4)
"KRN",1.5,33,1,"B","OriginalText",5)
"KRN",1.5,33,1,"B","SDACodingStandard",3)
"KRN",1.5,33,1,"SEQ",1,3)
"KRN",1.5,33,1,"SEQ",3,5)
"KRN",1.5,33,1,"SEQ",5,4)
"KRN",1.5,33,1,"SEQ",6,1)
"KRN",1.5,33,1,"SEQ",7,2)
"KRN",1.5,33,3)
K VPREACTN,VPRDT,VPRNAME
"KRN",1.5,33,4)
D ALGSIGN^VPRSDAL(.DIEN) ;convert to national code
"KRN",1.5,33,19,0)
^1.519^7^7^3190606^^
"KRN",1.5,33,19,1,0)
This entity returns a coded element representation of a single Reaction.
"KRN",1.5,33,19,2,0)
It expects either a #120.83 ien, or a string in the form ien^name^date.
"KRN",1.5,33,19,3,0)
"KRN",1.5,33,19,4,0)
If a SNOMED CT code is available, that code and name will be returned
"KRN",1.5,33,19,5,0)
instead of the #120.83 ien; the #120.83 name will be returned in the
"KRN",1.5,33,19,6,0)
OriginalText property. An extension may also contain the date this
"KRN",1.5,33,19,7,0)
reaction was entered if included in the ID string.
"KRN",1.5,40,-1)
0^51
"KRN",1.5,40,0)
VPR APPOINTMENT^2.98^^^^S
"KRN",1.5,40,.1)
Appointment
"KRN",1.5,40,1,0)
^1.51^16^14
"KRN",1.5,40,1,2,0)
Extension^3^E^2.98^^^^VPR APPOINTMENT EXTENSION
"KRN",1.5,40,1,2,6)
S VALUE=DIEN
"KRN",1.5,40,1,3,0)
Status^4^S^2.98^3
"KRN",1.5,40,1,3,6)
S VALUE=$P($P($G(VPRAPPT),U,3),";",2)
"KRN",1.5,40,1,4,0)
NoShow^5^S^2.98^3^^1
"KRN",1.5,40,1,4,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,40,1,4,6)
S VALUE=($P($G(VPRAPPT),U,3)?1"NS".E)
"KRN",1.5,40,1,5,0)
Type^6^E^2.98^9.5^^1^VPR CODE TABLE
"KRN",1.5,40,1,5,4)
S $P(VALUE,U,3)="VA409.1"
"KRN",1.5,40,1,5,6)
S VALUE=$TR($P($G(VPRAPPT),U,10),";","^")
"KRN",1.5,40,1,6,0)
FillerApptId^8^I
"KRN",1.5,40,1,8,0)
Location^13^E^2.98^.01^^1^VPR LOCATION
"KRN",1.5,40,1,8,6)
S VALUE=+$P($G(VPRAPPT),U,2)
"KRN",1.5,40,1,9,0)
EnteredBy^15^E^2.98^19^^1^VPR USER
"KRN",1.5,40,1,10,0)
EnteredAt^16^E^2.98^.01^3^1^VPR FACILITY
"KRN",1.5,40,1,10,6)
S VALUE=$$GET1^DIQ(44,+$P(VPRAPPT,U,2)_",",3,"I") S:'VALUE VALUE=$G(VASITE)
"KRN",1.5,40,1,11,0)
EnteredOn^17^S^2.98^20^^1
"KRN",1.5,40,1,11,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,40,1,12,0)
FromTime^18^S^2.98^.001
"KRN",1.5,40,1,12,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,40,1,12,6)
S VALUE=+$G(VPRAPPT)
"KRN",1.5,40,1,13,0)
ToTime^19^S^2.98^15^^1
"KRN",1.5,40,1,13,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,40,1,13,6)
S VALUE=$P($G(VPRAPPT),U,11) I VALUE="",$P(VPRAPPT,U,3)["NS" S VALUE=$$GET1^DIQ(2.98,DIEN_",",15,"I")
"KRN",1.5,40,1,14,0)
PlacerApptId^7^F
"KRN",1.5,40,1,14,6)
S VALUE="A;"_+$G(VPRAPPT)_";"_+$P($G(VPRAPPT),U,2)
"KRN",1.5,40,1,15,0)
EncounterNumber^2^S^2.98^21^.05^1
"KRN",1.5,40,1,15,6)
N SDOE S SDOE=$P(VPRAPPT,U,12) I SDOE S VALUE=$P($$GETOE^SDOE(SDOE),U,5)
"KRN",1.5,40,1,16,0)
CareProvider^12^E^2.98^^^^VPR PROVIDER
"KRN",1.5,40,1,16,6)
S VALUE=$$APPTPRV^VPRSDA ;expects VPRAPPT
"KRN",1.5,40,1,"B","CareProvider",16)
"KRN",1.5,40,1,"B","EncounterNumber",15)
"KRN",1.5,40,1,"B","EnteredAt",10)
"KRN",1.5,40,1,"B","EnteredBy",9)
"KRN",1.5,40,1,"B","EnteredOn",11)
"KRN",1.5,40,1,"B","Extension",2)
"KRN",1.5,40,1,"B","FillerApptId",6)
"KRN",1.5,40,1,"B","FromTime",12)
"KRN",1.5,40,1,"B","Location",8)
"KRN",1.5,40,1,"B","NoShow",4)
"KRN",1.5,40,1,"B","PlacerApptId",14)
"KRN",1.5,40,1,"B","Status",3)
"KRN",1.5,40,1,"B","ToTime",13)
"KRN",1.5,40,1,"B","Type",5)
"KRN",1.5,40,1,"SEQ",2,15)
"KRN",1.5,40,1,"SEQ",3,2)
"KRN",1.5,40,1,"SEQ",4,3)
"KRN",1.5,40,1,"SEQ",5,4)
"KRN",1.5,40,1,"SEQ",6,5)
"KRN",1.5,40,1,"SEQ",7,14)
"KRN",1.5,40,1,"SEQ",8,6)
"KRN",1.5,40,1,"SEQ",12,16)
"KRN",1.5,40,1,"SEQ",13,8)
"KRN",1.5,40,1,"SEQ",15,9)
"KRN",1.5,40,1,"SEQ",16,10)
"KRN",1.5,40,1,"SEQ",17,11)
"KRN",1.5,40,1,"SEQ",18,12)
"KRN",1.5,40,1,"SEQ",19,13)
"KRN",1.5,40,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,40,3)
K ^TMP($J,"SDAMA301"),VPRAPPT,VASITE
"KRN",1.5,40,4)
D APPT1^VPRSDA(DIEN)
"KRN",1.5,40,5)
APPTS^VPRSDAQ
"KRN",1.5,40,19,0)
^1.519^1^1^3190606^^
"KRN",1.5,40,19,1,0)
This entity populates the Appointment container in HealthShare.
"KRN",1.5,48,-1)
0^7
"KRN",1.5,48,0)
VPR REFERRAL^123^^^^S
"KRN",1.5,48,.1)
Referral
"KRN",1.5,48,1,0)
^1.51^16^16
"KRN",1.5,48,1,1,0)
EnteredBy^1^E^123^^^^VPR USER
"KRN",1.5,48,1,1,6)
S VALUE=+$P($G(VPRCACT(1,0)),U,5)
"KRN",1.5,48,1,2,0)
EnteredAt^2^E^123^.05^^1^VPR FACILITY
"KRN",1.5,48,1,2,6)
S VALUE=$P($G(VPRCONS(0)),U,21) S:'VALUE VALUE=$G(VASITE)
"KRN",1.5,48,1,3,0)
UpdatedOn^3^S^123
"KRN",1.5,48,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,48,1,3,6)
N I,X S I=0 F S I=$O(VPRCACT(I)) Q:I<1 S X=+$G(VPRCACT(I,0)) I X>+$G(VALUE) S VALUE=+X
"KRN",1.5,48,1,4,0)
EncounterNumber^5^S^123^16^.03^1
"KRN",1.5,48,1,4,4)
S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
"KRN",1.5,48,1,4,6)
N TIU,VPRT S TIU=$P($G(VPRCONS(0)),U,20) I TIU D EXTRACT^TIULQ(TIU,"VPRT",,.03,,,"I") S VALUE=$G(VPRT(TIU,.03,"I"))
"KRN",1.5,48,1,5,0)
Extension^6^E^123^^^^VPR REFERRAL EXTENSION
"KRN",1.5,48,1,5,6)
S VALUE=DIEN
"KRN",1.5,48,1,6,0)
PlacerId^7^S^123^.03^^1
"KRN",1.5,48,1,6,6)
S VALUE=$P($G(VPRCONS(0)),U,3)
"KRN",1.5,48,1,7,0)
FillerId^8^I
"KRN",1.5,48,1,8,0)
ReferralReason^9^W^123^20^^^^1
"KRN",1.5,48,1,8,6)
M WP=VPRCONS(20)
"KRN",1.5,48,1,9,0)
ReferringProvider^10^E^123^10^^1^VPR PROVIDER
"KRN",1.5,48,1,9,6)
S VALUE=$P($G(VPRCONS(0)),U,14)
"KRN",1.5,48,1,10,0)
ReferringOrganization^11^E^123^2^^1^VPR LOCATION
"KRN",1.5,48,1,10,6)
S VALUE=$P($G(VPRCONS(0)),U,6)
"KRN",1.5,48,1,11,0)
ReferredToProvider^12^E^123^7^^1^VPR PROVIDER
"KRN",1.5,48,1,11,6)
S VALUE=$P($G(VPRCONS(0)),U,11)
"KRN",1.5,48,1,12,0)
ReferredToOrganization^13^E^123^1^^1^VPR CONSULT SERVICE
"KRN",1.5,48,1,13,0)
EnteredOn^15^S^123^.01
"KRN",1.5,48,1,13,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,48,1,13,6)
S VALUE=$P($G(VPRCONS(0)),U)
"KRN",1.5,48,1,14,0)
FromTime^16^S^123^3^^1
"KRN",1.5,48,1,14,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,48,1,14,6)
S VALUE=$P($G(VPRCONS(0)),U,7)
"KRN",1.5,48,1,15,0)
ToTime^17^S^123^.03^22^1
"KRN",1.5,48,1,15,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,48,1,15,6)
N ORD S ORD=$P($G(VPRCONS(0)),U,3) S:ORD VALUE=$$GET1^DIQ(100,ORD,22,"I")
"KRN",1.5,48,1,16,0)
ExternalId^4^I
"KRN",1.5,48,1,"B","EncounterNumber",4)
"KRN",1.5,48,1,"B","EnteredAt",2)
"KRN",1.5,48,1,"B","EnteredBy",1)
"KRN",1.5,48,1,"B","EnteredOn",13)
"KRN",1.5,48,1,"B","Extension",5)
"KRN",1.5,48,1,"B","ExternalId",16)
"KRN",1.5,48,1,"B","FillerId",7)
"KRN",1.5,48,1,"B","FromTime",14)
"KRN",1.5,48,1,"B","PlacerId",6)
"KRN",1.5,48,1,"B","ReferralReason",8)
"KRN",1.5,48,1,"B","ReferredToOrganization",12)
"KRN",1.5,48,1,"B","ReferredToProvider",11)
"KRN",1.5,48,1,"B","ReferringOrganization",10)
"KRN",1.5,48,1,"B","ReferringProvider",9)
"KRN",1.5,48,1,"B","ToTime",15)
"KRN",1.5,48,1,"B","UpdatedOn",3)
"KRN",1.5,48,1,"SEQ",1,1)
"KRN",1.5,48,1,"SEQ",2,2)
"KRN",1.5,48,1,"SEQ",3,3)
"KRN",1.5,48,1,"SEQ",4,16)
"KRN",1.5,48,1,"SEQ",5,4)
"KRN",1.5,48,1,"SEQ",6,5)
"KRN",1.5,48,1,"SEQ",7,6)
"KRN",1.5,48,1,"SEQ",8,7)
"KRN",1.5,48,1,"SEQ",9,8)
"KRN",1.5,48,1,"SEQ",10,9)
"KRN",1.5,48,1,"SEQ",11,10)
"KRN",1.5,48,1,"SEQ",12,11)
"KRN",1.5,48,1,"SEQ",13,12)
"KRN",1.5,48,1,"SEQ",15,13)
"KRN",1.5,48,1,"SEQ",16,14)
"KRN",1.5,48,1,"SEQ",17,15)
"KRN",1.5,48,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,48,3)
K VPRCONS,VPRCACT,VASITE
"KRN",1.5,48,4)
K VPRCONS,VPRCACT D GET^GMRCAPI(.VPRCONS,DIEN),ACT^GMRCAPI(.VPRCACT,DIEN)
"KRN",1.5,48,5)
CONSULTS^VPRSDAQ
"KRN",1.5,48,19,0)
^1.519^1^1^3190606^^
"KRN",1.5,48,19,1,0)
This entity populates the Referral container in HealthShare.
"KRN",1.5,56,-1)
0^50
"KRN",1.5,56,0)
VPR MEDICATION^100^^^^S
"KRN",1.5,56,.1)
Medication
"KRN",1.5,56,1,0)
^1.51^46^39
"KRN",1.5,56,1,1,0)
EnteredAt^30^E^100^6^^1^VPR FACILITY
"KRN",1.5,56,1,1,4)
S:VALUE VALUE=$$GET1^DIQ(44,+VALUE_",",3,"I") S:'VALUE VALUE=$G(VASITE) ;#4 ien
"KRN",1.5,56,1,2,0)
EnteredBy^29^E^100^3^^1^VPR USER
"KRN",1.5,56,1,3,0)
EnteredOn^31^S^100^4^^1
"KRN",1.5,56,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,56,1,4,0)
FillerId^3^S^100^33
"KRN",1.5,56,1,4,6)
S VALUE=$$PKGID^ORX8(DIEN)
"KRN",1.5,56,1,5,0)
OrderCategory^6^E^100^23^^1^VPR DISPLAY GROUP
"KRN",1.5,56,1,5,6)
S DATA=$S($G(PSTYPE)="N":"OTC",$G(PSTYPE)="O":"Prescription",1:"") ;HITSP category
"KRN",1.5,56,1,6,0)
OrderItem^5^E^100^^^^VPR ORDERABLE ITEM
"KRN",1.5,56,1,6,6)
N OI S OI=$$OI^ORX8(DIEN),VALUE=+OI,PSOI=+$P(OI,U,3) ;first
"KRN",1.5,56,1,7,0)
OrderedBy^8^E^100^1^^1^VPR PROVIDER
"KRN",1.5,56,1,9,0)
Priority^16^E^100^^^^VPR ORDER URGENCY
"KRN",1.5,56,1,9,6)
S VALUE=$$VALUE^ORX8(DIEN,"URGENCY")
"KRN",1.5,56,1,13,0)
Status^15^S^100^5^.02
"KRN",1.5,56,1,13,4)
N X S X=VALUE,VALUE=$S(X="dc":"D",X="canc":"C",X="laps":"C",X="dc/e":"R",X="comp":"E",X="exp":"E",X="hold":"H",X="part":"A",1:"IP")
"KRN",1.5,56,1,15,0)
PlacerId^1^I
"KRN",1.5,56,1,16,0)
EnteringOrganization^9^E^100^6^^1^VPR LOCATION
"KRN",1.5,56,1,16,4)
S VALUE=+VALUE S:VALUE<1 VALUE=""
"KRN",1.5,56,1,17,0)
FromTime^32^S^100^21^^1
"KRN",1.5,56,1,17,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,56,1,18,0)
ToTime^33^S^100^22^^1
"KRN",1.5,56,1,18,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,56,1,19,0)
UpdatedOn^58^S^100^31^^1
"KRN",1.5,56,1,19,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,56,1,20,0)
AuthorizationTime^23^S^100.008^16^^1
"KRN",1.5,56,1,20,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,56,1,20,6)
S IEN="1,"_DIEN
"KRN",1.5,56,1,21,0)
VerifiedBy^10^E^100^^^^VPR PROVIDER
"KRN",1.5,56,1,21,4)
"KRN",1.5,56,1,21,5)
"KRN",1.5,56,1,21,6)
S VALUE=$P($G(@VPRPS@("RXN",0)),U,5)
"KRN",1.5,56,1,22,0)
TextInstruction^19^S^100
"KRN",1.5,56,1,22,6)
S VALUE=$$VALUE^ORX8(DIEN,"PI")
"KRN",1.5,56,1,23,0)
DrugProduct^34^E^100^^^^VPR DRUG PRODUCT
"KRN",1.5,56,1,23,6)
S VALUE=$$VALUE^ORX8(DIEN,"DRUG",1) S:'VALUE DDEOUT=1
"KRN",1.5,56,1,24,0)
DosageForm^44^E^100^^^^VPR CODE TABLE
"KRN",1.5,56,1,24,6)
S VALUE=$$DOSEFORM^VPRSDAP(DIEN)
"KRN",1.5,56,1,25,0)
DosageSteps^51^L^^^^^VPR DOSAGE STEP
"KRN",1.5,56,1,25,1)
4^DosageStep
"KRN",1.5,56,1,25,6)
D DOSES^VPRSDAP(DIEN)
"KRN",1.5,56,1,27,0)
Route^45^E^51.2^^^^VPR MED ROUTE
"KRN",1.5,56,1,27,6)
S VALUE=$$VALUE^ORX8(DIEN,"ROUTE")
"KRN",1.5,56,1,29,0)
OrderQuantity^7^S^100
"KRN",1.5,56,1,29,6)
S VALUE=$$VALUE^ORX8(DIEN,"QTY")
"KRN",1.5,56,1,30,0)
NumberOfRefills^43^S^100
"KRN",1.5,56,1,30,6)
S:$G(PSTYPE)="O" VALUE=$$VALUE^ORX8(DIEN,"REFILLS")
"KRN",1.5,56,1,31,0)
PrescriptionNumber^48^S^100^
"KRN",1.5,56,1,31,4)
"KRN",1.5,56,1,31,6)
S:$G(PSTYPE)="O" VALUE=$P($G(@VPRPS@("RXN",0)),U)
"KRN",1.5,56,1,32,0)
RefillNumber^49^S^100^
"KRN",1.5,56,1,32,4)
"KRN",1.5,56,1,32,6)
S:$G(PSTYPE)="O" VALUE=$O(@VPRPS@("REF",""),-1) ;last#
"KRN",1.5,56,1,33,0)
ComponentMeds^53^L^^^^^VPR IV PRODUCT
"KRN",1.5,56,1,33,1)
4^DrugProduct
"KRN",1.5,56,1,33,6)
I $G(PSTYPE)="V" D IVMEDS^VPRSDAP(ORIFN)
"KRN",1.5,56,1,34,0)
RateAmount^37^S^100
"KRN",1.5,56,1,34,6)
I $G(PSTYPE)="V" S VALUE=$$IVRATE^VPRSDAP(ORIFN)
"KRN",1.5,56,1,35,0)
RateUnits^38^E^100^^^^VPR CODE ONLY
"KRN",1.5,56,1,35,6)
S:$G(PSTYPE)="V"&$G(VPRATE) VALUE="ml"
"KRN",1.5,56,1,36,0)
RateTimeUnit^39^F
"KRN",1.5,56,1,36,2)
"KRN",1.5,56,1,36,6)
S:$G(PSTYPE)="V"&$G(VPRATE) VALUE="per hour"
"KRN",1.5,56,1,37,0)
Frequency^13^E^100^^^^VPR CODE ONLY
"KRN",1.5,56,1,37,6)
S:$G(PSTYPE)="V" VALUE=$P($G(@VPRPS@("SCH",1,0)),U)
"KRN",1.5,56,1,38,0)
Duration^14^E^100^^^^VPR CODE ONLY
"KRN",1.5,56,1,38,6)
S:$G(PSTYPE)="V" VALUE=$$VALUE^ORX8(ORIFN,"DAYS")
"KRN",1.5,56,1,39,0)
StrengthVolume^35^S^100
"KRN",1.5,56,1,39,6)
I $G(PSTYPE)="V" S VALUE=$$VALUE^ORX8(DIEN,"VOLUME"),VPRUNTS=$S(VALUE:"ML",1:"")
"KRN",1.5,56,1,40,0)
StrengthVolumeUnits^36^F^100
"KRN",1.5,56,1,40,6)
I $G(PSTYPE)="V" S VALUE=$G(VPRUNTS) K VPRUNTS
"KRN",1.5,56,1,41,0)
Extension^59^E^100^^^^VPR MED EXTENSION
"KRN",1.5,56,1,41,6)
S VALUE=DIEN
"KRN",1.5,56,1,42,0)
PharmacyStatus^47^F
"KRN",1.5,56,1,42,6)
S VALUE=$P($G(@VPRPS@(0)),U,6)
"KRN",1.5,56,1,43,0)
Comments^21^S^100
"KRN",1.5,56,1,43,6)
S VALUE=$$WP^VPRSDA(DIEN,"COMMENT")
"KRN",1.5,56,1,44,0)
GroupId^26^S^100^36^^1
"KRN",1.5,56,1,45,0)
Administrations^52^L^^^^^VPR MED ADMINISTRATION
"KRN",1.5,56,1,45,1)
4^Administration
"KRN",1.5,56,1,45,6)
D BCMA^VPRSDAP(DIEN)
"KRN",1.5,56,1,46,0)
ExternalId^60^I
"KRN",1.5,56,1,"B","Administrations",45)
"KRN",1.5,56,1,"B","AuthorizationTime",20)
"KRN",1.5,56,1,"B","Comments",43)
"KRN",1.5,56,1,"B","ComponentMeds",33)
"KRN",1.5,56,1,"B","DosageForm",24)
"KRN",1.5,56,1,"B","DosageSteps",25)
"KRN",1.5,56,1,"B","DrugProduct",23)
"KRN",1.5,56,1,"B","Duration",38)
"KRN",1.5,56,1,"B","EnteredAt",1)
"KRN",1.5,56,1,"B","EnteredBy",2)
"KRN",1.5,56,1,"B","EnteredOn",3)
"KRN",1.5,56,1,"B","EnteringOrganization",16)
"KRN",1.5,56,1,"B","Extension",41)
"KRN",1.5,56,1,"B","ExternalId",46)
"KRN",1.5,56,1,"B","FillerId",4)
"KRN",1.5,56,1,"B","Frequency",37)
"KRN",1.5,56,1,"B","FromTime",17)
"KRN",1.5,56,1,"B","GroupId",44)
"KRN",1.5,56,1,"B","NumberOfRefills",30)
"KRN",1.5,56,1,"B","OrderCategory",5)
"KRN",1.5,56,1,"B","OrderItem",6)
"KRN",1.5,56,1,"B","OrderQuantity",29)
"KRN",1.5,56,1,"B","OrderedBy",7)
"KRN",1.5,56,1,"B","PharmacyStatus",42)
"KRN",1.5,56,1,"B","PlacerId",15)
"KRN",1.5,56,1,"B","PrescriptionNumber",31)
"KRN",1.5,56,1,"B","Priority",9)
"KRN",1.5,56,1,"B","RateAmount",34)
"KRN",1.5,56,1,"B","RateTimeUnit",36)
"KRN",1.5,56,1,"B","RateUnits",35)
"KRN",1.5,56,1,"B","RefillNumber",32)
"KRN",1.5,56,1,"B","Route",27)
"KRN",1.5,56,1,"B","Status",13)
"KRN",1.5,56,1,"B","StrengthVolume",39)
"KRN",1.5,56,1,"B","StrengthVolumeUnits",40)
"KRN",1.5,56,1,"B","TextInstruction",22)
"KRN",1.5,56,1,"B","ToTime",18)
"KRN",1.5,56,1,"B","UpdatedOn",19)
"KRN",1.5,56,1,"B","VerifiedBy",21)
"KRN",1.5,56,1,"SEQ",1,15)
"KRN",1.5,56,1,"SEQ",3,4)
"KRN",1.5,56,1,"SEQ",5,6)
"KRN",1.5,56,1,"SEQ",6,5)
"KRN",1.5,56,1,"SEQ",7,29)
"KRN",1.5,56,1,"SEQ",8,7)
"KRN",1.5,56,1,"SEQ",9,16)
"KRN",1.5,56,1,"SEQ",10,21)
"KRN",1.5,56,1,"SEQ",13,37)
"KRN",1.5,56,1,"SEQ",14,38)
"KRN",1.5,56,1,"SEQ",15,13)
"KRN",1.5,56,1,"SEQ",16,9)
"KRN",1.5,56,1,"SEQ",19,22)
"KRN",1.5,56,1,"SEQ",21,43)
"KRN",1.5,56,1,"SEQ",23,20)
"KRN",1.5,56,1,"SEQ",26,44)
"KRN",1.5,56,1,"SEQ",29,2)
"KRN",1.5,56,1,"SEQ",30,1)
"KRN",1.5,56,1,"SEQ",31,3)
"KRN",1.5,56,1,"SEQ",32,17)
"KRN",1.5,56,1,"SEQ",33,18)
"KRN",1.5,56,1,"SEQ",34,23)
"KRN",1.5,56,1,"SEQ",35,39)
"KRN",1.5,56,1,"SEQ",36,40)
"KRN",1.5,56,1,"SEQ",37,34)
"KRN",1.5,56,1,"SEQ",38,35)
"KRN",1.5,56,1,"SEQ",39,36)
"KRN",1.5,56,1,"SEQ",43,30)
"KRN",1.5,56,1,"SEQ",44,24)
"KRN",1.5,56,1,"SEQ",45,27)
"KRN",1.5,56,1,"SEQ",47,42)
"KRN",1.5,56,1,"SEQ",48,31)
"KRN",1.5,56,1,"SEQ",49,32)
"KRN",1.5,56,1,"SEQ",51,25)
"KRN",1.5,56,1,"SEQ",52,45)
"KRN",1.5,56,1,"SEQ",53,33)
"KRN",1.5,56,1,"SEQ",58,19)
"KRN",1.5,56,1,"SEQ",59,41)
"KRN",1.5,56,1,"SEQ",60,46)
"KRN",1.5,56,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,56,3)
K:$D(VPRPS) @VPRPS K ORIFN,PSTYPE,VPRATE,VPRPS,^TMP("VPRX",$J),VASITE,PSOI
"KRN",1.5,56,4)
D PS1^VPRSDAP(DIEN)
"KRN",1.5,56,5)
ORDERS^VPRSDAQ("RX")
"KRN",1.5,56,19,0)
^1.519^1^1^3190606^^^^
"KRN",1.5,56,19,1,0)
This entity populates the Medication container in HealthShare.
"KRN",1.5,57,-1)
0^46
"KRN",1.5,57,0)
VPR DOSAGE STEP^100^^^^S
"KRN",1.5,57,.1)
DosageStep
"KRN",1.5,57,1,0)
^1.51^6^6
"KRN",1.5,57,1,1,0)
TextInstruction^5^F
"KRN",1.5,57,1,1,6)
S VALUE=$$VALUE^ORX8(ORIFN,"INSTR",IEN)
"KRN",1.5,57,1,2,0)
Frequency^6^E^100^^^^VPR CODE ONLY
"KRN",1.5,57,1,2,6)
S VALUE=$P($G(VPRSCH),U)
"KRN",1.5,57,1,3,0)
DoseQuantity^7^F
"KRN",1.5,57,1,3,6)
S VALUE=$P($$VALUE^ORX8(ORIFN,"DOSE",IEN),"&")
"KRN",1.5,57,1,4,0)
DoseUoM^8^E^100^^^^VPR CODE ONLY
"KRN",1.5,57,1,4,6)
S VALUE=$P($$VALUE^ORX8(ORIFN,"DOSE",IEN),"&",2)
"KRN",1.5,57,1,5,0)
Duration^9^E^100^^^^VPR CODE ONLY
"KRN",1.5,57,1,5,6)
S VALUE=$$VALUE^ORX8(ORIFN,"DAYS",IEN)
"KRN",1.5,57,1,6,0)
Extension^4^E^100^^^^VPR DOSE EXTENSION
"KRN",1.5,57,1,6,6)
S VALUE=DIEN,VPRSCH=$$SCHEDULE^VPRSDAP
"KRN",1.5,57,1,"B","DoseQuantity",3)
"KRN",1.5,57,1,"B","DoseUoM",4)
"KRN",1.5,57,1,"B","Duration",5)
"KRN",1.5,57,1,"B","Extension",6)
"KRN",1.5,57,1,"B","Frequency",2)
"KRN",1.5,57,1,"B","TextInstruction",1)
"KRN",1.5,57,1,"SEQ",4,6)
"KRN",1.5,57,1,"SEQ",5,1)
"KRN",1.5,57,1,"SEQ",6,2)
"KRN",1.5,57,1,"SEQ",7,3)
"KRN",1.5,57,1,"SEQ",8,4)
"KRN",1.5,57,1,"SEQ",9,5)
"KRN",1.5,57,3)
K VPRSCH
"KRN",1.5,57,19,0)
^^5^5^3190606^
"KRN",1.5,57,19,1,0)
This entity looks in the Responses multiple of the Orders file #100
"KRN",1.5,57,19,2,0)
and returns the list of instance numbers for each set of dosage
"KRN",1.5,57,19,3,0)
instructions ordered. Related data elements per instance will be
"KRN",1.5,57,19,4,0)
retrieved via the $$VALUE^ORX8 api. It is intended for use with
"KRN",1.5,57,19,5,0)
VPR MEDICATION.
"KRN",1.5,58,-1)
0^53
"KRN",1.5,58,0)
VPR DRUG PRODUCT^50^^^^S
"KRN",1.5,58,.1)
DrugProduct
"KRN",1.5,58,1,0)
^1.51^10^10
"KRN",1.5,58,1,1,0)
SDACodingStandard^1^F
"KRN",1.5,58,1,1,2)
VA50
"KRN",1.5,58,1,1,6)
S VALUE=$P($G(DATA),U,3)
"KRN",1.5,58,1,2,0)
Code^6^I^50^
"KRN",1.5,58,1,2,6)
S VALUE=$P($G(DATA),U)
"KRN",1.5,58,1,3,0)
Description^7^S^50^.01
"KRN",1.5,58,1,3,6)
S VALUE=$P(DATA,U,2)
"KRN",1.5,58,1,4,0)
ATCCode^18^E^50^25^^1^VPR DRUG CLASS
"KRN",1.5,58,1,4,6)
S VALUE=$G(@VPRVAP@(25))
"KRN",1.5,58,1,5,0)
Generic^22^E^50^20^^1^VPR DRUG GENERIC
"KRN",1.5,58,1,5,6)
S DATA=$G(@VPRVAP@(20)),VALUE=+DATA D CODE^VPRSDAP(.DATA,50.6)
"KRN",1.5,58,1,6,0)
OriginalText^3^S^50^.01
"KRN",1.5,58,1,6,6)
S VALUE=$G(@VPRVAP@(.01))
"KRN",1.5,58,1,7,0)
ProductName^10^S^50^22^5
"KRN",1.5,58,1,7,6)
Q S VALUE=$P($G(@VPRVAP@(22)),U,2)
"KRN",1.5,58,1,8,0)
Identifier1^16^I
"KRN",1.5,58,1,8,4)
S VALUE=VALUE_";PSDRUG("
"KRN",1.5,58,1,9,0)
Identifier2^17^S^50^22^^1
"KRN",1.5,58,1,9,4)
S VALUE=VALUE_";PSNDF(50.68,"
"KRN",1.5,58,1,9,6)
S VALUE=$P($G(@VPRVAP@(22)),U)
"KRN",1.5,58,1,10,0)
Extension^5^E^50^^^^VPR DRUG PRODUCT EXTENSION
"KRN",1.5,58,1,10,6)
S VALUE=DIEN
"KRN",1.5,58,1,"B","ATCCode",4)
"KRN",1.5,58,1,"B","Code",2)
"KRN",1.5,58,1,"B","Description",3)
"KRN",1.5,58,1,"B","Extension",10)
"KRN",1.5,58,1,"B","Generic",5)
"KRN",1.5,58,1,"B","Identifier1",8)
"KRN",1.5,58,1,"B","Identifier2",9)
"KRN",1.5,58,1,"B","OriginalText",6)
"KRN",1.5,58,1,"B","ProductName",7)
"KRN",1.5,58,1,"B","SDACodingStandard",1)
"KRN",1.5,58,1,"SEQ",1,1)
"KRN",1.5,58,1,"SEQ",3,6)
"KRN",1.5,58,1,"SEQ",5,10)
"KRN",1.5,58,1,"SEQ",6,2)
"KRN",1.5,58,1,"SEQ",7,3)
"KRN",1.5,58,1,"SEQ",10,7)
"KRN",1.5,58,1,"SEQ",16,8)
"KRN",1.5,58,1,"SEQ",17,9)
"KRN",1.5,58,1,"SEQ",18,4)
"KRN",1.5,58,1,"SEQ",22,5)
"KRN",1.5,58,2)
D NDF^VPRSDAP(.ID) ;ID=#50ien
"KRN",1.5,58,3)
I $D(VPRVAP) K @VPRVAP,VPRVAP
"KRN",1.5,58,4)
S:'DIEN DDEOUT=1
"KRN",1.5,58,19,0)
^1.519^3^3^3190606^^^
"KRN",1.5,58,19,1,0)
This entity expects a Drug file #50 ien and returns a coded element,
"KRN",1.5,58,19,2,0)
including national VA Product information and RxNorm codes if available.
"KRN",1.5,58,19,3,0)
It is intended for use with VPR MEDICATION.
"KRN",1.5,59,-1)
0^17
"KRN",1.5,59,0)
VPR VACCINATION^9000010.11^^^^S
"KRN",1.5,59,.1)
Vaccination
"KRN",1.5,59,1,0)
^1.51^16^16
"KRN",1.5,59,1,1,0)
FillerId^3^I^9000010.11
"KRN",1.5,59,1,2,0)
OrderedBy^8^E^9000010.11^1202^^1^VPR PROVIDER
"KRN",1.5,59,1,2,6)
S VALUE=$P($G(VPRM("ORDERING PROVIDER")),U)
"KRN",1.5,59,1,3,0)
Comments^21^S^9000010.11^81101
"KRN",1.5,59,1,3,6)
S VALUE=$G(VPRM("COMMENTS"))
"KRN",1.5,59,1,4,0)
EnteredBy^30^E^9000010.11^.03^.23^1^VPR USER
"KRN",1.5,59,1,4,6)
"KRN",1.5,59,1,5,0)
EnteredAt^31^E^9000010.11^.03^.06^1^VPR FACILITY
"KRN",1.5,59,1,5,6)
S VALUE=$P($G(VPRM("FACILITY")),U) S:VALUE<1 VALUE=$G(VASITE)
"KRN",1.5,59,1,6,0)
EnteredOn^32^S^9000010.11^1205^^1
"KRN",1.5,59,1,6,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,59,1,6,6)
S VALUE=$G(VPRM("DATE RECORDED"))
"KRN",1.5,59,1,7,0)
FromTime^33^S^9000010.11^.03^.01^1
"KRN",1.5,59,1,7,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,59,1,7,6)
S VALUE=$G(VPRM("VISIT DATE TIME"))
"KRN",1.5,59,1,8,0)
OrderItem^35^E^9000010.11^.01^^1^VPR IMMUNIZATION
"KRN",1.5,59,1,8,6)
S DATA=$G(VPRM("IMMUNIZATION")),VALUE=$P(DATA,U)
"KRN",1.5,59,1,9,0)
Route^46^E^9000010.11^1302^^1^VPR IMM ROUTE
"KRN",1.5,59,1,9,6)
S DATA=$G(VPRM("ADMIN ROUTE")),VALUE=$P(DATA,U)
"KRN",1.5,59,1,10,0)
Administrations^53^L^^^^^VPR IMM ADMINISTRATION
"KRN",1.5,59,1,10,1)
4^Administration
"KRN",1.5,59,1,10,6)
S DLIST(1)=DIEN
"KRN",1.5,59,1,11,0)
EncounterNumber^61^S^9000010.11^.03^^1
"KRN",1.5,59,1,11,4)
S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
"KRN",1.5,59,1,12,0)
ToTime^34^S^9000010.11^.03^.01^1
"KRN",1.5,59,1,12,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,59,1,12,6)
S VALUE=$G(VPRM("VISIT DATE TIME"))
"KRN",1.5,59,1,13,0)
Extension^62^E^9000010.11^^^^VPR IMM EXTENSION
"KRN",1.5,59,1,13,6)
S VALUE=DIEN
"KRN",1.5,59,1,14,0)
ExternalId^60^I
"KRN",1.5,59,1,15,0)
EnteringOrganization^9^E^9000010.11^1215^^1^VPR LOCATION
"KRN",1.5,59,1,15,6)
S VALUE=$P($G(VPRM("ORDERING LOCATION")),U)
"KRN",1.5,59,1,16,0)
MaxDoseQuantity^43^S^9000010.11^.01^.05^1
"KRN",1.5,59,1,"B","Administrations",10)
"KRN",1.5,59,1,"B","Comments",3)
"KRN",1.5,59,1,"B","EncounterNumber",11)
"KRN",1.5,59,1,"B","EnteredAt",5)
"KRN",1.5,59,1,"B","EnteredBy",4)
"KRN",1.5,59,1,"B","EnteredOn",6)
"KRN",1.5,59,1,"B","EnteringOrganization",15)
"KRN",1.5,59,1,"B","Extension",13)
"KRN",1.5,59,1,"B","ExternalId",14)
"KRN",1.5,59,1,"B","FillerId",1)
"KRN",1.5,59,1,"B","FromTime",7)
"KRN",1.5,59,1,"B","MaxDoseQuantity",16)
"KRN",1.5,59,1,"B","OrderItem",8)
"KRN",1.5,59,1,"B","OrderedBy",2)
"KRN",1.5,59,1,"B","Route",9)
"KRN",1.5,59,1,"B","ToTime",12)
"KRN",1.5,59,1,"SEQ",3,1)
"KRN",1.5,59,1,"SEQ",8,2)
"KRN",1.5,59,1,"SEQ",9,15)
"KRN",1.5,59,1,"SEQ",21,3)
"KRN",1.5,59,1,"SEQ",30,4)
"KRN",1.5,59,1,"SEQ",31,5)
"KRN",1.5,59,1,"SEQ",32,6)
"KRN",1.5,59,1,"SEQ",33,7)
"KRN",1.5,59,1,"SEQ",34,12)
"KRN",1.5,59,1,"SEQ",35,8)
"KRN",1.5,59,1,"SEQ",43,16)
"KRN",1.5,59,1,"SEQ",46,9)
"KRN",1.5,59,1,"SEQ",53,10)
"KRN",1.5,59,1,"SEQ",60,14)
"KRN",1.5,59,1,"SEQ",61,11)
"KRN",1.5,59,1,"SEQ",62,13)
"KRN",1.5,59,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,59,3)
K ^TMP("VPRIMM",$J),VPRM,VASITE
"KRN",1.5,59,4)
D:$D(^AUPNVIMM(+DIEN)) VIMM^PXPXRM(+DIEN,.VPRM)
"KRN",1.5,59,5)
IMMS^VPRSDAQ
"KRN",1.5,59,19,0)
^1.519^1^1^3190606^^
"KRN",1.5,59,19,1,0)
This entity populates the Vaccination container in HealthShare.
"KRN",1.5,79,-1)
0^19
"KRN",1.5,79,0)
VPR ADMISSION^405^^^^S
"KRN",1.5,79,.1)
Encounter
"KRN",1.5,79,1,0)
^1.51^23^20
"KRN",1.5,79,1,1,0)
EncounterNumber^3^S^405^.27
"KRN",1.5,79,1,1,4)
S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
"KRN",1.5,79,1,1,6)
S VALUE=$G(VPRVST)
"KRN",1.5,79,1,2,0)
EncounterType^5^F^^^^
"KRN",1.5,79,1,2,4)
"KRN",1.5,79,1,2,6)
S VALUE="I"
"KRN",1.5,79,1,3,0)
EncounterCodedType^6^E^405^^^^VPR CODE TABLE
"KRN",1.5,79,1,3,6)
S VALUE="H^HOSPITALIZATION"
"KRN",1.5,79,1,4,0)
ConsultingClinicians^9^L^^^^^VPR PROVIDER
"KRN",1.5,79,1,4,1)
4^CareProvider^^
"KRN",1.5,79,1,4,6)
N X S X=$P($G(VAIP(13,5)),U) S:X DLIST(1)=X_"^PRIMARY"
"KRN",1.5,79,1,6,0)
HealthCareFacility^22^E^405^.06^44^1^VPR LOCATION
"KRN",1.5,79,1,6,4)
"KRN",1.5,79,1,6,6)
N X S X=$P($G(VAIP(5)),U) S:X VALUE=+$G(^DIC(42,+X,44))
"KRN",1.5,79,1,8,0)
EnteredBy^41^E^405^100^^1^VPR USER
"KRN",1.5,79,1,8,6)
"KRN",1.5,79,1,9,0)
EnteredAt^42^E^405^.06^^1^VPR FACILITY
"KRN",1.5,79,1,9,4)
S VALUE=$$WARDFAC^VPRSDA(VALUE) S:'VALUE VALUE=$G(VASITE)
"KRN",1.5,79,1,9,6)
S VALUE=$P($G(VAIP(13,4)),U)
"KRN",1.5,79,1,10,0)
EnteredOn^43^S^405^101^^1
"KRN",1.5,79,1,10,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,79,1,10,6)
"KRN",1.5,79,1,11,0)
FromTime^44^S^405^.01^^1
"KRN",1.5,79,1,11,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,79,1,11,6)
S VALUE=$P($G(VAIP(13,1)),U)
"KRN",1.5,79,1,12,0)
ToTime^45^S^405^.17^.01^1
"KRN",1.5,79,1,12,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,79,1,12,6)
S VALUE=$P($G(VAIP(17,1)),U)
"KRN",1.5,79,1,13,0)
AdmittingClinician^7^E^405^.08^^1^VPR PROVIDER
"KRN",1.5,79,1,13,6)
S VALUE=$P($G(VAIP(13,5)),U)
"KRN",1.5,79,1,14,0)
AttendingClinicians^8^L^405^^^^VPR PROVIDER
"KRN",1.5,79,1,14,1)
4^CareProvider
"KRN",1.5,79,1,14,6)
S DLIST(1)=$P($G(VAIP(18)),U)
"KRN",1.5,79,1,15,0)
AdmissionSource^14^E^405^.18^^1^VPR CODE TABLE
"KRN",1.5,79,1,15,6)
S VALUE=$G(VAIP(13,3)) S:$L(VALUE) VALUE=VALUE_"^VA405.2"
"KRN",1.5,79,1,16,0)
AssignedWard^15^S^405^.06
"KRN",1.5,79,1,16,6)
S VALUE=$P($G(VAIP(5)),U,2)
"KRN",1.5,79,1,17,0)
AssignedRoom^16^S^405^.07
"KRN",1.5,79,1,17,4)
S VALUE=$P(VALUE,"-")
"KRN",1.5,79,1,17,6)
S VALUE=$P($G(VAIP(6)),U,2)
"KRN",1.5,79,1,18,0)
AssignedBed^17^S^405^.07
"KRN",1.5,79,1,18,4)
S VALUE=$P(VALUE,"-",2)
"KRN",1.5,79,1,18,6)
S VALUE=$P($G(VAIP(6)),U,2)
"KRN",1.5,79,1,19,0)
AdmitReason^21^E^405^.1^^^VPR CODE ONLY
"KRN",1.5,79,1,19,6)
S VALUE=$G(VAIP(13,7))
"KRN",1.5,79,1,20,0)
Specialties^30^L^^^^^VPR SPECIALTY
"KRN",1.5,79,1,20,1)
4^CareProviderType
"KRN",1.5,79,1,20,6)
D SPEC^VPRSDA
"KRN",1.5,79,1,22,0)
Extension^2^E^405^^^^VPR ADMISSION EXTENSION
"KRN",1.5,79,1,22,6)
S VALUE=DIEN
"KRN",1.5,79,1,23,0)
Priority^35^E^^^^^VPR CODE TABLE
"KRN",1.5,79,1,23,6)
S VALUE="P^PRIMARY"
"KRN",1.5,79,1,"B","AdmissionSource",15)
"KRN",1.5,79,1,"B","AdmitReason",19)
"KRN",1.5,79,1,"B","AdmittingClinician",13)
"KRN",1.5,79,1,"B","AssignedBed",18)
"KRN",1.5,79,1,"B","AssignedRoom",17)
"KRN",1.5,79,1,"B","AssignedWard",16)
"KRN",1.5,79,1,"B","AttendingClinicians",14)
"KRN",1.5,79,1,"B","ConsultingClinicians",4)
"KRN",1.5,79,1,"B","EncounterCodedType",3)
"KRN",1.5,79,1,"B","EncounterNumber",1)
"KRN",1.5,79,1,"B","EncounterType",2)
"KRN",1.5,79,1,"B","EnteredAt",9)
"KRN",1.5,79,1,"B","EnteredBy",8)
"KRN",1.5,79,1,"B","EnteredOn",10)
"KRN",1.5,79,1,"B","Extension",22)
"KRN",1.5,79,1,"B","FromTime",11)
"KRN",1.5,79,1,"B","HealthCareFacility",6)
"KRN",1.5,79,1,"B","Priority",23)
"KRN",1.5,79,1,"B","Specialties",20)
"KRN",1.5,79,1,"B","ToTime",12)
"KRN",1.5,79,1,"SEQ",2,22)
"KRN",1.5,79,1,"SEQ",3,1)
"KRN",1.5,79,1,"SEQ",5,2)
"KRN",1.5,79,1,"SEQ",6,3)
"KRN",1.5,79,1,"SEQ",7,13)
"KRN",1.5,79,1,"SEQ",8,14)
"KRN",1.5,79,1,"SEQ",9,4)
"KRN",1.5,79,1,"SEQ",14,15)
"KRN",1.5,79,1,"SEQ",15,16)
"KRN",1.5,79,1,"SEQ",16,17)
"KRN",1.5,79,1,"SEQ",17,18)
"KRN",1.5,79,1,"SEQ",21,19)
"KRN",1.5,79,1,"SEQ",22,6)
"KRN",1.5,79,1,"SEQ",30,20)
"KRN",1.5,79,1,"SEQ",35,23)
"KRN",1.5,79,1,"SEQ",41,8)
"KRN",1.5,79,1,"SEQ",42,9)
"KRN",1.5,79,1,"SEQ",43,10)
"KRN",1.5,79,1,"SEQ",44,11)
"KRN",1.5,79,1,"SEQ",45,12)
"KRN",1.5,79,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,79,3)
K VAIP,VASITE
"KRN",1.5,79,4)
D VAIP^VPRSDA(.DIEN,.DFN)
"KRN",1.5,79,5)
ADM^VPRSDAQ
"KRN",1.5,79,19,0)
^1.519^3^3^3190606^^
"KRN",1.5,79,19,1,0)
This entity populates the Encounter container in HealthShare, for inpatient
"KRN",1.5,79,19,2,0)
admissions. An admission must have a corresponding entry in the Visit
"KRN",1.5,79,19,3,0)
file #9000010 to be included.
"KRN",1.5,84,-1)
0^91
"KRN",1.5,84,0)
VPR LRAP REPORT^63.08^^^^S
"KRN",1.5,84,.1)
Document
"KRN",1.5,84,1,0)
^1.51^16^15
"KRN",1.5,84,1,1,0)
FromTime^1^S^63.08^.01^^1
"KRN",1.5,84,1,1,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,84,1,1,6)
S VALUE=9999999-(+DIEN)
"KRN",1.5,84,1,2,0)
ToTime^2^S^63.08^.03^^1
"KRN",1.5,84,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,84,1,2,6)
S VALUE=$P($G(LR0),U,3)
"KRN",1.5,84,1,3,0)
DocumentTime^6^S^63.08^.01^^1
"KRN",1.5,84,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,84,1,3,6)
S VALUE=$P($G(LR0),U)
"KRN",1.5,84,1,4,0)
NoteText^7^W^63.08
"KRN",1.5,84,1,4,6)
D RPT^VPRSDAB(LRSUB,+DIEN)
"KRN",1.5,84,1,5,0)
DocumentType^8^E^63.08^^^^VPR CODE TABLE
"KRN",1.5,84,1,5,6)
S VALUE="LR^LABORATORY REPORT"
"KRN",1.5,84,1,6,0)
Clinician^9^E^63.08^.02^^1^VPR PROVIDER
"KRN",1.5,84,1,6,6)
S VALUE=$P($G(LR0),U,2)
"KRN",1.5,84,1,7,0)
AuthorizationTime^11^S^63.08^.11^^1
"KRN",1.5,84,1,7,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,84,1,7,6)
S VALUE=$P($G(LR0),U,11)
"KRN",1.5,84,1,8,0)
DocumentName^12^F^
"KRN",1.5,84,1,8,6)
S VALUE="LR "_$$NAME^VPRDLRA($G(LRSUB))_" REPORT"
"KRN",1.5,84,1,9,0)
FileType^13^F^
"KRN",1.5,84,1,9,2)
TXT
"KRN",1.5,84,1,10,0)
DocumentNumber^16^I
"KRN",1.5,84,1,10,4)
S VALUE=+DIEN_";"_$G(LRSUB)
"KRN",1.5,84,1,11,0)
DocumentCompletionStatus^19^E^63.08^.11^^1^VPR CODE TABLE
"KRN",1.5,84,1,11,4)
"KRN",1.5,84,1,11,6)
N X S X=$P($G(LR0),U,11),VALUE=$S(X:"C^COMPLETED",1:"R^RELEASED") ;final, if date exists
"KRN",1.5,84,1,13,0)
EnteredBy^22^E^63.08^.02^^1^VPR USER
"KRN",1.5,84,1,13,6)
S VALUE=$P($G(LR0),U,2)
"KRN",1.5,84,1,14,0)
EnteredAt^23^E^63.08^^^^VPR FACILITY
"KRN",1.5,84,1,14,6)
S VALUE=$G(VASITE)
"KRN",1.5,84,1,15,0)
EnteredOn^24^S^63.08^.1^^1
"KRN",1.5,84,1,15,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,84,1,15,6)
S VALUE=$P($G(LR0),U,10)
"KRN",1.5,84,1,16,0)
Extension^5^E^63.08^^^^VPR LRAP EXTENSION
"KRN",1.5,84,1,16,6)
S VALUE=DIEN
"KRN",1.5,84,1,"B","AuthorizationTime",7)
"KRN",1.5,84,1,"B","Clinician",6)
"KRN",1.5,84,1,"B","DocumentCompletionStatus",11)
"KRN",1.5,84,1,"B","DocumentName",8)
"KRN",1.5,84,1,"B","DocumentNumber",10)
"KRN",1.5,84,1,"B","DocumentTime",3)
"KRN",1.5,84,1,"B","DocumentType",5)
"KRN",1.5,84,1,"B","EnteredAt",14)
"KRN",1.5,84,1,"B","EnteredBy",13)
"KRN",1.5,84,1,"B","EnteredOn",15)
"KRN",1.5,84,1,"B","Extension",16)
"KRN",1.5,84,1,"B","FileType",9)
"KRN",1.5,84,1,"B","FromTime",1)
"KRN",1.5,84,1,"B","NoteText",4)
"KRN",1.5,84,1,"B","ToTime",2)
"KRN",1.5,84,1,"SEQ",1,1)
"KRN",1.5,84,1,"SEQ",2,2)
"KRN",1.5,84,1,"SEQ",5,16)
"KRN",1.5,84,1,"SEQ",6,3)
"KRN",1.5,84,1,"SEQ",7,4)
"KRN",1.5,84,1,"SEQ",8,5)
"KRN",1.5,84,1,"SEQ",9,6)
"KRN",1.5,84,1,"SEQ",11,7)
"KRN",1.5,84,1,"SEQ",12,8)
"KRN",1.5,84,1,"SEQ",13,9)
"KRN",1.5,84,1,"SEQ",16,10)
"KRN",1.5,84,1,"SEQ",19,11)
"KRN",1.5,84,1,"SEQ",22,13)
"KRN",1.5,84,1,"SEQ",23,14)
"KRN",1.5,84,1,"SEQ",24,15)
"KRN",1.5,84,2)
S:DFN LRDFN=+$$LRDFN^LRPXAPIU(DFN) S:'DFN&ID LRDFN=+$P(ID,",",2),DFN=$$DFN^LRPXAPIU(LRDFN) S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,84,3)
K LRDFN,LR0,LRSUB,VASITE
"KRN",1.5,84,4)
D AP1^VPRSDAB(.DIEN)
"KRN",1.5,84,5)
LRAP^VPRSDAQ
"KRN",1.5,84,19,0)
^1.519^6^6^3190606^^^
"KRN",1.5,84,19,1,0)
This entity populates the Document container in HealthShare with
"KRN",1.5,84,19,2,0)
Pathology reports that are not stored in TIU. Because these can come from
"KRN",1.5,84,19,3,0)
the Surgical Pathology, Cytopathology, or Electron Microscropy sub-files
"KRN",1.5,84,19,4,0)
in the Lab Data file #63, the GET ID ACTION code will set the Default
"KRN",1.5,84,19,5,0)
File# for the appropriate sub-file based on the value of ID; it also sets
"KRN",1.5,84,19,6,0)
the LR0 local variable to the sub-file zero node.
"KRN",1.5,90,-1)
0^92
"KRN",1.5,90,0)
VPR LRMI REPORT^63.05^^^^S
"KRN",1.5,90,.1)
Document
"KRN",1.5,90,1,0)
^1.51^16^14
"KRN",1.5,90,1,1,0)
FromTime^1^S^63.05^.01^^1
"KRN",1.5,90,1,1,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,90,1,1,6)
S VALUE=9999999-(+DIEN)
"KRN",1.5,90,1,2,0)
ToTime^2^S^63.05^.03^^1
"KRN",1.5,90,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,90,1,2,6)
S VALUE=$P($G(LR0),U,3)
"KRN",1.5,90,1,3,0)
DocumentTime^6^S^63.05^.01^^1
"KRN",1.5,90,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,90,1,3,6)
S VALUE=$P($G(LR0),U)
"KRN",1.5,90,1,4,0)
NoteText^7^W^63.05
"KRN",1.5,90,1,4,6)
D RPT^VPRSDAB("MI",+DIEN)
"KRN",1.5,90,1,5,0)
DocumentType^8^E^63.05^^^^VPR CODE TABLE
"KRN",1.5,90,1,5,6)
S VALUE="LR^LABORATORY REPORT"
"KRN",1.5,90,1,6,0)
Clinician^9^E^63.05^.04^^1^VPR PROVIDER
"KRN",1.5,90,1,6,6)
S VALUE=$P($G(LR0),U,4)
"KRN",1.5,90,1,7,0)
AuthorizationTime^11^S^63.05^.03^^1
"KRN",1.5,90,1,7,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,90,1,7,6)
S VALUE=$P($G(LR0),U,3)
"KRN",1.5,90,1,8,0)
DocumentName^12^F^
"KRN",1.5,90,1,8,6)
S VALUE="LR MICROBIOLOGY REPORT"
"KRN",1.5,90,1,9,0)
FileType^13^F^
"KRN",1.5,90,1,9,2)
TXT
"KRN",1.5,90,1,10,0)
DocumentNumber^16^I
"KRN",1.5,90,1,10,4)
S VALUE=+DIEN_";MI"
"KRN",1.5,90,1,11,0)
DocumentCompletionStatus^19^E^63.05^.03^^1^VPR CODE TABLE
"KRN",1.5,90,1,11,4)
"KRN",1.5,90,1,11,6)
N X S X=$P($G(LR0),U,3),VALUE=$S(X:"C^COMPLETED",1:"") ;final, if date exists|
"KRN",1.5,90,1,14,0)
EnteredAt^23^E^63.05^.112^^1^VPR FACILITY
"KRN",1.5,90,1,14,6)
S VALUE=$P($G(LR0),U,14) S:'VALUE VALUE=$G(VASITE)
"KRN",1.5,90,1,15,0)
EnteredOn^24^S^63.05^.1^^1
"KRN",1.5,90,1,15,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,90,1,15,6)
S VALUE=$P($G(LR0),U,10)
"KRN",1.5,90,1,16,0)
Extension^5^E^63.05^^^^VPR LRMI EXTENSION
"KRN",1.5,90,1,16,6)
S VALUE=DIEN
"KRN",1.5,90,1,"B","AuthorizationTime",7)
"KRN",1.5,90,1,"B","Clinician",6)
"KRN",1.5,90,1,"B","DocumentCompletionStatus",11)
"KRN",1.5,90,1,"B","DocumentName",8)
"KRN",1.5,90,1,"B","DocumentNumber",10)
"KRN",1.5,90,1,"B","DocumentTime",3)
"KRN",1.5,90,1,"B","DocumentType",5)
"KRN",1.5,90,1,"B","EnteredAt",14)
"KRN",1.5,90,1,"B","EnteredOn",15)
"KRN",1.5,90,1,"B","Extension",16)
"KRN",1.5,90,1,"B","FileType",9)
"KRN",1.5,90,1,"B","FromTime",1)
"KRN",1.5,90,1,"B","NoteText",4)
"KRN",1.5,90,1,"B","ToTime",2)
"KRN",1.5,90,1,"SEQ",1,1)
"KRN",1.5,90,1,"SEQ",2,2)
"KRN",1.5,90,1,"SEQ",5,16)
"KRN",1.5,90,1,"SEQ",6,3)
"KRN",1.5,90,1,"SEQ",7,4)
"KRN",1.5,90,1,"SEQ",8,5)
"KRN",1.5,90,1,"SEQ",9,6)
"KRN",1.5,90,1,"SEQ",11,7)
"KRN",1.5,90,1,"SEQ",12,8)
"KRN",1.5,90,1,"SEQ",13,9)
"KRN",1.5,90,1,"SEQ",16,10)
"KRN",1.5,90,1,"SEQ",19,11)
"KRN",1.5,90,1,"SEQ",23,14)
"KRN",1.5,90,1,"SEQ",24,15)
"KRN",1.5,90,2)
S:DFN LRDFN=+$$LRDFN^LRPXAPIU(DFN) S:'DFN&ID LRDFN=+$P(ID,",",2),DFN=$$DFN^LRPXAPIU(LRDFN) S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,90,3)
K LRDFN,LR0,LRSUB,VASITE
"KRN",1.5,90,4)
D AP1^VPRSDAB(.DIEN)
"KRN",1.5,90,5)
LRMI^VPRSDAQ
"KRN",1.5,90,19,0)
^1.519^1^1^3190606^^^
"KRN",1.5,90,19,1,0)
This entity populates the Document container in HealthShare.
"KRN",1.5,94,-1)
0^49
"KRN",1.5,94,0)
VPR IV PRODUCT^50^^^^S
"KRN",1.5,94,.1)
DrugProduct
"KRN",1.5,94,1,0)
^1.51^14^14
"KRN",1.5,94,1,1,0)
SDACodingStandard^1^F
"KRN",1.5,94,1,1,2)
VA50.68
"KRN",1.5,94,1,1,6)
S VALUE=$P($G(DATA),U,3)
"KRN",1.5,94,1,2,0)
Code^6^I^^
"KRN",1.5,94,1,2,6)
S VALUE=$P($G(DATA),U)
"KRN",1.5,94,1,3,0)
Description^7^S^50^.01
"KRN",1.5,94,1,3,6)
S VALUE=$P($G(DATA),U,2)
"KRN",1.5,94,1,4,0)
ATCCode^18^E^50^25^^1^VPR DRUG CLASS
"KRN",1.5,94,1,4,6)
S VALUE=$G(@VPRVAP@(25))
"KRN",1.5,94,1,5,0)
Generic^22^E^50^20^^1^VPR DRUG GENERIC
"KRN",1.5,94,1,5,6)
S DATA=$G(@VPRVAP@(20)),VALUE=$P(DATA,U) D:DATA CODE^VPRSDAP(.DATA,50.6)
"KRN",1.5,94,1,6,0)
StrengthQty^19^F^^
"KRN",1.5,94,1,6,6)
S:$P(VPRPSIV,U,4)="A" VALUE=+$P($P(VPRPSIV,U,3)," ") I $P(VPRPSIV,U,4)'="A" S DDEOUT=1
"KRN",1.5,94,1,7,0)
StrengthUnits^20^E^50^^^^VPR CODE ONLY
"KRN",1.5,94,1,7,6)
S:$P(VPRPSIV,U,4)="A" VALUE=$P($P(VPRPSIV,U,3)," ",2) I $P(VPRPSIV,U,4)'="A" S DDEOUT=1
"KRN",1.5,94,1,8,0)
BaseQty^8^F
"KRN",1.5,94,1,8,6)
S:$P(VPRPSIV,U,4)="B" VALUE=+$P($P(VPRPSIV,U,3)," ") I $P(VPRPSIV,U,4)'="B" S DDEOUT=1
"KRN",1.5,94,1,9,0)
BaseUnits^9^E^50^^^^VPR CODE ONLY
"KRN",1.5,94,1,9,6)
S:$P(VPRPSIV,U,4)="B" VALUE=$P($P(VPRPSIV,U,3)," ",2) I $P(VPRPSIV,U,4)'="B" S DDEOUT=1
"KRN",1.5,94,1,10,0)
LabelName^23^F
"KRN",1.5,94,1,10,6)
S:$P(VPRPSIV,U,4)="A" VALUE=$P(VPRPSIV,U,5)
"KRN",1.5,94,1,11,0)
Identifier1^16^I
"KRN",1.5,94,1,11,4)
S VALUE=VALUE_";PSDRUG("
"KRN",1.5,94,1,11,6)
S:DIEN<1 DDEOUT=1
"KRN",1.5,94,1,12,0)
Identifier2^17^S^50^^^
"KRN",1.5,94,1,12,4)
"KRN",1.5,94,1,12,6)
N X S X=$P(VPRPSIV,U) S:X VALUE=X_";PS(52."_$S($P(VPRPSIV,U,4)="A":6,1:7)
"KRN",1.5,94,1,13,0)
OriginalText^3^S^50^.01
"KRN",1.5,94,1,13,6)
S VALUE=$G(@VPRVAP@(.01))
"KRN",1.5,94,1,14,0)
ProductName^10^S^50^
"KRN",1.5,94,1,14,6)
S VALUE=$P(VPRPSIV,U,2)
"KRN",1.5,94,1,"B","ATCCode",4)
"KRN",1.5,94,1,"B","BaseQty",8)
"KRN",1.5,94,1,"B","BaseUnits",9)
"KRN",1.5,94,1,"B","Code",2)
"KRN",1.5,94,1,"B","Description",3)
"KRN",1.5,94,1,"B","Generic",5)
"KRN",1.5,94,1,"B","Identifier1",11)
"KRN",1.5,94,1,"B","Identifier2",12)
"KRN",1.5,94,1,"B","LabelName",10)
"KRN",1.5,94,1,"B","OriginalText",13)
"KRN",1.5,94,1,"B","ProductName",14)
"KRN",1.5,94,1,"B","SDACodingStandard",1)
"KRN",1.5,94,1,"B","StrengthQty",6)
"KRN",1.5,94,1,"B","StrengthUnits",7)
"KRN",1.5,94,1,"SEQ",1,1)
"KRN",1.5,94,1,"SEQ",3,13)
"KRN",1.5,94,1,"SEQ",6,2)
"KRN",1.5,94,1,"SEQ",7,3)
"KRN",1.5,94,1,"SEQ",8,8)
"KRN",1.5,94,1,"SEQ",9,9)
"KRN",1.5,94,1,"SEQ",10,14)
"KRN",1.5,94,1,"SEQ",16,11)
"KRN",1.5,94,1,"SEQ",17,12)
"KRN",1.5,94,1,"SEQ",18,4)
"KRN",1.5,94,1,"SEQ",19,6)
"KRN",1.5,94,1,"SEQ",20,7)
"KRN",1.5,94,1,"SEQ",22,5)
"KRN",1.5,94,1,"SEQ",23,10)
"KRN",1.5,94,3)
K VPRPSIV I $D(VPRVAP) K @VPRVAP,VPRVAP
"KRN",1.5,94,4)
D IV1^VPRSDAP(.DIEN)
"KRN",1.5,94,19,0)
^^4^4^3190606^
"KRN",1.5,94,19,1,0)
This entity expects a string of data from OEL^PSOORRL describing an IV
"KRN",1.5,94,19,2,0)
solution or additive, in the form name^amount^type[^bottle]. It returns
"KRN",1.5,94,19,3,0)
a coded element, including national VA Product information and RxNorm
"KRN",1.5,94,19,4,0)
codes if available. It is intended for use with VPR MEDICATION.
"KRN",1.5,95,-1)
0^22
"KRN",1.5,95,0)
VPR PATIENT EXTENSION^2^^^^S
"KRN",1.5,95,.1)
PatientExtension
"KRN",1.5,95,1,0)
^1.51^43^42
"KRN",1.5,95,1,1,0)
Bid^1^F
"KRN",1.5,95,1,1,6)
S VALUE=$E($G(VADM(1)))_$G(VA("BID"))
"KRN",1.5,95,1,2,0)
Dob^2^S^2^.03^^1
"KRN",1.5,95,1,2,6)
S VALUE=$P($P($G(VADM(3)),U),".")
"KRN",1.5,95,1,3,0)
IsExposureAO^7^S^2^.32102^^1
"KRN",1.5,95,1,3,4)
S VALUE=$S(VALUE:"true",VALUE="Y":"true",1:"false")
"KRN",1.5,95,1,3,6)
S VALUE=+$G(VASV(2))
"KRN",1.5,95,1,4,0)
IsExposureIR^8^S^2^.32103^^1
"KRN",1.5,95,1,4,4)
S VALUE=$S(VALUE:"true","Yy"[$E(VALUE):"true",1:"false")
"KRN",1.5,95,1,4,6)
S VALUE=+$G(VASV(3))
"KRN",1.5,95,1,5,0)
IsExposurePG^9^F
"KRN",1.5,95,1,5,6)
S VALUE=$S(VASV(11)!VASV(12)!VASV(13):"true",1:"false") ;OIF/OEF
"KRN",1.5,95,1,6,0)
IsExposureCV^10^S^2^.5291^^1
"KRN",1.5,95,1,6,4)
S VALUE=$S(VALUE:"true",VALUE="Y":"true",1:"false")
"KRN",1.5,95,1,6,6)
S VALUE=+$G(VASV(5))
"KRN",1.5,95,1,7,0)
IsExposureHNC^11^F
"KRN",1.5,95,1,7,6)
N I,X,HNC S I=$$GETCUR^DGNTAPI(DFN,"HNC"),X=$P($G(HNC("IND")),U),VALUE=$S(X="Y":"true",1:"false")
"KRN",1.5,95,1,8,0)
VeteranLrdfn^3^S^2^63^^1
"KRN",1.5,95,1,8,6)
S VALUE=$G(^DPT(DFN,"LR"))
"KRN",1.5,95,1,9,0)
IsVeteran^4^S^2^1901^^1
"KRN",1.5,95,1,9,4)
S VALUE=$S(VALUE:"true","Yy"[$E(VALUE):"true",1:"false")
"KRN",1.5,95,1,9,6)
S VALUE=+$G(VAEL(4))
"KRN",1.5,95,1,10,0)
IsServiceConnected^5^S^2^.301^^1
"KRN",1.5,95,1,10,4)
S VALUE=$S(VALUE:"true","Yy"[$E(VALUE):"true",1:"false")
"KRN",1.5,95,1,10,6)
S VALUE=+$G(VAEL(3))
"KRN",1.5,95,1,11,0)
ScPercent^6^S^2^.302
"KRN",1.5,95,1,11,6)
S VALUE=$P(VAEL(3),U,2)
"KRN",1.5,95,1,12,0)
ServicePeriod^16^S^2^.323
"KRN",1.5,95,1,12,6)
S:$G(VAEL(2)) VALUE=$P(VAEL(2),U,2)
"KRN",1.5,95,1,13,0)
MeansTestStatus^28^S^2^.14
"KRN",1.5,95,1,13,6)
S:$L($G(VAEL(9))) VALUE=$P(VAEL(9),U,2)
"KRN",1.5,95,1,14,0)
EligibilityStatus^30^S^2^.3611
"KRN",1.5,95,1,14,6)
S:$L($G(VAEL(8))) VALUE=$P(VAEL(8),U,2)
"KRN",1.5,95,1,15,0)
Eligibilities^31^L^^^^^VPR PATIENT ELIGIBILITY
"KRN",1.5,95,1,15,1)
4^Eligibility
"KRN",1.5,95,1,15,6)
N X M DLIST=VAEL(1) S X=$G(VAEL(1)) S:X DLIST(.5)=X_"^1"
"KRN",1.5,95,1,16,0)
Disabilities^32^L^2.04^^^^VPR PATIENT DISABILITY
"KRN",1.5,95,1,16,1)
2^Disability
"KRN",1.5,95,1,17,0)
IsExposureMST^12^F^
"KRN",1.5,95,1,17,6)
N X S X=$P($$GETSTAT^DGMSTAPI(DFN),U,2),VALUE=$S(X="Y":"true",X="N":"false",1:"")
"KRN",1.5,95,1,18,0)
CareTeamName^34^F
"KRN",1.5,95,1,18,6)
S VPRTEAM=$$INSTPCTM^SCAPMC(DFN) S:VPRTEAM VALUE=$P(VPRTEAM,U,2)
"KRN",1.5,95,1,19,0)
CareTeamMembers^36^L^^^^^VPR TEAM MEMBER
"KRN",1.5,95,1,19,1)
4^CareProvider
"KRN",1.5,95,1,19,6)
D PCMM^VPRSDA
"KRN",1.5,95,1,21,0)
AgentOrangeExposure^13^E^2^^^^VPR PATIENT AO
"KRN",1.5,95,1,21,6)
S VALUE=DIEN
"KRN",1.5,95,1,22,0)
RadiationExposure^14^E^2^^^^VPR PATIENT IR
"KRN",1.5,95,1,22,6)
S VALUE=DIEN
"KRN",1.5,95,1,23,0)
SWAsiaExposure^15^E^2^^^^VPR PATIENT SWA
"KRN",1.5,95,1,23,6)
S VALUE=DIEN
"KRN",1.5,95,1,24,0)
VietnamService^17^E^2^^^^VPR VIETNAM SERVICE
"KRN",1.5,95,1,24,6)
S VALUE=DIEN
"KRN",1.5,95,1,25,0)
LebanonService^18^E^2^^^^VPR LEBANON SERVICE
"KRN",1.5,95,1,25,6)
S VALUE=DIEN
"KRN",1.5,95,1,26,0)
GrenadaService^19^E^2^^^^VPR GRENADA SERVICE
"KRN",1.5,95,1,26,6)
S VALUE=DIEN
"KRN",1.5,95,1,27,0)
PanamaService^20^E^2^^^^VPR PANAMA SERVICE
"KRN",1.5,95,1,27,6)
S VALUE=DIEN
"KRN",1.5,95,1,28,0)
PersianGulfService^21^E^2^^^^VPR PERSIAN GULF SERVICE
"KRN",1.5,95,1,28,6)
S VALUE=DIEN
"KRN",1.5,95,1,29,0)
SomaliaService^22^E^2^^^^VPR SOMALIA SERVICE
"KRN",1.5,95,1,29,6)
S VALUE=DIEN
"KRN",1.5,95,1,30,0)
YugoslaviaService^23^E^2^^^^VPR YUGOSLAVIA SERVICE
"KRN",1.5,95,1,30,6)
S VALUE=DIEN
"KRN",1.5,95,1,31,0)
POWStatus^24^E^2^^^^VPR POW STATUS
"KRN",1.5,95,1,31,6)
S VALUE=DIEN
"KRN",1.5,95,1,32,0)
CombatService^25^E^2^^^^VPR COMBAT SERVICE
"KRN",1.5,95,1,32,6)
S VALUE=DIEN
"KRN",1.5,95,1,33,0)
PurpleHeartStatus^26^S^2^.532
"KRN",1.5,95,1,33,6)
S VALUE=$P($G(VASV(9,1)),U,2) S:'$G(VASV(9)) DDEOUT=1
"KRN",1.5,95,1,34,0)
IsCopayExempt^29^S^354^.04^^1
"KRN",1.5,95,1,34,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,95,1,35,0)
CareTeamPhone^35^S^404.51^.02
"KRN",1.5,95,1,35,6)
S IEN=+$G(VPRTEAM) S:'IEN DDEOUT=1
"KRN",1.5,95,1,36,0)
EmergencyResponseIndicator^40^S^2^.181
"KRN",1.5,95,1,37,0)
ServiceEpisodes^27^L^^^^^VPR PATIENT MILITARY SERVICE
"KRN",1.5,95,1,37,1)
4^ServiceEpisode
"KRN",1.5,95,1,37,6)
N I F I=6,7,8 I $G(VASV(I)) S DLIST(I)=I
"KRN",1.5,95,1,38,0)
Enrollments^33^L^^^^^VPR PATIENT ENROLLMENT
"KRN",1.5,95,1,38,1)
4^Enrollment
"KRN",1.5,95,1,38,6)
N I S I=0 F S I=$O(^UTILITY("VAEN",$J,I)) Q:I<1 S DLIST(I)=$G(^(I,"I"))
"KRN",1.5,95,1,39,0)
MHTeamName^37^F
"KRN",1.5,95,1,39,6)
N X,VPRP,VPRTM S VPRP(4)="",X=$$TMPT^SCAPMC(DFN,,"VPRP","VPRTM") I X S VPRTEAM=$G(VPRTM(1)),VALUE=$P(VPRTEAM,U,2)
"KRN",1.5,95,1,40,0)
MHTeamMembers^39^L^^^^^VPR TEAM MEMBER
"KRN",1.5,95,1,40,1)
4^CareProvider
"KRN",1.5,95,1,40,6)
D PCMMT^VPRSDA
"KRN",1.5,95,1,41,0)
LastTreated^41^E^2^^^^VPR SOURCE FACILITY
"KRN",1.5,95,1,41,6)
S VALUE=DIEN
"KRN",1.5,95,1,42,0)
MHTeamPhone^38^S^404.51^.02
"KRN",1.5,95,1,42,6)
S IEN=+$G(VPRTEAM) S:'IEN DDEOUT=1
"KRN",1.5,95,1,43,0)
IsSensitive^42^S^38.1^2^^1
"KRN",1.5,95,1,43,4)
S VALUE=$S(VALUE:"true",VALUE=0:"false",1:"")
"KRN",1.5,95,1,43,5)
S VALUE=$S(VALUE="true":1,VALUE="false":0,1:"")
"KRN",1.5,95,1,"B","AgentOrangeExposure",21)
"KRN",1.5,95,1,"B","Bid",1)
"KRN",1.5,95,1,"B","CareTeamMembers",19)
"KRN",1.5,95,1,"B","CareTeamName",18)
"KRN",1.5,95,1,"B","CareTeamPhone",35)
"KRN",1.5,95,1,"B","CombatService",32)
"KRN",1.5,95,1,"B","Disabilities",16)
"KRN",1.5,95,1,"B","Dob",2)
"KRN",1.5,95,1,"B","Eligibilities",15)
"KRN",1.5,95,1,"B","EligibilityStatus",14)
"KRN",1.5,95,1,"B","EmergencyResponseIndicator",36)
"KRN",1.5,95,1,"B","Enrollments",38)
"KRN",1.5,95,1,"B","GrenadaService",26)
"KRN",1.5,95,1,"B","IsCopayExempt",34)
"KRN",1.5,95,1,"B","IsExposureAO",3)
"KRN",1.5,95,1,"B","IsExposureCV",6)
"KRN",1.5,95,1,"B","IsExposureHNC",7)
"KRN",1.5,95,1,"B","IsExposureIR",4)
"KRN",1.5,95,1,"B","IsExposureMST",17)
"KRN",1.5,95,1,"B","IsExposurePG",5)
"KRN",1.5,95,1,"B","IsSensitive",43)
"KRN",1.5,95,1,"B","IsServiceConnected",10)
"KRN",1.5,95,1,"B","IsVeteran",9)
"KRN",1.5,95,1,"B","LastTreated",41)
"KRN",1.5,95,1,"B","LebanonService",25)
"KRN",1.5,95,1,"B","MHTeamMembers",40)
"KRN",1.5,95,1,"B","MHTeamName",39)
"KRN",1.5,95,1,"B","MHTeamPhone",42)
"KRN",1.5,95,1,"B","MeansTestStatus",13)
"KRN",1.5,95,1,"B","POWStatus",31)
"KRN",1.5,95,1,"B","PanamaService",27)
"KRN",1.5,95,1,"B","PersianGulfService",28)
"KRN",1.5,95,1,"B","PurpleHeartStatus",33)
"KRN",1.5,95,1,"B","RadiationExposure",22)
"KRN",1.5,95,1,"B","SWAsiaExposure",23)
"KRN",1.5,95,1,"B","ScPercent",11)
"KRN",1.5,95,1,"B","ServiceEpisodes",37)
"KRN",1.5,95,1,"B","ServicePeriod",12)
"KRN",1.5,95,1,"B","SomaliaService",29)
"KRN",1.5,95,1,"B","VeteranLrdfn",8)
"KRN",1.5,95,1,"B","VietnamService",24)
"KRN",1.5,95,1,"B","YugoslaviaService",30)
"KRN",1.5,95,1,"SEQ",1,1)
"KRN",1.5,95,1,"SEQ",2,2)
"KRN",1.5,95,1,"SEQ",3,8)
"KRN",1.5,95,1,"SEQ",4,9)
"KRN",1.5,95,1,"SEQ",5,10)
"KRN",1.5,95,1,"SEQ",6,11)
"KRN",1.5,95,1,"SEQ",7,3)
"KRN",1.5,95,1,"SEQ",8,4)
"KRN",1.5,95,1,"SEQ",9,5)
"KRN",1.5,95,1,"SEQ",10,6)
"KRN",1.5,95,1,"SEQ",11,7)
"KRN",1.5,95,1,"SEQ",12,17)
"KRN",1.5,95,1,"SEQ",13,21)
"KRN",1.5,95,1,"SEQ",14,22)
"KRN",1.5,95,1,"SEQ",15,23)
"KRN",1.5,95,1,"SEQ",16,12)
"KRN",1.5,95,1,"SEQ",17,24)
"KRN",1.5,95,1,"SEQ",18,25)
"KRN",1.5,95,1,"SEQ",19,26)
"KRN",1.5,95,1,"SEQ",20,27)
"KRN",1.5,95,1,"SEQ",21,28)
"KRN",1.5,95,1,"SEQ",22,29)
"KRN",1.5,95,1,"SEQ",23,30)
"KRN",1.5,95,1,"SEQ",24,31)
"KRN",1.5,95,1,"SEQ",25,32)
"KRN",1.5,95,1,"SEQ",26,33)
"KRN",1.5,95,1,"SEQ",27,37)
"KRN",1.5,95,1,"SEQ",28,13)
"KRN",1.5,95,1,"SEQ",29,34)
"KRN",1.5,95,1,"SEQ",30,14)
"KRN",1.5,95,1,"SEQ",31,15)
"KRN",1.5,95,1,"SEQ",32,16)
"KRN",1.5,95,1,"SEQ",33,38)
"KRN",1.5,95,1,"SEQ",34,18)
"KRN",1.5,95,1,"SEQ",35,35)
"KRN",1.5,95,1,"SEQ",36,19)
"KRN",1.5,95,1,"SEQ",37,39)
"KRN",1.5,95,1,"SEQ",38,42)
"KRN",1.5,95,1,"SEQ",39,40)
"KRN",1.5,95,1,"SEQ",40,36)
"KRN",1.5,95,1,"SEQ",41,41)
"KRN",1.5,95,1,"SEQ",42,43)
"KRN",1.5,95,2)
D 7^VADPT,SDE^VADPT
"KRN",1.5,95,3)
K VAEL,VASV,VAERR,VPRTEAM,^TMP("SC TMP LIST",$J),^UTILITY("VAEN",$J)
"KRN",1.5,95,19,0)
^1.519^2^2^3190606^^^
"KRN",1.5,95,19,1,0)
This entity extends VPR PATIENT, using supported calls to VADPT to
"KRN",1.5,95,19,2,0)
retrieve the data.
"KRN",1.5,100,-1)
0^89
"KRN",1.5,100,0)
VPR COMMENT^^^^^S
"KRN",1.5,100,.1)
Comment
"KRN",1.5,100,1,0)
^1.51^6^6
"KRN",1.5,100,1,1,0)
Id^1^I
"KRN",1.5,100,1,1,6)
"KRN",1.5,100,1,2,0)
EnteredAt^2^E^^^^^VPR FACILITY
"KRN",1.5,100,1,2,6)
S VALUE=$P(VPRCMT,U,5)
"KRN",1.5,100,1,3,0)
EnteredBy^3^E^^^^^VPR PROVIDER
"KRN",1.5,100,1,3,6)
S VALUE=$P(VPRCMT,U,3)
"KRN",1.5,100,1,4,0)
EnteredOn^4^S
"KRN",1.5,100,1,4,4)
S VALUE=$$DATE^VPRSDA(VALUE,1)
"KRN",1.5,100,1,4,6)
S VALUE=$P(VPRCMT,U,2)
"KRN",1.5,100,1,5,0)
CommentType^5^S
"KRN",1.5,100,1,5,6)
S VALUE=$P(VPRCMT,U,4)
"KRN",1.5,100,1,6,0)
CommentText^6^S
"KRN",1.5,100,1,6,6)
S VALUE=$P(VPRCMT,U,6)
"KRN",1.5,100,1,"B","CommentText",6)
"KRN",1.5,100,1,"B","CommentType",5)
"KRN",1.5,100,1,"B","EnteredAt",2)
"KRN",1.5,100,1,"B","EnteredBy",3)
"KRN",1.5,100,1,"B","EnteredOn",4)
"KRN",1.5,100,1,"B","Id",1)
"KRN",1.5,100,1,"SEQ",1,1)
"KRN",1.5,100,1,"SEQ",2,2)
"KRN",1.5,100,1,"SEQ",3,3)
"KRN",1.5,100,1,"SEQ",4,4)
"KRN",1.5,100,1,"SEQ",5,5)
"KRN",1.5,100,1,"SEQ",6,6)
"KRN",1.5,100,3)
K VPRCMT
"KRN",1.5,100,4)
S VPRCMT=$G(DIEN),DIEN=$P(DIEN,U)
"KRN",1.5,100,19,0)
^1.519^5^5^3190606^^^
"KRN",1.5,100,19,1,0)
This entity supports comments in multiple SDA containers, such as
"KRN",1.5,100,19,2,0)
Allergies and Problems; it returns a single comment, and is intended to
"KRN",1.5,100,19,3,0)
be used with a List property. A string in the following format is
"KRN",1.5,100,19,4,0)
expected as the ID:
"KRN",1.5,100,19,5,0)
id ^ date ^ user ^ type ^ facility ^ text
"KRN",1.5,101,-1)
0^2
"KRN",1.5,101,0)
VPR ALLERGY EXTENSION^120.8^^^^S
"KRN",1.5,101,.1)
AllergyExtension
"KRN",1.5,101,1,0)
^1.51^9^9
"KRN",1.5,101,1,1,0)
Mechanism^1^E^120.8^17^^^VPR CODE ONLY
"KRN",1.5,101,1,1,6)
S VALUE=$P($G(GMRAY),U,6)
"KRN",1.5,101,1,2,0)
Source^2^S^120.8^6
"KRN",1.5,101,1,2,6)
S VALUE=$P($G(GMRAY),U,5)
"KRN",1.5,101,1,3,0)
Comments^3^L^^^^^VPR COMMENT
"KRN",1.5,101,1,3,1)
4^Comment
"KRN",1.5,101,1,3,6)
D ALGCMT^VPRSDAL(DIEN)
"KRN",1.5,101,1,4,0)
Reactions^4^L^^^^^VPR ALLERGY SIGN/SYMPTOM
"KRN",1.5,101,1,4,1)
4^Reaction^^
"KRN",1.5,101,1,4,6)
N I,X S I=0 F S I=$O(VPRALG("S",I)) Q:I<1 S X=$G(VPRALG("S",I)),DLIST(I)=+$P($P(X,U),";",2)_U_$P($P(X,U),";")_$S($L($P(X,U,2))>1:U_$P($P(X,U,2),";",2),1:"")
"KRN",1.5,101,1,5,0)
DrugClasses^5^L^^^^^VPR DRUG CLASS
"KRN",1.5,101,1,5,1)
4
"KRN",1.5,101,1,5,6)
N I S I=0 F S I=$O(GMRAY("V",I)) Q:I<1 S DLIST(I)=I_U_GMRAY("V",I)
"KRN",1.5,101,1,6,0)
DrugProducts^6^L^^^^^VPR DRUG INGREDIENT
"KRN",1.5,101,1,6,1)
4^DrugProduct
"KRN",1.5,101,1,6,6)
M DLIST=GMRAY("I")
"KRN",1.5,101,1,7,0)
OriginalCode^7^S^120.8^1^^1
"KRN",1.5,101,1,7,6)
S VALUE=$P($G(VPRALG),U,9)
"KRN",1.5,101,1,8,0)
InactiveUser^8^E^120.8^24^^1^VPR USER
"KRN",1.5,101,1,9,0)
AllergyObservations^9^L^^^^^VPR ALLERGY OBSERVATION
"KRN",1.5,101,1,9,1)
4
"KRN",1.5,101,1,9,6)
M DLIST=GMRAY("O")
"KRN",1.5,101,1,"B","AllergyObservations",9)
"KRN",1.5,101,1,"B","Comments",3)
"KRN",1.5,101,1,"B","DrugClasses",5)
"KRN",1.5,101,1,"B","DrugProducts",6)
"KRN",1.5,101,1,"B","InactiveUser",8)
"KRN",1.5,101,1,"B","Mechanism",1)
"KRN",1.5,101,1,"B","OriginalCode",7)
"KRN",1.5,101,1,"B","Reactions",4)
"KRN",1.5,101,1,"B","Source",2)
"KRN",1.5,101,1,"SEQ",1,1)
"KRN",1.5,101,1,"SEQ",2,2)
"KRN",1.5,101,1,"SEQ",3,3)
"KRN",1.5,101,1,"SEQ",4,4)
"KRN",1.5,101,1,"SEQ",5,5)
"KRN",1.5,101,1,"SEQ",6,6)
"KRN",1.5,101,1,"SEQ",7,7)
"KRN",1.5,101,1,"SEQ",8,8)
"KRN",1.5,101,1,"SEQ",9,9)
"KRN",1.5,101,19,0)
^1.519^2^2^3190606^^^
"KRN",1.5,101,19,1,0)
This entity extends VPR ALLERGY. It expects the GMRAY variable and array
"KRN",1.5,101,19,2,0)
to be defined, from the GET ID ACTION call to GMRAOR2.
"KRN",1.5,104,-1)
0^20
"KRN",1.5,104,0)
VPR ADMISSION EXTENSION^405^^^^S
"KRN",1.5,104,.1)
EncounterExtension
"KRN",1.5,104,1,0)
^1.51^4^4
"KRN",1.5,104,1,1,0)
Admitnumber^1^I
"KRN",1.5,104,1,2,0)
Ptf^2^S^405^.16^^1
"KRN",1.5,104,1,2,6)
S VALUE=$G(VAIP(12))
"KRN",1.5,104,1,3,0)
OriginalTime^3^S^405^.01^^1
"KRN",1.5,104,1,3,6)
S VALUE=$P($G(VAIP(13,1)),U)
"KRN",1.5,104,1,4,0)
LastTransferDate^4^S^405
"KRN",1.5,104,1,4,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,104,1,4,6)
N MDT,I S MDT=0 F S MDT=$O(^DGPM("APCA",DFN,DIEN,MDT)) Q:MDT<1 S I=$O(^(MDT,0)) I $P($G(^DGPM(+I,0)),U,2)=2 S VALUE=MDT
"KRN",1.5,104,1,"B","Admitnumber",1)
"KRN",1.5,104,1,"B","LastTransferDate",4)
"KRN",1.5,104,1,"B","OriginalTime",3)
"KRN",1.5,104,1,"B","Ptf",2)
"KRN",1.5,104,1,"SEQ",1,1)
"KRN",1.5,104,1,"SEQ",2,2)
"KRN",1.5,104,1,"SEQ",3,3)
"KRN",1.5,104,1,"SEQ",4,4)
"KRN",1.5,104,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,104,19,1,0)
This entity extends VPR ADMISSION; it expects the VAIP array from VADPT
"KRN",1.5,104,19,2,0)
to be defined, and is intended to be called within VPR ADMISSION.
"KRN",1.5,106,-1)
0^84
"KRN",1.5,106,0)
VPR PRF EXTENSION^26.13^^^^S
"KRN",1.5,106,.1)
AlertExtension
"KRN",1.5,106,1,0)
^1.51^3^3
"KRN",1.5,106,1,1,0)
OwnSite^1^E^26.13^.04^^1^VPR FACILITY
"KRN",1.5,106,1,1,6)
S VALUE=$P($G(VPRF1("OWNER")),U) S:'VALUE DDEOUT=1
"KRN",1.5,106,1,2,0)
Category^2^F
"KRN",1.5,106,1,2,6)
S VALUE=$P($G(VPRF1("FLAGTYPE")),U,2)
"KRN",1.5,106,1,3,0)
DocumentNumber^3^F
"KRN",1.5,106,1,3,6)
S VALUE=$P($G(VPRF1("TIULINK")),U) S:VALUE VALUE=VALUE_";TIU"
"KRN",1.5,106,1,"B","Category",2)
"KRN",1.5,106,1,"B","DocumentNumber",3)
"KRN",1.5,106,1,"B","OwnSite",1)
"KRN",1.5,106,1,"SEQ",1,1)
"KRN",1.5,106,1,"SEQ",2,2)
"KRN",1.5,106,1,"SEQ",3,3)
"KRN",1.5,106,19,0)
^1.519^2^2^3190606^^^^
"KRN",1.5,106,19,1,0)
This entity extends VPR PATIENT RECORD FLAG; it expects the VPRF1 array
"KRN",1.5,106,19,2,0)
to be defined.
"KRN",1.5,107,-1)
0^16
"KRN",1.5,107,0)
VPR PROBLEM EXTENSION^9000011^^^^S
"KRN",1.5,107,.1)
ProblemExtension
"KRN",1.5,107,1,0)
^1.51^16^16
"KRN",1.5,107,1,1,0)
Comments^14^L^^^^^VPR COMMENT
"KRN",1.5,107,1,1,1)
4^Comment
"KRN",1.5,107,1,1,6)
D PROBCMT^VPRSDA(DIEN)
"KRN",1.5,107,1,2,0)
IsExposureAO^1^S^9000011^1.11^^1
"KRN",1.5,107,1,2,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,107,1,2,6)
S VALUE=$P($G(GMPFLD(1.11)),U)
"KRN",1.5,107,1,3,0)
IsExposureIR^2^S^9000011^1.12^^1
"KRN",1.5,107,1,3,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,107,1,3,6)
S VALUE=$P($G(GMPFLD(1.12)),U)
"KRN",1.5,107,1,4,0)
IsExposurePG^3^S^9000011^1.13^^1
"KRN",1.5,107,1,4,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,107,1,4,6)
S VALUE=$P($G(GMPFLD(1.13)),U)
"KRN",1.5,107,1,5,0)
IsExposureHNC^4^S^9000011^1.15^^1
"KRN",1.5,107,1,5,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,107,1,5,6)
S VALUE=$P($G(GMPFLD(1.15)),U)
"KRN",1.5,107,1,6,0)
IsExposureMST^5^S^9000011^1.16^^1
"KRN",1.5,107,1,6,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,107,1,6,6)
S VALUE=$P($G(GMPFLD(1.16)),U)
"KRN",1.5,107,1,7,0)
IsExposureCV^6^S^9000011^1.17^^1
"KRN",1.5,107,1,7,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,107,1,7,6)
S VALUE=$P($G(GMPFLD(1.17)),U)
"KRN",1.5,107,1,8,0)
IsExposureSH^7^S^9000011^1.18^^1
"KRN",1.5,107,1,8,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,107,1,8,6)
S VALUE=$P($G(GMPFLD(1.18)),U)
"KRN",1.5,107,1,9,0)
Location^8^E^9000011^1.08^^1^VPR LOCATION
"KRN",1.5,107,1,9,6)
S VALUE=$P($G(GMPFLD(1.08)),U)
"KRN",1.5,107,1,10,0)
Removed^9^S^9000011^1.02^^1
"KRN",1.5,107,1,10,4)
S VALUE=$S(VALUE="H":"true",1:"false")
"KRN",1.5,107,1,10,6)
S VALUE=$P($G(GMPFLD(1.02)),U)
"KRN",1.5,107,1,11,0)
IsSc^10^S^9000011^1.1^^1
"KRN",1.5,107,1,11,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,107,1,11,6)
S VALUE=$P($G(GMPFLD(1.1)),U)
"KRN",1.5,107,1,12,0)
Service^11^S^9000011^1.06
"KRN",1.5,107,1,12,6)
S VALUE=$P($G(GMPFLD(1.06)),U,2)
"KRN",1.5,107,1,13,0)
OnsetDate^12^S^9000011^.13^^1
"KRN",1.5,107,1,13,4)
N D S D=$P(VALUE,"."),VALUE=(1700+$E(D,1,3))_"-"_$E(D,4,5)_"-"_$E(D,6,7)
"KRN",1.5,107,1,13,6)
S VALUE=$P($G(GMPFLD(.13)),U)
"KRN",1.5,107,1,14,0)
LexiconId^13^S^9000011^1.01^^1
"KRN",1.5,107,1,14,6)
S VALUE=$P($G(GMPFLD(1.01)),U)
"KRN",1.5,107,1,15,0)
Priority^15^S^9000011^1.14
"KRN",1.5,107,1,15,6)
S VALUE=$P($G(GMPFLD(1.14)),U,2)
"KRN",1.5,107,1,16,0)
IsVerified^16^S^9000011^1.02^^1
"KRN",1.5,107,1,16,4)
S VALUE=$S(VALUE="P":"true",VALUE="T":"false",1:"") S:VALUE="" DDEOUT=1
"KRN",1.5,107,1,16,6)
S VALUE=$P($G(GMPFLD(1.02)),U)
"KRN",1.5,107,1,"B","Comments",1)
"KRN",1.5,107,1,"B","IsExposureAO",2)
"KRN",1.5,107,1,"B","IsExposureCV",7)
"KRN",1.5,107,1,"B","IsExposureHNC",5)
"KRN",1.5,107,1,"B","IsExposureIR",3)
"KRN",1.5,107,1,"B","IsExposureMST",6)
"KRN",1.5,107,1,"B","IsExposurePG",4)
"KRN",1.5,107,1,"B","IsExposureSH",8)
"KRN",1.5,107,1,"B","IsSc",11)
"KRN",1.5,107,1,"B","IsVerified",16)
"KRN",1.5,107,1,"B","LexiconId",14)
"KRN",1.5,107,1,"B","Location",9)
"KRN",1.5,107,1,"B","OnsetDate",13)
"KRN",1.5,107,1,"B","Priority",15)
"KRN",1.5,107,1,"B","Removed",10)
"KRN",1.5,107,1,"B","Service",12)
"KRN",1.5,107,1,"SEQ",1,2)
"KRN",1.5,107,1,"SEQ",2,3)
"KRN",1.5,107,1,"SEQ",3,4)
"KRN",1.5,107,1,"SEQ",4,5)
"KRN",1.5,107,1,"SEQ",5,6)
"KRN",1.5,107,1,"SEQ",6,7)
"KRN",1.5,107,1,"SEQ",7,8)
"KRN",1.5,107,1,"SEQ",8,9)
"KRN",1.5,107,1,"SEQ",9,10)
"KRN",1.5,107,1,"SEQ",10,11)
"KRN",1.5,107,1,"SEQ",11,12)
"KRN",1.5,107,1,"SEQ",12,13)
"KRN",1.5,107,1,"SEQ",13,14)
"KRN",1.5,107,1,"SEQ",14,1)
"KRN",1.5,107,1,"SEQ",15,15)
"KRN",1.5,107,1,"SEQ",16,16)
"KRN",1.5,107,19,0)
^1.519^1^1^3190606^^
"KRN",1.5,107,19,1,0)
This entity extends VPR PROBLEM.
"KRN",1.5,109,-1)
0^11
"KRN",1.5,109,0)
VPR DOCUMENT EXTENSION^8925^^^^S
"KRN",1.5,109,.1)
DocumentExtension
"KRN",1.5,109,1,0)
^1.51^10^10
"KRN",1.5,109,1,1,0)
CareProviders^1^L^^^^^VPR SIGNER
"KRN",1.5,109,1,1,1)
4^CareProvider
"KRN",1.5,109,1,1,6)
N I,N S N=0 F I=1502,1508 S:$G(VPRTIU(DIEN,I,"I")) N=N+1,DLIST(N)=VPRTIU(DIEN,I,"I")_U_$S(I=1502:"S",1:"C")
"KRN",1.5,109,1,2,0)
Parent^2^S^8925^2101^^1
"KRN",1.5,109,1,2,6)
N X S X=$G(VPRTIU(DIEN,2101,"I")) S:X VALUE=X_";TIU"
"KRN",1.5,109,1,3,0)
Subject^3^S^8925^1701
"KRN",1.5,109,1,3,6)
S VALUE=$G(VPRTIU(DIEN,1701,"I"))
"KRN",1.5,109,1,4,0)
NationalTitle^4^E^8925^.01^^1^VPR DOCUMENT TITLE
"KRN",1.5,109,1,4,6)
S VALUE=$G(VPRTIU(DIEN,.01,"I")),VPRNATL=+$G(^TIU(8925.1,+VALUE,15)) S:'VPRNATL DDEOUT=1
"KRN",1.5,109,1,5,0)
NationalTitleRole^5^E^8925^.01^1501^1^VPR DOCUMENT ROLE
"KRN",1.5,109,1,5,4)
S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,5)
"KRN",1.5,109,1,5,6)
S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
"KRN",1.5,109,1,6,0)
NationalTitleService^6^E^8925^.01^1501^1^VPR DOCUMENT SERVICE
"KRN",1.5,109,1,6,4)
S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,7)
"KRN",1.5,109,1,6,6)
S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
"KRN",1.5,109,1,7,0)
NationalTitleSetting^7^E^8925^.01^1501^1^VPR DOCUMENT SETTING
"KRN",1.5,109,1,7,4)
S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,6)
"KRN",1.5,109,1,7,6)
S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
"KRN",1.5,109,1,8,0)
NationalTitleSubject^8^E^8925^.01^1501^1^VPR DOCUMENT SUBJECT
"KRN",1.5,109,1,8,4)
S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,4)
"KRN",1.5,109,1,8,6)
S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
"KRN",1.5,109,1,9,0)
NationalTitleType^9^E^8925^.01^1501^1^VPR DOCUMENT TYPE
"KRN",1.5,109,1,9,4)
S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,8)
"KRN",1.5,109,1,9,6)
S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
"KRN",1.5,109,1,10,0)
PatientLocation^10^E^8925^1205^^1^VPR LOCATION
"KRN",1.5,109,1,10,6)
S VALUE=$G(VPRTIU(DIEN,1205,"I"))
"KRN",1.5,109,1,"B","CareProviders",1)
"KRN",1.5,109,1,"B","NationalTitle",4)
"KRN",1.5,109,1,"B","NationalTitleRole",5)
"KRN",1.5,109,1,"B","NationalTitleService",6)
"KRN",1.5,109,1,"B","NationalTitleSetting",7)
"KRN",1.5,109,1,"B","NationalTitleSubject",8)
"KRN",1.5,109,1,"B","NationalTitleType",9)
"KRN",1.5,109,1,"B","Parent",2)
"KRN",1.5,109,1,"B","PatientLocation",10)
"KRN",1.5,109,1,"B","Subject",3)
"KRN",1.5,109,1,"SEQ",1,1)
"KRN",1.5,109,1,"SEQ",2,2)
"KRN",1.5,109,1,"SEQ",3,3)
"KRN",1.5,109,1,"SEQ",4,4)
"KRN",1.5,109,1,"SEQ",5,5)
"KRN",1.5,109,1,"SEQ",6,6)
"KRN",1.5,109,1,"SEQ",7,7)
"KRN",1.5,109,1,"SEQ",8,8)
"KRN",1.5,109,1,"SEQ",9,9)
"KRN",1.5,109,1,"SEQ",10,10)
"KRN",1.5,109,3)
K VPRNATL
"KRN",1.5,109,19,0)
^1.519^1^1^3190606^^^
"KRN",1.5,109,19,1,0)
This entity extends VPR DOCUMENT; it expects the VPRTIU array to be defined.
"KRN",1.5,115,-1)
0^83
"KRN",1.5,115,0)
VPR ORDER EXTENSION^100^^^^S
"KRN",1.5,115,.1)
OrderExtension
"KRN",1.5,115,1,0)
^1.51^8^8
"KRN",1.5,115,1,1,0)
Released^1^S^100.008^16^^1
"KRN",1.5,115,1,1,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,115,1,1,6)
S IEN="1,"_DIEN
"KRN",1.5,115,1,2,0)
SignatureStatus^2^S^100.008^4
"KRN",1.5,115,1,2,6)
S IEN="1,"_$S($G(ORDAD):ORDAD,1:DIEN)
"KRN",1.5,115,1,3,0)
DiscontinuedDateTime^4^S^100^63^^1
"KRN",1.5,115,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,115,1,4,0)
DiscontinuedBy^5^E^100^62^^1^VPR PROVIDER
"KRN",1.5,115,1,5,0)
DiscontinuedReason^6^S^100^65
"KRN",1.5,115,1,5,6)
S VALUE=$P($G(^OR(100,DIEN,6)),U,5)
"KRN",1.5,115,1,6,0)
Content^3^S^100.008^.1
"KRN",1.5,115,1,6,6)
N VPRTXT,ORIGVIEW S ORIGVIEW=2 D TEXT^ORQ12(.VPRTXT,+DIEN_";1") S VALUE=$$STRING^VPRD(.VPRTXT)
"KRN",1.5,115,1,7,0)
VAStatus^7^E^100^5^^1^VPR ORDER STATUS
"KRN",1.5,115,1,8,0)
CollectionSample^8^F^
"KRN",1.5,115,1,8,6)
N ID S ID=$$VALUE^ORX8(DIEN,"SAMPLE") S:ID VALUE=$$GET1^DIQ(62,ID_",",.01)
"KRN",1.5,115,1,"B","CollectionSample",8)
"KRN",1.5,115,1,"B","Content",6)
"KRN",1.5,115,1,"B","DiscontinuedBy",4)
"KRN",1.5,115,1,"B","DiscontinuedDateTime",3)
"KRN",1.5,115,1,"B","DiscontinuedReason",5)
"KRN",1.5,115,1,"B","Released",1)
"KRN",1.5,115,1,"B","SignatureStatus",2)
"KRN",1.5,115,1,"B","VAStatus",7)
"KRN",1.5,115,1,"SEQ",1,1)
"KRN",1.5,115,1,"SEQ",2,2)
"KRN",1.5,115,1,"SEQ",3,6)
"KRN",1.5,115,1,"SEQ",4,3)
"KRN",1.5,115,1,"SEQ",5,4)
"KRN",1.5,115,1,"SEQ",6,5)
"KRN",1.5,115,1,"SEQ",7,7)
"KRN",1.5,115,1,"SEQ",8,8)
"KRN",1.5,115,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,115,19,1,0)
This entity extends the VPR * ORDER entities: VPR LAB ORDER, VPR RAD ORDER,
"KRN",1.5,115,19,2,0)
and VPR OTHER ORDER. It expects the Orders file #100 pointer as the ID.
"KRN",1.5,120,-1)
0^8
"KRN",1.5,120,0)
VPR REFERRAL EXTENSION^123^^^^S
"KRN",1.5,120,.1)
ReferralExtension
"KRN",1.5,120,1,0)
^1.51^16^16
"KRN",1.5,120,1,1,0)
Name^1^F
"KRN",1.5,120,1,1,6)
S VALUE=$$CONSNAME^VPRSDA(DIEN) ;display name
"KRN",1.5,120,1,2,0)
Procedure^2^S^123^4
"KRN",1.5,120,1,2,6)
S VALUE=$P($G(VPRCONS(0)),U,8)
"KRN",1.5,120,1,3,0)
ProvisionalDx^4^E^123^30.1^^^VPR CODE TABLE
"KRN",1.5,120,1,3,6)
S VALUE=$$PROVDX^VPRSDA(DIEN)
"KRN",1.5,120,1,4,0)
Findings^6^S^123^15^^1
"KRN",1.5,120,1,4,4)
S VALUE=$S(VALUE="Y":"SIGNIFICANT FINDINGS",VALUE="N":"NONE",1:"")
"KRN",1.5,120,1,4,6)
S VALUE=$P($G(VPRCONS(0)),U,19)
"KRN",1.5,120,1,5,0)
Status^7^S^123^8
"KRN",1.5,120,1,5,6)
S VALUE=$P($G(VPRCONS(0)),U,12)
"KRN",1.5,120,1,6,0)
Type^8^S^123^13
"KRN",1.5,120,1,6,4)
S VALUE=$S(VALUE="C":"Consult",1:"Procedure")
"KRN",1.5,120,1,6,6)
S VALUE=$P($G(VPRCONS(0)),U,17)
"KRN",1.5,120,1,7,0)
Urgency^9^S^123^5
"KRN",1.5,120,1,7,6)
S VALUE=$P($G(VPRCONS(0)),U,9)
"KRN",1.5,120,1,8,0)
DocumentNumbers^15^L
"KRN",1.5,120,1,8,1)
4^DocumentNumbersItem
"KRN",1.5,120,1,8,6)
N VPRI,VPRX S VPRI=0 F S VPRI=$O(VPRCONS(50,VPRI)) Q:VPRI<1 S VPRX=+$G(VPRCONS(50,VPRI)) S:$$TIUCOMP^VPRSDA(VPRX) DLIST(VPRI)=VPRX_";TIU"
"KRN",1.5,120,1,9,0)
PatientLocation^10^E^123^.04^^1^VPR LOCATION
"KRN",1.5,120,1,9,6)
S VALUE=$P($G(VPRCONS(0)),U,4)
"KRN",1.5,120,1,10,0)
PlaceOfConsultation^11^S^123^6
"KRN",1.5,120,1,10,6)
S VALUE=$P($G(VPRCONS(0)),U,10)
"KRN",1.5,120,1,11,0)
LastActionTaken^12^S^123^9
"KRN",1.5,120,1,11,6)
S VALUE=$P($G(VPRCONS(0)),U,13)
"KRN",1.5,120,1,12,0)
ServiceType^13^S^123^14^^1
"KRN",1.5,120,1,12,6)
S VALUE=$P($G(VPRCONS(0)),U,18)
"KRN",1.5,120,1,13,0)
DesiredDate^14^S^123^17^^1
"KRN",1.5,120,1,13,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,120,1,13,6)
S VALUE=$P($G(VPRCONS(0)),U,24)
"KRN",1.5,120,1,14,0)
ProvisionalDxDate^5^S^123^30.2^^1
"KRN",1.5,120,1,14,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,120,1,14,6)
S VALUE=$P($G(VPRCONS(30.1)),U,2)
"KRN",1.5,120,1,15,0)
RequestActions^16^L^^^^^VPR REFERRAL ACTIVITY
"KRN",1.5,120,1,15,1)
4^RequestAction
"KRN",1.5,120,1,15,6)
N I S I=0 F S I=$O(VPRCACT(I)) Q:I<1 S DLIST(I)=I_","_DIEN
"KRN",1.5,120,1,16,0)
ClinicalProcedure^3^E^123^1.01^^1^VPR CODE TABLE
"KRN",1.5,120,1,16,4)
I VALUE=+VALUE S VALUE=+VALUE_U_$$EXTERNAL^DILFD(123,1.01,,VALUE)_"^VA702.01"
"KRN",1.5,120,1,16,6)
N X S X=$G(VPRCONS(1)) I $L(X) S VALUE=+$G(^GMR(123,DIEN,1))_U_X_"^VA702.01"
"KRN",1.5,120,1,"B","ClinicalProcedure",16)
"KRN",1.5,120,1,"B","DesiredDate",13)
"KRN",1.5,120,1,"B","DocumentNumbers",8)
"KRN",1.5,120,1,"B","Findings",4)
"KRN",1.5,120,1,"B","LastActionTaken",11)
"KRN",1.5,120,1,"B","Name",1)
"KRN",1.5,120,1,"B","PatientLocation",9)
"KRN",1.5,120,1,"B","PlaceOfConsultation",10)
"KRN",1.5,120,1,"B","Procedure",2)
"KRN",1.5,120,1,"B","ProvisionalDx",3)
"KRN",1.5,120,1,"B","ProvisionalDxDate",14)
"KRN",1.5,120,1,"B","RequestActions",15)
"KRN",1.5,120,1,"B","ServiceType",12)
"KRN",1.5,120,1,"B","Status",5)
"KRN",1.5,120,1,"B","Type",6)
"KRN",1.5,120,1,"B","Urgency",7)
"KRN",1.5,120,1,"SEQ",1,1)
"KRN",1.5,120,1,"SEQ",2,2)
"KRN",1.5,120,1,"SEQ",3,16)
"KRN",1.5,120,1,"SEQ",4,3)
"KRN",1.5,120,1,"SEQ",5,14)
"KRN",1.5,120,1,"SEQ",6,4)
"KRN",1.5,120,1,"SEQ",7,5)
"KRN",1.5,120,1,"SEQ",8,6)
"KRN",1.5,120,1,"SEQ",9,7)
"KRN",1.5,120,1,"SEQ",10,9)
"KRN",1.5,120,1,"SEQ",11,10)
"KRN",1.5,120,1,"SEQ",12,11)
"KRN",1.5,120,1,"SEQ",13,12)
"KRN",1.5,120,1,"SEQ",14,13)
"KRN",1.5,120,1,"SEQ",15,8)
"KRN",1.5,120,1,"SEQ",16,15)
"KRN",1.5,120,3)
"KRN",1.5,120,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,120,19,1,0)
This entity extends VPR REFERRAL; it expects the VPRCONS and VPRCACT
"KRN",1.5,120,19,2,0)
arrays as defined by GMRCAPI in the main entity GET ID ACTION.
"KRN",1.5,122,-1)
0^48
"KRN",1.5,122,0)
VPR MED EXTENSION^100^^^^S
"KRN",1.5,122,.1)
MedicationExtension
"KRN",1.5,122,1,0)
^1.51^32^31
"KRN",1.5,122,1,1,0)
Sig^1^F
"KRN",1.5,122,1,1,6)
S VALUE=$$WP^VPRSDA(DIEN,"SIG")
"KRN",1.5,122,1,2,0)
IsIMO^2^S^100^6^^1
"KRN",1.5,122,1,2,4)
S VALUE=$$IMO^VPRSDAP(+VALUE,$G(PSTYPE))
"KRN",1.5,122,1,2,6)
"KRN",1.5,122,1,3,0)
IsSupply^3^F
"KRN",1.5,122,1,3,6)
I $G(PSTYPE)="O" S VALUE=$$SUPPLY^VPRSDAP(DIEN)
"KRN",1.5,122,1,4,0)
Routing^4^F
"KRN",1.5,122,1,4,6)
I $G(PSTYPE)="O" N X S X=$P($G(@VPRPS@("RXN")),U,3),VALUE=$S(X="M":"MAIL",X="W":"WINDOW",X="C":"ADMINISTERED IN CLINIC",1:"")
"KRN",1.5,122,1,5,0)
Expires^5^F^^^^
"KRN",1.5,122,1,5,6)
N X S X=$P($G(@VPRPS@(0)),U,3) S:X VALUE=$$DATE^VPRSDA(X)
"KRN",1.5,122,1,6,0)
DaysSupply^6^F
"KRN",1.5,122,1,6,6)
I $G(PSTYPE)="O" S VALUE=$P($G(@VPRPS@(0)),U,7)
"KRN",1.5,122,1,8,0)
LastFilled^8^F
"KRN",1.5,122,1,8,6)
I $G(PSTYPE)="O" N X S X=$P($G(@VPRPS@(0)),U,12) S:X VALUE=$$DATE^VPRSDA(X)
"KRN",1.5,122,1,9,0)
Fills^9^L^^^^^VPR MED FILL
"KRN",1.5,122,1,9,1)
4^Fill
"KRN",1.5,122,1,9,6)
D GETFILLS^VPRSDAP
"KRN",1.5,122,1,10,0)
IVRate^10^F
"KRN",1.5,122,1,10,6)
I $G(PSTYPE)="V" S VALUE=$P($G(@VPRPS@(0)),U,2)
"KRN",1.5,122,1,11,0)
VAStatus^11^E^100^^^^VPR CODE TABLE
"KRN",1.5,122,1,11,6)
N X S X=$P($G(@VPRPS@(0)),U,6) S:$L(X) VALUE=X_U_X_"^VHAT"
"KRN",1.5,122,1,12,0)
PharmacyOrderItem^12^F
"KRN",1.5,122,1,12,6)
S VALUE=$G(PSOI)
"KRN",1.5,122,1,13,0)
IsNonFormulary^13^S^50.7^5^^1
"KRN",1.5,122,1,13,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,122,1,13,6)
S IEN=+$G(PSOI) S:'IEN DDEOUT=1
"KRN",1.5,122,1,14,0)
Released^14^S^100.008^16^^1
"KRN",1.5,122,1,14,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,122,1,14,6)
S IEN="1,"_DIEN
"KRN",1.5,122,1,15,0)
OrderType^15^S^100^8.1^^1
"KRN",1.5,122,1,15,4)
S VALUE=$S(VALUE=1:"EDIT",VALUE=2:"RENEW",1:"NEW")
"KRN",1.5,122,1,16,0)
IVCategory^16^F
"KRN",1.5,122,1,16,6)
S:$G(PSTYPE)="V" VALUE=$$VALUE^ORX8(DIEN,"TYPE")
"KRN",1.5,122,1,17,0)
IVType^17^F
"KRN",1.5,122,1,17,6)
I $G(PSTYPE)="V" S VALUE=$$IVTYPE^VPRSDAP(DIEN)
"KRN",1.5,122,1,18,0)
NatureOfOrder^18^S^100.008^12
"KRN",1.5,122,1,18,6)
S IEN="1,"_DIEN
"KRN",1.5,122,1,19,0)
IsServiceConnected^19^S^100
"KRN",1.5,122,1,19,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,122,1,19,6)
N X S X=$$VALUE^ORX8(ORIFN,"SC") S:$L(X) VALUE=X
"KRN",1.5,122,1,20,0)
DiscontinuedDateTime^20^S^100^63^^1
"KRN",1.5,122,1,20,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,122,1,21,0)
DiscontinueType^21^S^100^61^^
"KRN",1.5,122,1,22,0)
Statement^22^S^100
"KRN",1.5,122,1,22,6)
S VALUE=$$WP^VPRSDA(ORIFN,"STATEMENTS")
"KRN",1.5,122,1,23,0)
TradeName^23^S^52^6.5
"KRN",1.5,122,1,23,6)
S:$S($G(PSTYPE)'="O":1,$G(ORPK)'["R":1,1:0) DDEOUT=1 I '$G(DDEOUT) S IEN=+$G(ORPK)
"KRN",1.5,122,1,24,0)
PickupInstructions^24^S^52^35
"KRN",1.5,122,1,24,6)
S:$S($G(PSTYPE)'="O":1,$G(ORPK)'["R":1,1:0) DDEOUT=1 I '$G(DDEOUT) S IEN=+$G(ORPK)
"KRN",1.5,122,1,25,0)
WasPatientCounseled^25^S^52^41
"KRN",1.5,122,1,25,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,122,1,25,6)
S:$S($G(PSTYPE)'="O":1,$G(ORPK)'["R":1,1:0) DDEOUT=1 I '$G(DDEOUT) S IEN=+$G(ORPK)
"KRN",1.5,122,1,26,0)
Remarks^26^F^100
"KRN",1.5,122,1,26,6)
I $G(PSTYPE)="O" S VALUE=$G(@VPRX52@(12))
"KRN",1.5,122,1,27,0)
OutpatientSite^27^E^100^^^^VPR CODE TABLE
"KRN",1.5,122,1,27,6)
I $G(PSTYPE)="O" S:$G(@VPRX52@(20)) VALUE=@VPRX52@(20)_"^VA59"
"KRN",1.5,122,1,28,0)
CopayTransactionType^28^F
"KRN",1.5,122,1,28,6)
I $G(PSTYPE)="O" S VALUE=$P($G(@VPRX52@(105)),U,2)
"KRN",1.5,122,1,29,0)
CMOP^29^F
"KRN",1.5,122,1,29,6)
I $G(PSTYPE)="O",$G(ORPK)["R" S VALUE=$$CMOP^VPRSDAP(+ORPK)
"KRN",1.5,122,1,30,0)
Titration^30^F
"KRN",1.5,122,1,30,6)
I $G(PSTYPE)="O",$G(ORPK)["R" S VALUE=$$TITRX^PSOUTL(+ORPK)
"KRN",1.5,122,1,31,0)
EBilling^31^F
"KRN",1.5,122,1,31,6)
I $G(PSTYPE)="O",$G(ORPK)["R" S VALUE=$$ECME^PSOBPSUT(+ORPK)
"KRN",1.5,122,1,32,0)
IsERX^32^F
"KRN",1.5,122,1,32,6)
N X S X=+$O(^PS(52.49,"ORN",ORIFN,0)),VALUE=$S(X:"true",1:"false")
"KRN",1.5,122,1,"B","CMOP",29)
"KRN",1.5,122,1,"B","CopayTransactionType",28)
"KRN",1.5,122,1,"B","DaysSupply",6)
"KRN",1.5,122,1,"B","DiscontinueType",21)
"KRN",1.5,122,1,"B","DiscontinuedDateTime",20)
"KRN",1.5,122,1,"B","EBilling",31)
"KRN",1.5,122,1,"B","Expires",5)
"KRN",1.5,122,1,"B","Fills",9)
"KRN",1.5,122,1,"B","IVCategory",16)
"KRN",1.5,122,1,"B","IVRate",10)
"KRN",1.5,122,1,"B","IVType",17)
"KRN",1.5,122,1,"B","IsERX",32)
"KRN",1.5,122,1,"B","IsIMO",2)
"KRN",1.5,122,1,"B","IsNonFormulary",13)
"KRN",1.5,122,1,"B","IsServiceConnected",19)
"KRN",1.5,122,1,"B","IsSupply",3)
"KRN",1.5,122,1,"B","LastFilled",8)
"KRN",1.5,122,1,"B","NatureOfOrder",18)
"KRN",1.5,122,1,"B","OrderType",15)
"KRN",1.5,122,1,"B","OutpatientSite",27)
"KRN",1.5,122,1,"B","PharmacyOrderItem",12)
"KRN",1.5,122,1,"B","PickupInstructions",24)
"KRN",1.5,122,1,"B","Released",14)
"KRN",1.5,122,1,"B","Remarks",26)
"KRN",1.5,122,1,"B","Routing",4)
"KRN",1.5,122,1,"B","Sig",1)
"KRN",1.5,122,1,"B","Statement",22)
"KRN",1.5,122,1,"B","Titration",30)
"KRN",1.5,122,1,"B","TradeName",23)
"KRN",1.5,122,1,"B","VAStatus",11)
"KRN",1.5,122,1,"B","WasPatientCounseled",25)
"KRN",1.5,122,1,"SEQ",1,1)
"KRN",1.5,122,1,"SEQ",2,2)
"KRN",1.5,122,1,"SEQ",3,3)
"KRN",1.5,122,1,"SEQ",4,4)
"KRN",1.5,122,1,"SEQ",5,5)
"KRN",1.5,122,1,"SEQ",6,6)
"KRN",1.5,122,1,"SEQ",8,8)
"KRN",1.5,122,1,"SEQ",9,9)
"KRN",1.5,122,1,"SEQ",10,10)
"KRN",1.5,122,1,"SEQ",11,11)
"KRN",1.5,122,1,"SEQ",12,12)
"KRN",1.5,122,1,"SEQ",13,13)
"KRN",1.5,122,1,"SEQ",14,14)
"KRN",1.5,122,1,"SEQ",15,15)
"KRN",1.5,122,1,"SEQ",16,16)
"KRN",1.5,122,1,"SEQ",17,17)
"KRN",1.5,122,1,"SEQ",18,18)
"KRN",1.5,122,1,"SEQ",19,19)
"KRN",1.5,122,1,"SEQ",20,20)
"KRN",1.5,122,1,"SEQ",21,21)
"KRN",1.5,122,1,"SEQ",22,22)
"KRN",1.5,122,1,"SEQ",23,23)
"KRN",1.5,122,1,"SEQ",24,24)
"KRN",1.5,122,1,"SEQ",25,25)
"KRN",1.5,122,1,"SEQ",26,26)
"KRN",1.5,122,1,"SEQ",27,27)
"KRN",1.5,122,1,"SEQ",28,28)
"KRN",1.5,122,1,"SEQ",29,29)
"KRN",1.5,122,1,"SEQ",30,30)
"KRN",1.5,122,1,"SEQ",31,31)
"KRN",1.5,122,1,"SEQ",32,32)
"KRN",1.5,122,3)
K:$D(VPRX52) @VPRX52 K VPRX52
"KRN",1.5,122,4)
D:$G(ORPK) PSRX^VPRSDAP(ORPK)
"KRN",1.5,122,19,0)
^1.519^2^2^3190606^^^
"KRN",1.5,122,19,1,0)
This entity extends VPR MEDICATION; it expects the VPRPS array defined by
"KRN",1.5,122,19,2,0)
the GET ID ACTION for each med order.
"KRN",1.5,124,-1)
0^18
"KRN",1.5,124,0)
VPR IMM EXTENSION^9000010.11^^^^S
"KRN",1.5,124,.1)
VaccinationExtension
"KRN",1.5,124,1,0)
^1.51^7^7
"KRN",1.5,124,1,1,0)
IsContraindicated^1^S^9000010.11^.07^^1
"KRN",1.5,124,1,1,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,124,1,1,6)
S VALUE=$G(VPRM("CONTRAINDICATED"))
"KRN",1.5,124,1,2,0)
Reaction^2^E^9000010.11^.06^^1^VPR CODE TABLE
"KRN",1.5,124,1,2,4)
S VALUE=VALUE_U_$$EXTERNAL^DILFD(9000010.11,.06,,VALUE)
"KRN",1.5,124,1,2,6)
S VALUE=$G(VPRM("REACTION"))
"KRN",1.5,124,1,3,0)
Source^3^E^9000010.11^1301^^^VPR CODE TABLE
"KRN",1.5,124,1,3,6)
N X S X=$G(VPRM("INFO SOURCE")) S:X VALUE=$P(X,U,2,3)_"^HL7" ;HL7 code ^ name
"KRN",1.5,124,1,4,0)
VISOffers^5^L^^^^^VPR IMM VIS
"KRN",1.5,124,1,4,1)
4^VISOffer
"KRN",1.5,124,1,4,6)
N I S I=0 F S I=$O(VPRM("VIS OFFERED",I)) Q:I<1 S DLIST(I)=$G(VPRM("VIS OFFERED",I,0))
"KRN",1.5,124,1,5,0)
CPT^4^E^9000010.11^^^^VPR CPT
"KRN",1.5,124,1,5,6)
S VALUE=$P($G(VPRM("CODES","CPT")),U)
"KRN",1.5,124,1,6,0)
NDCCode^6^S^9000010.11^1207^.18
"KRN",1.5,124,1,7,0)
CDCName^7^W^9999999.14^2^^^^1
"KRN",1.5,124,1,7,6)
S IEN=+$G(VPRM("IMMUNIZATION"))
"KRN",1.5,124,1,"B","CDCName",7)
"KRN",1.5,124,1,"B","CPT",5)
"KRN",1.5,124,1,"B","IsContraindicated",1)
"KRN",1.5,124,1,"B","NDCCode",6)
"KRN",1.5,124,1,"B","Reaction",2)
"KRN",1.5,124,1,"B","Source",3)
"KRN",1.5,124,1,"B","VISOffers",4)
"KRN",1.5,124,1,"SEQ",1,1)
"KRN",1.5,124,1,"SEQ",2,2)
"KRN",1.5,124,1,"SEQ",3,3)
"KRN",1.5,124,1,"SEQ",4,5)
"KRN",1.5,124,1,"SEQ",5,4)
"KRN",1.5,124,1,"SEQ",6,6)
"KRN",1.5,124,1,"SEQ",7,7)
"KRN",1.5,124,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,124,19,1,0)
This entity extends VPR VACCINATION; it expects the VPRM array defined by
"KRN",1.5,124,19,2,0)
VIMM^PXPXRM, called by the GET ID ACTION for each immunization.
"KRN",1.5,126,-1)
0^6
"KRN",1.5,126,0)
VPR VITAL EXTENSION^120.5^^^^S
"KRN",1.5,126,.1)
ObservationExtension
"KRN",1.5,126,1,0)
^1.51^6^6
"KRN",1.5,126,1,1,0)
Location^1^E^120.5^.05^^1^VPR LOCATION
"KRN",1.5,126,1,1,6)
S VALUE=$P($G(VPRGMV),U,5)
"KRN",1.5,126,1,2,0)
High^2^F^
"KRN",1.5,126,1,2,6)
S VALUE=$P($G(VPRANGE),U)
"KRN",1.5,126,1,3,0)
Low^3^F^
"KRN",1.5,126,1,3,6)
S VALUE=$P($G(VPRANGE),U,2)
"KRN",1.5,126,1,4,0)
BMI^4^F
"KRN",1.5,126,1,4,6)
N X S X=$P(VPRGMV,U,14) S:X VALUE=+X
"KRN",1.5,126,1,5,0)
Removed^5^S^120.5^
"KRN",1.5,126,1,5,6)
I $G(VPRV(2)) S VALUE=$$EXTERNAL^DILFD(120.506,.01,,+$P(VPRV(2),U,3))
"KRN",1.5,126,1,6,0)
SupplementalO2^6^F
"KRN",1.5,126,1,6,6)
S VALUE=$P($G(VPRGMV),U,10)
"KRN",1.5,126,1,"B","BMI",4)
"KRN",1.5,126,1,"B","High",2)
"KRN",1.5,126,1,"B","Location",1)
"KRN",1.5,126,1,"B","Low",3)
"KRN",1.5,126,1,"B","Removed",5)
"KRN",1.5,126,1,"B","SupplementalO2",6)
"KRN",1.5,126,1,"SEQ",1,1)
"KRN",1.5,126,1,"SEQ",2,2)
"KRN",1.5,126,1,"SEQ",3,3)
"KRN",1.5,126,1,"SEQ",4,4)
"KRN",1.5,126,1,"SEQ",5,5)
"KRN",1.5,126,1,"SEQ",6,6)
"KRN",1.5,126,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,126,19,1,0)
This entity extends VPR VITAL MEASUREMENT; it expects VPRGMV and the VPRV
"KRN",1.5,126,19,2,0)
array, defined by the GET ID ACTION, and optionally ^TMP("VPRGMV",$J).
"KRN",1.5,133,-1)
0^93
"KRN",1.5,133,0)
VPR SIGNER^200^^^^S
"KRN",1.5,133,.1)
CareProvider
"KRN",1.5,133,1,0)
^1.51^10^10
"KRN",1.5,133,1,1,0)
Code^4^I
"KRN",1.5,133,1,2,0)
Description^5^S^200^.01
"KRN",1.5,133,1,3,0)
SDACodingStandard^1^F
"KRN",1.5,133,1,3,2)
VA200
"KRN",1.5,133,1,4,0)
Name^6^E^200^.01^^^VPR NAME
"KRN",1.5,133,1,5,0)
ContactInfo^8^C
"KRN",1.5,133,1,5,3,0)
^1.513I^3^3
"KRN",1.5,133,1,5,3,1,0)
3^WorkPhoneNumber
"KRN",1.5,133,1,5,3,2,0)
4^MobilePhoneNumber
"KRN",1.5,133,1,5,3,3,0)
5^EmailAddress
"KRN",1.5,133,1,5,3,"B",3,1)
"KRN",1.5,133,1,5,3,"B",4,2)
"KRN",1.5,133,1,5,3,"B",5,3)
"KRN",1.5,133,1,6,0)
WorkPhoneNumber^^S^200^.132
"KRN",1.5,133,1,7,0)
MobilePhoneNumber^^S^200^.137
"KRN",1.5,133,1,8,0)
EmailAddress^^S^200^.151
"KRN",1.5,133,1,9,0)
CareProviderType^9^E^200^^^^VPR CODE TABLE
"KRN",1.5,133,1,9,6)
N X S X=$G(VPROLE),VALUE=$S(X="S":"S^SIGNER",X="C":"C^COSIGNER",X="V":"V^VERIFIER",1:"")
"KRN",1.5,133,1,10,0)
Extension^3^E^200^^^^VPR SIGNER EXTENSION
"KRN",1.5,133,1,10,6)
S VALUE=DIEN
"KRN",1.5,133,1,"B","CareProviderType",9)
"KRN",1.5,133,1,"B","Code",1)
"KRN",1.5,133,1,"B","ContactInfo",5)
"KRN",1.5,133,1,"B","Description",2)
"KRN",1.5,133,1,"B","EmailAddress",8)
"KRN",1.5,133,1,"B","Extension",10)
"KRN",1.5,133,1,"B","MobilePhoneNumber",7)
"KRN",1.5,133,1,"B","Name",4)
"KRN",1.5,133,1,"B","SDACodingStandard",3)
"KRN",1.5,133,1,"B","WorkPhoneNumber",6)
"KRN",1.5,133,1,"SEQ",1,3)
"KRN",1.5,133,1,"SEQ",3,10)
"KRN",1.5,133,1,"SEQ",4,1)
"KRN",1.5,133,1,"SEQ",5,2)
"KRN",1.5,133,1,"SEQ",6,4)
"KRN",1.5,133,1,"SEQ",8,5)
"KRN",1.5,133,1,"SEQ",9,9)
"KRN",1.5,133,3)
K VPROLE
"KRN",1.5,133,4)
S VPROLE=$P(DIEN,U,2),DIEN=+DIEN S:'DIEN DDEOUT=1
"KRN",1.5,133,19,0)
^^5^5^3190606^
"KRN",1.5,133,19,1,0)
This entity returns a coded element for a New Person file #200 entry,
"KRN",1.5,133,19,2,0)
very similar to VPR PROVIDER except for the CareProviderType property
"KRN",1.5,133,19,3,0)
which here reflects the signature role of the user. ID should be a
"KRN",1.5,133,19,4,0)
two-piece string, consisting of the IEN^[type] where type is S (signer)
"KRN",1.5,133,19,5,0)
or C (cosigner) or V (verifier).
"KRN",1.5,145,-1)
0^4
"KRN",1.5,145,0)
VPR ALLERGY SIGN EXTENSION^120.8^^^^S
"KRN",1.5,145,.1)
ReactionExtension
"KRN",1.5,145,1,0)
^1.51^1^1
"KRN",1.5,145,1,1,0)
EnteredOn^1^F^^^^
"KRN",1.5,145,1,1,6)
S VALUE=$$DATE^VPRSDA(DIEN)
"KRN",1.5,145,1,"B","EnteredOn",1)
"KRN",1.5,145,1,"SEQ",1,1)
"KRN",1.5,145,3)
"KRN",1.5,145,4)
"KRN",1.5,145,19,0)
^1.519^3^3^3190606^^
"KRN",1.5,145,19,1,0)
This entity extends VPR ALLERGY SIGN/SYMPTOM. It expects the same string
"KRN",1.5,145,19,2,0)
created for VPR ALLERGY SIGN/SYMPTOM to parse and format, to return one
"KRN",1.5,145,19,3,0)
additional data element.
"KRN",1.5,146,-1)
0^5
"KRN",1.5,146,0)
VPR ALLERGY OBSERVATION^120.85^^^^S
"KRN",1.5,146,.1)
AllergyObservation
"KRN",1.5,146,1,0)
^1.51^2^2
"KRN",1.5,146,1,1,0)
ObservationTime^1^S^120.85^.01^^1
"KRN",1.5,146,1,1,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,146,1,1,6)
S VALUE=$G(VPRDT) S:VALUE="" DDEOUT=1
"KRN",1.5,146,1,2,0)
Severity^2^E^120.85^14.5^^^VPR CODE TABLE
"KRN",1.5,146,1,2,4)
S VALUE=$S(VALUE="MILD":"255604002^MILD^SNOMED CT",VALUE="MODERATE":"6736007^MODERATE^SNOMED CT",VALUE="SEVERE":"24484000^SEVERE^SNOMED CT",1:VALUE)
"KRN",1.5,146,1,2,6)
S VALUE=$G(VPRSEV) S:VALUE="" DDEOUT=1
"KRN",1.5,146,1,"B","ObservationTime",1)
"KRN",1.5,146,1,"B","Severity",2)
"KRN",1.5,146,1,"SEQ",1,1)
"KRN",1.5,146,1,"SEQ",2,2)
"KRN",1.5,146,3)
K VPRDT,VPRSEV
"KRN",1.5,146,4)
S VPRDT=+$G(DIEN),VPRSEV=$P($G(DIEN),U,2)
"KRN",1.5,146,19,0)
^1.519^3^3^3190606^^
"KRN",1.5,146,19,1,0)
This entity supports VPR ALLERGY, adding a list of observation dates and
"KRN",1.5,146,19,2,0)
severities to VPR ALLERGY EXTENSION. It expects a string in the form
"KRN",1.5,146,19,3,0)
ID=date^severity, both in internal format.
"KRN",1.5,147,-1)
0^9
"KRN",1.5,147,0)
VPR REFERRAL ACTIVITY^123.02^^^^S
"KRN",1.5,147,.1)
RequestAction
"KRN",1.5,147,1,0)
^1.51^5^5
"KRN",1.5,147,1,1,0)
Action^1^S^123.02^1
"KRN",1.5,147,1,1,6)
S VALUE=$P($G(VPRACT),U,2)
"KRN",1.5,147,1,2,0)
ActionDate^2^S^123.02^2^^1
"KRN",1.5,147,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,147,1,2,6)
S VALUE=$P($G(VPRACT),U,3)
"KRN",1.5,147,1,3,0)
Provider^3^E^123.02^3^^1^VPR PROVIDER
"KRN",1.5,147,1,3,6)
S VALUE=$P($G(VPRACT),U,4)
"KRN",1.5,147,1,4,0)
EnteredBy^4^E^123.02^4^^1^VPR USER
"KRN",1.5,147,1,4,6)
S VALUE=$P($G(VPRACT),U,5)
"KRN",1.5,147,1,5,0)
ActionId^5^I
"KRN",1.5,147,1,"B","Action",1)
"KRN",1.5,147,1,"B","ActionDate",2)
"KRN",1.5,147,1,"B","ActionId",5)
"KRN",1.5,147,1,"B","EnteredBy",4)
"KRN",1.5,147,1,"B","Provider",3)
"KRN",1.5,147,1,"SEQ",1,1)
"KRN",1.5,147,1,"SEQ",2,2)
"KRN",1.5,147,1,"SEQ",3,3)
"KRN",1.5,147,1,"SEQ",4,4)
"KRN",1.5,147,1,"SEQ",5,5)
"KRN",1.5,147,3)
K VPRACT
"KRN",1.5,147,4)
S VPRACT=$G(VPRCACT(+DIEN,0))
"KRN",1.5,147,19,0)
^1.519^4^4^3190606^^
"KRN",1.5,147,19,1,0)
This entity supports VPR REFERRAL EXTENSION, returning an entry in the
"KRN",1.5,147,19,2,0)
Request Processing Activity multiple of the Request/Consultation file
"KRN",1.5,147,19,3,0)
#123. It expects the VPRCACT array, defined in the GET ACTION field
"KRN",1.5,147,19,4,0)
of the Extension property RequestActions.
"KRN",1.5,148,-1)
0^15
"KRN",1.5,148,0)
VPR LRCH RESULT ITEM EXTENSION^63.04^^^^S
"KRN",1.5,148,.1)
LabResultItemExtension
"KRN",1.5,148,1,0)
^1.51^2^2
"KRN",1.5,148,1,1,0)
CriticalHigh^1^F
"KRN",1.5,148,1,1,6)
S VALUE=$P($P(VPRLR,U,5),"!",5)
"KRN",1.5,148,1,2,0)
CriticalLow^2^F
"KRN",1.5,148,1,2,6)
S VALUE=$P($P(VPRLR,U,5),"!",4)
"KRN",1.5,148,1,"B","CriticalHigh",1)
"KRN",1.5,148,1,"B","CriticalLow",2)
"KRN",1.5,148,1,"SEQ",1,1)
"KRN",1.5,148,1,"SEQ",2,2)
"KRN",1.5,148,3)
K VPRLR
"KRN",1.5,148,4)
S VPRLR=$G(DIEN)
"KRN",1.5,148,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,148,19,1,0)
This entity extends VPR LRCH RESULT ITEM. It expects the LR data node
"KRN",1.5,148,19,2,0)
string as the input ID, and parses additional data into properties.
"KRN",1.5,149,-1)
0^25
"KRN",1.5,149,0)
VPR PATIENT TEMP ADDRESS^2^^^^S
"KRN",1.5,149,.1)
Address
"KRN",1.5,149,1,0)
^1.51^10^9
"KRN",1.5,149,1,1,0)
Street^4^S^2^.1211
"KRN",1.5,149,1,1,6)
S VALUE=$G(VAPA(1)) I $L(VALUE) N I F I=2,3 S:$L($G(VAPA(I))) VALUE=VALUE_";"_VAPA(I)
"KRN",1.5,149,1,2,0)
City^5^E^2^.1214^^^VPR CODE ONLY
"KRN",1.5,149,1,2,6)
S VALUE=$G(VAPA(4))
"KRN",1.5,149,1,3,0)
State^6^E^2^.1215^^1^VPR STATE
"KRN",1.5,149,1,3,6)
S VALUE=$P($G(VAPA(5)),U)
"KRN",1.5,149,1,4,0)
Zip^7^E^2^.12112^^^VPR CODE ONLY
"KRN",1.5,149,1,4,6)
S VALUE=$G(VAPA(6))
"KRN",1.5,149,1,6,0)
Country^8^E^2^.1223^^1^VPR COUNTRY
"KRN",1.5,149,1,7,0)
County^9^E^2^.12111^^1^VPR CODE TABLE
"KRN",1.5,149,1,7,6)
S VALUE=$G(VAPA(7)) S:'VALUE DDEOUT=1 ;subfile ptr, can't use FM
"KRN",1.5,149,1,8,0)
FromTime^2^S^2^.1217^^1
"KRN",1.5,149,1,8,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,149,1,8,6)
S VALUE=$P($G(VAPA(9)),U)
"KRN",1.5,149,1,9,0)
ToTime^3^S^2^.1218^^1
"KRN",1.5,149,1,9,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,149,1,9,6)
S VALUE=$P($G(VAPA(10)),U)
"KRN",1.5,149,1,10,0)
Extension^1^E^2^^^^VPR PAT TEMP ADD EXTENSION
"KRN",1.5,149,1,10,6)
S VALUE=DIEN
"KRN",1.5,149,1,"B","City",2)
"KRN",1.5,149,1,"B","Country",6)
"KRN",1.5,149,1,"B","County",7)
"KRN",1.5,149,1,"B","Extension",10)
"KRN",1.5,149,1,"B","FromTime",8)
"KRN",1.5,149,1,"B","State",3)
"KRN",1.5,149,1,"B","Street",1)
"KRN",1.5,149,1,"B","ToTime",9)
"KRN",1.5,149,1,"B","Zip",4)
"KRN",1.5,149,1,"SEQ",1,10)
"KRN",1.5,149,1,"SEQ",2,8)
"KRN",1.5,149,1,"SEQ",3,9)
"KRN",1.5,149,1,"SEQ",4,1)
"KRN",1.5,149,1,"SEQ",5,2)
"KRN",1.5,149,1,"SEQ",6,3)
"KRN",1.5,149,1,"SEQ",7,4)
"KRN",1.5,149,1,"SEQ",8,6)
"KRN",1.5,149,1,"SEQ",9,7)
"KRN",1.5,149,2)
S DFN=ID,VATEST("ADD",9)=$P($G(^DPT(DFN,.121)),U,7),VATEST("ADD",10)=$P($G(^(.121)),U,8) D ADD^VADPT
"KRN",1.5,149,3)
K VAPA,VATEST
"KRN",1.5,149,4)
I '$G(VAPA(9)) S DDEOUT=1 ;not the temp address
"KRN",1.5,149,19,0)
^1.519^2^2^3190606^^^
"KRN",1.5,149,19,1,0)
This entity supports VPR PATIENT, and expects the Patient file #2 ien
"KRN",1.5,149,19,2,0)
as the ID.
"KRN",1.5,150,-1)
0^24
"KRN",1.5,150,0)
VPR PATIENT ADDRESS EXTENSION^2^^^^S
"KRN",1.5,150,.1)
AddressExtension
"KRN",1.5,150,1,0)
^1.51^1^1
"KRN",1.5,150,1,1,0)
BadAddressIndicator^1^F
"KRN",1.5,150,1,1,6)
N X S X=$$BADADR^DGUTL3(DIEN),VALUE=$S(X:X,1:"OK") ;send "" to delete value
"KRN",1.5,150,1,"B","BadAddressIndicator",1)
"KRN",1.5,150,1,"SEQ",1,1)
"KRN",1.5,150,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,150,19,1,0)
This entity supports VPR PATIENT ADDRESS; it expects the patient DFN as
"KRN",1.5,150,19,2,0)
the ID.
"KRN",1.5,151,-1)
0^26
"KRN",1.5,151,0)
VPR PAT TEMP ADD EXTENSION^2^^^^S
"KRN",1.5,151,.1)
AddressExtension
"KRN",1.5,151,1,0)
^1.51^1^1
"KRN",1.5,151,1,1,0)
Phone^1^S^2^.1219
"KRN",1.5,151,1,1,6)
S VALUE=$G(VAPA(8))
"KRN",1.5,151,1,"B","Phone",1)
"KRN",1.5,151,1,"SEQ",1,1)
"KRN",1.5,151,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,151,19,1,0)
This entity supports VPR PATIENT TEMP ADDRESS; it expects the patient DFN
"KRN",1.5,151,19,2,0)
as the ID.
"KRN",1.5,152,-1)
0^28
"KRN",1.5,152,0)
VPR PATIENT ECON2 ADDRESS^2^^^^S
"KRN",1.5,152,.1)
Address
"KRN",1.5,152,1,0)
^1.51^4^4
"KRN",1.5,152,1,1,0)
Street^4^S^2^.3313
"KRN",1.5,152,1,1,6)
S VALUE=$G(VAOA(1)) I $L(VALUE) N I F I=2,3 S:$L($G(VAOA(I))) VALUE=VALUE_";"_VAOA(I)
"KRN",1.5,152,1,2,0)
City^5^E^2^.3316^^^VPR CODE ONLY
"KRN",1.5,152,1,2,6)
S VALUE=$G(VAOA(4))
"KRN",1.5,152,1,3,0)
State^6^E^2^.3317^^1^VPR STATE
"KRN",1.5,152,1,3,6)
S VALUE=$P($G(VAOA(5)),U)
"KRN",1.5,152,1,4,0)
Zip^7^E^2^.3318^^^VPR CODE ONLY
"KRN",1.5,152,1,4,6)
S VALUE=$G(VAOA(6))
"KRN",1.5,152,1,"B","City",2)
"KRN",1.5,152,1,"B","State",3)
"KRN",1.5,152,1,"B","Street",1)
"KRN",1.5,152,1,"B","Zip",4)
"KRN",1.5,152,1,"SEQ",4,1)
"KRN",1.5,152,1,"SEQ",5,2)
"KRN",1.5,152,1,"SEQ",6,3)
"KRN",1.5,152,1,"SEQ",7,4)
"KRN",1.5,152,19,0)
^1.519^3^3^3190606^^^
"KRN",1.5,152,19,1,0)
This entity supports VPR PATIENT, and expects the Patient file #2 ien
"KRN",1.5,152,19,2,0)
as the ID. It returns the address of the patient's secondary Emergency
"KRN",1.5,152,19,3,0)
Contact.
"KRN",1.5,153,-1)
0^27
"KRN",1.5,153,0)
VPR PATIENT ECON2^2^^^^S
"KRN",1.5,153,.1)
SupportContact
"KRN",1.5,153,1,0)
^1.51^9^9
"KRN",1.5,153,1,1,0)
Name^2^E^2^.3311^^^VPR NAME
"KRN",1.5,153,1,1,6)
S VALUE=$G(VAOA(9))
"KRN",1.5,153,1,2,0)
Address^6^E^2^^^^VPR PATIENT ECON2 ADDRESS
"KRN",1.5,153,1,2,6)
S VALUE=DIEN
"KRN",1.5,153,1,3,0)
ContactInfo^7^C
"KRN",1.5,153,1,3,3,0)
^1.513I^2^2
"KRN",1.5,153,1,3,3,1,0)
2^HomePhoneNumber
"KRN",1.5,153,1,3,3,2,0)
3^WorkPhoneNumber
"KRN",1.5,153,1,3,3,"B",2,1)
"KRN",1.5,153,1,3,3,"B",3,2)
"KRN",1.5,153,1,4,0)
HomePhoneNumber^^S^2^.3319
"KRN",1.5,153,1,4,6)
S VALUE=$G(VAOA(8))
"KRN",1.5,153,1,5,0)
WorkPhoneNumber^^S^2^.331011
"KRN",1.5,153,1,6,0)
Relationship^8^E^2^.3312^^^VPR CODE ONLY
"KRN",1.5,153,1,6,6)
S VALUE=$G(VAOA(10))
"KRN",1.5,153,1,7,0)
ContactType^9^E^2^^^^VPR CODE TABLE
"KRN",1.5,153,1,7,6)
S VALUE="ECON^Emergency Contact"
"KRN",1.5,153,1,8,0)
PrimaryContact^10^F
"KRN",1.5,153,1,8,2)
false
"KRN",1.5,153,1,8,6)
"KRN",1.5,153,1,9,0)
EnteredAt^13^E^2^^^^VPR FACILITY
"KRN",1.5,153,1,9,6)
S VALUE=$G(VASITE) ;default #4 ien
"KRN",1.5,153,1,"B","Address",2)
"KRN",1.5,153,1,"B","ContactInfo",3)
"KRN",1.5,153,1,"B","ContactType",7)
"KRN",1.5,153,1,"B","EnteredAt",9)
"KRN",1.5,153,1,"B","HomePhoneNumber",4)
"KRN",1.5,153,1,"B","Name",1)
"KRN",1.5,153,1,"B","PrimaryContact",8)
"KRN",1.5,153,1,"B","Relationship",6)
"KRN",1.5,153,1,"B","WorkPhoneNumber",5)
"KRN",1.5,153,1,"SEQ",2,1)
"KRN",1.5,153,1,"SEQ",6,2)
"KRN",1.5,153,1,"SEQ",7,3)
"KRN",1.5,153,1,"SEQ",8,6)
"KRN",1.5,153,1,"SEQ",9,7)
"KRN",1.5,153,1,"SEQ",10,8)
"KRN",1.5,153,1,"SEQ",13,9)
"KRN",1.5,153,2)
S VAOA("A")=4,DFN=ID D OAD^VADPT
"KRN",1.5,153,3)
K VAOA
"KRN",1.5,153,4)
S:$G(VAOA(9))="" DDEOUT=1
"KRN",1.5,153,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,153,19,1,0)
This entity supports VPR PATIENT, and expects the Patient file #2 ien
"KRN",1.5,153,19,2,0)
as the ID. It returns the patient's secondary Emergency Contact.
"KRN",1.5,154,-1)
0^29
"KRN",1.5,154,0)
VPR PATIENT NOK2^2^^^^S
"KRN",1.5,154,.1)
SupportContact
"KRN",1.5,154,1,0)
^1.51^9^9
"KRN",1.5,154,1,1,0)
Name^2^E^2^.2191^^^VPR NAME
"KRN",1.5,154,1,1,6)
S VALUE=$G(VAOA(9))
"KRN",1.5,154,1,2,0)
Address^6^E^2^^^^VPR PATIENT NOK2 ADDRESS
"KRN",1.5,154,1,2,6)
S VALUE=DIEN
"KRN",1.5,154,1,3,0)
ContactInfo^7^C
"KRN",1.5,154,1,3,3,0)
^1.513I^2^2
"KRN",1.5,154,1,3,3,1,0)
2^HomePhoneNumber
"KRN",1.5,154,1,3,3,2,0)
3^WorkPhoneNumber
"KRN",1.5,154,1,3,3,"B",2,1)
"KRN",1.5,154,1,3,3,"B",3,2)
"KRN",1.5,154,1,4,0)
HomePhoneNumber^^S^2^.2199
"KRN",1.5,154,1,4,6)
S VALUE=$G(VAOA(8))
"KRN",1.5,154,1,5,0)
WorkPhoneNumber^^S^2^.211011
"KRN",1.5,154,1,6,0)
Relationship^8^E^2^.2192^^^VPR CODE ONLY
"KRN",1.5,154,1,6,6)
S VALUE=$G(VAOA(10))
"KRN",1.5,154,1,7,0)
ContactType^9^E^2^^^^VPR CODE TABLE
"KRN",1.5,154,1,7,6)
S VALUE="NOK^Next of Kin"
"KRN",1.5,154,1,8,0)
PrimaryContact^10^F
"KRN",1.5,154,1,8,2)
false
"KRN",1.5,154,1,9,0)
EnteredAt^13^E^2^^^^VPR FACILITY
"KRN",1.5,154,1,9,6)
S VALUE=$G(VASITE) ;default #4 ien
"KRN",1.5,154,1,"B","Address",2)
"KRN",1.5,154,1,"B","ContactInfo",3)
"KRN",1.5,154,1,"B","ContactType",7)
"KRN",1.5,154,1,"B","EnteredAt",9)
"KRN",1.5,154,1,"B","HomePhoneNumber",4)
"KRN",1.5,154,1,"B","Name",1)
"KRN",1.5,154,1,"B","PrimaryContact",8)
"KRN",1.5,154,1,"B","Relationship",6)
"KRN",1.5,154,1,"B","WorkPhoneNumber",5)
"KRN",1.5,154,1,"SEQ",2,1)
"KRN",1.5,154,1,"SEQ",6,2)
"KRN",1.5,154,1,"SEQ",7,3)
"KRN",1.5,154,1,"SEQ",8,6)
"KRN",1.5,154,1,"SEQ",9,7)
"KRN",1.5,154,1,"SEQ",10,8)
"KRN",1.5,154,1,"SEQ",13,9)
"KRN",1.5,154,2)
S VAOA("A")=3,DFN=ID D OAD^VADPT
"KRN",1.5,154,3)
K VAOA
"KRN",1.5,154,4)
S:$G(VAOA(9))="" DDEOUT=1
"KRN",1.5,154,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,154,19,1,0)
This entity supports VPR PATIENT, and expects the Patient file #2 ien
"KRN",1.5,154,19,2,0)
as the ID. It returns the patient's secondary Next of Kin.
"KRN",1.5,155,-1)
0^30
"KRN",1.5,155,0)
VPR PATIENT NOK2 ADDRESS^2^^^^S
"KRN",1.5,155,.1)
Address
"KRN",1.5,155,1,0)
^1.51^4^4
"KRN",1.5,155,1,1,0)
Street^4^S^2^.2193
"KRN",1.5,155,1,1,6)
S VALUE=$G(VAOA(1)) I $L(VALUE) N I F I=2,3 S:$L($G(VAOA(I))) VALUE=VALUE_";"_VAOA(I)
"KRN",1.5,155,1,2,0)
City^5^E^2^.2196^^^VPR CODE ONLY
"KRN",1.5,155,1,2,6)
S VALUE=$G(VAOA(4))
"KRN",1.5,155,1,3,0)
State^6^E^2^.2197^^1^VPR STATE
"KRN",1.5,155,1,3,6)
S VALUE=$P($G(VAOA(5)),U)
"KRN",1.5,155,1,4,0)
Zip^7^E^2^.2198^^^VPR CODE ONLY
"KRN",1.5,155,1,4,6)
S VALUE=$G(VAOA(6))
"KRN",1.5,155,1,"B","City",2)
"KRN",1.5,155,1,"B","State",3)
"KRN",1.5,155,1,"B","Street",1)
"KRN",1.5,155,1,"B","Zip",4)
"KRN",1.5,155,1,"SEQ",4,1)
"KRN",1.5,155,1,"SEQ",5,2)
"KRN",1.5,155,1,"SEQ",6,3)
"KRN",1.5,155,1,"SEQ",7,4)
"KRN",1.5,155,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,155,19,1,0)
This entity supports VPR PATIENT, and expects the Patient file #2 ien
"KRN",1.5,155,19,2,0)
as the ID. It returns the address of the patient's secondary Next of Kin.
"KRN",1.5,156,-1)
0^31
"KRN",1.5,156,0)
VPR VIETNAM SERVICE^2^^^^S
"KRN",1.5,156,.1)
Conflict
"KRN",1.5,156,1,0)
^1.51^3^3
"KRN",1.5,156,1,1,0)
IsIndicated^1^S^2^.32101^^1
"KRN",1.5,156,1,1,4)
S VALUE=$S(VALUE:"true",VALUE="Y":"true",1:"false")
"KRN",1.5,156,1,1,6)
S VALUE=+$G(VASV(1))
"KRN",1.5,156,1,2,0)
FromTime^2^S^2^.32104^^1
"KRN",1.5,156,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,156,1,2,6)
S VALUE=$P($G(VASV(1,1)),U) I VALUE="",'$G(VASV(1)) S DDEOUT=1
"KRN",1.5,156,1,3,0)
ToTime^3^S^2^.32105^^1
"KRN",1.5,156,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,156,1,3,6)
S VALUE=$P($G(VASV(1,2)),U) I VALUE="",'$G(VASV(1)) S DDEOUT=1
"KRN",1.5,156,1,"B","FromTime",2)
"KRN",1.5,156,1,"B","IsIndicated",1)
"KRN",1.5,156,1,"B","ToTime",3)
"KRN",1.5,156,1,"SEQ",1,1)
"KRN",1.5,156,1,"SEQ",2,2)
"KRN",1.5,156,1,"SEQ",3,3)
"KRN",1.5,156,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,156,19,1,0)
This entity supports VPR PATIENT EXTENSION, adding information about the
"KRN",1.5,156,19,2,0)
patient's service in the Vietnam conflict. It expects the VASV array.
"KRN",1.5,157,-1)
0^32
"KRN",1.5,157,0)
VPR LEBANON SERVICE^2^^^^S
"KRN",1.5,157,.1)
Conflict
"KRN",1.5,157,1,0)
^1.51^3^3
"KRN",1.5,157,1,1,0)
IsIndicated^1^S^2^.3221^^1
"KRN",1.5,157,1,1,4)
S VALUE=$S(VALUE="Y":"true",1:"false")
"KRN",1.5,157,1,2,0)
FromTime^2^S^2^.3222^^1
"KRN",1.5,157,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,157,1,3,0)
ToTime^3^S^2^.3223^^1
"KRN",1.5,157,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,157,1,"B","FromTime",2)
"KRN",1.5,157,1,"B","IsIndicated",1)
"KRN",1.5,157,1,"B","ToTime",3)
"KRN",1.5,157,1,"SEQ",1,1)
"KRN",1.5,157,1,"SEQ",2,2)
"KRN",1.5,157,1,"SEQ",3,3)
"KRN",1.5,157,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,157,19,1,0)
This entity supports VPR PATIENT EXTENSION, adding information about the
"KRN",1.5,157,19,2,0)
patient's service in the Lebanon conflict.
"KRN",1.5,158,-1)
0^33
"KRN",1.5,158,0)
VPR GRENADA SERVICE^2^^^^S
"KRN",1.5,158,.1)
Conflict
"KRN",1.5,158,1,0)
^1.51^3^3
"KRN",1.5,158,1,1,0)
IsIndicated^1^S^2^.3224^^1
"KRN",1.5,158,1,1,4)
S VALUE=$S(VALUE="Y":"true",1:"false")
"KRN",1.5,158,1,2,0)
FromTime^2^S^2^.3225^^1
"KRN",1.5,158,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,158,1,3,0)
ToTime^3^S^2^.3226^^1
"KRN",1.5,158,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,158,1,"B","FromTime",2)
"KRN",1.5,158,1,"B","IsIndicated",1)
"KRN",1.5,158,1,"B","ToTime",3)
"KRN",1.5,158,1,"SEQ",1,1)
"KRN",1.5,158,1,"SEQ",2,2)
"KRN",1.5,158,1,"SEQ",3,3)
"KRN",1.5,158,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,158,19,1,0)
This entity supports VPR PATIENT EXTENSION, adding information about the
"KRN",1.5,158,19,2,0)
patient's service in the Grenada conflict.
"KRN",1.5,159,-1)
0^34
"KRN",1.5,159,0)
VPR PANAMA SERVICE^2^^^^S
"KRN",1.5,159,.1)
Conflict
"KRN",1.5,159,1,0)
^1.51^3^3
"KRN",1.5,159,1,1,0)
IsIndicated^1^S^2^.3227^^1
"KRN",1.5,159,1,1,4)
S VALUE=$S(VALUE="Y":"true",1:"false")
"KRN",1.5,159,1,2,0)
FromTime^2^S^2^.3228^^1
"KRN",1.5,159,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,159,1,3,0)
ToTime^3^S^2^.3229^^1
"KRN",1.5,159,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,159,1,"B","FromTime",2)
"KRN",1.5,159,1,"B","IsIndicated",1)
"KRN",1.5,159,1,"B","ToTime",3)
"KRN",1.5,159,1,"SEQ",1,1)
"KRN",1.5,159,1,"SEQ",2,2)
"KRN",1.5,159,1,"SEQ",3,3)
"KRN",1.5,159,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,159,19,1,0)
This entity supports VPR PATIENT EXTENSION, adding information about the
"KRN",1.5,159,19,2,0)
patient's service in the Panama conflict.
"KRN",1.5,160,-1)
0^35
"KRN",1.5,160,0)
VPR PERSIAN GULF SERVICE^2^^^^S
"KRN",1.5,160,.1)
Conflict
"KRN",1.5,160,1,0)
^1.51^3^3
"KRN",1.5,160,1,1,0)
IsIndicated^1^S^2^.32201^^1
"KRN",1.5,160,1,1,4)
S VALUE=$S(VALUE="Y":"true",1:"false")
"KRN",1.5,160,1,2,0)
FromTime^2^S^2^.322011^^1
"KRN",1.5,160,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,160,1,3,0)
ToTime^3^S^2^.322012^^1
"KRN",1.5,160,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,160,1,"B","FromTime",2)
"KRN",1.5,160,1,"B","IsIndicated",1)
"KRN",1.5,160,1,"B","ToTime",3)
"KRN",1.5,160,1,"SEQ",1,1)
"KRN",1.5,160,1,"SEQ",2,2)
"KRN",1.5,160,1,"SEQ",3,3)
"KRN",1.5,160,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,160,19,1,0)
This entity supports VPR PATIENT EXTENSION, adding information about the
"KRN",1.5,160,19,2,0)
patient's service in the Persian Gulf conflict.
"KRN",1.5,161,-1)
0^36
"KRN",1.5,161,0)
VPR SOMALIA SERVICE^2^^^^S
"KRN",1.5,161,.1)
Conflict
"KRN",1.5,161,1,0)
^1.51^3^3
"KRN",1.5,161,1,1,0)
IsIndicated^1^S^2^.322016^^1
"KRN",1.5,161,1,1,4)
S VALUE=$S(VALUE="Y":"true",1:"false")
"KRN",1.5,161,1,2,0)
FromTime^2^S^2^.322017^^1
"KRN",1.5,161,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,161,1,3,0)
ToTime^3^S^2^.322018^^1
"KRN",1.5,161,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,161,1,"B","FromTime",2)
"KRN",1.5,161,1,"B","IsIndicated",1)
"KRN",1.5,161,1,"B","ToTime",3)
"KRN",1.5,161,1,"SEQ",1,1)
"KRN",1.5,161,1,"SEQ",2,2)
"KRN",1.5,161,1,"SEQ",3,3)
"KRN",1.5,161,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,161,19,1,0)
This entity supports VPR PATIENT EXTENSION, adding information about the
"KRN",1.5,161,19,2,0)
patient's service in the Somalia conflict.
"KRN",1.5,162,-1)
0^37
"KRN",1.5,162,0)
VPR YUGOSLAVIA SERVICE^2^^^^S
"KRN",1.5,162,.1)
Conflict
"KRN",1.5,162,1,0)
^1.51^3^3
"KRN",1.5,162,1,1,0)
IsIndicated^1^S^2^.322019^^1
"KRN",1.5,162,1,1,4)
S VALUE=$S(VALUE="Y":"true",1:"false")
"KRN",1.5,162,1,2,0)
FromTime^2^S^2^.32202^^1
"KRN",1.5,162,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,162,1,3,0)
ToTime^3^S^2^.322021^^1
"KRN",1.5,162,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,162,1,"B","FromTime",2)
"KRN",1.5,162,1,"B","IsIndicated",1)
"KRN",1.5,162,1,"B","ToTime",3)
"KRN",1.5,162,1,"SEQ",1,1)
"KRN",1.5,162,1,"SEQ",2,2)
"KRN",1.5,162,1,"SEQ",3,3)
"KRN",1.5,162,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,162,19,1,0)
This entity supports VPR PATIENT EXTENSION, adding information about the
"KRN",1.5,162,19,2,0)
patient's service in the Yugoslavia conflict.
"KRN",1.5,163,-1)
0^38
"KRN",1.5,163,0)
VPR POW STATUS^2^^^^S
"KRN",1.5,163,.1)
Conflict
"KRN",1.5,163,1,0)
^1.51^4^4
"KRN",1.5,163,1,1,0)
IsIndicated^1^S^2^.525^^1
"KRN",1.5,163,1,1,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,163,1,1,6)
S VALUE=+$G(VASV(4))
"KRN",1.5,163,1,2,0)
FromTime^2^S^2^.527^^1
"KRN",1.5,163,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,163,1,2,6)
S VALUE=$P($G(VASV(4,1)),U) I VALUE="",'$G(VASV(4)) S DDEOUT=1
"KRN",1.5,163,1,3,0)
ToTime^3^S^2^.528^^1
"KRN",1.5,163,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,163,1,3,6)
S VALUE=$P($G(VASV(4,2)),U) I VALUE="",'$G(VASV(4)) S DDEOUT=1
"KRN",1.5,163,1,4,0)
Period^4^E^2^.526^^1^VPR COMBAT PERIOD
"KRN",1.5,163,1,4,6)
S VALUE=$G(VASV(4,3)) I VALUE="",'$G(VASV(4)) S DDEOUT=1
"KRN",1.5,163,1,"B","FromTime",2)
"KRN",1.5,163,1,"B","IsIndicated",1)
"KRN",1.5,163,1,"B","Period",4)
"KRN",1.5,163,1,"B","ToTime",3)
"KRN",1.5,163,1,"SEQ",1,1)
"KRN",1.5,163,1,"SEQ",2,2)
"KRN",1.5,163,1,"SEQ",3,3)
"KRN",1.5,163,1,"SEQ",4,4)
"KRN",1.5,163,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,163,19,1,0)
This entity supports VPR PATIENT EXTENSION, adding information about the
"KRN",1.5,163,19,2,0)
patient's status as a POW.
"KRN",1.5,164,-1)
0^40
"KRN",1.5,164,0)
VPR COMBAT SERVICE^2^^^^S
"KRN",1.5,164,.1)
Conflict
"KRN",1.5,164,1,0)
^1.51^4^4
"KRN",1.5,164,1,1,0)
IsIndicated^1^S^2^.5291^^1
"KRN",1.5,164,1,1,4)
S VALUE=$S(VALUE:"true",1:"false")
"KRN",1.5,164,1,1,6)
S VALUE=+$G(VASV(5))
"KRN",1.5,164,1,2,0)
FromTime^2^S^2^.5293^^1
"KRN",1.5,164,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,164,1,2,6)
S VALUE=$P($G(VASV(5,1)),U) I VALUE="",'$G(VASV(5)) S DDEOUT=1
"KRN",1.5,164,1,3,0)
ToTime^3^S^2^.5294^^1
"KRN",1.5,164,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,164,1,3,6)
S VALUE=$P($G(VASV(5,2)),U) I VALUE="",'$G(VASV(5)) S DDEOUT=1
"KRN",1.5,164,1,4,0)
Period^4^E^2^.5292^^1^VPR COMBAT PERIOD
"KRN",1.5,164,1,4,6)
S VALUE=$G(VASV(5,3)) I VALUE="",'$G(VASV(5)) S DDEOUT=1
"KRN",1.5,164,1,"B","FromTime",2)
"KRN",1.5,164,1,"B","IsIndicated",1)
"KRN",1.5,164,1,"B","Period",4)
"KRN",1.5,164,1,"B","ToTime",3)
"KRN",1.5,164,1,"SEQ",1,1)
"KRN",1.5,164,1,"SEQ",2,2)
"KRN",1.5,164,1,"SEQ",3,3)
"KRN",1.5,164,1,"SEQ",4,4)
"KRN",1.5,164,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,164,19,1,0)
This entity supports VPR PATIENT EXTENSION, adding information about the
"KRN",1.5,164,19,2,0)
patient's service in combat.
"KRN",1.5,165,-1)
0^41
"KRN",1.5,165,0)
VPR PATIENT AO^2^^^^S
"KRN",1.5,165,.1)
Exposure
"KRN",1.5,165,1,0)
^1.51^3^3
"KRN",1.5,165,1,1,0)
IsIndicated^1^S^2^.32102^^1
"KRN",1.5,165,1,1,4)
S VALUE=$S(VALUE:"true",VALUE="Y":"true",1:"false")
"KRN",1.5,165,1,1,6)
S VALUE=+$G(VASV(2))
"KRN",1.5,165,1,2,0)
RegistrationDate^2^S^2^.32107^^1
"KRN",1.5,165,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,165,1,2,6)
S VALUE=$P($G(VASV(2,1)),U) I VALUE="",'$G(VASV(2)) S DDEOUT=1
"KRN",1.5,165,1,3,0)
ExamDate^3^S^2^.32109^^1
"KRN",1.5,165,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,165,1,3,6)
S VALUE=$P($G(VASV(2,2)),U) I VALUE="",'$G(VASV(2)) S DDEOUT=1
"KRN",1.5,165,1,"B","ExamDate",3)
"KRN",1.5,165,1,"B","IsIndicated",1)
"KRN",1.5,165,1,"B","RegistrationDate",2)
"KRN",1.5,165,1,"SEQ",1,1)
"KRN",1.5,165,1,"SEQ",2,2)
"KRN",1.5,165,1,"SEQ",3,3)
"KRN",1.5,165,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,165,19,1,0)
This entity supports VPR PATIENT EXTENSION, adding information about the
"KRN",1.5,165,19,2,0)
patient's exposure to Agent Orange. It expects the VASV array.
"KRN",1.5,166,-1)
0^42
"KRN",1.5,166,0)
VPR PATIENT IR^2^^^^S
"KRN",1.5,166,.1)
Exposure
"KRN",1.5,166,1,0)
^1.51^3^3
"KRN",1.5,166,1,1,0)
IsIndicated^1^S^2^.32103^^1
"KRN",1.5,166,1,1,4)
S VALUE=$S(VALUE:"true",VALUE="Y":"true",1:"false")
"KRN",1.5,166,1,1,6)
S VALUE=+$G(VASV(3))
"KRN",1.5,166,1,2,0)
RegistrationDate^2^S^2^.32111^^1
"KRN",1.5,166,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,166,1,2,6)
S VALUE=$P($G(VASV(3,1)),U) I VALUE="",'$G(VASV(3)) S DDEOUT=1
"KRN",1.5,166,1,3,0)
Method^4^E^2^.3212^^1^VPR CODE TABLE
"KRN",1.5,166,1,3,6)
S VALUE=$G(VASV(3,2)) I VALUE="",'$G(VASV(3)) S DDEOUT=1
"KRN",1.5,166,1,"B","IsIndicated",1)
"KRN",1.5,166,1,"B","Method",3)
"KRN",1.5,166,1,"B","RegistrationDate",2)
"KRN",1.5,166,1,"SEQ",1,1)
"KRN",1.5,166,1,"SEQ",2,2)
"KRN",1.5,166,1,"SEQ",4,3)
"KRN",1.5,166,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,166,19,1,0)
This entity supports VPR PATIENT EXTENSION, adding information about the
"KRN",1.5,166,19,2,0)
patient's exposure to radiation. It expects the VASV array.
"KRN",1.5,167,-1)
0^43
"KRN",1.5,167,0)
VPR PATIENT SWA^2^^^^S
"KRN",1.5,167,.1)
Exposure
"KRN",1.5,167,1,0)
^1.51^3^3
"KRN",1.5,167,1,1,0)
IsIndicated^1^S^2^.322013^^1
"KRN",1.5,167,1,1,4)
S VALUE=$S(VALUE="Y":"true",1:"false")
"KRN",1.5,167,1,2,0)
RegistrationDate^2^S^2^.322014^^1
"KRN",1.5,167,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,167,1,3,0)
ExamDate^3^S^2^.322015^^1
"KRN",1.5,167,1,3,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,167,1,"B","ExamDate",3)
"KRN",1.5,167,1,"B","IsIndicated",1)
"KRN",1.5,167,1,"B","RegistrationDate",2)
"KRN",1.5,167,1,"SEQ",1,1)
"KRN",1.5,167,1,"SEQ",2,2)
"KRN",1.5,167,1,"SEQ",3,3)
"KRN",1.5,167,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,167,19,1,0)
This entity supports VPR PATIENT EXTENSION, adding information about the
"KRN",1.5,167,19,2,0)
patient's exposure to conditions in SW Asia.
"KRN",1.5,168,-1)
0^39
"KRN",1.5,168,0)
VPR COMBAT PERIOD^22^^^^S
"KRN",1.5,168,.1)
Period
"KRN",1.5,168,1,0)
^1.51^3^3
"KRN",1.5,168,1,1,0)
SDACodingStandard^1^F
"KRN",1.5,168,1,1,2)
VA22
"KRN",1.5,168,1,1,6)
"KRN",1.5,168,1,2,0)
Code^6^I
"KRN",1.5,168,1,2,6)
S VALUE=$P(VPRPRD,U)
"KRN",1.5,168,1,3,0)
Description^7^S^22^.01
"KRN",1.5,168,1,3,6)
S VALUE=$P(VPRPRD,U,2)
"KRN",1.5,168,1,"B","Code",2)
"KRN",1.5,168,1,"B","Description",3)
"KRN",1.5,168,1,"B","SDACodingStandard",1)
"KRN",1.5,168,1,"SEQ",1,1)
"KRN",1.5,168,1,"SEQ",6,2)
"KRN",1.5,168,1,"SEQ",7,3)
"KRN",1.5,168,2)
"KRN",1.5,168,3)
K VPRPRD
"KRN",1.5,168,4)
S VPRPRD=$G(DIEN) S:VPRPRD="" DDEOUT=1
"KRN",1.5,168,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,168,19,1,0)
This entity returns an entry in the POW Period file #22 as a coded
"KRN",1.5,168,19,2,0)
element.
"KRN",1.5,169,-1)
0^44
"KRN",1.5,169,0)
VPR PATIENT MILITARY SERVICE^2^^^^S
"KRN",1.5,169,.1)
ServiceEpisode
"KRN",1.5,169,1,0)
^1.51^6^6
"KRN",1.5,169,1,1,0)
EntryDate^1^S^2^^^
"KRN",1.5,169,1,1,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,169,1,1,6)
S VALUE=$P($G(VASV(DIEN,4)),U)
"KRN",1.5,169,1,2,0)
SeparationDate^2^S^2^^^
"KRN",1.5,169,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,169,1,2,6)
S VALUE=$P($G(VASV(DIEN,5)),U)
"KRN",1.5,169,1,3,0)
Branch^3^E^2^^^^VPR CODE TABLE
"KRN",1.5,169,1,3,6)
S VALUE=$G(VASV(DIEN,1))_"^VA23" I 'VALUE S DDEOUT=1
"KRN",1.5,169,1,4,0)
Number^5^S^2^
"KRN",1.5,169,1,4,6)
S VALUE=$G(VASV(DIEN,2))
"KRN",1.5,169,1,5,0)
DischargeType^6^E^2^^^^VPR CODE TABLE
"KRN",1.5,169,1,5,6)
S VALUE=$G(VASV(DIEN,3))_"^VA25" I 'VALUE S DDEOUT=1
"KRN",1.5,169,1,6,0)
Component^4^S^2^
"KRN",1.5,169,1,6,6)
S VALUE=$P($G(VASV(DIEN,6)),U,2)
"KRN",1.5,169,1,"B","Branch",3)
"KRN",1.5,169,1,"B","Component",6)
"KRN",1.5,169,1,"B","DischargeType",5)
"KRN",1.5,169,1,"B","EntryDate",1)
"KRN",1.5,169,1,"B","Number",4)
"KRN",1.5,169,1,"B","SeparationDate",2)
"KRN",1.5,169,1,"SEQ",1,1)
"KRN",1.5,169,1,"SEQ",2,2)
"KRN",1.5,169,1,"SEQ",3,3)
"KRN",1.5,169,1,"SEQ",4,6)
"KRN",1.5,169,1,"SEQ",5,4)
"KRN",1.5,169,1,"SEQ",6,5)
"KRN",1.5,169,3)
"KRN",1.5,169,4)
"KRN",1.5,169,19,0)
^1.519^3^3^3190606^^
"KRN",1.5,169,19,1,0)
This entity returns an instance of the Service Episode set of fields
"KRN",1.5,169,19,2,0)
in the Patient file #2; it is intended for use inside VPR PATIENT
"KRN",1.5,169,19,3,0)
EXTENSION and expects the VASV array, where ID is the first subscript.
"KRN",1.5,170,-1)
0^45
"KRN",1.5,170,0)
VPR PATIENT ENROLLMENT^2.001^^^^S
"KRN",1.5,170,.1)
Enrollment
"KRN",1.5,170,1,0)
^1.51^2^2
"KRN",1.5,170,1,1,0)
Clinic^1^E^2.001^.01^^1^VPR LOCATION
"KRN",1.5,170,1,1,6)
S VALUE=$P($G(VAEN),U)
"KRN",1.5,170,1,2,0)
EnrollmentDate^2^S^2.001
"KRN",1.5,170,1,2,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,170,1,2,6)
S VALUE=$P($G(VAEN),U,2)
"KRN",1.5,170,1,"B","Clinic",1)
"KRN",1.5,170,1,"B","EnrollmentDate",2)
"KRN",1.5,170,1,"SEQ",1,1)
"KRN",1.5,170,1,"SEQ",2,2)
"KRN",1.5,170,3)
K VAEN
"KRN",1.5,170,4)
S VAEN=$G(DIEN),DIEN=+$O(^DPT(DFN,"DE","B",+VAEN,0))_","_DFN
"KRN",1.5,170,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,170,19,1,0)
This entity returns a clinic from the Enrollment Clinic sub-file, to
"KRN",1.5,170,19,2,0)
support the VPR PATIENT EXTENSION.
"KRN",1.5,171,-1)
0^58
"KRN",1.5,171,0)
VPR CDC EXTENSION^10.3^^^^S
"KRN",1.5,171,.1)
CDCExtension
"KRN",1.5,171,1,0)
^1.51^1^1
"KRN",1.5,171,1,1,0)
Method^1^S^10.3^.01
"KRN",1.5,171,1,1,6)
S VALUE=$P($G(VPRCM),U,2)
"KRN",1.5,171,1,"B","Method",1)
"KRN",1.5,171,1,"SEQ",1,1)
"KRN",1.5,171,3)
K VPRCM
"KRN",1.5,171,4)
S VPRCM=$G(DIEN),DIEN=+$G(DIEN)
"KRN",1.5,171,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,171,19,1,0)
This entity extends the Race and EthnicGroup properties of VPR PATIENT;
"KRN",1.5,171,19,2,0)
source is expected to come from VADM(11,#,1) or VADM(12,#,1) via VADPT.
"KRN",1.5,173,-1)
0^54
"KRN",1.5,173,0)
VPR DRUG PRODUCT EXTENSION^50^^^^S
"KRN",1.5,173,.1)
DrugProductExtension
"KRN",1.5,173,1,0)
^1.51^2^2
"KRN",1.5,173,1,1,0)
DEACode^1^S^50^3
"KRN",1.5,173,1,2,0)
FederalSchedule^2^S^50.68^19
"KRN",1.5,173,1,2,6)
S IEN=$P($G(@VPRVAP@(22)),U) S:'IEN DDEOUT=1
"KRN",1.5,173,1,"B","DEACode",1)
"KRN",1.5,173,1,"B","FederalSchedule",2)
"KRN",1.5,173,1,"SEQ",1,1)
"KRN",1.5,173,1,"SEQ",2,2)
"KRN",1.5,173,19,0)
^1.519^1^1^3190606^^
"KRN",1.5,173,19,1,0)
This entity extends VPR DRUG PRODUCT.
"KRN",1.5,174,-1)
0^47
"KRN",1.5,174,0)
VPR DOSE EXTENSION^100
"KRN",1.5,174,.1)
DosageStepExtension
"KRN",1.5,174,1,0)
^1.51^7^7
"KRN",1.5,174,1,1,0)
UnitsPerDose^1^F
"KRN",1.5,174,1,1,6)
S VALUE=$P($$VALUE^ORX8(ORIFN,"DOSE",IEN),"&",3)
"KRN",1.5,174,1,2,0)
Noun^2^F
"KRN",1.5,174,1,2,6)
S VALUE=$P($$VALUE^ORX8(ORIFN,"DOSE",IEN),"&",4)
"KRN",1.5,174,1,3,0)
Verb^3^F
"KRN",1.5,174,1,3,6)
S VALUE=$P($G(@VPRPS@("SIG",1,0))," ")
"KRN",1.5,174,1,4,0)
Conjunction^4^F
"KRN",1.5,174,1,4,6)
N X S X=$$VALUE^ORX8(ORIFN,"CONJ",IEN) S:$L(X) VALUE=$S(X="A":"AND",X="T":"THEN",X="X":"EXCEPT",1:X)
"KRN",1.5,174,1,5,0)
ScheduleType^5^F
"KRN",1.5,174,1,5,6)
S VALUE=$P($G(VPRSCH),U,2)
"KRN",1.5,174,1,6,0)
AdminTimes^6^F
"KRN",1.5,174,1,6,6)
S VALUE=$P($G(VPRSCH),U,3)
"KRN",1.5,174,1,7,0)
Interval^7^F
"KRN",1.5,174,1,7,6)
S VALUE=$P($G(VPRSCH),U,4)
"KRN",1.5,174,1,"B","AdminTimes",6)
"KRN",1.5,174,1,"B","Conjunction",4)
"KRN",1.5,174,1,"B","Interval",7)
"KRN",1.5,174,1,"B","Noun",2)
"KRN",1.5,174,1,"B","ScheduleType",5)
"KRN",1.5,174,1,"B","UnitsPerDose",1)
"KRN",1.5,174,1,"B","Verb",3)
"KRN",1.5,174,1,"SEQ",1,1)
"KRN",1.5,174,1,"SEQ",2,2)
"KRN",1.5,174,1,"SEQ",3,3)
"KRN",1.5,174,1,"SEQ",4,4)
"KRN",1.5,174,1,"SEQ",5,5)
"KRN",1.5,174,1,"SEQ",6,6)
"KRN",1.5,174,1,"SEQ",7,7)
"KRN",1.5,174,19,0)
^1.519^1^1^3190606^^
"KRN",1.5,174,19,1,0)
This entity extends VPR DOSAGE STEP, part of the Medication container.
"KRN",1.5,180,-1)
0^110
"KRN",1.5,180,0)
VPR P14 OBSERVATION^120.5
"KRN",1.5,180,.1)
Observation
"KRN",1.5,180,1,0)
^1.51^2^2
"KRN",1.5,180,1,1,0)
ExternalId^4^I
"KRN",1.5,180,1,2,0)
Extension^6^E^120.5^^^^VPR P14 EXT OBSERVATION
"KRN",1.5,180,1,2,6)
S VALUE=DIEN
"KRN",1.5,180,1,"B","Extension",2)
"KRN",1.5,180,1,"B","ExternalId",1)
"KRN",1.5,180,1,"SEQ",4,1)
"KRN",1.5,180,1,"SEQ",6,2)
"KRN",1.5,180,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,180,3)
K VPRV,VPRGMV,^TMP("VPRGMV",$J),VPRTYPE,VPRANGE,VASITE
"KRN",1.5,180,4)
D VIT1^VPRSDA(DIEN)
"KRN",1.5,180,5)
VITALS^VPRSDAQ
"KRN",1.5,180,19,0)
^^2^2^3190430^^^
"KRN",1.5,180,19,1,0)
This entity updates the Observation container in HealthShare with patch
"KRN",1.5,180,19,2,0)
VPR*1*14.
"KRN",1.5,181,-1)
0^105
"KRN",1.5,181,0)
VPR P14 EXT OBSERVATION^120.5
"KRN",1.5,181,.1)
ObservationExtension
"KRN",1.5,181,1,0)
^1.51^2^2
"KRN",1.5,181,1,1,0)
SupplementalO2^6^F
"KRN",1.5,181,1,1,6)
S VALUE=$P($G(VPRGMV),U,10)
"KRN",1.5,181,1,2,0)
Location^1^E^120.5^.05^^1^VPR LOCATION
"KRN",1.5,181,1,2,6)
S VALUE=$P($G(VPRGMV),U,5)
"KRN",1.5,181,1,"B","Location",2)
"KRN",1.5,181,1,"B","SupplementalO2",1)
"KRN",1.5,181,1,"SEQ",1,2)
"KRN",1.5,181,1,"SEQ",6,1)
"KRN",1.5,181,19,0)
^^1^1^3190430^
"KRN",1.5,181,19,1,0)
This entity extends VPR P14 OBSERVATION.
"KRN",1.5,182,-1)
0^113
"KRN",1.5,182,0)
VPR P14 REFERRAL^123^^^^S
"KRN",1.5,182,.1)
Referral
"KRN",1.5,182,1,0)
^1.51^16^4
"KRN",1.5,182,1,5,0)
Extension^6^E^123^^^^VPR P14 EXT REFERRAL
"KRN",1.5,182,1,5,6)
S VALUE=DIEN
"KRN",1.5,182,1,6,0)
EncounterNumber^5^S^123^16^.03^1
"KRN",1.5,182,1,6,4)
S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
"KRN",1.5,182,1,6,6)
N TIU,VPRT S TIU=$P($G(VPRCONS(0)),U,20) I TIU D EXTRACT^TIULQ(TIU,"VPRT",,.03,,,"I") S VALUE=$G(VPRT(TIU,.03,"I"))
"KRN",1.5,182,1,10,0)
ReferringOrganization^11^E^123^2^^1^VPR LOCATION
"KRN",1.5,182,1,10,6)
S VALUE=$P($G(VPRCONS(0)),U,6)
"KRN",1.5,182,1,16,0)
ExternalId^4^I
"KRN",1.5,182,1,"B","EncounterNumber",6)
"KRN",1.5,182,1,"B","Extension",5)
"KRN",1.5,182,1,"B","ExternalId",16)
"KRN",1.5,182,1,"B","ReferringOrganization",10)
"KRN",1.5,182,1,"SEQ",4,16)
"KRN",1.5,182,1,"SEQ",5,6)
"KRN",1.5,182,1,"SEQ",6,5)
"KRN",1.5,182,1,"SEQ",11,10)
"KRN",1.5,182,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,182,3)
K VPRCONS,VPRCACT,VASITE
"KRN",1.5,182,4)
K VPRCONS,VPRCACT D GET^GMRCAPI(.VPRCONS,DIEN),ACT^GMRCAPI(.VPRCACT,DIEN)
"KRN",1.5,182,5)
CONSULTS^VPRSDAQ
"KRN",1.5,182,19,0)
^^2^2^3190430^
"KRN",1.5,182,19,1,0)
This entity updates the Referral container in HealthShare in patch
"KRN",1.5,182,19,2,0)
VPR*1*14.
"KRN",1.5,183,-1)
0^107
"KRN",1.5,183,0)
VPR P14 EXT REFERRAL^123^^^^S
"KRN",1.5,183,.1)
ReferralExtension
"KRN",1.5,183,1,0)
^1.51^18^12
"KRN",1.5,183,1,1,0)
Name^1^F
"KRN",1.5,183,1,1,6)
S VALUE=$$CONSNAME^VPRSDA(DIEN) ;fields #1, 4, & 13
"KRN",1.5,183,1,8,0)
DocumentNumbers^15^L
"KRN",1.5,183,1,8,1)
4^DocumentNumbersItem
"KRN",1.5,183,1,8,6)
N I,X S I=0 F S I=$O(VPRCONS(50,I)) Q:I<1 S X=+$G(VPRCONS(50,I)) S:$$TIUCOMP^VPRSDA(X) DLIST(I)=X_";TIU"
"KRN",1.5,183,1,9,0)
PatientLocation^10^E^123^.04^^1^VPR LOCATION
"KRN",1.5,183,1,9,6)
S VALUE=$P($G(VPRCONS(0)),U,4)
"KRN",1.5,183,1,10,0)
PlaceOfConsultation^11^S^123^6
"KRN",1.5,183,1,10,6)
S VALUE=$P($G(VPRCONS(0)),U,10)
"KRN",1.5,183,1,11,0)
LastActionTaken^12^S^123^9
"KRN",1.5,183,1,11,6)
S VALUE=$P($G(VPRCONS(0)),U,13)
"KRN",1.5,183,1,12,0)
ServiceType^13^S^123^14^^1
"KRN",1.5,183,1,12,6)
S VALUE=$P($G(VPRCONS(0)),U,18)
"KRN",1.5,183,1,13,0)
DesiredDate^14^S^123^17^^1
"KRN",1.5,183,1,13,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,183,1,13,6)
S VALUE=$P($G(VPRCONS(0)),U,24)
"KRN",1.5,183,1,14,0)
ProvisionalDxDate^5^S^123^30.2^^1
"KRN",1.5,183,1,14,4)
S VALUE=$$DATE^VPRSDA(VALUE)
"KRN",1.5,183,1,14,6)
S VALUE=$P($G(VPRCONS(30.1)),U,2)
"KRN",1.5,183,1,15,0)
RequestActions^16^L^^^^^VPR REFERRAL ACTIVITY
"KRN",1.5,183,1,15,1)
4^RequestAction
"KRN",1.5,183,1,15,6)
N I S I=0 F S I=$O(VPRCACT(I)) Q:I<1 S DLIST(I)=I_","_DIEN
"KRN",1.5,183,1,16,0)
ClinicalProcedure^3^E^123^1.01^^1^VPR CODE TABLE
"KRN",1.5,183,1,16,4)
I VALUE=+VALUE S VALUE=+VALUE_U_$$EXTERNAL^DILFD(123,1.01,,VALUE)_"^VA702.01"
"KRN",1.5,183,1,16,6)
N X S X=$G(VPRCONS(1)) I $L(X) S VALUE=+$G(^GMR(123,DIEN,1))_U_X_"^VA702.01"
"KRN",1.5,183,1,17,0)
Procedure^2^S^123^4
"KRN",1.5,183,1,17,6)
S VALUE=$P($G(VPRCONS(0)),U,8)
"KRN",1.5,183,1,18,0)
ProvisionalDx^4^E^123^30.1^^^VPR CODE TABLE
"KRN",1.5,183,1,18,6)
S VALUE=$$PROVDX^VPRSDA(DIEN)
"KRN",1.5,183,1,"B","ClinicalProcedure",16)
"KRN",1.5,183,1,"B","DesiredDate",13)
"KRN",1.5,183,1,"B","DocumentNumbers",8)
"KRN",1.5,183,1,"B","LastActionTaken",11)
"KRN",1.5,183,1,"B","Name",1)
"KRN",1.5,183,1,"B","PatientLocation",9)
"KRN",1.5,183,1,"B","PlaceOfConsultation",10)
"KRN",1.5,183,1,"B","Procedure",17)
"KRN",1.5,183,1,"B","ProvisionalDx",18)
"KRN",1.5,183,1,"B","ProvisionalDxDate",14)
"KRN",1.5,183,1,"B","RequestActions",15)
"KRN",1.5,183,1,"B","ServiceType",12)
"KRN",1.5,183,1,"SEQ",1,1)
"KRN",1.5,183,1,"SEQ",2,17)
"KRN",1.5,183,1,"SEQ",3,16)
"KRN",1.5,183,1,"SEQ",4,18)
"KRN",1.5,183,1,"SEQ",5,14)
"KRN",1.5,183,1,"SEQ",10,9)
"KRN",1.5,183,1,"SEQ",11,10)
"KRN",1.5,183,1,"SEQ",12,11)
"KRN",1.5,183,1,"SEQ",13,12)
"KRN",1.5,183,1,"SEQ",14,13)
"KRN",1.5,183,1,"SEQ",15,8)
"KRN",1.5,183,1,"SEQ",16,15)
"KRN",1.5,183,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,183,19,1,0)
This entity extends VPR P14 REFERRAL; it expects the VPRCONS and VPRCACT
"KRN",1.5,183,19,2,0)
arrays as defined by GMRCAPI in the main entity GET ID ACTION.
"KRN",1.5,184,-1)
0^97
"KRN",1.5,184,0)
VPR P14 ALLERGY^120.8^^^^S
"KRN",1.5,184,.1)
Allergy
"KRN",1.5,184,1,0)
^1.51^26^4
"KRN",1.5,184,1,4,0)
Reaction^6^E^120.8^^^^VPR ALLERGY SIGN/SYMPTOM
"KRN",1.5,184,1,4,6)
I $D(VPRALG("S")) N X S X=$G(VPRALG("S",1)),VALUE=$P($P(X,U),";",2)_U_$P($P(X,U),";")_$S($L($P(X,U,2))>1:U_$P($P(X,U,2),";",2),1:"") ;first
"KRN",1.5,184,1,18,0)
Extension^2^E^120.8^^^^VPR P14 EXT ALLERGY
"KRN",1.5,184,1,18,6)
S VALUE=DIEN
"KRN",1.5,184,1,25,0)
ExternalId^27^I
"KRN",1.5,184,1,26,0)
Certainty^8^E^120.8^19^^1^VPR CODE ONLY
"KRN",1.5,184,1,26,4)
S VALUE=$S(VALUE:"Confirmed",1:"")
"KRN",1.5,184,1,26,6)
S VALUE=($E($P($G(GMRAY),U,4))="V")
"KRN",1.5,184,1,"B","Certainty",26)
"KRN",1.5,184,1,"B","Extension",18)
"KRN",1.5,184,1,"B","ExternalId",25)
"KRN",1.5,184,1,"B","Reaction",4)
"KRN",1.5,184,1,"SEQ",2,18)
"KRN",1.5,184,1,"SEQ",6,4)
"KRN",1.5,184,1,"SEQ",8,26)
"KRN",1.5,184,1,"SEQ",27,25)
"KRN",1.5,184,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,184,3)
K GMRAL,GMRAY,VPRALG,VASITE
"KRN",1.5,184,4)
D ALG1^VPRSDAL(DIEN)
"KRN",1.5,184,5)
ALLERGYS^VPRSDAQ
"KRN",1.5,184,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,184,19,1,0)
This entity updates the Allergy container in HealthShare with patch
"KRN",1.5,184,19,2,0)
VPR*1*14.
"KRN",1.5,185,-1)
0^111
"KRN",1.5,185,0)
VPR P14 PROBLEM^9000011^^^^S
"KRN",1.5,185,.1)
Problem
"KRN",1.5,185,1,0)
^1.51^14^2
"KRN",1.5,185,1,1,0)
Extension^4^E^9000011^^^^VPR PROBLEM EXTENSION
"KRN",1.5,185,1,1,6)
S VALUE=DIEN
"KRN",1.5,185,1,14,0)
ExternalId^19^I
"KRN",1.5,185,1,14,4)
S VALUE=VALUE_";PL"
"KRN",1.5,185,1,"B","Extension",1)
"KRN",1.5,185,1,"B","ExternalId",14)
"KRN",1.5,185,1,"SEQ",4,1)
"KRN",1.5,185,1,"SEQ",19,14)
"KRN",1.5,185,3)
K GMPFLD,GMPORIG
"KRN",1.5,185,4)
K GMPFLD,GMPORIG D GETFLDS^GMPLEDT3(DIEN)
"KRN",1.5,185,5)
PROBLEMS^VPRSDAQ
"KRN",1.5,185,19,0)
^^2^2^3190430^
"KRN",1.5,185,19,1,0)
This entity updates the Problem container in HealthShare with patch
"KRN",1.5,185,19,2,0)
VPR*1*14.
"KRN",1.5,187,-1)
0^86
"KRN",1.5,187,0)
VPR ORDERABLE ITEM CODE^101.43^^^^S
"KRN",1.5,187,.1)
NationalItem
"KRN",1.5,187,1,0)
^1.51^2^2
"KRN",1.5,187,1,1,0)
SDACodingStandard^1^S^101.43^4^^1
"KRN",1.5,187,1,1,4)
S VALUE=$S(VALUE="CPT":"CPT-4",1:VALUE)
"KRN",1.5,187,1,2,0)
Code^6^S^101.43^3
"KRN",1.5,187,1,"B","Code",2)
"KRN",1.5,187,1,"B","SDACodingStandard",1)
"KRN",1.5,187,1,"SEQ",1,1)
"KRN",1.5,187,1,"SEQ",6,2)
"KRN",1.5,187,19,0)
^1.519^3^3^3190606^^^
"KRN",1.5,187,19,1,0)
This entity supports VPR ORDERABLE ITEM, returning the national code and
"KRN",1.5,187,19,2,0)
coding system provided by the application in the Orderable Item file
"KRN",1.5,187,19,3,0)
#101.43 when available.
"KRN",1.5,192,-1)
0^87
"KRN",1.5,192,0)
VPR ORDERABLE ITEM EXTENSION^101.43^^^^S
"KRN",1.5,192,.1)
OrderExtension
"KRN",1.5,192,1,0)
^1.51^1^1
"KRN",1.5,192,1,1,0)
NationalItem^1^E^101.43^^^^VPR ORDERABLE ITEM CODE
"KRN",1.5,192,1,1,6)
S VALUE=+$G(DIEN)
"KRN",1.5,192,1,"B","NationalItem",1)
"KRN",1.5,192,1,"SEQ",1,1)
"KRN",1.5,192,19,0)
^^1^1^3190606^
"KRN",1.5,192,19,1,0)
This entity extends VPR ORDERABLE ITEM.
"KRN",1.5,193,-1)
0^100
"KRN",1.5,193,0)
VPR P14 ENCOUNTER ADM^405^^^^S
"KRN",1.5,193,.1)
Encounter
"KRN",1.5,193,1,0)
^1.51^22^3
"KRN",1.5,193,1,1,0)
EncounterNumber^3^S^405^.27
"KRN",1.5,193,1,1,4)
S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
"KRN",1.5,193,1,1,6)
S VALUE=$G(VPRVST)
"KRN",1.5,193,1,6,0)
HealthCareFacility^22^E^405^.06^44^1^VPR LOCATION
"KRN",1.5,193,1,6,6)
N X S X=$P($G(VAIP(5)),U) S:X VALUE=+$G(^DIC(42,+X,44))
"KRN",1.5,193,1,22,0)
Extension^2^E^405^^^^VPR ADMISSION EXTENSION
"KRN",1.5,193,1,22,6)
S VALUE=DIEN
"KRN",1.5,193,1,"B","EncounterNumber",1)
"KRN",1.5,193,1,"B","Extension",22)
"KRN",1.5,193,1,"B","HealthCareFacility",6)
"KRN",1.5,193,1,"SEQ",2,22)
"KRN",1.5,193,1,"SEQ",3,1)
"KRN",1.5,193,1,"SEQ",22,6)
"KRN",1.5,193,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,193,3)
K VAIP,VASITE
"KRN",1.5,193,4)
D VAIP^VPRSDA(.DIEN,.DFN)
"KRN",1.5,193,5)
ADM^VPRSDAQ
"KRN",1.5,193,19,0)
^^3^3^3190430^
"KRN",1.5,193,19,1,0)
This entity updates the Encounter container in HealthShare, for inpatient
"KRN",1.5,193,19,2,0)
admissions with patch VPR*1*14. An admission must have a corresponding
"KRN",1.5,193,19,3,0)
entry in the Visit file #9000010 to be included.
"KRN",1.5,194,-1)
0^98
"KRN",1.5,194,0)
VPR P14 APPOINTMENT^2.98^^^^S
"KRN",1.5,194,.1)
Appointment
"KRN",1.5,194,1,0)
^1.51^18^5
"KRN",1.5,194,1,8,0)
Location^13^E^2.98^.01^^1^VPR LOCATION
"KRN",1.5,194,1,8,6)
S VALUE=+$P($G(VPRAPPT),U,2)
"KRN",1.5,194,1,15,0)
EncounterNumber^2^S^2.98^21^.05^1
"KRN",1.5,194,1,15,6)
N SDOE S SDOE=$P(VPRAPPT,U,12) I SDOE S VALUE=$P($$GETOE^SDOE(SDOE),U,5)
"KRN",1.5,194,1,16,0)
CareProvider^12^E^2.98^^^^VPR PROVIDER
"KRN",1.5,194,1,16,6)
S VALUE=$$APPTPRV^VPRSDA ;expects VPRAPPT
"KRN",1.5,194,1,17,0)
FillerApptId^8^I
"KRN",1.5,194,1,18,0)
PlacerApptId^7^F
"KRN",1.5,194,1,18,6)
S VALUE="A;"_+$G(VPRAPPT)_";"_+$P($G(VPRAPPT),U,2)
"KRN",1.5,194,1,"B","CareProvider",16)
"KRN",1.5,194,1,"B","EncounterNumber",15)
"KRN",1.5,194,1,"B","FillerApptId",17)
"KRN",1.5,194,1,"B","Location",8)
"KRN",1.5,194,1,"B","PlacerApptId",18)
"KRN",1.5,194,1,"SEQ",2,15)
"KRN",1.5,194,1,"SEQ",7,18)
"KRN",1.5,194,1,"SEQ",8,17)
"KRN",1.5,194,1,"SEQ",12,16)
"KRN",1.5,194,1,"SEQ",13,8)
"KRN",1.5,194,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,194,3)
K ^TMP($J,"SDAMA301"),VPRAPPT,VASITE
"KRN",1.5,194,4)
D APPT1^VPRSDA(DIEN) I $P(VPRAPPT,U,12) S DRES="<FillerApptId>"_DIEN_"</FillerApptId><ActionCode>D</ActionCode></Appointment><Appointment>"
"KRN",1.5,194,5)
APPTS^VPRSDAQ
"KRN",1.5,194,19,0)
^^2^2^3190430^
"KRN",1.5,194,19,1,0)
This entity updates the Appointment container in HealthShare with patch
"KRN",1.5,194,19,2,0)
VPR*1*14.
"KRN",1.5,195,-1)
0^99
"KRN",1.5,195,0)
VPR P14 DOCUMENT^8925^^^^S
"KRN",1.5,195,.1)
Document
"KRN",1.5,195,1,0)
^1.51^19^3
"KRN",1.5,195,1,3,0)
EncounterNumber^3^S^8925^.03^^1
"KRN",1.5,195,1,3,4)
S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
"KRN",1.5,195,1,3,6)
S VALUE=$G(VPRTIU(DIEN,.03,"I"))
"KRN",1.5,195,1,11,0)
DocumentNumber^16^I
"KRN",1.5,195,1,11,4)
S VALUE=VALUE_";TIU"
"KRN",1.5,195,1,11,5)
S:$P(VALUE,";",2)="TIU" VALUE=+VALUE
"KRN",1.5,195,1,19,0)
Extension^5^E^8925^^^^VPR P14 EXT DOCUMENT
"KRN",1.5,195,1,19,6)
S VALUE=DIEN
"KRN",1.5,195,1,"B","DocumentNumber",11)
"KRN",1.5,195,1,"B","EncounterNumber",3)
"KRN",1.5,195,1,"B","Extension",19)
"KRN",1.5,195,1,"SEQ",3,3)
"KRN",1.5,195,1,"SEQ",5,19)
"KRN",1.5,195,1,"SEQ",16,11)
"KRN",1.5,195,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,195,3)
K VPRTIU,VASITE
"KRN",1.5,195,4)
K VPRTIU D EXTRACT^TIULQ(DIEN,"VPRTIU",,".01;.03;1205;1502;1508",,,"I")
"KRN",1.5,195,5)
DOCUMENT^VPRSDAQ
"KRN",1.5,195,19,0)
^^2^2^3190430^
"KRN",1.5,195,19,1,0)
This entity updates the Document container in HealthShare with patch
"KRN",1.5,195,19,2,0)
VPR*1*14.
"KRN",1.5,196,-1)
0^96
"KRN",1.5,196,0)
VPR P14 ALERT^26.13^^^^S
"KRN",1.5,196,.1)
Alert
"KRN",1.5,196,1,0)
^1.51^11^2
"KRN",1.5,196,1,10,0)
Extension^3^E^26.13^^^^VPR PRF EXTENSION
"KRN",1.5,196,1,10,6)
S VALUE=DIEN
"KRN",1.5,196,1,11,0)
ExternalId^13^F
"KRN",1.5,196,1,11,6)
S VALUE=$P($G(VPRF1("FLAG")),U) ;vptr
"KRN",1.5,196,1,"B","Extension",10)
"KRN",1.5,196,1,"B","ExternalId",11)
"KRN",1.5,196,1,"SEQ",3,10)
"KRN",1.5,196,1,"SEQ",13,11)
"KRN",1.5,196,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,196,3)
K VPRF,VPRF1,VASITE
"KRN",1.5,196,4)
D PRF1^VPRSDA(DIEN)
"KRN",1.5,196,5)
PRF^VPRSDAQ
"KRN",1.5,196,19,0)
^1.519^2^2^3190606^^^
"KRN",1.5,196,19,1,0)
This entity updates the Alert container in HealthShare with active
"KRN",1.5,196,19,2,0)
national Patient Record Flags for a patient DFN in patch VPR*1*14.
"KRN",1.5,197,-1)
0^114
"KRN",1.5,197,0)
VPR P14 VACCINATION^9000010.11^^^^S
"KRN",1.5,197,.1)
Vaccination
"KRN",1.5,197,1,0)
^1.51^17^7
"KRN",1.5,197,1,10,0)
Administrations^53^L^^^^^VPR IMM ADMINISTRATION
"KRN",1.5,197,1,10,1)
4^Administration
"KRN",1.5,197,1,10,6)
S DLIST(1)=DIEN
"KRN",1.5,197,1,11,0)
EncounterNumber^61^S^9000010.11^.03^^1
"KRN",1.5,197,1,11,4)
S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
"KRN",1.5,197,1,13,0)
Extension^62^E^9000010.11^^^^VPR IMM EXTENSION
"KRN",1.5,197,1,13,6)
S VALUE=DIEN
"KRN",1.5,197,1,14,0)
ExternalId^60^I
"KRN",1.5,197,1,15,0)
EnteringOrganization^9^E^9000010.11^1215^^1^VPR LOCATION
"KRN",1.5,197,1,15,6)
S VALUE=$P($G(VPRM("ORDERING LOCATION")),U)
"KRN",1.5,197,1,16,0)
MaxDoseQuantity^43^S^9000010.11^.01^.05^1
"KRN",1.5,197,1,17,0)
OrderItem^35^E^9000010.11^.01^^1^VPR IMMUNIZATION
"KRN",1.5,197,1,17,6)
S DATA=$G(VPRM("IMMUNIZATION")),VALUE=$P(DATA,U)
"KRN",1.5,197,1,"B","Administrations",10)
"KRN",1.5,197,1,"B","EncounterNumber",11)
"KRN",1.5,197,1,"B","EnteringOrganization",15)
"KRN",1.5,197,1,"B","Extension",13)
"KRN",1.5,197,1,"B","ExternalId",14)
"KRN",1.5,197,1,"B","MaxDoseQuantity",16)
"KRN",1.5,197,1,"B","OrderItem",17)
"KRN",1.5,197,1,"SEQ",9,15)
"KRN",1.5,197,1,"SEQ",35,17)
"KRN",1.5,197,1,"SEQ",43,16)
"KRN",1.5,197,1,"SEQ",53,10)
"KRN",1.5,197,1,"SEQ",60,14)
"KRN",1.5,197,1,"SEQ",61,11)
"KRN",1.5,197,1,"SEQ",62,13)
"KRN",1.5,197,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,197,3)
K ^TMP("VPRIMM",$J),VPRM,VASITE
"KRN",1.5,197,4)
D:$D(^AUPNVIMM(+DIEN)) VIMM^PXPXRM(+DIEN,.VPRM)
"KRN",1.5,197,5)
IMMS^VPRSDAQ
"KRN",1.5,197,19,0)
^^1^1^3181227^
"KRN",1.5,197,19,1,0)
This entity populates the Vaccination container in HealthShare.
"KRN",1.5,198,-1)
0^108
"KRN",1.5,198,0)
VPR P14 LABORDER^100^^^^S
"KRN",1.5,198,.1)
LabOrder
"KRN",1.5,198,1,0)
^1.51^26^8
"KRN",1.5,198,1,6,0)
OrderItem^5^E^100^^^^VPR ORDERABLE ITEM
"KRN",1.5,198,1,6,6)
S ORIT=$$OI^ORX8(DIEN),VALUE=+ORIT
"KRN",1.5,198,1,14,0)
Result^39^E^100^33^^^VPR LRCH RESULT
"KRN",1.5,198,1,14,6)
D RSLT^VPRSDAB I $G(LRSUB)'="CH" S DDEOUT=1 Q ;only updating CH results
"KRN",1.5,198,1,21,0)
Extension^53^E^100^^^^VPR P14 EXT LABORDER
"KRN",1.5,198,1,21,6)
S VALUE=DIEN
"KRN",1.5,198,1,22,0)
ExternalId^51^I
"KRN",1.5,198,1,22,6)
"KRN",1.5,198,1,23,0)
EnteringOrganization^9^E^100^6^^1^VPR LOCATION
"KRN",1.5,198,1,23,4)
S VALUE=+VALUE S:VALUE<1 VALUE=""
"KRN",1.5,198,1,24,0)
Comments^24^F
"KRN",1.5,198,1,24,6)
S VALUE=$$VALUE^ORX8(DIEN,"COMMENT")
"KRN",1.5,198,1,25,0)
GroupId^30^S^100^36^^1
"KRN",1.5,198,1,25,6)
S VALUE=$G(ORDAD) S:VALUE="" DDEOUT=1
"KRN",1.5,198,1,26,0)
OrderCategory^6^E^100^23^^1^VPR DISPLAY GROUP
"KRN",1.5,198,1,26,4)
D DG^VPRSDAB(.VALUE) ;cks VALUE, sets LRSUB
"KRN",1.5,198,1,"B","Comments",24)
"KRN",1.5,198,1,"B","EnteringOrganization",23)
"KRN",1.5,198,1,"B","Extension",21)
"KRN",1.5,198,1,"B","ExternalId",22)
"KRN",1.5,198,1,"B","GroupId",25)
"KRN",1.5,198,1,"B","OrderCategory",26)
"KRN",1.5,198,1,"B","OrderItem",6)
"KRN",1.5,198,1,"B","Result",14)
"KRN",1.5,198,1,"SEQ",5,6)
"KRN",1.5,198,1,"SEQ",6,26)
"KRN",1.5,198,1,"SEQ",9,23)
"KRN",1.5,198,1,"SEQ",24,24)
"KRN",1.5,198,1,"SEQ",30,25)
"KRN",1.5,198,1,"SEQ",39,14)
"KRN",1.5,198,1,"SEQ",51,22)
"KRN",1.5,198,1,"SEQ",53,21)
"KRN",1.5,198,2)
S:'DFN&ID DFN=+$P($G(^OR(100,ID,0)),U,2) S LRDFN=+$$LRDFN^LRPXAPIU(DFN),VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,198,3)
K LRDFN,LRSUB,VASITE,ORIT,ORPK,ORDAD,ORLAB,VPRCDT,VPRVBEC
"KRN",1.5,198,4)
D ONE^VPRSDAB(DIEN)
"KRN",1.5,198,5)
ORDERS^VPRSDAQ("LAB")
"KRN",1.5,198,19,0)
^^2^2^3190430^
"KRN",1.5,198,19,1,0)
This entity updates the Lab Order container in HealthShare in patch
"KRN",1.5,198,19,2,0)
VPR*1*14.
"KRN",1.5,199,-1)
0^109
"KRN",1.5,199,0)
VPR P14 MEDICATION^100^^^^S
"KRN",1.5,199,.1)
Medication
"KRN",1.5,199,1,0)
^1.51^46^8
"KRN",1.5,199,1,16,0)
EnteringOrganization^9^E^100^6^^1^VPR LOCATION
"KRN",1.5,199,1,16,4)
S VALUE=+VALUE S:VALUE<1 VALUE=""
"KRN",1.5,199,1,23,0)
DrugProduct^34^E^100^^^^VPR DRUG PRODUCT
"KRN",1.5,199,1,23,6)
S VALUE=$$VALUE^ORX8(DIEN,"DRUG",1) S:'VALUE DDEOUT=1
"KRN",1.5,199,1,25,0)
DosageSteps^51^L^^^^^VPR DOSAGE STEP
"KRN",1.5,199,1,25,1)
4^DosageStep
"KRN",1.5,199,1,25,6)
D DOSES^VPRSDAP(DIEN)
"KRN",1.5,199,1,33,0)
ComponentMeds^53^L^^^^^VPR IV PRODUCT
"KRN",1.5,199,1,33,1)
4^DrugProduct
"KRN",1.5,199,1,33,6)
I $G(PSTYPE)="V" D IVMEDS^VPRSDAP(ORIFN)
"KRN",1.5,199,1,41,0)
Extension^59^E^100^^^^VPR MED EXTENSION
"KRN",1.5,199,1,41,6)
S VALUE=DIEN
"KRN",1.5,199,1,44,0)
GroupId^26^S^100^36^^1
"KRN",1.5,199,1,45,0)
Administrations^52^L^^^^^VPR MED ADMINISTRATION
"KRN",1.5,199,1,45,1)
4^Administration
"KRN",1.5,199,1,45,6)
D BCMA^VPRSDAP(DIEN)
"KRN",1.5,199,1,46,0)
ExternalId^60^I
"KRN",1.5,199,1,"B","Administrations",45)
"KRN",1.5,199,1,"B","ComponentMeds",33)
"KRN",1.5,199,1,"B","DosageSteps",25)
"KRN",1.5,199,1,"B","DrugProduct",23)
"KRN",1.5,199,1,"B","EnteringOrganization",16)
"KRN",1.5,199,1,"B","Extension",41)
"KRN",1.5,199,1,"B","ExternalId",46)
"KRN",1.5,199,1,"B","GroupId",44)
"KRN",1.5,199,1,"SEQ",9,16)
"KRN",1.5,199,1,"SEQ",26,44)
"KRN",1.5,199,1,"SEQ",34,23)
"KRN",1.5,199,1,"SEQ",51,25)
"KRN",1.5,199,1,"SEQ",52,45)
"KRN",1.5,199,1,"SEQ",53,33)
"KRN",1.5,199,1,"SEQ",59,41)
"KRN",1.5,199,1,"SEQ",60,46)
"KRN",1.5,199,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,199,3)
K:$D(VPRPS) @VPRPS K ORIFN,PSTYPE,VPRATE,VPRPS,^TMP("VPRX",$J),VASITE,PSOI
"KRN",1.5,199,4)
D PS1^VPRSDAP(DIEN) S PSOI=+$P($$OI^ORX8(DIEN),U,3)
"KRN",1.5,199,5)
ORDERS^VPRSDAQ("RX")
"KRN",1.5,199,19,0)
^^2^2^3190430^^
"KRN",1.5,199,19,1,0)
This entity updates the Medication container in HealthShare with patch
"KRN",1.5,199,19,2,0)
VPR*1*14.
"KRN",1.5,200,-1)
0^102
"KRN",1.5,200,0)
VPR P14 EXT ALLERGY^120.8^^^^S
"KRN",1.5,200,.1)
AllergyExtension
"KRN",1.5,200,1,0)
^1.51^10^5
"KRN",1.5,200,1,4,0)
Reactions^4^L^^^^^VPR ALLERGY SIGN/SYMPTOM
"KRN",1.5,200,1,4,1)
4^Reaction
"KRN",1.5,200,1,4,6)
N I,X S I=0 F S I=$O(VPRALG("S",I)) Q:I<1 S X=$G(VPRALG("S",I)),DLIST(I)=+$P($P(X,U),";",2)_U_$P($P(X,U),";")_$S($L($P(X,U,2))>1:U_$P($P(X,U,2),";",2),1:"")
"KRN",1.5,200,1,7,0)
OriginalCode^7^S^120.8^1^^1
"KRN",1.5,200,1,7,6)
S VALUE=$P($G(VPRALG),U,9)
"KRN",1.5,200,1,8,0)
InactiveUser^8^E^120.8^24^^1^VPR USER
"KRN",1.5,200,1,9,0)
AllergyObservations^9^L^^^^^VPR ALLERGY OBSERVATION
"KRN",1.5,200,1,9,1)
4
"KRN",1.5,200,1,9,6)
M DLIST=GMRAY("O")
"KRN",1.5,200,1,10,0)
Comments^3^L^^^^^VPR COMMENT
"KRN",1.5,200,1,10,1)
4^Comment
"KRN",1.5,200,1,10,6)
D ALGCMT^VPRSDAL(DIEN)
"KRN",1.5,200,1,"B","AllergyObservations",9)
"KRN",1.5,200,1,"B","Comments",10)
"KRN",1.5,200,1,"B","InactiveUser",8)
"KRN",1.5,200,1,"B","OriginalCode",7)
"KRN",1.5,200,1,"B","Reactions",4)
"KRN",1.5,200,1,"SEQ",3,10)
"KRN",1.5,200,1,"SEQ",4,4)
"KRN",1.5,200,1,"SEQ",7,7)
"KRN",1.5,200,1,"SEQ",8,8)
"KRN",1.5,200,1,"SEQ",9,9)
"KRN",1.5,200,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,200,19,1,0)
This entity extends VPR P14 ALLERGY. It expects the GMRAY variable and
"KRN",1.5,200,19,2,0)
array to be defined, from the GET ID ACTION call to GMRAOR2.
"KRN",1.5,201,-1)
0^103
"KRN",1.5,201,0)
VPR P14 EXT DOCUMENT^8925^^^^S
"KRN",1.5,201,.1)
DocumentExtension
"KRN",1.5,201,1,0)
^1.51^11^3
"KRN",1.5,201,1,4,0)
NationalTitle^4^E^8925^.01^^1^VPR DOCUMENT TITLE
"KRN",1.5,201,1,4,6)
S VALUE=$G(VPRTIU(DIEN,.01,"I")),VPRNATL=+$G(^TIU(8925.1,+VALUE,15)) S:'VPRNATL DDEOUT=1
"KRN",1.5,201,1,10,0)
PatientLocation^10^E^8925^1205^^1^VPR LOCATION
"KRN",1.5,201,1,10,6)
S VALUE=$G(VPRTIU(DIEN,1205,"I"))
"KRN",1.5,201,1,11,0)
CareProviders^1^L^^^^^VPR SIGNER
"KRN",1.5,201,1,11,1)
4^CareProvider
"KRN",1.5,201,1,11,6)
N I,N S N=0 F I=1502,1508 S:$G(VPRTIU(DIEN,I,"I")) N=N+1,DLIST(N)=VPRTIU(DIEN,I,"I")_U_$S(I=1502:"S",1:"C")
"KRN",1.5,201,1,"B","CareProviders",11)
"KRN",1.5,201,1,"B","NationalTitle",4)
"KRN",1.5,201,1,"B","PatientLocation",10)
"KRN",1.5,201,1,"SEQ",1,11)
"KRN",1.5,201,1,"SEQ",4,4)
"KRN",1.5,201,1,"SEQ",10,10)
"KRN",1.5,201,3)
K VPRNATL
"KRN",1.5,201,19,0)
^^2^2^3190430^
"KRN",1.5,201,19,1,0)
This entity extends VPR P14 DOCUMENT; it expects the VPRTIU array to be
"KRN",1.5,201,19,2,0)
defined.
"KRN",1.5,202,-1)
0^104
"KRN",1.5,202,0)
VPR P14 EXT LABORDER^100^^^^S
"KRN",1.5,202,.1)
OrderExtension
"KRN",1.5,202,1,0)
^1.51^8^1
"KRN",1.5,202,1,8,0)
CollectionSample^8^F^
"KRN",1.5,202,1,8,6)
N ID S ID=$$VALUE^ORX8(DIEN,"SAMPLE") S:ID VALUE=$$GET1^DIQ(62,ID_",",.01)
"KRN",1.5,202,1,"B","CollectionSample",8)
"KRN",1.5,202,1,"SEQ",8,8)
"KRN",1.5,202,19,0)
^^2^2^3190430^
"KRN",1.5,202,19,1,0)
This entity extends the VPR P14 LABORDER entity. It expects the Orders
"KRN",1.5,202,19,2,0)
file #100 pointer as the ID.
"KRN",1.5,203,-1)
0^106
"KRN",1.5,203,0)
VPR P14 EXT PROBLEM^9000011^^^^S
"KRN",1.5,203,.1)
ProblemExtension
"KRN",1.5,203,1,0)
^1.51^15^3
"KRN",1.5,203,1,9,0)
Location^8^E^9000011^1.08^^1^VPR LOCATION
"KRN",1.5,203,1,9,6)
S VALUE=$P($G(GMPFLD(1.08)),U)
"KRN",1.5,203,1,14,0)
LexiconId^13^S^9000011^1.01^^1
"KRN",1.5,203,1,14,6)
S VALUE=$P($G(GMPFLD(1.01)),U)
"KRN",1.5,203,1,15,0)
Comments^14^L^^^^^VPR COMMENT
"KRN",1.5,203,1,15,1)
4^Comment
"KRN",1.5,203,1,15,6)
D PROBCMT^VPRSDA(DIEN)
"KRN",1.5,203,1,"B","Comments",15)
"KRN",1.5,203,1,"B","LexiconId",14)
"KRN",1.5,203,1,"B","Location",9)
"KRN",1.5,203,1,"SEQ",8,9)
"KRN",1.5,203,1,"SEQ",13,14)
"KRN",1.5,203,1,"SEQ",14,15)
"KRN",1.5,203,19,0)
^^1^1^3190430^
"KRN",1.5,203,19,1,0)
This entity extends VPR P14 PROBLEM.
"KRN",1.5,204,-1)
0^112
"KRN",1.5,204,0)
VPR P14 RADORDER^100^^^^S
"KRN",1.5,204,.1)
RadOrder
"KRN",1.5,204,1,0)
^1.51^24^3
"KRN",1.5,204,1,6,0)
OrderItem^5^E^100.01^.01^^^VPR ORDERABLE ITEM
"KRN",1.5,204,1,6,6)
S VALUE=+$O(^OR(100,DIEN,.1,"B",0)) ;only 1
"KRN",1.5,204,1,22,0)
EnteringOrganization^9^E^100^6^^1^VPR LOCATION
"KRN",1.5,204,1,22,4)
S VALUE=+VALUE S:VALUE<1 VALUE=""
"KRN",1.5,204,1,24,0)
ExternalId^51^I
"KRN",1.5,204,1,"B","EnteringOrganization",22)
"KRN",1.5,204,1,"B","ExternalId",24)
"KRN",1.5,204,1,"B","OrderItem",6)
"KRN",1.5,204,1,"SEQ",5,6)
"KRN",1.5,204,1,"SEQ",9,22)
"KRN",1.5,204,1,"SEQ",51,24)
"KRN",1.5,204,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,204,3)
K VASITE
"KRN",1.5,204,5)
ORDERS^VPRSDAQ("XRAY")
"KRN",1.5,204,19,0)
^^2^2^3190430^
"KRN",1.5,204,19,1,0)
This entity updates the Rad Order container in HealthShare with patch
"KRN",1.5,204,19,2,0)
VPR*1*14.
"KRN",1.5,205,-1)
0^101
"KRN",1.5,205,0)
VPR P14 ENCOUNTER VISIT^9000010^^^^S
"KRN",1.5,205,.1)
Encounter
"KRN",1.5,205,1,0)
^1.51^6^2
"KRN",1.5,205,1,1,0)
EncounterNumber^3^I
"KRN",1.5,205,1,6,0)
HealthCareFacility^22^E^9000010^.22^^1^VPR LOCATION
"KRN",1.5,205,1,6,6)
S VALUE=$P($G(@VPRVST@(0)),U,22)
"KRN",1.5,205,1,"B","EncounterNumber",1)
"KRN",1.5,205,1,"B","HealthCareFacility",6)
"KRN",1.5,205,1,"SEQ",3,1)
"KRN",1.5,205,1,"SEQ",22,6)
"KRN",1.5,205,2)
S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
"KRN",1.5,205,3)
K ^TMP("PXKENC",$J),VPRVST,VADMVT,VAIP,VASITE
"KRN",1.5,205,4)
D VST^VPRSDA(DIEN) I $P($G(@VPRVST@(0)),U,22)="" S DDEOUT=1
"KRN",1.5,205,5)
VISITS^VPRSDAQ
"KRN",1.5,205,19,0)
^^2^2^3190501^
"KRN",1.5,205,19,1,0)
This entity updates the Encounter container in HealthShare with patch
"KRN",1.5,205,19,2,0)
VPR*1*14.
"KRN",1.5,206,-1)
0^94
"KRN",1.5,206,0)
VPR SIGNER EXTENSION^200^^^^S
"KRN",1.5,206,.1)
CareProviderExtension
"KRN",1.5,206,1,0)
^1.51^2^1
"KRN",1.5,206,1,2,0)
Title^2^S^200^8
"KRN",1.5,206,1,"B","Title",2)
"KRN",1.5,206,1,"SEQ",2,2)
"KRN",1.5,206,19,0)
^1.519^2^2^3190606^^
"KRN",1.5,206,19,1,0)
This entity supports VPR SIGNER, and expects the New Person file #200
"KRN",1.5,206,19,2,0)
ien as the ID.
"KRN",101,6152,-1)
2^2
"KRN",101,6152,0)
PSB EVSEND VPR^MEDICATION ADMINISTRATION EVENTS^^X^11857^^^^^^^
"KRN",101,6152,10,0)
^101.01PA^19^2
"KRN",101,6152,10,19,0)
6616^^^
"KRN",101,6152,10,19,"^")
VPR PSB EVENTS
"KRN",101,6616,-1)
0^1
"KRN",101,6616,0)
VPR PSB EVENTS^BCMA events for VPR^^A^^^^^^^^
"KRN",101,6616,1,0)
^^1^1^3190408^
"KRN",101,6616,1,1,0)
This protocol will track medication administrations for VPR.
"KRN",101,6616,20)
D PSB^VPREVNT
"KRN",101,6616,99)
65111,55934
"MBREQ")
0
"ORD",15,101)
101;15;;;PRO^XPDTA;PROF1^XPDIA;PROE1^XPDIA;PROF2^XPDIA;;PRODEL^XPDIA
"ORD",15,101,0)
PROTOCOL
"ORD",28,1.5)
1.5;28;;;ENT^XPDTA2;ENTF1^XPDIA0;ENTE1^XPDIA0;ENTF2^XPDIA0;;ENTDEL^XPDIA0(%)
"ORD",28,1.5,0)
ENTITY
"PKG",563,-1)
1^1
"PKG",563,0)
VIRTUAL PATIENT RECORD^VPR^Utilities to manage a virtual copy of the patient record
"PKG",563,22,0)
^9.49I^1^1
"PKG",563,22,1,0)
1.0^3110804^3190219^11857
"PKG",563,22,1,"PAH",1,0)
14^3190613
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
NO
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")
"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
NO
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
NO
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
5
"RTN","VPREVNT")
0^6^B135630021^B123186510
"RTN","VPREVNT",1,0)
VPREVNT ;SLC/MKB -- VistA event listeners ;10/25/18 15:29
"RTN","VPREVNT",2,0)
;;1.0;VIRTUAL PATIENT RECORD;**8,10,15,14**;Sep 01, 2011;Build 14
"RTN","VPREVNT",3,0)
;;Per VA Directive 6402, this routine should not be modified.
"RTN","VPREVNT",4,0)
;
"RTN","VPREVNT",5,0)
; External References DBIA#
"RTN","VPREVNT",6,0)
; ------------------- -----
"RTN","VPREVNT",7,0)
; DG FIELD MONITOR 3344
"RTN","VPREVNT",8,0)
; DGPM MOVEMENT EVENTS 1181
"RTN","VPREVNT",9,0)
; FH EVSEND OR 6097
"RTN","VPREVNT",10,0)
; GMPL EVENT 6065
"RTN","VPREVNT",11,0)
; GMRA ENTERED IN ERROR 1467
"RTN","VPREVNT",12,0)
; GMRA SIGN-OFF ON DATA 1469
"RTN","VPREVNT",13,0)
; GMRC EVSEND OR 3140
"RTN","VPREVNT",14,0)
; IBCN NEW INSURANCE 7010
"RTN","VPREVNT",15,0)
; LR7O AP EVSEND OR 7011
"RTN","VPREVNT",16,0)
; LR70 CH EVSEND OR 6087
"RTN","VPREVNT",17,0)
; MDC OBSERVATION UPDATE 6084
"RTN","VPREVNT",18,0)
; OR EVSEND FH 6090
"RTN","VPREVNT",19,0)
; OR EVSEND GMRC 3135
"RTN","VPREVNT",20,0)
; OR EVSEND LRCH 6091
"RTN","VPREVNT",21,0)
; OR EVSEND ORG 6092
"RTN","VPREVNT",22,0)
; OR EVSEND PS 6093
"RTN","VPREVNT",23,0)
; OR EVSEND RA 6094
"RTN","VPREVNT",24,0)
; OR EVSEND VPR 6095
"RTN","VPREVNT",25,0)
; PS EVSEND OR 2415
"RTN","VPREVNT",26,0)
; PSB EVSEND VPR 6085
"RTN","VPREVNT",27,0)
; PXK VISIT DATA EVENT 1298
"RTN","VPREVNT",28,0)
; RA EVSEND OR 6086
"RTN","VPREVNT",29,0)
; SCMC PATIENT TEAM CHANGES 7012
"RTN","VPREVNT",30,0)
; SCMC PATIENT TEAM POSITION 7013
"RTN","VPREVNT",31,0)
; SDAM APPOINTMENT EVENTS 1320
"RTN","VPREVNT",32,0)
; ^AUPNPROB 5703
"RTN","VPREVNT",33,0)
; ^AUPNVSIT 2028
"RTN","VPREVNT",34,0)
; ^AUTTHF 4295
"RTN","VPREVNT",35,0)
; ^DGPM 1865
"RTN","VPREVNT",36,0)
; ^DPT 10035
"RTN","VPREVNT",37,0)
; ^LR 525
"RTN","VPREVNT",38,0)
; ^OR(100 5771
"RTN","VPREVNT",39,0)
; ^PS(55
"RTN","VPREVNT",40,0)
; ^PSB(53.79 5909
"RTN","VPREVNT",41,0)
; ^RADPT 2480
"RTN","VPREVNT",42,0)
; ^TIU(8925.1 5677
"RTN","VPREVNT",43,0)
; DIC 2051
"RTN","VPREVNT",44,0)
; DIQ 2056
"RTN","VPREVNT",45,0)
; TIULQ 2693
"RTN","VPREVNT",46,0)
; TIULX 3058
"RTN","VPREVNT",47,0)
; VADPT2 325
"RTN","VPREVNT",48,0)
;
"RTN","VPREVNT",49,0)
DG ; -- DG FIELD MONITOR protocol listener
"RTN","VPREVNT",50,0)
N VPRFN S VPRFN=$G(DGFILE)
"RTN","VPREVNT",51,0)
I "^2^2.01^2.02^2.06^38.1^"'[(U_VPRFN_U) Q
"RTN","VPREVNT",52,0)
N DFN S DFN=+$G(DGDA)
"RTN","VPREVNT",53,0)
; collect individual fields into single tasked update if possible
"RTN","VPREVNT",54,0)
D QUE^VPRHS(DFN) Q ;skip fld check
"RTN","VPREVNT",55,0)
I VPRFN=2 D:$$FLD(+$G(DGFIELD)) QUE^VPRHS(DFN) Q
"RTN","VPREVNT",56,0)
D POST^VPRHS(DFN,"Patient",DFN_";2")
"RTN","VPREVNT",57,0)
Q
"RTN","VPREVNT",58,0)
;
"RTN","VPREVNT",59,0)
FLD(X) ; -- Return 1 or 0, if X is a field tracked by VPR
"RTN","VPREVNT",60,0)
; via DG FIELD MONITOR
"RTN","VPREVNT",61,0)
S X=U_+$G(X)_U
"RTN","VPREVNT",62,0)
I "^.01^.02^.03^.05^.07^.08^.09^.092^.093^.351^"[X Q 1 ;demographic
"RTN","VPREVNT",63,0)
I "^.111^.1112^.112^.113^.114^.115^.131^.132^.134^"[X Q 1 ;addr/phone
"RTN","VPREVNT",64,0)
I "^.211^.212^.213^.214^.216^.217^.218^.219^.21011^"[X Q 1 ;NOK
"RTN","VPREVNT",65,0)
I "^.331^.332^.333^.334^.335^.336^.337^.338^.339^"[X Q 1 ;ECON
"RTN","VPREVNT",66,0)
I "^.301^.302^.32102^.32103^.3215^.32201^.5295^"[X Q 1 ;serv conn
"RTN","VPREVNT",67,0)
I "^.14^.323^.361^1901^"[X Q 1
"RTN","VPREVNT",68,0)
Q 0
"RTN","VPREVNT",69,0)
;
"RTN","VPREVNT",70,0)
DGPM ; -- DGPM MOVEMENT EVENTS protocol listener
"RTN","VPREVNT",71,0)
; [expects DFN,DGPM* variables]
"RTN","VPREVNT",72,0)
I $$NEWINPT,$$ON^VPRHS,'$$SUBS^VPRHS(DFN) D NEW^VPRHS(DFN) Q
"RTN","VPREVNT",73,0)
N ADM S ADM=DGPMDA
"RTN","VPREVNT",74,0)
I DGPMT'=1 S ADM=$S(DGPMA:$P(DGPMA,U,14),1:$P(DGPMP,U,14)) Q:ADM<1
"RTN","VPREVNT",75,0)
; loop to find all Visits (have seen >1 per admission)
"RTN","VPREVNT",76,0)
; if no visit# yet, will be updated when assigned in PCE section
"RTN","VPREVNT",77,0)
N VAINDT,X,I,PTF
"RTN","VPREVNT",78,0)
S X=+$G(^DGPM(+$G(ADM),0)),VAINDT=(9999999-$P(X,"."))_"."_$P(X,".",2)
"RTN","VPREVNT",79,0)
S I=0 F S I=$O(^AUPNVSIT("AAH",DFN,VAINDT,I)) Q:I<1 D
"RTN","VPREVNT",80,0)
. ; If Admission is deleted, update as Visit; else update as Admission
"RTN","VPREVNT",81,0)
. I DGPMT=1,'DGPMA D POST^VPRHS(DFN,"Encounter",I_";9000010") Q
"RTN","VPREVNT",82,0)
. D POST^VPRHS(DFN,"Encounter",ADM_"~"_I_";405")
"RTN","VPREVNT",83,0)
. S PTF=$P(DGPMA,U,16) D:PTF POST^VPRHS(DFN,"Diagnosis",PTF_";45")
"RTN","VPREVNT",84,0)
Q
"RTN","VPREVNT",85,0)
;
"RTN","VPREVNT",86,0)
NEWINPT() ; -- is DFN newly admitted?
"RTN","VPREVNT",87,0)
N Y S Y=0
"RTN","VPREVNT",88,0)
I DGPMT=1,DGPMA,'DGPMP,+$G(^DPT(DFN,.105))=DGPMDA S Y=1 ;new admission
"RTN","VPREVNT",89,0)
Q Y
"RTN","VPREVNT",90,0)
;
"RTN","VPREVNT",91,0)
SDAM ; -- SDAM APPOINTMENT EVENTS protocol listener
"RTN","VPREVNT",92,0)
I $G(SDATA) D Q ;appointments
"RTN","VPREVNT",93,0)
. N DFN,DATE,HLOC,ACT
"RTN","VPREVNT",94,0)
. S DFN=+$P(SDATA,U,2) Q:DFN<1
"RTN","VPREVNT",95,0)
. Q:$G(SDAMEVT)>5 ;only track make, cancel, no show, check in/out
"RTN","VPREVNT",96,0)
. S DATE=+$P(SDATA,U,3),HLOC=+$P(SDATA,U,4)
"RTN","VPREVNT",97,0)
. S ACT=$S($G(SDATA("AFTER","STATUS"))["CANCEL":"@",1:"")
"RTN","VPREVNT",98,0)
. ;Q:$P($G(^DPT(DFN,"S",DATE,0)),U)'=HLOC
"RTN","VPREVNT",99,0)
. ; delete first on check-out (adding encounter info)
"RTN","VPREVNT",100,0)
. I SDAMEVT=5,ACT="" D POST^VPRHS(DFN,"Appointment",(DATE_","_DFN_";2.98"),"@")
"RTN","VPREVNT",101,0)
. D POST^VPRHS(DFN,"Appointment",(DATE_","_DFN_";2.98"),ACT)
"RTN","VPREVNT",102,0)
Q
"RTN","VPREVNT",103,0)
;
"RTN","VPREVNT",104,0)
PCE ; -- PXK VISIT DATA EVENT protocol listener
"RTN","VPREVNT",105,0)
N IEN,PX0A,PX0B,DFN,SUB,DA,ACT,X
"RTN","VPREVNT",106,0)
S IEN=+$O(^TMP("PXKCO",$J,0)) Q:IEN<1
"RTN","VPREVNT",107,0)
S PX0A=$G(^TMP("PXKCO",$J,IEN,"VST",IEN,0,"AFTER")),PX0B=$G(^("BEFORE"))
"RTN","VPREVNT",108,0)
S DFN=$S($L(PX0A):+$P(PX0A,U,5),1:+$P(PX0B,U,5)) Q:DFN<1
"RTN","VPREVNT",109,0)
; Visit file
"RTN","VPREVNT",110,0)
S ACT=$S(PX0A="":"@",1:"")
"RTN","VPREVNT",111,0)
I $P(PX0A,U,7)'="H",PX0A'=PX0B,ACT="" D POST^VPRHS(DFN,"Encounter",IEN_";9000010")
"RTN","VPREVNT",112,0)
I $P(PX0A,U,7)="H",PX0B="" D ;assign visit# (other edits via DGPM)
"RTN","VPREVNT",113,0)
. N VAINDT,VADMVT
"RTN","VPREVNT",114,0)
. S VAINDT=+PX0A D ADM^VADPT2
"RTN","VPREVNT",115,0)
. D:$G(VADMVT) POST^VPRHS(DFN,"Encounter",VADMVT_"~"_IEN_";405")
"RTN","VPREVNT",116,0)
; check V-files
"RTN","VPREVNT",117,0)
F SUB="IMM","XAM","POV","HF" D ;"PED","SK","CPT"
"RTN","VPREVNT",118,0)
. S DA=0 F S DA=$O(^TMP("PXKCO",$J,IEN,SUB,DA)) Q:DA<1 D
"RTN","VPREVNT",119,0)
.. N NODE,AFTER,BEFORE,DIFF,SUB0 S DIFF=0
"RTN","VPREVNT",120,0)
.. F NODE=0,12,13,811 D Q:DIFF
"RTN","VPREVNT",121,0)
... S AFTER=$G(^TMP("PXKCO",$J,IEN,SUB,DA,NODE,"AFTER")),BEFORE=$G(^("BEFORE"))
"RTN","VPREVNT",122,0)
... I NODE=0 S SUB0=$S(AFTER'="":AFTER,1:BEFORE)
"RTN","VPREVNT",123,0)
... I BEFORE'=AFTER S DIFF=1,ACT=$S(NODE'=0:"",AFTER'="":"",1:"@")
"RTN","VPREVNT",124,0)
.. Q:'DIFF S X=$$NAME(SUB) Q:X=""
"RTN","VPREVNT",125,0)
.. D POST^VPRHS(DFN,$P(X,U),(DA_";"_$P(X,U,2)),ACT,IEN)
"RTN","VPREVNT",126,0)
; delete visit itself last
"RTN","VPREVNT",127,0)
I PX0B,PX0A="" D POST^VPRHS(DFN,"Encounter",IEN_";9000010","@")
"RTN","VPREVNT",128,0)
Q
"RTN","VPREVNT",129,0)
;
"RTN","VPREVNT",130,0)
NAME(X) ; -- return container name for V-files
"RTN","VPREVNT",131,0)
I X="HF",$$FHX Q "FamilyHistory^9000010.23"
"RTN","VPREVNT",132,0)
I X="HF",$$SHX Q "SocialHistory^9000010.23"
"RTN","VPREVNT",133,0)
; X="HF" Q "HealthConcern^9000010.23"
"RTN","VPREVNT",134,0)
I X="IMM" Q "Vaccination^9000010.11"
"RTN","VPREVNT",135,0)
I X="XAM" Q "PhysicalExam^9000010.13"
"RTN","VPREVNT",136,0)
I X="POV" Q "Diagnosis^9000010.07"
"RTN","VPREVNT",137,0)
; X="CPT" Q "Procedure^9000010.18"
"RTN","VPREVNT",138,0)
; X="PED" Q "education^9000010.16"
"RTN","VPREVNT",139,0)
; X="SK" Q "Procedure^9000010.12"
"RTN","VPREVNT",140,0)
Q ""
"RTN","VPREVNT",141,0)
;
"RTN","VPREVNT",142,0)
FHX() ; -- return 1 or 0, if HF name is for FamilyHistory
"RTN","VPREVNT",143,0)
N X S X=+$G(SUB0),X=$P($G(^AUTTHF(X,0)),U)
"RTN","VPREVNT",144,0)
I X["FAMILY HISTORY" Q 1
"RTN","VPREVNT",145,0)
I X["FAMILY HX" Q 1
"RTN","VPREVNT",146,0)
Q 0
"RTN","VPREVNT",147,0)
;
"RTN","VPREVNT",148,0)
SHX() ; -- return 1 or 0, if HF name is for SocialHistory
"RTN","VPREVNT",149,0)
N X S X=+$G(SUB0),X=$P($G(^AUTTHF(X,0)),U)
"RTN","VPREVNT",150,0)
I (X["TOBACCO")!(X["SMOK") Q 1
"RTN","VPREVNT",151,0)
; (X["LIVES")!(X["LIVING") Q 1
"RTN","VPREVNT",152,0)
; (X["RELIGIO")!(X["SPIRIT") Q 1
"RTN","VPREVNT",153,0)
Q 0
"RTN","VPREVNT",154,0)
;
"RTN","VPREVNT",155,0)
XQOR(MSG,FD) ; -- CPRS protocol event listener
"RTN","VPREVNT",156,0)
; FD = frontdoor msg from CPRS (get ORIFN for new backdoor orders)
"RTN","VPREVNT",157,0)
; else = backdoor msg/ack from Pharmacy, Lab, Radiology, etc.
"RTN","VPREVNT",158,0)
N VPRMSG,MSH,VPRPKG,VPRSDA,DFN,ORC,ACT,VBECS
"RTN","VPREVNT",159,0)
S VPRMSG=$S($L($G(MSG)):MSG,1:"MSG") Q:'$O(@VPRMSG@(0))
"RTN","VPREVNT",160,0)
S MSH=0 F S MSH=$O(@VPRMSG@(MSH)) Q:MSH'>0 Q:$E(@VPRMSG@(MSH),1,3)="MSH"
"RTN","VPREVNT",161,0)
Q:'MSH Q:'$L($G(@VPRMSG@(MSH))) S DFN=$$PID Q:DFN<1
"RTN","VPREVNT",162,0)
;S VPRPKG=$S($G(FD):$P(@VPRMSG@(MSH),"|",5),1:$P(@VPRMSG@(MSH),"|",3))
"RTN","VPREVNT",163,0)
;S VPRSDA=$$ORDCONT(VPRPKG),DFN=$$PID Q:DFN<1
"RTN","VPREVNT",164,0)
S ORC=MSH F S ORC=$O(@VPRMSG@(+ORC)) Q:ORC'>0 I $E($G(@VPRMSG@(ORC)),1,3)="ORC" D
"RTN","VPREVNT",165,0)
. N ORDCNTRL,PKGIFN,ORIFN
"RTN","VPREVNT",166,0)
. S ORC=ORC_U_@VPRMSG@(ORC),ORDCNTRL=$TR($P(ORC,"|",2),"@","P")
"RTN","VPREVNT",167,0)
. ; QUIT if action failed, conversion, purge, or backdoor verify/new
"RTN","VPREVNT",168,0)
. I ORDCNTRL["U"!("DE^ZC^ZP^ZR^ZV^SN"[ORDCNTRL) Q
"RTN","VPREVNT",169,0)
. I $G(FD),ORDCNTRL'="NA" Q ;only want NA msg, from CPRS
"RTN","VPREVNT",170,0)
. S ACT=$S(ORDCNTRL="OC":"@",1:"")
"RTN","VPREVNT",171,0)
. ; Update *Order containers
"RTN","VPREVNT",172,0)
. S ORIFN=+$P($P(ORC,"|",3),U),PKGIFN=$P($P(ORC,"|",4),U)
"RTN","VPREVNT",173,0)
. Q:$O(^OR(100,ORIFN,2,0)) ;should not be getting parent orders
"RTN","VPREVNT",174,0)
. S VPRPKG=$$NMSP(ORIFN),VPRSDA=$$ORDCONT(VPRPKG)
"RTN","VPREVNT",175,0)
. I $E(VPRPKG,1,2)="LR" Q:$$VBECS(ORIFN) ;update via VBECS event
"RTN","VPREVNT",176,0)
. D POST^VPRHS(DFN,VPRSDA,ORIFN_";100",ACT)
"RTN","VPREVNT",177,0)
. I ORIFN D ;update replaced order
"RTN","VPREVNT",178,0)
.. N ORIG S ORIG=+$P($G(^OR(100,ORIFN,3)),U,5)
"RTN","VPREVNT",179,0)
.. I ORIG D POST^VPRHS(DFN,VPRSDA,ORIG_";100")
"RTN","VPREVNT",180,0)
. ; Update Referral or Document containers
"RTN","VPREVNT",181,0)
. I VPRPKG="GMRC",PKGIFN D GMRC
"RTN","VPREVNT",182,0)
. Q:ORDCNTRL'="RE"
"RTN","VPREVNT",183,0)
. I $E(VPRPKG,1,2)="RA" D RAD Q
"RTN","VPREVNT",184,0)
. I $E(VPRPKG,1,2)="LR" D LRD Q
"RTN","VPREVNT",185,0)
Q
"RTN","VPREVNT",186,0)
;
"RTN","VPREVNT",187,0)
NMSP(IFN) ; -- Returns package namespace from pointer
"RTN","VPREVNT",188,0)
N X,Y S X=$P($G(^OR(100,+$G(IFN),0)),U,14)
"RTN","VPREVNT",189,0)
S Y=$$GET1^DIQ(9.4,+X_",",1)
"RTN","VPREVNT",190,0)
Q Y
"RTN","VPREVNT",191,0)
;
"RTN","VPREVNT",192,0)
ORDCONT(NMSP) ; -- Returns SDA Order container name
"RTN","VPREVNT",193,0)
S NMSP=$G(NMSP)
"RTN","VPREVNT",194,0)
I $E(NMSP,1,2)="LR" Q "LabOrder"
"RTN","VPREVNT",195,0)
I $E(NMSP,1,2)="PS" Q "Medication"
"RTN","VPREVNT",196,0)
I $E(NMSP,1,2)="RA" Q "RadOrder"
"RTN","VPREVNT",197,0)
Q "OtherOrder"
"RTN","VPREVNT",198,0)
;
"RTN","VPREVNT",199,0)
VBECS(ORDER) ; -- return 1 or 0, if order is for VBECS
"RTN","VPREVNT",200,0)
S ORDER=+$G(ORDER)
"RTN","VPREVNT",201,0)
S:'$G(VBECS) VBECS=+$$FIND1^DIC(9.4,,"QX","VBEC","C")
"RTN","VPREVNT",202,0)
I $P($G(^OR(100,ORDER,0)),U,14)=VBECS Q 1
"RTN","VPREVNT",203,0)
N DAD S DAD=$P($G(^OR(100,ORDER,3)),U,9)
"RTN","VPREVNT",204,0)
I DAD,$P($G(^OR(100,DAD,0)),U,14)=VBECS Q 1
"RTN","VPREVNT",205,0)
Q 0
"RTN","VPREVNT",206,0)
;
"RTN","VPREVNT",207,0)
GMRC ; -- Referrals
"RTN","VPREVNT",208,0)
N VST S VST=$$GET1^DIQ(123,+PKGIFN,"16:.03","I")
"RTN","VPREVNT",209,0)
; delete first if resulted (adding encounter info)
"RTN","VPREVNT",210,0)
I ORDCNTRL="RE",VST D POST^VPRHS(DFN,"Referral",+PKGIFN_";123","@")
"RTN","VPREVNT",211,0)
D POST^VPRHS(DFN,"Referral",+PKGIFN_";123",,VST)
"RTN","VPREVNT",212,0)
; update CP in Procedures?
"RTN","VPREVNT",213,0)
I ORDCNTRL="RE",$$GET1^DIQ(123,+PKGIFN,1.01,"I") D ;CP
"RTN","VPREVNT",214,0)
. N VPRC,ID D FIND^DIC(702,,"@","Q",+PKGIFN,,"ACON",,,"VPRC")
"RTN","VPREVNT",215,0)
. S I=0 F S I=$O(VPRC("DILIST",2,I)) Q:I<1 D
"RTN","VPREVNT",216,0)
.. S ID=+$G(VPRC("DILIST",2,I))
"RTN","VPREVNT",217,0)
.. D POST^VPRHS(DFN,"Procedure",ID_";702",,VST)
"RTN","VPREVNT",218,0)
Q
"RTN","VPREVNT",219,0)
;
"RTN","VPREVNT",220,0)
RAD ; -- Radiology documents
"RTN","VPREVNT",221,0)
N IDT,RPT,I,X,VST,STS,ACT
"RTN","VPREVNT",222,0)
S IDT=+$O(^RADPT("AO",+PKGIFN,DFN,0)),I=0
"RTN","VPREVNT",223,0)
; find report(s) for order
"RTN","VPREVNT",224,0)
F S I=$O(^RADPT("AO",+PKGIFN,DFN,IDT,I)) Q:I<1 D
"RTN","VPREVNT",225,0)
. S X=+$P($G(^RADPT(DFN,"DT",IDT,"P",I,0)),U,17),VST=$P($G(^(0)),U,27)
"RTN","VPREVNT",226,0)
. Q:'X S STS=$$GET1^DIQ(74,X_",",5,"I"),ACT=""
"RTN","VPREVNT",227,0)
. Q:STS'="V"&(STS'="EF")&(STS'="X") I STS="X" S ACT="@"
"RTN","VPREVNT",228,0)
. S:VST VST(X)=VST S:'$D(RPT(X)) RPT(X)=IDT_"-"_I
"RTN","VPREVNT",229,0)
; update Document container
"RTN","VPREVNT",230,0)
S X=0 F S X=$O(RPT(X)) Q:X<1 D POST^VPRHS(DFN,"Document",X_"~"_RPT(X)_";74",ACT,$G(VST(X)))
"RTN","VPREVNT",231,0)
Q
"RTN","VPREVNT",232,0)
;
"RTN","VPREVNT",233,0)
LRAP(MSG) ; -- LR7O AP EVSEND OR protocol listener
"RTN","VPREVNT",234,0)
N VPRMSG,MSH,DFN,ORC
"RTN","VPREVNT",235,0)
S VPRMSG=$S($L($G(MSG)):MSG,1:"MSG") Q:'$O(@VPRMSG@(0))
"RTN","VPREVNT",236,0)
S MSH=0 F S MSH=$O(@VPRMSG@(MSH)) Q:MSH'>0 Q:$E(@VPRMSG@(MSH),1,3)="MSH"
"RTN","VPREVNT",237,0)
Q:'MSH Q:'$L($G(@VPRMSG@(MSH)))
"RTN","VPREVNT",238,0)
S DFN=$$PID Q:DFN<1
"RTN","VPREVNT",239,0)
S ORC=MSH F S ORC=$O(@VPRMSG@(+ORC)) Q:ORC'>0 I $E($G(@VPRMSG@(ORC)),1,3)="ORC" D
"RTN","VPREVNT",240,0)
. N ORDCNTRL,PKGIFN
"RTN","VPREVNT",241,0)
. S ORC=ORC_U_@VPRMSG@(ORC),ORDCNTRL=$TR($P(ORC,"|",2),"@","P")
"RTN","VPREVNT",242,0)
. Q:ORDCNTRL'="RE" S PKGIFN=$P($P(ORC,"|",4),U)
"RTN","VPREVNT",243,0)
. D LRD
"RTN","VPREVNT",244,0)
Q
"RTN","VPREVNT",245,0)
;
"RTN","VPREVNT",246,0)
LRD ; -- AP/MI/BB documents [from XQOR, LRAP: expects PKGIFN]
"RTN","VPREVNT",247,0)
N SUB,IDT,LRDFN,X
"RTN","VPREVNT",248,0)
S SUB=$P($G(PKGIFN),";",4),IDT=$P($G(PKGIFN),";",5)
"RTN","VPREVNT",249,0)
Q:'IDT Q:SUB="" Q:SUB="CH"
"RTN","VPREVNT",250,0)
S LRDFN=+$G(^DPT(DFN,"LR"))
"RTN","VPREVNT",251,0)
I SUB'="MI",SUB'="BB" Q:$O(^LR(LRDFN,SUB,IDT,.05,0)) ;report in TIU
"RTN","VPREVNT",252,0)
Q:'$P($G(^LR(LRDFN,SUB,IDT,0)),U,3) ;not complete
"RTN","VPREVNT",253,0)
S X=IDT_","_LRDFN_"~"_SUB_";"_$S(SUB="MI":63.05,SUB="BB":63.01,1:63.08)
"RTN","VPREVNT",254,0)
D POST^VPRHS(DFN,"Document",X)
"RTN","VPREVNT",255,0)
Q
"RTN","VPREVNT",256,0)
;
"RTN","VPREVNT",257,0)
PID() ; -- Returns patient from PID segment in current msg
"RTN","VPREVNT",258,0)
N I,SEG,Y S I=MSH
"RTN","VPREVNT",259,0)
F S I=$O(@VPRMSG@(I)) Q:I'>0 S SEG=$E($G(@VPRMSG@(I)),1,3) Q:SEG="ORC" I SEG="PID" D Q
"RTN","VPREVNT",260,0)
. S Y=+$P(@VPRMSG@(I),"|",4)
"RTN","VPREVNT",261,0)
.;I '$D(^DPT(Y,0)) S:$L($P(@VPRMSG@(I),"|",5)) Y=+$P(@VPRMSG@(I),"|",5) ;alt ID for Lab
"RTN","VPREVNT",262,0)
Q Y
"RTN","VPREVNT",263,0)
;
"RTN","VPREVNT",264,0)
PSB ; -- VPR PSB EVENTS protocol listener (BCMA)
"RTN","VPREVNT",265,0)
N IEN,DFN,ORPK,TYPE,ORIFN
"RTN","VPREVNT",266,0)
S IEN=$S($P($G(PSBIEN),",",2)'="":+$P(PSBIEN,",",2),$G(PSBIEN)="+1":+$G(PSBIEN(1)),1:+$G(PSBIEN))
"RTN","VPREVNT",267,0)
S DFN=+$G(^PSB(53.79,IEN,0)),ORPK=$P($G(^(.1)),U)
"RTN","VPREVNT",268,0)
Q:DFN<1 Q:ORPK<1 S TYPE=$S(ORPK["V":"IV",ORPK["U":5,1:"") Q:TYPE=""
"RTN","VPREVNT",269,0)
S ORIFN=+$P($G(^PS(55,DFN,TYPE,+ORPK,0)),U,21)
"RTN","VPREVNT",270,0)
D:ORIFN POST^VPRHS(DFN,"Medication",ORIFN_";100")
"RTN","VPREVNT",271,0)
Q
"RTN","VPREVNT",272,0)
;
"RTN","VPREVNT",273,0)
GMRA(ACT) ; -- GMRA SIGN-OFF ON DATA protocol listener
"RTN","VPREVNT",274,0)
; also GMRA ENTERED IN ERROR [ACT=@]
"RTN","VPREVNT",275,0)
N DFN,IEN
"RTN","VPREVNT",276,0)
S DFN=+$G(GMRAPA(0)),IEN=+$G(GMRAPA)
"RTN","VPREVNT",277,0)
D POST^VPRHS(DFN,"Allergy",IEN_";120.8") ;,$G(ACT))
"RTN","VPREVNT",278,0)
Q
"RTN","VPREVNT",279,0)
;
"RTN","VPREVNT",280,0)
GMRASMT(DFN) ; -- GMRAHDR Allergy Assessment listener
"RTN","VPREVNT",281,0)
D POST^VPRHS(DFN,"Allergy")
"RTN","VPREVNT",282,0)
Q
"RTN","VPREVNT",283,0)
;
"RTN","VPREVNT",284,0)
GMPL(DFN,IEN) ; -- GMPL EVENT protocol listener
"RTN","VPREVNT",285,0)
S DFN=+$G(DFN),IEN=+$G(IEN)
"RTN","VPREVNT",286,0)
N ACT S ACT=$S($P($G(^AUPNPROB(IEN,1)),U,2)="H":"@",1:"")
"RTN","VPREVNT",287,0)
D POST^VPRHS(DFN,"Problem",IEN_";9000011",ACT)
"RTN","VPREVNT",288,0)
Q
"RTN","VPREVNT",289,0)
;
"RTN","VPREVNT",290,0)
GMRV(DFN,IEN,ERR) ; -- Vital Measurement file #120.5 AVPR index
"RTN","VPREVNT",291,0)
S DFN=+$G(DFN),IEN=+$G(IEN)
"RTN","VPREVNT",292,0)
N ACT S ACT=$S($G(ERR):"@",1:"")
"RTN","VPREVNT",293,0)
D POST^VPRHS(DFN,"Observation",IEN_";120.5",ACT)
"RTN","VPREVNT",294,0)
Q
"RTN","VPREVNT",295,0)
;
"RTN","VPREVNT",296,0)
MDC(OBS) ; -- MDC OBSERVATION UPDATE protocol listener
"RTN","VPREVNT",297,0)
N DFN,ID,ACT
"RTN","VPREVNT",298,0)
S DFN=+$G(OBS("PATIENT_ID","I")) Q:DFN<1
"RTN","VPREVNT",299,0)
S ID=$G(OBS("OBS_ID","I")) Q:'$L(ID)
"RTN","VPREVNT",300,0)
S ACT=$S('$G(OBS("STATUS","I")):"@",1:"")
"RTN","VPREVNT",301,0)
D POST^VPRHS(DFN,"Observation",ID_";704.117",ACT)
"RTN","VPREVNT",302,0)
;I $G(OBS("DOMAIN","VITALS")) D POST^VPRHS(DFN,"Observation",ID,ACT)
"RTN","VPREVNT",303,0)
Q
"RTN","VPREVNT",304,0)
;
"RTN","VPREVNT",305,0)
CP(DFN,ID,ACT) ; -- CP Transaction file #702 AVPR index (via VPRPROC)
"RTN","VPREVNT",306,0)
S DFN=+$G(DFN),ID=+$G(ID)
"RTN","VPREVNT",307,0)
N VST S VST=$$GET1^DIQ(702,ID,".06:.03","I")
"RTN","VPREVNT",308,0)
D POST^VPRHS(DFN,"Procedure",ID_";702",$G(ACT),VST)
"RTN","VPREVNT",309,0)
Q
"RTN","VPREVNT",310,0)
;
"RTN","VPREVNT",311,0)
TIU(DFN,IEN) ; -- TIU Document file #8925 AVPR index
"RTN","VPREVNT",312,0)
N ACT,STS,DAD,VST,VPRTIU,PROC
"RTN","VPREVNT",313,0)
S DFN=+$G(DFN),IEN=+$G(IEN),ACT=""
"RTN","VPREVNT",314,0)
; $$ISA^TIULX(IEN,$$LR) Q ;update from order?
"RTN","VPREVNT",315,0)
S STS=$G(X(2)),DAD=$G(X(3)) ;X = FM data array for index
"RTN","VPREVNT",316,0)
I STS<7 Q ;not complete
"RTN","VPREVNT",317,0)
I STS=9 Q ;archived, leave in cache
"RTN","VPREVNT",318,0)
S:DAD IEN=DAD I 'DAD D ;if addendum, repull entire note
"RTN","VPREVNT",319,0)
. I STS>13 S ACT="@" ;deleted or retracted
"RTN","VPREVNT",320,0)
. I $G(X2(1))="" S ACT="@" ;deleted (new title = null)
"RTN","VPREVNT",321,0)
D EXTRACT^TIULQ(IEN,"VPRTIU",,".03;1405",,1,"I")
"RTN","VPREVNT",322,0)
S VST=$G(VPRTIU(IEN,.03,"I"))
"RTN","VPREVNT",323,0)
D POST^VPRHS(DFN,"Document",IEN_";8925",ACT,VST)
"RTN","VPREVNT",324,0)
; Update request?
"RTN","VPREVNT",325,0)
S PROC=$G(VPRTIU(IEN,1405,"I")) I PROC D
"RTN","VPREVNT",326,0)
. I PROC["SRF" D POST^VPRHS(DFN,"Procedure",+PROC_";130")
"RTN","VPREVNT",327,0)
. I PROC["GMR" D POST^VPRHS(DFN,"Referral",+PROC_";123")
"RTN","VPREVNT",328,0)
; Also update alert containers if CWD
"RTN","VPREVNT",329,0)
I $$ISA^TIULX(IEN,27) D POST^VPRHS(DFN,"AdvanceDirective") Q ;rebuild
"RTN","VPREVNT",330,0)
I $$ISA^TIULX(IEN,30) D POST^VPRHS(DFN,"Alert",IEN_";8925",ACT) Q
"RTN","VPREVNT",331,0)
I $$ISA^TIULX(IEN,31) D POST^VPRHS(DFN,"Alert",IEN_";8925",ACT) Q
"RTN","VPREVNT",332,0)
Q
"RTN","VPREVNT",333,0)
;
"RTN","VPREVNT",334,0)
LR() ; -- Return ien of Lab class
"RTN","VPREVNT",335,0)
N Y S Y=+$O(^TIU(8925.1,"B","LR LABORATORY REPORTS",0))
"RTN","VPREVNT",336,0)
I Y>0,$S($P($G(^TIU(8925.1,Y,0)),U,4)="CL":0,$P($G(^(0)),U,4)="DC":0,1:1) S Y=0
"RTN","VPREVNT",337,0)
Q Y
"RTN","VPREVNT",338,0)
;
"RTN","VPREVNT",339,0)
IBCN ; -- IBCN NEW INSURANCE EVENTS listener
"RTN","VPREVNT",340,0)
I $G(DFN) D POST^VPRHS(DFN,"MemberEnrollment") ;rebuild container
"RTN","VPREVNT",341,0)
Q
"RTN","VPREVNT",342,0)
;
"RTN","VPREVNT",343,0)
PCMMT ; -- SCMC PATIENT TEAM CHANGES protocol listener
"RTN","VPREVNT",344,0)
I '$G(SCPCTM) Q ;not pc change
"RTN","VPREVNT",345,0)
N DFN S DFN=$S($G(SCPTTMAF):+SCPTTMAF,1:+$G(SCPTTMB4)) Q:'DFN
"RTN","VPREVNT",346,0)
D POST^VPRHS(DFN,"Patient",DFN_";2")
"RTN","VPREVNT",347,0)
Q
"RTN","VPREVNT",348,0)
;
"RTN","VPREVNT",349,0)
PCMMTP ; -- SCMC PATIENT TEAM POSITION CHANGES protocol listener
"RTN","VPREVNT",350,0)
I '$G(SCPCTP) Q ;not pc change
"RTN","VPREVNT",351,0)
N TM,DFN
"RTN","VPREVNT",352,0)
S TM=$S($G(SCPTTPAF):+SCPTTPAF,1:+$G(SCPTTPB4)) Q:'TM
"RTN","VPREVNT",353,0)
S DFN=+$$GET1^DIQ(404.42,TM_",",.01,"I")
"RTN","VPREVNT",354,0)
D POST^VPRHS(DFN,"Patient",DFN_";2")
"RTN","VPREVNT",355,0)
Q
"RTN","VPREVNT",356,0)
;
"RTN","VPREVNT",357,0)
; Deprecated calls:
"RTN","VPREVNT",358,0)
;
"RTN","VPREVNT",359,0)
DOCDEF(IEN) ; -- TIU Document Definition file #8925.1 AVPR index
"RTN","VPREVNT",360,0)
Q
"RTN","VPREVNT",361,0)
;
"RTN","VPREVNT",362,0)
DOCITM(DAD) ; -- TIU Document Def'n Items subfile #8925.14 AVPR1 index
"RTN","VPREVNT",363,0)
Q
"RTN","VPREVNT",364,0)
;
"RTN","VPREVNT",365,0)
USR(IEN) ; -- USR Authorization/Subscription file #8930.1 AVPR index
"RTN","VPREVNT",366,0)
Q
"RTN","VPREVNT",367,0)
;
"RTN","VPREVNT",368,0)
XU(IEN,ACT) ; -- XU USER ADD/CHANGE/TERMINATE option listener
"RTN","VPREVNT",369,0)
Q
"RTN","VPRSDA")
0^2^B206628559^B238403489
"RTN","VPRSDA",1,0)
VPRSDA ;SLC/MKB -- SDA utilities ;10/25/18 15:29
"RTN","VPRSDA",2,0)
;;1.0;VIRTUAL PATIENT RECORD;**8,10,14**;Sep 01, 2011;Build 14
"RTN","VPRSDA",3,0)
;;Per VHA Directive 6402, this routine should not be modified.
"RTN","VPRSDA",4,0)
;
"RTN","VPRSDA",5,0)
; External References DBIA#
"RTN","VPRSDA",6,0)
; ------------------- -----
"RTN","VPRSDA",7,0)
; ^AUPNPROB 5703
"RTN","VPRSDA",8,0)
; ^AUPNVSIT 2028
"RTN","VPRSDA",9,0)
; ^DGPM 1865
"RTN","VPRSDA",10,0)
; ^DIC(42 10039
"RTN","VPRSDA",11,0)
; ^DPT 10035
"RTN","VPRSDA",12,0)
; ^LR 525
"RTN","VPRSDA",13,0)
; ^OR(100 5771
"RTN","VPRSDA",14,0)
; ^ORD(100.98 6982
"RTN","VPRSDA",15,0)
; ^SC 10040
"RTN","VPRSDA",16,0)
; ^SCE("AVSIT" 2045
"RTN","VPRSDA",17,0)
; ^SRF 5675
"RTN","VPRSDA",18,0)
; ^TIU(8925.1 5677
"RTN","VPRSDA",19,0)
; %DT 10003
"RTN","VPRSDA",20,0)
; DILFD 2055
"RTN","VPRSDA",21,0)
; DIQ 2056
"RTN","VPRSDA",22,0)
; ETSLNC 6731
"RTN","VPRSDA",23,0)
; ETSRXN 6758
"RTN","VPRSDA",24,0)
; GMRCGUIB 2980
"RTN","VPRSDA",25,0)
; GMRVUT0, ^UTILITY($J 1446
"RTN","VPRSDA",26,0)
; GMVGETVT 5047
"RTN","VPRSDA",27,0)
; GMVUTL 5046
"RTN","VPRSDA",28,0)
; ICDEX 5747
"RTN","VPRSDA",29,0)
; LEXTRAN 4912
"RTN","VPRSDA",30,0)
; PXAPI, ^TMP("PXKENC",$J 1894
"RTN","VPRSDA",31,0)
; RMIMRP 4745
"RTN","VPRSDA",32,0)
; SCAPMC 1916
"RTN","VPRSDA",33,0)
; SDAMA301, ^TMP($J 4433
"RTN","VPRSDA",34,0)
; SDOE 2546
"RTN","VPRSDA",35,0)
; SDUTL3 1252
"RTN","VPRSDA",36,0)
; TIULQ 2693
"RTN","VPRSDA",37,0)
; VADPT 10061
"RTN","VPRSDA",38,0)
; XLFNAME 3065
"RTN","VPRSDA",39,0)
;
"RTN","VPRSDA",40,0)
INTDATE(X) ; -- Return internal form of date X
"RTN","VPRSDA",41,0)
N %DT,Y
"RTN","VPRSDA",42,0)
S %DT="TSX" D ^%DT
"RTN","VPRSDA",43,0)
Q Y
"RTN","VPRSDA",44,0)
;
"RTN","VPRSDA",45,0)
DATE(X,DTO) ; -- return FM date X as SDA date
"RTN","VPRSDA",46,0)
N D,T,Y
"RTN","VPRSDA",47,0)
S X=$G(X) I X'?7N.1".".7N Q ""
"RTN","VPRSDA",48,0)
; convert to SDA format
"RTN","VPRSDA",49,0)
S X=$$IMPREC(X),D=$P(X,"."),T=$P(X,".",2)
"RTN","VPRSDA",50,0)
S Y=(1700+$E(D,1,3))_"-"_$E(D,4,5)_"-"_$E(D,6,7)
"RTN","VPRSDA",51,0)
I $G(DTO) Q Y ;date only
"RTN","VPRSDA",52,0)
; validate T = time
"RTN","VPRSDA",53,0)
I T=24 S T=235959 ;for SDA
"RTN","VPRSDA",54,0)
S:$L(T)<6 T=$E((T_"000000"),1,6) ;pad the time to 6 digits
"RTN","VPRSDA",55,0)
I $E(T,1,2)>23 S T="000000" ;invalid hours >> remove time
"RTN","VPRSDA",56,0)
I $E(T,3,4)>59 S $E(T,3,6)="0000" ;strip invalid minutes/seconds
"RTN","VPRSDA",57,0)
I $E(T,5,6)>59 S $E(T,5,6)="00" ;strip invalid seconds
"RTN","VPRSDA",58,0)
S Y=Y_"T"_$E(T,1,2)_":"_$E(T,3,4)_":"_$E(T,5,6)
"RTN","VPRSDA",59,0)
; time zone?
"RTN","VPRSDA",60,0)
Q Y
"RTN","VPRSDA",61,0)
;
"RTN","VPRSDA",62,0)
IMPREC(X) ; -- if X is imprecise, make actual date
"RTN","VPRSDA",63,0)
N Y S Y=$E(X,1,3)
"RTN","VPRSDA",64,0)
S Y=Y_$S($E(X,4,5)="00":"01",1:$E(X,4,5))
"RTN","VPRSDA",65,0)
S Y=Y_$S($E(X,6,7)="00":"01",1:$E(X,6,7))
"RTN","VPRSDA",66,0)
I X["." S Y=Y_"."_$P(X,".",2)
"RTN","VPRSDA",67,0)
Q Y
"RTN","VPRSDA",68,0)
;
"RTN","VPRSDA",69,0)
NAMECOMP(NAME) ; -- return name as string of component pieces
"RTN","VPRSDA",70,0)
; NAME -> FAMILY^GIVEN^MIDDLE^SUFFIX
"RTN","VPRSDA",71,0)
D NAMECOMP^XLFNAME(.NAME)
"RTN","VPRSDA",72,0)
N I,Y S Y=$G(NAME("FAMILY"))
"RTN","VPRSDA",73,0)
F I="GIVEN","MIDDLE","SUFFIX" S Y=Y_U_$G(NAME(I))
"RTN","VPRSDA",74,0)
Q Y
"RTN","VPRSDA",75,0)
;
"RTN","VPRSDA",76,0)
WP(ORIFN,ID) ; -- return a WP value from an order response as a string
"RTN","VPRSDA",77,0)
N DA,I,X,Y S Y=""
"RTN","VPRSDA",78,0)
S DA=+$O(^OR(100,+$G(ORIFN),4.5,"ID",ID,0))
"RTN","VPRSDA",79,0)
S I=0 F S I=$O(^OR(100,+$G(ORIFN),4.5,DA,2,I)) Q:'I S X=$G(^(I,0)) D
"RTN","VPRSDA",80,0)
. I '$L(Y) Q:(X="")!(X?1." ") S Y=X Q
"RTN","VPRSDA",81,0)
. I $E(X)=" " S Y=Y_$C(13,10)_X Q
"RTN","VPRSDA",82,0)
. S Y=Y_$S($E(Y,$L(Y))=" ":"",1:" ")_X
"RTN","VPRSDA",83,0)
Q Y
"RTN","VPRSDA",84,0)
;
"RTN","VPRSDA",85,0)
CODED ; -- ck Code Table ID for internal^external format
"RTN","VPRSDA",86,0)
Q:$G(ID)="" Q:$L(ID,"^")>1 ;ok
"RTN","VPRSDA",87,0)
N X,NM S NM=ID
"RTN","VPRSDA",88,0)
I $G(FILE),$G(FIELD) D
"RTN","VPRSDA",89,0)
. S X=$$EXTERNAL^DILFD(FILE,FIELD,,ID)
"RTN","VPRSDA",90,0)
. S:X'="" NM=X
"RTN","VPRSDA",91,0)
S ID=ID_U_NM
"RTN","VPRSDA",92,0)
Q
"RTN","VPRSDA",93,0)
;
"RTN","VPRSDA",94,0)
CODE(IEN,FILE,CSYS) ; -- find CSYS code for IEN in FILE
"RTN","VPRSDA",95,0)
; CSYS can be string of abbreviations to look for, in order
"RTN","VPRSDA",96,0)
N FLD,VPRC,SFN,S,SYS,NAMES,IENS,SFN1,I,X,Y S Y=""
"RTN","VPRSDA",97,0)
S FLD=$$FLDNUM^DILFD(FILE,"CODING SYSTEM") Q:'FLD ""
"RTN","VPRSDA",98,0)
D GETS^DIQ(FILE,IEN_",",FLD_"*","NR","VPRC")
"RTN","VPRSDA",99,0)
S SFN=+$O(VPRC(0)) Q:'SFN "" ;Sub-file# = Coding System multiple
"RTN","VPRSDA",100,0)
F S=1:1 S SYS=$P(CSYS,U,S) Q:SYS="" D Q:$L(Y)
"RTN","VPRSDA",101,0)
. S NAMES=$S(SYS="RXN":"RxNorm^RXNORM",SYS="NDF":"NDF-RT^NDFRT^NDF",SYS="SCT":"SNOMED CT^SNOMED-CT^SCT",SYS="LNC":"LOINC^LNC",SYS="UNI":"UNII^UNI",1:SYS)
"RTN","VPRSDA",102,0)
. S IENS="" F S IENS=$O(VPRC(SFN,IENS)) Q:IENS="" D Q:$L(Y)
"RTN","VPRSDA",103,0)
.. S X=$G(VPRC(SFN,IENS,"CODING SYSTEM")) Q:X="" Q:NAMES'[X
"RTN","VPRSDA",104,0)
.. S SFN1=$O(VPRC(SFN)),I=$O(VPRC(SFN1,""))
"RTN","VPRSDA",105,0)
.. S:I Y=$G(VPRC(SFN1,I,"CODE")) ;first code for system
"RTN","VPRSDA",106,0)
. I $L(Y) S Y=Y_U_$$DESC(Y)_U_$P(NAMES,U)
"RTN","VPRSDA",107,0)
Q Y
"RTN","VPRSDA",108,0)
;
"RTN","VPRSDA",109,0)
DESC(CODE) ; -- called from CODE, to return coding system text
"RTN","VPRSDA",110,0)
; Expects all the variables used in CODE()
"RTN","VPRSDA",111,0)
N X,Y,LEX S Y=""
"RTN","VPRSDA",112,0)
I SYS="SCT" D
"RTN","VPRSDA",113,0)
. S X=$$CODE^LEXTRAN(CODE,"SCT",DT)
"RTN","VPRSDA",114,0)
. S:X>0 Y=$G(LEX("P")) ;preferred term
"RTN","VPRSDA",115,0)
I SYS="RXN",$L($T(CSDATA^ETSRXN)) D
"RTN","VPRSDA",116,0)
. S X=$$CSDATA^ETSRXN(CODE,"RXN",DT,.LEX)
"RTN","VPRSDA",117,0)
. S:X>0 Y=$P($G(LEX("LEX",1)),U,2)
"RTN","VPRSDA",118,0)
I SYS="LNC",$L($T(GETNAME^ETSLNC)) D
"RTN","VPRSDA",119,0)
. S X=$$GETNAME^ETSLNC(CODE,"C",.LEX)
"RTN","VPRSDA",120,0)
. S:X>0 Y=$G(LEX("LONGNAME"))
"RTN","VPRSDA",121,0)
I '$L($G(Y)) S Y=$$GET1^DIQ(FILE,IEN_",",.01)
"RTN","VPRSDA",122,0)
Q Y
"RTN","VPRSDA",123,0)
;
"RTN","VPRSDA",124,0)
CONSNAME(IEN) ; -- return ordered item name using fields
"RTN","VPRSDA",125,0)
; Request Type (#13), To Service (#1) & Procedure/Request Type (#4)
"RTN","VPRSDA",126,0)
N VPRX,Y S VPRX=$G(VPRCONS(0))
"RTN","VPRSDA",127,0)
I $P(VPRX,U,8)?1.N1";ORD(101," D ;resolve v-ptr
"RTN","VPRSDA",128,0)
. S Y=$P(VPRX,U,8)
"RTN","VPRSDA",129,0)
. S Y=$$GET1^DIQ(101,+Y,.01),$P(VPRX,U,8)=Y
"RTN","VPRSDA",130,0)
. S $P(VPRCONS(0),U,8)=Y
"RTN","VPRSDA",131,0)
I $P(VPRX,U,17)="P" S Y=$P(VPRX,U,8)
"RTN","VPRSDA",132,0)
E S Y=$P(VPRX,U,5)_" Consult"
"RTN","VPRSDA",133,0)
Q Y
"RTN","VPRSDA",134,0)
;
"RTN","VPRSDA",135,0)
PROVDX(IEN) ; -- return full Consult ProvDx string, or null
"RTN","VPRSDA",136,0)
N X,Y,VPRDX S Y=""
"RTN","VPRSDA",137,0)
S DATA=$G(VPRCONS(30)),X=$G(VPRCONS(30.1))
"RTN","VPRSDA",138,0)
I $L(X,U)<3 S DDEOUT=1 Q ""
"RTN","VPRSDA",139,0)
I $E(X)=U S DDEOUT=1 Q ""
"RTN","VPRSDA",140,0)
S:$P(X,U,2)="" $P(X,U,2)=DT
"RTN","VPRSDA",141,0)
S:$P(X,U,3)="" $P(X,U,3)="ICD"
"RTN","VPRSDA",142,0)
I $$ICDD^ICDEX($P(X,U),.VPRDX,$P(X,U,2),$P(X,U,3))>0 D
"RTN","VPRSDA",143,0)
. S Y=$P(X,U)_U_VPRDX(1)_U_$$SNAM^ICDEX($$SYS^ICDEX($P(X,U,3)))
"RTN","VPRSDA",144,0)
Q Y
"RTN","VPRSDA",145,0)
;
"RTN","VPRSDA",146,0)
PROBCMT(IEN) ; -- return list of comments in
"RTN","VPRSDA",147,0)
; DLIST(#) = id ^ date ^ user ^ type ^ facility ^ text
"RTN","VPRSDA",148,0)
N I,J,N,X,FAC S N=0
"RTN","VPRSDA",149,0)
S I=0 F S I=$O(^AUPNPROB(IEN,11,I)) Q:I<1 S FAC=$G(^(I,0)) D
"RTN","VPRSDA",150,0)
. S J=0 F S J=$O(^AUPNPROB(IEN,11,I,11,J)) Q:J<1 S X=$G(^(J,0)) D
"RTN","VPRSDA",151,0)
.. Q:$P(X,U,4)'="A"
"RTN","VPRSDA",152,0)
.. S Y=$P(X,U,5)_U_$P(X,U,6)_U_U_FAC_U_$P(X,U,3)
"RTN","VPRSDA",153,0)
.. S N=N+1,DLIST(N)=J_","_I_","_IEN_U_Y
"RTN","VPRSDA",154,0)
Q
"RTN","VPRSDA",155,0)
;
"RTN","VPRSDA",156,0)
SCTTEXT(CODE,IEN) ; -- get Preferred Text for SCT Code
"RTN","VPRSDA",157,0)
N Y,GMPDT,LEX,LEXY S Y=""
"RTN","VPRSDA",158,0)
S GMPDT=$P($G(^AUPNPROB(IEN,0)),U,8) S:'GMPDT GMPDT=DT
"RTN","VPRSDA",159,0)
S LEXY=$$CODE^LEXTRAN(CODE,"SCT",GMPDT)
"RTN","VPRSDA",160,0)
S:LEXY>0 Y=$G(LEX("P")) ;preferred term
"RTN","VPRSDA",161,0)
Q Y
"RTN","VPRSDA",162,0)
;
"RTN","VPRSDA",163,0)
POVNARR() ; -- build Original Text for POV
"RTN","VPRSDA",164,0)
N NARR,MOD,Y S Y=""
"RTN","VPRSDA",165,0)
S NARR=$G(VPRPOV("PROVIDER NARRATIVE")),MOD=$G(VPRPOV("MODIFIER"))
"RTN","VPRSDA",166,0)
S:NARR Y=$$GET1^DIQ(9999999.27,NARR_",",.01)
"RTN","VPRSDA",167,0)
I $L(MOD),$L(Y) S Y=$$EXTERNAL^DILFD(9000010.07,.06,,MOD)_" "_Y
"RTN","VPRSDA",168,0)
Q Y
"RTN","VPRSDA",169,0)
;
"RTN","VPRSDA",170,0)
AD(ID) ; -- get info for one Adv Directive
"RTN","VPRSDA",171,0)
K VPRTIU S ID=$G(ID)
"RTN","VPRSDA",172,0)
D EXTRACT^TIULQ(+ID,"VPRTIU",,".01:.05;1201;1212;1301;1302",,1,"I")
"RTN","VPRSDA",173,0)
S:'DFN DFN=+$G(VPRTIU(+ID,.02,"I"))
"RTN","VPRSDA",174,0)
I DFN,'$D(^TMP("TIUPPCV",$J)) D ;one, do query
"RTN","VPRSDA",175,0)
. N DLIST,I,X
"RTN","VPRSDA",176,0)
. D ADVDIR^VPRSDAQ
"RTN","VPRSDA",177,0)
. S I=0 F S I=$O(DLIST(I)) Q:I<1 S X=$G(DLIST(I)) I +X=+ID S ID=X Q
"RTN","VPRSDA",178,0)
S VPRADV=ID,ID=+ID
"RTN","VPRSDA",179,0)
Q
"RTN","VPRSDA",180,0)
;
"RTN","VPRSDA",181,0)
TIULNC(IEN) ; -- convert 8925.1 IEN to 8926.1 IEN
"RTN","VPRSDA",182,0)
; Returns DATA = code ^ [description] ^ system
"RTN","VPRSDA",183,0)
; TIUTTL = local title name
"RTN","VPRSDA",184,0)
N TIUNATL S IEN=+$G(IEN),DATA=""
"RTN","VPRSDA",185,0)
; VPRNATL set in VPR DOCUMENT EXTENSION
"RTN","VPRSDA",186,0)
S TIUNATL=$S($G(VPRNATL):VPRNATL,1:+$G(^TIU(8925.1,IEN,15)))
"RTN","VPRSDA",187,0)
S TIUTTL=$P($G(^TIU(8925.1,IEN,0)),U)
"RTN","VPRSDA",188,0)
; if no national mapping, return local title
"RTN","VPRSDA",189,0)
I 'TIUNATL D Q
"RTN","VPRSDA",190,0)
. I $P(TIUTTL," ")="LR" D Q:$L(DATA)
"RTN","VPRSDA",191,0)
.. N TTL S TTL=$E($P(TIUTTL," ",2),1,2)
"RTN","VPRSDA",192,0)
.. S DATA=$S(TTL="AU":"18743-5^AUTOPSY REPORT",TTL="CY":"26438-2^CYTOLOGY STUDIES",TTL="EL":"50668-3^MICROSCOPY STUDIES",TTL="SU":"27898-6^PATHOLOGY STUDIES",1:"")
"RTN","VPRSDA",193,0)
.. I $L(DATA) S DATA=DATA_"^LOINC" Q
"RTN","VPRSDA",194,0)
. S DATA=IEN_U_TIUTTL_"^VA8925.1"
"RTN","VPRSDA",195,0)
; get LOINC or VUID
"RTN","VPRSDA",196,0)
S IEN=TIUNATL,DATA=$$CODE(IEN,8926.1,"LNC")
"RTN","VPRSDA",197,0)
I DATA="" S DATA=$$VUID^VPRD(IEN,8926.1) S:DATA DATA=DATA_"^^VHAT"
"RTN","VPRSDA",198,0)
; else default = 8926.1 ien as per usual
"RTN","VPRSDA",199,0)
Q
"RTN","VPRSDA",200,0)
;
"RTN","VPRSDA",201,0)
TIUTYPE(IEN) ; -- return code^name for document type/class
"RTN","VPRSDA",202,0)
N X,Y S Y=""
"RTN","VPRSDA",203,0)
S X=$$CATG^VPRDTIU(IEN) I X="PN" D
"RTN","VPRSDA",204,0)
. N NATL,SVC
"RTN","VPRSDA",205,0)
. S NATL=+$G(^TIU(8925.1,+$G(IEN),15)) Q:'NATL
"RTN","VPRSDA",206,0)
. S SVC=$$GET1^DIQ(8926.1,NATL_",",.07) Q:SVC=""
"RTN","VPRSDA",207,0)
. I SVC["HISTORY & PHYSICAL"!(SVC["HISTORY AND PHYSICAL") S Y="HP^History & Physical" Q
"RTN","VPRSDA",208,0)
. I SVC["COMPENSATION & PENSION" S Y="CM^Compensation & Pension" Q
"RTN","VPRSDA",209,0)
S:'$L(Y) Y=X_U_$$TYPE^VPRDJ08(X)
"RTN","VPRSDA",210,0)
Q Y
"RTN","VPRSDA",211,0)
;
"RTN","VPRSDA",212,0)
TIUSIG() ; -- return date of authorization
"RTN","VPRSDA",213,0)
N Y S Y=""
"RTN","VPRSDA",214,0)
I $G(VPRTIU(DIEN,1501,"I")) S Y=VPRTIU(DIEN,1501,"I") ;Signed
"RTN","VPRSDA",215,0)
I $G(VPRTIU(DIEN,1507,"I")) S Y=VPRTIU(DIEN,1507,"I") ;Co-signed
"RTN","VPRSDA",216,0)
I $G(VPRTIU(DIEN,1606,"I")) S Y=VPRTIU(DIEN,1606,"I") ;Admin Closure
"RTN","VPRSDA",217,0)
Q Y
"RTN","VPRSDA",218,0)
;
"RTN","VPRSDA",219,0)
TIUCOMP(IEN,STS) ; -- return 1 or 0, if document is complete
"RTN","VPRSDA",220,0)
S IEN=+$G(IEN) I IEN<1 Q ""
"RTN","VPRSDA",221,0)
S STS=+$G(STS) I STS<1 D
"RTN","VPRSDA",222,0)
. N VPRTIU D EXTRACT^TIULQ(IEN,"VPRTIU",,.05,,,"I")
"RTN","VPRSDA",223,0)
. S STS=+$G(VPRTIU(IEN,.05,"I"))
"RTN","VPRSDA",224,0)
N Y S Y=$S(STS=7:1,STS=8:1,1:0)
"RTN","VPRSDA",225,0)
Q Y
"RTN","VPRSDA",226,0)
;
"RTN","VPRSDA",227,0)
LRTIU(IDT,SUB) ; -- return TIU ien of lab report
"RTN","VPRSDA",228,0)
N I,IEN,X,Y S IDT=$G(IDT),SUB=$G(SUB)
"RTN","VPRSDA",229,0)
S Y=IDT_";"_SUB
"RTN","VPRSDA",230,0)
S I=0 F S I=$O(^LR(LRDFN,SUB,IDT,.05,I)) Q:I<1 S IEN=+$P($G(^(I,0)),U,2),X=+$$GET1^DIQ(8925,IEN,.05,"I") I (X=7)!(X=8) S Y=IEN_";TIU" Q
"RTN","VPRSDA",231,0)
Q Y
"RTN","VPRSDA",232,0)
;
"RTN","VPRSDA",233,0)
ORDG(DG) ; -- return ien^name^VA100.98 for a DG abbreviation
"RTN","VPRSDA",234,0)
N X,Y S X=$O(^ORD(100.98,"B",DG,0)),Y=""
"RTN","VPRSDA",235,0)
S:X Y=X_U_$P(^ORD(100.98,X,0),U)_"^VA100.98"
"RTN","VPRSDA",236,0)
Q Y
"RTN","VPRSDA",237,0)
;
"RTN","VPRSDA",238,0)
WARDFAC(IEN) ; -- return #4 ien for a Ward Location
"RTN","VPRSDA",239,0)
N HLOC,Y
"RTN","VPRSDA",240,0)
S HLOC=+$G(^DIC(42,+$G(IEN),44)),Y=""
"RTN","VPRSDA",241,0)
S:HLOC Y=$P($G(^SC(HLOC,0)),U,4)
"RTN","VPRSDA",242,0)
Q Y
"RTN","VPRSDA",243,0)
;
"RTN","VPRSDA",244,0)
VST(VISIT) ; -- get info for a VISIT in @VPRVST
"RTN","VPRSDA",245,0)
S VISIT=+$G(VISIT) Q:VISIT<1
"RTN","VPRSDA",246,0)
D ENCEVENT^PXAPI(VISIT)
"RTN","VPRSDA",247,0)
S VPRVST=$NA(^TMP("PXKENC",$J,VISIT,"VST",VISIT))
"RTN","VPRSDA",248,0)
Q
"RTN","VPRSDA",249,0)
;
"RTN","VPRSDA",250,0)
VAIP(MVT,DFN) ; -- get admission info & Visit#
"RTN","VPRSDA",251,0)
; Return VAIP(#)= array of movements
"RTN","VPRSDA",252,0)
; VPRVST = Visit#
"RTN","VPRSDA",253,0)
S MVT=$G(MVT),DFN=+$G(DFN)
"RTN","VPRSDA",254,0)
S VPRVST=+$P(MVT,"~",2),MVT=+MVT
"RTN","VPRSDA",255,0)
S:'DFN DFN=+$$GET1^DIQ(405,MVT_",",.03,"I")
"RTN","VPRSDA",256,0)
I 'DFN!'MVT S DDEOUT=1 Q
"RTN","VPRSDA",257,0)
N VAERR,VADMVT K VAIP
"RTN","VPRSDA",258,0)
S:MVT'=+$G(^DPT(DFN,.105)) VAIP("E")=MVT
"RTN","VPRSDA",259,0)
D IN5^VADPT
"RTN","VPRSDA",260,0)
S:'VPRVST VPRVST=$$VNUM(+$G(VAIP(13)))
"RTN","VPRSDA",261,0)
Q
"RTN","VPRSDA",262,0)
;
"RTN","VPRSDA",263,0)
VNUM(ADM) ; -- find Visit# for an admission
"RTN","VPRSDA",264,0)
N VAINDT,X,Y
"RTN","VPRSDA",265,0)
S X=+$G(^DGPM(+$G(ADM),0)),VAINDT=(9999999-$P(X,"."))_"."_$P(X,".",2)
"RTN","VPRSDA",266,0)
S Y=$O(^AUPNVSIT("AAH",DFN,VAINDT,0))
"RTN","VPRSDA",267,0)
Q Y
"RTN","VPRSDA",268,0)
;
"RTN","VPRSDA",269,0)
SPEC ; -- build DLIST(#)=45.7 iens using VAIP array
"RTN","VPRSDA",270,0)
N I,X,SPEC
"RTN","VPRSDA",271,0)
F I=13:1:17 S X=$G(VAIP(I,6)) S:X SPEC(+X)=""
"RTN","VPRSDA",272,0)
S (I,X)=0 F S X=$O(SPEC(X)) Q:X<1 S I=I+1,DLIST(I)=X
"RTN","VPRSDA",273,0)
Q
"RTN","VPRSDA",274,0)
;
"RTN","VPRSDA",275,0)
VSTR() ; -- build Visit string of Type;date.time[;location]
"RTN","VPRSDA",276,0)
N Y S Y=""
"RTN","VPRSDA",277,0)
I $G(VAIP(13)) S Y="H;"_+VAIP(13)
"RTN","VPRSDA",278,0)
E S X=$G(@VPRVST@(0)),Y=$P(X,U,7)_";"_+X_";"_$P(X,U,22)
"RTN","VPRSDA",279,0)
Q Y
"RTN","VPRSDA",280,0)
;
"RTN","VPRSDA",281,0)
VPRV(VISIT) ; -- build DLIST(n)=#200 ien for V Providers
"RTN","VPRSDA",282,0)
N I,X,R S I=0
"RTN","VPRSDA",283,0)
F S I=$O(^TMP("PXKENC",$J,VISIT,"PRV",I)) Q:I<1 S X=$G(^(I,0)) D
"RTN","VPRSDA",284,0)
. S R=$P(X,U,4)
"RTN","VPRSDA",285,0)
. S DLIST(I)=+X_U_$S(R="P":"PRIMARY",R="S":"SECONDARY",1:"")
"RTN","VPRSDA",286,0)
Q
"RTN","VPRSDA",287,0)
;
"RTN","VPRSDA",288,0)
APPTPRV() ; -- return the default/primary provider for VPRAPPT
"RTN","VPRSDA",289,0)
N Y,I,SDOE,LOC,VPROV S Y=""
"RTN","VPRSDA",290,0)
S SDOE=$P($G(VPRAPPT),U,12) I SDOE D
"RTN","VPRSDA",291,0)
. D GETPRV^SDOE(SDOE,"VPROV") S I=0
"RTN","VPRSDA",292,0)
. F S I=$O(VPROV(I)) Q:I<1 I $P($G(VPROV(I)),U,4)="P" S Y=+VPROV(I) Q
"RTN","VPRSDA",293,0)
. I 'Y S I=$O(VPROV(0)) S:I Y=+VPROV(I) ;first, if no Primary
"RTN","VPRSDA",294,0)
I 'SDOE,+$G(VPRAPPT)>DT D ;future
"RTN","VPRSDA",295,0)
. S LOC=+$P($G(VPRAPPT),U,2),Y=$$GET1^DIQ(44,LOC,16,"I") Q:Y
"RTN","VPRSDA",296,0)
. ;S I=+$O(^SC("ADPR",LOC,0)) I I S Y=+$G(^SC(LOC,"PR",I,0))
"RTN","VPRSDA",297,0)
. D GETS^DIQ(44,LOC,"2600*","I","VPROV")
"RTN","VPRSDA",298,0)
. S I="" F S I=$O(VPROV(44.1,I)) Q:I="" I $G(VPROV(44.1,I,.02,"I"))=1 S Y=$G(VPROV(44.1,I,.01,"I"))
"RTN","VPRSDA",299,0)
Q Y
"RTN","VPRSDA",300,0)
;
"RTN","VPRSDA",301,0)
APPT1(VPRID) ; -- get ^TMP node for single appt, returns VPRAPPT
"RTN","VPRSDA",302,0)
N DFN,VPRDT
"RTN","VPRSDA",303,0)
S DFN=$P(VPRID,",",2),VPRDT=$P(VPRID,",")
"RTN","VPRSDA",304,0)
I '$D(^TMP($J,"SDAMA301",DFN)) D
"RTN","VPRSDA",305,0)
. N VPRX,VPRNUM
"RTN","VPRSDA",306,0)
. S VPRX(1)=VPRDT_";"_VPRDT,VPRX(4)=DFN
"RTN","VPRSDA",307,0)
. S VPRX("FLDS")="1;2;3;10;11;12",VPRX("SORT")="P"
"RTN","VPRSDA",308,0)
. S VPRNUM=$$SDAPI^SDAMA301(.VPRX)
"RTN","VPRSDA",309,0)
S VPRAPPT=$G(^TMP($J,"SDAMA301",DFN,VPRDT))
"RTN","VPRSDA",310,0)
S:VPRAPPT="" VPRAPPT=VPRDT_U_$P($G(^DPT(DFN,"S",VPRDT,0)),U,1,2) ;DDEOUT=1
"RTN","VPRSDA",311,0)
Q
"RTN","VPRSDA",312,0)
;
"RTN","VPRSDA",313,0)
VTO(VISIT) ; -- determine ToTime for a visit based on type
"RTN","VPRSDA",314,0)
N TYPE,INPT,Y S Y=""
"RTN","VPRSDA",315,0)
S TYPE=$P($G(@VPRVST@(0)),U,7),INPT=$P($G(@VPRVST@(150)),U,2)
"RTN","VPRSDA",316,0)
; should not have any inpatient episodes here, handled via DGPM
"RTN","VPRSDA",317,0)
I "H^R"[TYPE,INPT Q Y
"RTN","VPRSDA",318,0)
; look for an appointment check-out time
"RTN","VPRSDA",319,0)
I "A^I^O"[TYPE S Y=$$CKOUT(VISIT) I Y Q Y
"RTN","VPRSDA",320,0)
; check Surgery for Time Out of OR
"RTN","VPRSDA",321,0)
I TYPE="S" D I Y Q Y
"RTN","VPRSDA",322,0)
. N I S I=$O(^SRF("AV",VISIT,0))
"RTN","VPRSDA",323,0)
. S:I Y=$$GET1^DIQ(130,I_",",.232,"I")
"RTN","VPRSDA",324,0)
; otherwise use the Visit Time
"RTN","VPRSDA",325,0)
I "H^R^A^I^O^S"'[TYPE!(+$G(@VPRVST@(0))<DT) S Y=+$G(@VPRVST@(0))
"RTN","VPRSDA",326,0)
Q Y
"RTN","VPRSDA",327,0)
;
"RTN","VPRSDA",328,0)
CKOUT(VISIT) ; -- get Check-out date from Outpt Enc file
"RTN","VPRSDA",329,0)
N X,Y,IEN
"RTN","VPRSDA",330,0)
S IEN=$O(^SCE("AVSIT",VISIT,0)),(X,Y)=""
"RTN","VPRSDA",331,0)
S:IEN X=$$GETOE^SDOE(IEN),Y=$P(X,U,7)
"RTN","VPRSDA",332,0)
Q Y
"RTN","VPRSDA",333,0)
;
"RTN","VPRSDA",334,0)
CP1(IEN) ; -- get MD nodes for procedure
"RTN","VPRSDA",335,0)
; VPRCP = ^TMP("MDHSP",$J,I)
"RTN","VPRSDA",336,0)
; VPRCN = ^GMR(123,consult,0)
"RTN","VPRSDA",337,0)
; VPRTIU(field#,"I") = TIU data field
"RTN","VPRSDA",338,0)
I '$D(^TMP("MDHSP",$J)) D
"RTN","VPRSDA",339,0)
. S:'DFN DFN=+$$GET1^DIQ(702,IEN,.01,"I")
"RTN","VPRSDA",340,0)
. N DLIST D CPROCS^VPRSDAQ
"RTN","VPRSDA",341,0)
S I=+$G(^TMP("MDHSP",$J,"IEN",IEN)),VPRCP=$G(^TMP("MDHSP",$J,I))
"RTN","VPRSDA",342,0)
I VPRCP="" Q ;S DDEOUT=1 Q
"RTN","VPRSDA",343,0)
; undo date formatting
"RTN","VPRSDA",344,0)
N X,Y,%DT,VPRD
"RTN","VPRSDA",345,0)
S X=$P(VPRCP,U,6) I $L(X) S %DT="STX" D ^%DT S:Y>0 $P(VPRCP,U,6)=Y
"RTN","VPRSDA",346,0)
; get supporting data from Consult, TIU note
"RTN","VPRSDA",347,0)
S X=+$P(VPRCP,U,13) I X D K VPRD
"RTN","VPRSDA",348,0)
. D DOCLIST^GMRCGUIB(.VPRD,X) S VPRCN=$G(VPRD(0)) M VPRCN=VPRD(50)
"RTN","VPRSDA",349,0)
S X=+$P(VPRCP,U,14) I X D K VPRD
"RTN","VPRSDA",350,0)
. D EXTRACT^TIULQ(X,"VPRD",,".03;.05;1202;1211;1212",,,"I")
"RTN","VPRSDA",351,0)
. M VPRTIU=VPRD(X)
"RTN","VPRSDA",352,0)
Q
"RTN","VPRSDA",353,0)
;
"RTN","VPRSDA",354,0)
SRPTS(IEN) ; -- put Op Reports into DLIST(#) = TIU ien
"RTN","VPRSDA",355,0)
S I=0 F S I=$O(VPRSR(IEN,I)) Q:I<1 S X=$G(VPRSR(IEN,I)) I X D
"RTN","VPRSDA",356,0)
. ;X = ien ^ $$RESOLVE^TIUSRVLO data string
"RTN","VPRSDA",357,0)
. I $P(X,U,7)'="completed",$P(X,U,7)'="amended" Q
"RTN","VPRSDA",358,0)
. I $P(X,U,2)["Addendum to " Q
"RTN","VPRSDA",359,0)
. S DLIST(I)=+X_";TIU"
"RTN","VPRSDA",360,0)
. ; X["OPERATION REPORT"!(X["PROCEDURE REPORT") S SURG("opReport")=X
"RTN","VPRSDA",361,0)
Q
"RTN","VPRSDA",362,0)
;
"RTN","VPRSDA",363,0)
SRF(IEN) ; -- procedure
"RTN","VPRSDA",364,0)
N X,SROP
"RTN","VPRSDA",365,0)
S X=$P(VPRSR(IEN),U,2)
"RTN","VPRSDA",366,0)
; Use CPT ien if defined
"RTN","VPRSDA",367,0)
S SROP=$$GET1^DIQ(136,IEN_",",.02,"I")
"RTN","VPRSDA",368,0)
S:'SROP SROP=$P($G(^SRF(IEN,"OP")),U,2)
"RTN","VPRSDA",369,0)
I SROP S VALUE=$$CPT^VPRDSR(SROP)_"^CPT-4",DATA=X Q
"RTN","VPRSDA",370,0)
; else use procedure name
"RTN","VPRSDA",371,0)
S VALUE=X_U_X
"RTN","VPRSDA",372,0)
Q
"RTN","VPRSDA",373,0)
;
"RTN","VPRSDA",374,0)
VIT1(IEN) ; -- get info for one Vital measurement, returns VPRGMV=^(0)
"RTN","VPRSDA",375,0)
S IEN=$G(IEN) I IEN="" S DDEOUT=1 Q
"RTN","VPRSDA",376,0)
D GETREC^GMVUTL(.VPRV,IEN,1)
"RTN","VPRSDA",377,0)
S VPRGMV=$G(VPRV(0)) I '$G(VPRV(0)) S DDEOUT=1 Q
"RTN","VPRSDA",378,0)
S VPRTYPE=$$FIELD^GMVGETVT(+$P(VPRGMV,U,3),2)
"RTN","VPRSDA",379,0)
I VPRTYPE="WT" D ;get BMI for weight record
"RTN","VPRSDA",380,0)
. I $G(^TMP("VPRGMV",$J,IEN)) S $P(VPRGMV,U,14)=$P(^(IEN),U,14) Q
"RTN","VPRSDA",381,0)
. ; get BMI from query array if available, else call GMRVUT0
"RTN","VPRSDA",382,0)
. N GMRVSTR,DFN,IDT,BMI
"RTN","VPRSDA",383,0)
. S GMRVSTR=VPRTYPE,GMRVSTR(0)=+VPRGMV_U_+VPRGMV_"^1^1",DFN=+$P(VPRGMV,U,2)
"RTN","VPRSDA",384,0)
. D EN1^GMRVUT0 S IDT=9999999-(+VPRGMV)
"RTN","VPRSDA",385,0)
. S BMI=$P($G(^UTILITY($J,"GMRVD",IDT,VPRTYPE,IEN)),U,14)
"RTN","VPRSDA",386,0)
. S:BMI'="" $P(VPRGMV,U,14)=BMI
"RTN","VPRSDA",387,0)
. K ^UTILITY($J,"GMRVD")
"RTN","VPRSDA",388,0)
S VPRANGE=$$RANGE^VPRDGMV(VPRTYPE)
"RTN","VPRSDA",389,0)
Q
"RTN","VPRSDA",390,0)
;
"RTN","VPRSDA",391,0)
VITQUAL ; -- build DLIST(#)=Qualifiers [code^name]
"RTN","VPRSDA",392,0)
N I,X,QUALS
"RTN","VPRSDA",393,0)
S QUALS=$G(VPRV(5))
"RTN","VPRSDA",394,0)
F I=1:1 S X=$P(QUALS,U,I) Q:X="" S DLIST(I)=X
"RTN","VPRSDA",395,0)
Q
"RTN","VPRSDA",396,0)
;
"RTN","VPRSDA",397,0)
VITCODE(IEN,SFN) ; -- return [first] code for vital type
"RTN","VPRSDA",398,0)
; SubFileNumber = 120.518 for Vital Type
"RTN","VPRSDA",399,0)
; 120.522 for Vital Qualifier
"RTN","VPRSDA",400,0)
N VPRC,IENS,Y
"RTN","VPRSDA",401,0)
D GETS^DIQ(SFN,"1,"_IEN_",","**",,"VPRC")
"RTN","VPRSDA",402,0)
S IENS=$O(VPRC(SFN_1,""))
"RTN","VPRSDA",403,0)
S Y=$S($L(IENS):$G(VPRC(SFN_1,IENS,.01,"I")),1:"")
"RTN","VPRSDA",404,0)
Q Y
"RTN","VPRSDA",405,0)
;
"RTN","VPRSDA",406,0)
FIM1(IEN) ; -- get info for one set of measurements
"RTN","VPRSDA",407,0)
I '$D(VPRSITE) D PRM^RMIMRP(.VPRSITE) I '$O(VPRSITE(1)) S DDEOUT=1 Q
"RTN","VPRSDA",408,0)
D GC^RMIMRP(.VPRM,IEN)
"RTN","VPRSDA",409,0)
; S:'$G(DFN) ??
"RTN","VPRSDA",410,0)
N NOTE S NOTE=+$P($G(VPRM(1)),U,12) K VPRTIU
"RTN","VPRSDA",411,0)
D EXTRACT^TIULQ(NOTE,"VPRTIU",,"1201;1202;1302",,,"I")
"RTN","VPRSDA",412,0)
M VPRM("TIU")=VPRTIU(NOTE)
"RTN","VPRSDA",413,0)
Q
"RTN","VPRSDA",414,0)
;
"RTN","VPRSDA",415,0)
FIMS ; -- get DLIST(#)=name^value of each score
"RTN","VPRSDA",416,0)
; Returns VPRFIMS = Assessment type(s) for ProblemDetail
"RTN","VPRSDA",417,0)
N I,J,N,X,NAMES,SCORES,SUM,TYPE
"RTN","VPRSDA",418,0)
S N=0,VPRFIMS=""
"RTN","VPRSDA",419,0)
S NAMES="Eating^Grooming^Bathing^Dressing - Upper Body^Dressing - Lower Body^Toileting^Bladder Management^Bowel Management^Bed, Chair, Wheelchair^Toilet^Tub, Shower^Walk/Wheelchair^Stairs"
"RTN","VPRSDA",420,0)
S NAMES=NAMES_"^Comprehension^Expression^Social Interaction^Problem Solving^Memory"
"RTN","VPRSDA",421,0)
S NAMES=NAMES_"^walkMode^comprehendMode^expressMode^Z"
"RTN","VPRSDA",422,0)
F I=5:1:9 I VPRM(I)'?1."^" D ;has data
"RTN","VPRSDA",423,0)
. S SCORES=VPRM(I),SUM=$$TOTAL(SCORES) Q:'SUM
"RTN","VPRSDA",424,0)
. S TYPE=$S(I=5:"Admission",I=6:"Discharge",I=7:"Interim",I=8:"Follow up",1:"Goals")
"RTN","VPRSDA",425,0)
. S VPRFIMS=VPRFIMS_$S(VPRFIMS'="":", ",1:"")_TYPE
"RTN","VPRSDA",426,0)
. ; add score set to list
"RTN","VPRSDA",427,0)
. S N=N+1,DLIST(N)="Assessment Type^"_TYPE
"RTN","VPRSDA",428,0)
. F J=1:1:21 S X=$P(SCORES,U,J),N=N+1,DLIST(N)=$P(NAMES,U,J)_U_X
"RTN","VPRSDA",429,0)
. S N=N+1,DLIST(N)="FIM Total^"_SUM
"RTN","VPRSDA",430,0)
S:$L(VPRFIMS) VPRFIMS=VPRFIMS_" Assessment"_$S(VPRFIMS[",":"s",1:"")
"RTN","VPRSDA",431,0)
Q
"RTN","VPRSDA",432,0)
;
"RTN","VPRSDA",433,0)
TOTAL(NODE) ; -- Return total of scores, or "" if incomplete
"RTN","VPRSDA",434,0)
N SUM,I,X
"RTN","VPRSDA",435,0)
S SUM=0 F I=1:1:18 S X=$P(NODE,U,I) S:X SUM=SUM+X I X<1 S SUM="" Q
"RTN","VPRSDA",436,0)
Q SUM
"RTN","VPRSDA",437,0)
;
"RTN","VPRSDA",438,0)
PRF1(ID) ; -- set up one patient record flag assignment
"RTN","VPRSDA",439,0)
; Returns VPRF1("NAME")=VALUE
"RTN","VPRSDA",440,0)
S:'$G(DFN) DFN=+$P(ID,"~",2)
"RTN","VPRSDA",441,0)
I '$G(DFN)!'$G(ID) S DDEOUT=1 Q
"RTN","VPRSDA",442,0)
D:'$D(VPRF) K VPRF1
"RTN","VPRSDA",443,0)
. N DLIST D PRF^VPRSDAQ
"RTN","VPRSDA",444,0)
N I S I=+$G(VPRF("IDX",+ID))
"RTN","VPRSDA",445,0)
I I M VPRF1=VPRF(I)
"RTN","VPRSDA",446,0)
Q
"RTN","VPRSDA",447,0)
;
"RTN","VPRSDA",448,0)
PCMM ; -- get DLIST(#)=ien^role of PCP, PC Team members
"RTN","VPRSDA",449,0)
; Expects DFN, VPRTEAM = ien^name of PCTeam
"RTN","VPRSDA",450,0)
N PCP S PCP=$$OUTPTPR^SDUTL3(DFN)
"RTN","VPRSDA",451,0)
S:PCP>0 DLIST(1)=+PCP_"^PRIMARY CARE PROVIDER"
"RTN","VPRSDA",452,0)
PCMMT ; -- enter here for just the team members
"RTN","VPRSDA",453,0)
N N,X,VPRT,IDX,ROLE
"RTN","VPRSDA",454,0)
S N=+$O(DLIST("A"),-1)
"RTN","VPRSDA",455,0)
S X=$$PRTM^SCAPMC(+$G(VPRTEAM),,,,.VPRT) I X D
"RTN","VPRSDA",456,0)
. S IDX=$NA(@VPRT@("SCPR")) Q:IDX=""
"RTN","VPRSDA",457,0)
. F S IDX=$Q(@IDX) Q:IDX="" Q:$QS(IDX,3)'="SCPR" I $QS(IDX,4)'=+$G(PCP) D
"RTN","VPRSDA",458,0)
.. S ROLE=$$GET1^DIQ(404.57,+$QS(IDX,5),.01)
"RTN","VPRSDA",459,0)
.. S N=N+1,DLIST(N)=$QS(IDX,4)_U_ROLE ;provider ien ^ position name
"RTN","VPRSDA",460,0)
Q
"RTN","VPRSDAB")
0^8^B20709415^n/a
"RTN","VPRSDAB",1,0)
VPRSDAB ;SLC/MKB -- SDA Lab utilities ;4/11/19 21:05
"RTN","VPRSDAB",2,0)
;;1.0;VIRTUAL PATIENT RECORD;**14**;Sep 01, 2011;Build 14
"RTN","VPRSDAB",3,0)
;;Per VHA Directive 6402, this routine should not be modified.
"RTN","VPRSDAB",4,0)
;
"RTN","VPRSDAB",5,0)
; External References DBIA#
"RTN","VPRSDAB",6,0)
; ------------------- -----
"RTN","VPRSDAB",7,0)
; ^DDE 7008
"RTN","VPRSDAB",8,0)
; ^LAB(60 10054
"RTN","VPRSDAB",9,0)
; ^LR 525
"RTN","VPRSDAB",10,0)
; ^OR(100 5771
"RTN","VPRSDAB",11,0)
; ^ORD(100.98 6982
"RTN","VPRSDAB",12,0)
; ^ORD(101.43 2843
"RTN","VPRSDAB",13,0)
; DIC 2051
"RTN","VPRSDAB",14,0)
; DIQ 2056
"RTN","VPRSDAB",15,0)
; LR7OSUM, ^TMP("LR"*,$J 2766
"RTN","VPRSDAB",16,0)
; LR7OU1 2955
"RTN","VPRSDAB",17,0)
; LRPXAPIU 4246
"RTN","VPRSDAB",18,0)
; ORQ1, ^TM("ORR",$J) 3154
"RTN","VPRSDAB",19,0)
; ORX8 2467,3071
"RTN","VPRSDAB",20,0)
;
"RTN","VPRSDAB",21,0)
ORDERS ; -- Return DLIST(#)=order# of Lab orders
"RTN","VPRSDAB",22,0)
; Expects DFN, DSTRT,DSTOP, DMAX
"RTN","VPRSDAB",23,0)
N ORDG,VBECS,ORIGVIEW,ORKID,ORLIST,VPRI,VPRN,ORDER,X0,X3
"RTN","VPRSDAB",24,0)
S ORDG=+$O(^ORD(100.98,"B","LAB",0))
"RTN","VPRSDAB",25,0)
S VBECS=+$$FIND1^DIC(9.4,,"QX","VBEC","C")
"RTN","VPRSDAB",26,0)
; return original view, child orders
"RTN","VPRSDAB",27,0)
S ORIGVIEW=2,ORKID=1
"RTN","VPRSDAB",28,0)
D EN^ORQ1(DFN_";DPT(",ORDG,6,,DSTRT,DSTOP,,,,1) S VPRN=0
"RTN","VPRSDAB",29,0)
S VPRI=0 F S VPRI=$O(^TMP("ORR",$J,ORLIST,VPRI)) Q:VPRI<1 S ORDER=$G(^(VPRI)) D Q:VPRN'<DMAX
"RTN","VPRSDAB",30,0)
. I $P($P(ORDER,U),";",2)>1 Q ;skip order actions
"RTN","VPRSDAB",31,0)
. S ORDER=+ORDER,X0=$G(^OR(100,ORDER,0)),X3=$G(^(3))
"RTN","VPRSDAB",32,0)
. Q:$P(X3,U,3)=13 Q:$P(X3,U,3)=14 ;cancelled or lapsed
"RTN","VPRSDAB",33,0)
. ; only VBECS parent orders, to get to veiled child orders
"RTN","VPRSDAB",34,0)
. I $O(^OR(100,ORDER,2,0)) Q:$P(X0,U,14)'=VBECS D Q
"RTN","VPRSDAB",35,0)
.. S ORKID=0 F S ORKID=$O(^OR(100,ORDER,2,ORKID)) Q:ORKID<1 D
"RTN","VPRSDAB",36,0)
... Q:$P($G(^OR(100,ORKID,0)),U,14)'=VBECS ;VBECS child orders
"RTN","VPRSDAB",37,0)
... S VPRN=VPRN+1,DLIST(VPRN)=ORKID
"RTN","VPRSDAB",38,0)
. I $P(X3,U,9),$P($G(^OR(100,+$P(X3,U,9),0)),U,14)=VBECS Q
"RTN","VPRSDAB",39,0)
. S VPRN=VPRN+1,DLIST(VPRN)=ORDER
"RTN","VPRSDAB",40,0)
K ^TMP("ORR",$J)
"RTN","VPRSDAB",41,0)
Q
"RTN","VPRSDAB",42,0)
;
"RTN","VPRSDAB",43,0)
ONE(ID) ; -- ID processing for Lab order, returns:
"RTN","VPRSDAB",44,0)
; ORPK = Lab order/data string
"RTN","VPRSDAB",45,0)
; ORDAD = parent order#
"RTN","VPRSDAB",46,0)
; VPRCDT = Lab collection date.time
"RTN","VPRSDAB",47,0)
; VPRVBEC = 1 or 0, if VBECS order
"RTN","VPRSDAB",48,0)
; ORLAB = associated Lab child order#, if VBECS
"RTN","VPRSDAB",49,0)
;
"RTN","VPRSDAB",50,0)
S ID=+$G(ID) Q:ID<1 S ORLAB=""
"RTN","VPRSDAB",51,0)
S VPRCDT=$P($G(^OR(100,ID,0)),U,8),ORDAD=$P($G(^(3)),U,9),ORPK=$G(^(4))
"RTN","VPRSDAB",52,0)
S VPRVBEC=$$VB(ID) I VPRVBEC D Q ;get lab child#
"RTN","VPRSDAB",53,0)
. S ORLAB=$$VALUE^ORX8(ID,"LAB") I 'ORLAB S DDEOUT=1 Q
"RTN","VPRSDAB",54,0)
. S VPRCDT=$P($G(^OR(100,ORLAB,0)),U,8),ORPK=$G(^(4))
"RTN","VPRSDAB",55,0)
Q
"RTN","VPRSDAB",56,0)
;
"RTN","VPRSDAB",57,0)
VB(ORIFN) ; -- return 1 or 0, if order is for Blood Bank
"RTN","VPRSDAB",58,0)
N X,Y,DG S Y=0
"RTN","VPRSDAB",59,0)
S X=$P($G(^OR(100,+$G(ORIFN),0)),U,11),DG=$P($G(^ORD(100.98,+X,0)),U,3)
"RTN","VPRSDAB",60,0)
I DG?1"VB".E S Y=1
"RTN","VPRSDAB",61,0)
Q Y
"RTN","VPRSDAB",62,0)
;
"RTN","VPRSDAB",63,0)
LRDFN(ORIFN) ; -- set up LRDFN for Lab Order
"RTN","VPRSDAB",64,0)
I '$G(DFN),$G(ORIFN) S DFN=+$$GET1^DIQ(100,+ORIFN_",",.02,"I")
"RTN","VPRSDAB",65,0)
S LRDFN=$S($G(DFN):$$LRDFN^LRPXAPIU(DFN),1:0)
"RTN","VPRSDAB",66,0)
Q
"RTN","VPRSDAB",67,0)
;
"RTN","VPRSDAB",68,0)
RSLT ; -- get Entity for LabOrder Result
"RTN","VPRSDAB",69,0)
; Returns ENTITY, DATA
"RTN","VPRSDAB",70,0)
N SUB,IDT S SUB=$S($G(VPRVBEC):"BB",1:$G(LRSUB))
"RTN","VPRSDAB",71,0)
I SUB'="BB",$L($G(ORPK),";")<5 S DDEOUT=1 Q ;no results yet
"RTN","VPRSDAB",72,0)
;I SUB="BB",$P($G(^OR(100,DIEN,3)),U,3)'=2 S DDEOUT=1 Q
"RTN","VPRSDAB",73,0)
I SUB="BB" S DDEOUT=1 Q ;for now
"RTN","VPRSDAB",74,0)
S IDT=$P($G(ORPK),";",5) S:'IDT IDT=9999999-$G(VPRCDT)
"RTN","VPRSDAB",75,0)
S VALUE=IDT_","_+$G(LRDFN),ENTITY="VPR LR"_SUB_" RESULT"
"RTN","VPRSDAB",76,0)
S ENTITY=+$O(^DDE("B",ENTITY,0)) I ENTITY<1 S DDEOUT=1 Q
"RTN","VPRSDAB",77,0)
S DATA=+$P($G(ORIT),U,3) ;#60 ien ordered
"RTN","VPRSDAB",78,0)
Q
"RTN","VPRSDAB",79,0)
;
"RTN","VPRSDAB",80,0)
CH(TEST) ; -- builds DLIST(#) of result nodes for TEST
"RTN","VPRSDAB",81,0)
; called from ResultItems in VPR LRCH RESULT, expects DIEN
"RTN","VPRSDAB",82,0)
N T,X S TEST=+$G(TEST)
"RTN","VPRSDAB",83,0)
D EXPAND^LR7OU1(TEST,.DLIST)
"RTN","VPRSDAB",84,0)
S T=0 F S T=$O(DLIST(T)) Q:T<1 D
"RTN","VPRSDAB",85,0)
. S X=$P($G(^LAB(60,T,0)),U,3) I X'="O",X'="B" Q ;not displayable
"RTN","VPRSDAB",86,0)
. ; DLIST(60 ien) = CH data node#,LRIDT,LRDFN
"RTN","VPRSDAB",87,0)
. S DLIST(T)=$$LRDN^LRPXAPIU(T)_","_DIEN
"RTN","VPRSDAB",88,0)
Q
"RTN","VPRSDAB",89,0)
;
"RTN","VPRSDAB",90,0)
DG(DG) ; -- convert DG to section, if needed
"RTN","VPRSDAB",91,0)
; Returns LRSUB = DG abbreviation
"RTN","VPRSDAB",92,0)
N X,Y S X="",Y=0 D ;get LR section
"RTN","VPRSDAB",93,0)
. S X=$P($G(ORPK),";",4) Q:$L(X)
"RTN","VPRSDAB",94,0)
. S X=$P($G(^ORD(101.43,+$G(ORIT),"LR")),U,6) Q:$L(X)
"RTN","VPRSDAB",95,0)
. I $G(VPRVBEC) S X="VBEC"
"RTN","VPRSDAB",96,0)
I X'="" S Y=$O(^ORD(100.98,"B",X,0)) S:Y DG=Y
"RTN","VPRSDAB",97,0)
S LRSUB=$P($G(^ORD(100.98,+$G(DG),0)),U,3)
"RTN","VPRSDAB",98,0)
Q
"RTN","VPRSDAB",99,0)
;
"RTN","VPRSDAB",100,0)
LRTIU(IDT,SUB) ; -- return TIU ien of lab report
"RTN","VPRSDAB",101,0)
N I,IEN,X,Y S IDT=$G(IDT),SUB=$G(SUB)
"RTN","VPRSDAB",102,0)
S Y=IDT_";"_SUB
"RTN","VPRSDAB",103,0)
S I=0 F S I=$O(^LR(LRDFN,SUB,IDT,.05,I)) Q:I<1 S IEN=+$P($G(^(I,0)),U,2),X=+$$GET1^DIQ(8925,IEN,.05,"I") I (X=7)!(X=8) S Y=IEN_";TIU" Q
"RTN","VPRSDAB",104,0)
Q Y
"RTN","VPRSDAB",105,0)
;
"RTN","VPRSDAB",106,0)
AP1(ID) ; -- parse ID=IDT,LRDFN~SUB for AP,MI report
"RTN","VPRSDAB",107,0)
; Returns DIFN, LRSUB, updated ID, LR0=^LR(LRDFN,SUB,IDT,0)
"RTN","VPRSDAB",108,0)
S ID=$G(ID),LRSUB=$P(ID,"~",2),ID=$P(ID,"~")
"RTN","VPRSDAB",109,0)
I LRSUB D ;sub-file#
"RTN","VPRSDAB",110,0)
. S DIFN=LRSUB,LRSUB=$S(DIFN=63.05:"MI",DIFN=63.09:"CY",DIFN=63.02:"EM",DIFN=63.08:"SP",1:"AP")
"RTN","VPRSDAB",111,0)
E S DIFN=$S(LRSUB="MI":63.05,LRSUB="CY":63.09,LRSUB="EM":63.02,LRSUB="SP":63.08,1:0)
"RTN","VPRSDAB",112,0)
I DIFN<1 S DDEOUT=1 Q
"RTN","VPRSDAB",113,0)
S:'$G(LRDFN) LRDFN=+$P(ID,",",2)
"RTN","VPRSDAB",114,0)
S LR0=$G(^LR(LRDFN,LRSUB,+ID,0))
"RTN","VPRSDAB",115,0)
Q
"RTN","VPRSDAB",116,0)
;
"RTN","VPRSDAB",117,0)
RPT(SUB,IDT) ; -- return report text in WP(), expects DFN
"RTN","VPRSDAB",118,0)
N I,DATE,NAME,VPRS,VPRY,X,LRAU
"RTN","VPRSDAB",119,0)
N LRSUB,TAG,FILE,FIELD,IEN ;protect
"RTN","VPRSDAB",120,0)
K ^TMP("LRC",$J),^TMP("LRH",$J),^TMP("LRT",$J)
"RTN","VPRSDAB",121,0)
S DATE=9999999-+$G(IDT),NAME=$S(SUB="EM":"EM",1:$$NAME^VPRDLRA(SUB)),VPRS(NAME)=""
"RTN","VPRSDAB",122,0)
D EN^LR7OSUM(.VPRY,DFN,DATE,DATE,,,.VPRS)
"RTN","VPRSDAB",123,0)
S I=+$G(^TMP("LRH",$J,NAME)) ;LRH=header
"RTN","VPRSDAB",124,0)
F S I=$O(^TMP("LRC",$J,I)) Q:I<1 S X=$G(^(I,0)) Q:X?1."=" S WP(I)=X
"RTN","VPRSDAB",125,0)
K ^TMP("LRC",$J),^TMP("LRH",$J),^TMP("LRT",$J)
"RTN","VPRSDAB",126,0)
Q
"RTN","VPRSDAL")
0^7^B8753328^B8006329
"RTN","VPRSDAL",1,0)
VPRSDAL ;SLC/MKB -- SDA Allergy utilities ;10/25/18 15:29
"RTN","VPRSDAL",2,0)
;;1.0;VIRTUAL PATIENT RECORD;**8,10,14**;Sep 01, 2011;Build 14
"RTN","VPRSDAL",3,0)
;;Per VHA Directive 6402, this routine should not be modified.
"RTN","VPRSDAL",4,0)
;
"RTN","VPRSDAL",5,0)
; External References DBIA#
"RTN","VPRSDAL",6,0)
; ------------------- -----
"RTN","VPRSDAL",7,0)
; ^GMR(120.8 6973
"RTN","VPRSDAL",8,0)
; DILFD 2055
"RTN","VPRSDAL",9,0)
; DIQ 2056
"RTN","VPRSDAL",10,0)
; GMRADPT 10099
"RTN","VPRSDAL",11,0)
; GMRAOR2 2422
"RTN","VPRSDAL",12,0)
;
"RTN","VPRSDAL",13,0)
ALG1(IEN) ; -- get info for single allergy, returns VPRALG
"RTN","VPRSDAL",14,0)
N GMRA K VPRALG
"RTN","VPRSDAL",15,0)
I '$D(^GMR(120.8,+$G(IEN),0)) S DDEOUT=1 Q
"RTN","VPRSDAL",16,0)
I '$D(GMRAL) D
"RTN","VPRSDAL",17,0)
. N DFN S DFN=+$$GET1^DIQ(120.8,IEN_",",.01,"I")
"RTN","VPRSDAL",18,0)
. S GMRA="0^0^111^0^1"
"RTN","VPRSDAL",19,0)
. I $L($T(EN2^GMRADPT)) D EN2^GMRADPT Q
"RTN","VPRSDAL",20,0)
. D EN1^GMRADPT
"RTN","VPRSDAL",21,0)
M VPRALG=GMRAL(IEN)
"RTN","VPRSDAL",22,0)
I $G(VPRALG)="" S VPRALG="" ;S DDEOUT=1 Q
"RTN","VPRSDAL",23,0)
I $L($T(EN2^GMRAOR2)) D EN2^GMRAOR2(IEN,"GMRAY") Q
"RTN","VPRSDAL",24,0)
D EN1^GMRAOR2(IEN,"GMRAY")
"RTN","VPRSDAL",25,0)
Q
"RTN","VPRSDAL",26,0)
;
"RTN","VPRSDAL",27,0)
ALLERGEN(VPTR) ; -- return code^name^system for Allergen
"RTN","VPRSDAL",28,0)
N Y,FN,TYPE,CSYS
"RTN","VPRSDAL",29,0)
S FN=$S(VPTR["PSDRUG":50,1:+$P(VPTR,"(",2)),TYPE=$P(VPRALG,U,7)
"RTN","VPRSDAL",30,0)
S CSYS=$S(TYPE="D":"RXN^UNI^SCT",TYPE["D":"RXN^SCT^UNI",1:"SCT^UNI")
"RTN","VPRSDAL",31,0)
S Y=$$CODE^VPRSDA(+VPTR,FN,CSYS) I Y="" D
"RTN","VPRSDAL",32,0)
. N NAME S NAME=$$GET1^DIQ(FN,+VPTR,$S(FN=50.605:1,1:.01))
"RTN","VPRSDAL",33,0)
. ; $$EXTERNAL^DILFD(120.8,1,,VPTR)
"RTN","VPRSDAL",34,0)
. S Y=$$VUID^VPRD(+VPTR,FN) I Y S Y=Y_U_NAME_"^VHAT" Q
"RTN","VPRSDAL",35,0)
. S Y=+$G(VPTR)_U_NAME_"^VA"_FN
"RTN","VPRSDAL",36,0)
Q Y
"RTN","VPRSDAL",37,0)
;
"RTN","VPRSDAL",38,0)
ALGCMT1(IEN,TYPE) ; -- return TYPE comment
"RTN","VPRSDAL",39,0)
N I,TXT,Y
"RTN","VPRSDAL",40,0)
S I=$O(^GMR(120.8,IEN,26,"AVER","E",0)),Y=""
"RTN","VPRSDAL",41,0)
I I M TXT=^GMR(120.8,IEN,26,I,2) S Y=$$STRING^VPRD(.TXT)
"RTN","VPRSDAL",42,0)
Q Y
"RTN","VPRSDAL",43,0)
;
"RTN","VPRSDAL",44,0)
ALGCMT(IEN) ; -- return list of comments in
"RTN","VPRSDAL",45,0)
; DLIST(#) = id ^ date ^ user ^ type ^ facility ^ text
"RTN","VPRSDAL",46,0)
N I,X,Y,TXT
"RTN","VPRSDAL",47,0)
S I=0 F S I=$O(^GMR(120.8,IEN,26,I)) Q:I<1 S X=$G(^(I,0)) D
"RTN","VPRSDAL",48,0)
. Q:$P(X,U,3)="E"
"RTN","VPRSDAL",49,0)
. S $P(X,U,3)=$$EXTERNAL^DILFD(120.826,1.5,,$P(X,U,3))
"RTN","VPRSDAL",50,0)
. M TXT=^GMR(120.8,IEN,26,I,2) S Y=$$STRING^VPRD(.TXT)
"RTN","VPRSDAL",51,0)
. S DLIST(I)=I_","_IEN_U_X_U_+$G(VASITE)_U_Y
"RTN","VPRSDAL",52,0)
Q
"RTN","VPRSDAL",53,0)
;
"RTN","VPRSDAL",54,0)
ALGSEV(IEN) ; -- return overall Allergy Severity
"RTN","VPRSDAL",55,0)
N I,SEV,X,Y
"RTN","VPRSDAL",56,0)
S (SEV,Y)="",I=0
"RTN","VPRSDAL",57,0)
; find highest severity among reactions
"RTN","VPRSDAL",58,0)
F S I=$O(GMRAY("O",I)) Q:I<1 S X=$P(GMRAY("O",I),U,2) I $L(X),X]SEV S SEV=X
"RTN","VPRSDAL",59,0)
I $L(SEV)>1 D
"RTN","VPRSDAL",60,0)
. S X=$E(SEV,1,2),Y=$S(X="MI":255604002,X="MO":6736007,X="SE":24484000,1:"")
"RTN","VPRSDAL",61,0)
. I Y S Y=Y_U_SEV_"^SNOMED CT" Q
"RTN","VPRSDAL",62,0)
. S Y=SEV_U_SEV
"RTN","VPRSDAL",63,0)
Q Y
"RTN","VPRSDAL",64,0)
;
"RTN","VPRSDAL",65,0)
ALGDT(IEN) ; -- return first D/T of Event
"RTN","VPRSDAL",66,0)
N I,RDT,X,Y
"RTN","VPRSDAL",67,0)
S I=0,RDT=9999999,Y=""
"RTN","VPRSDAL",68,0)
; find first date.time among reactions
"RTN","VPRSDAL",69,0)
F S I=$O(GMRAY("O",I)) Q:I<1 S X=$P(GMRAY("O",I),U) S:X<RDT RDT=X
"RTN","VPRSDAL",70,0)
S:RDT<9999999 Y=RDT
"RTN","VPRSDAL",71,0)
Q Y
"RTN","VPRSDAL",72,0)
;
"RTN","VPRSDAL",73,0)
ALGSIGN(IEN) ; -- convert ien^name[^date] to national code for Sign/Symptom
"RTN","VPRSDAL",74,0)
; Returns +IEN, VPRDT=date [for extension],
"RTN","VPRSDAL",75,0)
; VPREACTN=code^name^system [SNOMED or VUID],
"RTN","VPRSDAL",76,0)
; VPRNAME =local name [Original Text]
"RTN","VPRSDAL",77,0)
N Y S Y="" K VPRNAME
"RTN","VPRSDAL",78,0)
S VPREACTN=$P($G(IEN),U,1,2),VPRDT=$P($G(IEN),U,3),IEN=+$G(IEN)
"RTN","VPRSDAL",79,0)
S Y=$$CODE^VPRSDA(IEN,120.83,"SCT") S:$L(Y) VPRNAME=$P(VPREACTN,U,2)
"RTN","VPRSDAL",80,0)
I Y="" S Y=$$VUID^VPRD(IEN,120.83) S:$L(Y) Y=Y_U_$P(VPREACTN,U,2)_"^VHAT"
"RTN","VPRSDAL",81,0)
S:$L(Y) VPREACTN=Y ;return code string
"RTN","VPRSDAL",82,0)
Q
"RTN","VPRSDAL",83,0)
;
"RTN","VPRSDAL",84,0)
ASSESS ; -- get Assessment #120.86 for patient
"RTN","VPRSDAL",85,0)
I '$G(DFN),$G(ID) S DFN=ID
"RTN","VPRSDAL",86,0)
Q:'$G(DFN)
"RTN","VPRSDAL",87,0)
K GMRAL D EN1^GMRADPT
"RTN","VPRSDAL",88,0)
I GMRAL<1 S DLIST(1)=DFN
"RTN","VPRSDAL",89,0)
Q
"RTN","VPRSDAP")
0^3^B43498708^B21076843
"RTN","VPRSDAP",1,0)
VPRSDAP ;SLC/MKB -- SDA Pharmacy utilities ;10/25/18 15:29
"RTN","VPRSDAP",2,0)
;;1.0;VIRTUAL PATIENT RECORD;**8,14**;Sep 01, 2011;Build 14
"RTN","VPRSDAP",3,0)
;;Per VHA Directive 6402, this routine should not be modified.
"RTN","VPRSDAP",4,0)
;
"RTN","VPRSDAP",5,0)
; External References DBIA#
"RTN","VPRSDAP",6,0)
; ------------------- -----
"RTN","VPRSDAP",7,0)
; ^%ZOSF 10096
"RTN","VPRSDAP",8,0)
; ^OR(100 5771
"RTN","VPRSDAP",9,0)
; ^ORD(100.98 6982
"RTN","VPRSDAP",10,0)
; ^PSB(53.79 5909
"RTN","VPRSDAP",11,0)
; ^SC 10040
"RTN","VPRSDAP",12,0)
; DILFD 2055
"RTN","VPRSDAP",13,0)
; DIQ 2056
"RTN","VPRSDAP",14,0)
; ORX8 2467
"RTN","VPRSDAP",15,0)
; PSN50P41 4531
"RTN","VPRSDAP",16,0)
; PSO52API 4820
"RTN","VPRSDAP",17,0)
; PSOORRL, ^TMP("PS",$J) 2400
"RTN","VPRSDAP",18,0)
; PSS50 4533
"RTN","VPRSDAP",19,0)
; PSS50P7 4662
"RTN","VPRSDAP",20,0)
; PSS51P1 4546
"RTN","VPRSDAP",21,0)
; PSS52P6 4549
"RTN","VPRSDAP",22,0)
; PSS52P7 4550
"RTN","VPRSDAP",23,0)
; PSXOPUTL 2200
"RTN","VPRSDAP",24,0)
;
"RTN","VPRSDAP",25,0)
PS1(IEN) ; -- set up single medication
"RTN","VPRSDAP",26,0)
; Returns ORIFN, ORPK, PSTYPE & VPRPS=^TMP
"RTN","VPRSDAP",27,0)
N X,CLS S ORIFN=+$G(IEN)
"RTN","VPRSDAP",28,0)
S ORPK=$G(^OR(100,ORIFN,4)) S:'DFN DFN=+$P($G(^(0)),U,2)
"RTN","VPRSDAP",29,0)
; last char = PS file
"RTN","VPRSDAP",30,0)
S X=$S(ORPK:$E(ORPK,$L(ORPK)),1:"Z") S:X=+X X="R",ORPK=ORPK_X
"RTN","VPRSDAP",31,0)
S PSTYPE=$S(X="N":"N","RS"[X:"O",1:"I")
"RTN","VPRSDAP",32,0)
S CLS=$S("RSN"[X:"O","UV"[X:"I",1:$$GET1^DIQ(100,IEN_",",10,"I"))
"RTN","VPRSDAP",33,0)
D:ORPK OEL^PSOORRL(DFN,ORPK_";"_CLS) S VPRPS=$NA(^TMP("PS",$J))
"RTN","VPRSDAP",34,0)
I PSTYPE="I",$$IV S PSTYPE="V" K VPRATE
"RTN","VPRSDAP",35,0)
Q
"RTN","VPRSDAP",36,0)
;
"RTN","VPRSDAP",37,0)
SCHEDULE() ; -- return schedule name ^ type ^ admin times ^ #min
"RTN","VPRSDAP",38,0)
; Expects ORIFN, IEN from VPR DOSAGE STEP
"RTN","VPRSDAP",39,0)
N SCH,ADM,FREQ,I,Y S Y=""
"RTN","VPRSDAP",40,0)
; Outpt/NonVA only need Schedule
"RTN","VPRSDAP",41,0)
I "ON"[$G(PSTYPE) S Y=$$VALUE^ORX8(ORIFN,"SCHEDULE",IEN) Q Y
"RTN","VPRSDAP",42,0)
S I=+$O(@VPRPS@("SCH",0)),Y=$P($G(@VPRPS@("SCH",I,0)),U,1,2)
"RTN","VPRSDAP",43,0)
S I=+$O(@VPRPS@("ADM",0)),ADM=$G(@VPRPS@("ADM",I,0))
"RTN","VPRSDAP",44,0)
S SCH=$P(Y,U),$P(Y,U,3)=ADM I SCH="" Q ""
"RTN","VPRSDAP",45,0)
I '$D(^TMP("VPRX",$J,"SCH","B",SCH)) D
"RTN","VPRSDAP",46,0)
. D ZERO^PSS51P1(,SCH,"PSJ",,"SCH")
"RTN","VPRSDAP",47,0)
. M ^TMP("VPRX",$J,"SCH")=^TMP($J,"SCH")
"RTN","VPRSDAP",48,0)
. K ^TMP($J,"SCH")
"RTN","VPRSDAP",49,0)
S I=0 F S I=$O(^TMP("VPRX",$J,"SCH",I)) Q:I<1 I $L(ADM),$G(^(I,1))=ADM S $P(Y,U,4)=$G(^(2))
"RTN","VPRSDAP",50,0)
Q Y
"RTN","VPRSDAP",51,0)
;
"RTN","VPRSDAP",52,0)
CODE(MED,FILE) ; -- convert MED=ien^name to national code
"RTN","VPRSDAP",53,0)
; Reset MED = code^name^system for RxNorm or VUID
"RTN","VPRSDAP",54,0)
N Y S MED=$G(MED),FILE=+$G(FILE)
"RTN","VPRSDAP",55,0)
S Y=$$CODE^VPRSDA(+MED,FILE,"RXN")
"RTN","VPRSDAP",56,0)
I Y="" S Y=$$VUID^VPRD(+MED,FILE) S:$L(Y) Y=Y_U_$P(MED,U,2)_"^VHAT"
"RTN","VPRSDAP",57,0)
S:$L(Y) MED=Y ;reset to nat'l code string
"RTN","VPRSDAP",58,0)
Q
"RTN","VPRSDAP",59,0)
;
"RTN","VPRSDAP",60,0)
IMO(X,PS) ; -- return 1, 0, or null if IMO location X
"RTN","VPRSDAP",61,0)
N Y S Y=""
"RTN","VPRSDAP",62,0)
I $G(PS)'="I",$G(PS)'="V" Q ""
"RTN","VPRSDAP",63,0)
S Y=$S($P($G(^SC(+$G(X),0)),U,25):"true",1:"false")
"RTN","VPRSDAP",64,0)
Q Y
"RTN","VPRSDAP",65,0)
;
"RTN","VPRSDAP",66,0)
PSRX(RX) ; -- get RX info for extension properties
"RTN","VPRSDAP",67,0)
S RX=$G(RX),VPRX52=$NA(^TMP($J,"VPRX",DFN,+RX))
"RTN","VPRSDAP",68,0)
Q:$G(PSTYPE)'="O" Q:RX'["R" ;Rx file
"RTN","VPRSDAP",69,0)
D RX^PSO52API(DFN,"VPRX",+RX,,3)
"RTN","VPRSDAP",70,0)
; VPRX52=$NA(^TMP($J,"VPRX",DFN,+RX))
"RTN","VPRSDAP",71,0)
; get IB data too
"RTN","VPRSDAP",72,0)
D RX^PSO52API(DFN,"VPRXIB",+RX,,"I^O")
"RTN","VPRSDAP",73,0)
M @VPRX52=^TMP($J,"VPRXIB",DFN,+RX) K ^TMP($J,"VPRXIB",DFN,+RX)
"RTN","VPRSDAP",74,0)
Q
"RTN","VPRSDAP",75,0)
;
"RTN","VPRSDAP",76,0)
GETFILLS ; -- build DLIST(#)=#^data of fills, where data is
"RTN","VPRSDAP",77,0)
; date ^ daysSupply ^ qty ^ released ^ routing ^ remarks ^ returned
"RTN","VPRSDAP",78,0)
N I,N S N=0
"RTN","VPRSDAP",79,0)
N RX0,RXN S RX0=$G(@VPRPS@(0)),RXN=$G(@VPRPS@("RXN",0))
"RTN","VPRSDAP",80,0)
I $P(RXN,U,6) D ;original fill
"RTN","VPRSDAP",81,0)
. N X S X=$P(RXN,U,6)_U_$P(RX0,U,7,8)_U_$P(RXN,U,7)_U_$P(RXN,U,3)
"RTN","VPRSDAP",82,0)
. S:$G(@VPRX52@(32.1)) $P(X,U,7)=$P(@VPRX52@(32.1),U)
"RTN","VPRSDAP",83,0)
. S N=N+1,DLIST(N)="0^"_X
"RTN","VPRSDAP",84,0)
S I=0 F S I=$O(@VPRPS@("REF",I)) Q:I<1 S N=N+1,DLIST(N)=I_U_$G(@VPRPS@("REF",I,0))
"RTN","VPRSDAP",85,0)
S I=0 F S I=$O(@VPRPS@("PAR",I)) Q:I<1 S N=N+1,DLIST(N)="P"_I_U_$G(@VPRPS@("PAR",I,0))
"RTN","VPRSDAP",86,0)
Q
"RTN","VPRSDAP",87,0)
;
"RTN","VPRSDAP",88,0)
SUPPLY(IEN) ; -- return 1 or 0, if supply item
"RTN","VPRSDAP",89,0)
N Y S Y=$S($G(^TMP("VPRX",$J,"PSOI",+$G(PSOI),.09)):"true",1:"false")
"RTN","VPRSDAP",90,0)
Q Y
"RTN","VPRSDAP",91,0)
;
"RTN","VPRSDAP",92,0)
CMOP(RX) ; -- return CMOP indicator for RX
"RTN","VPRSDAP",93,0)
N Y S Y="",RX=+$G(RX)
"RTN","VPRSDAP",94,0)
I $$GET1^DIQ(52,RX,"6:213","I") S Y=">"
"RTN","VPRSDAP",95,0)
N X S X="PSXOPUTL" X ^%ZOSF("TEST") K X I $T D
"RTN","VPRSDAP",96,0)
. N DA,PSXZ S DA=RX D ^PSXOPUTL
"RTN","VPRSDAP",97,0)
. S X=$G(PSXZ(PSXZ("L"))) I X=0!(X=2) S Y="T"
"RTN","VPRSDAP",98,0)
Q Y
"RTN","VPRSDAP",99,0)
;
"RTN","VPRSDAP",100,0)
DOSEFORM(IEN) ; -- return dose form
"RTN","VPRSDAP",101,0)
N Y S Y=""
"RTN","VPRSDAP",102,0)
I +$G(PSOI),'$D(^TMP("VPRX",$J,"PSOI",PSOI)) D
"RTN","VPRSDAP",103,0)
. D ZERO^PSS50P7(PSOI,,,"PSOI")
"RTN","VPRSDAP",104,0)
. M ^TMP("VPRX",$J,"PSOI",PSOI)=^TMP($J,"PSOI",PSOI)
"RTN","VPRSDAP",105,0)
. K ^TMP($J,"PSOI",PSOI)
"RTN","VPRSDAP",106,0)
S Y=$G(^TMP("VPRX",$J,"PSOI",+$G(PSOI),.02)) S:Y Y=Y_"^VA50.606"
"RTN","VPRSDAP",107,0)
Q Y
"RTN","VPRSDAP",108,0)
;
"RTN","VPRSDAP",109,0)
INGRD(NAME) ; -- reset NAME to ingredient IEN
"RTN","VPRSDAP",110,0)
; Also return VPRCODE=code^name^system
"RTN","VPRSDAP",111,0)
N IEN S IEN=""
"RTN","VPRSDAP",112,0)
S NAME=$G(NAME),VPRCODE=""
"RTN","VPRSDAP",113,0)
I $L(NAME) D
"RTN","VPRSDAP",114,0)
. D NAME^PSN50P41(NAME,"VPRDI") S IEN=+$O(^TMP($J,"VPRDI","P",NAME,0))
"RTN","VPRSDAP",115,0)
. K ^TMP($J,"VPRDI")
"RTN","VPRSDAP",116,0)
I IEN<1 S DDEOUT=1 Q
"RTN","VPRSDAP",117,0)
S VPRCODE=IEN_U_NAME,NAME=IEN ;reset, if passed by reference
"RTN","VPRSDAP",118,0)
D CODE(.VPRCODE,50.416)
"RTN","VPRSDAP",119,0)
Q
"RTN","VPRSDAP",120,0)
;
"RTN","VPRSDAP",121,0)
NDF(DRUG) ; -- return VA Drug Product info for DRUG (#50 ien)
"RTN","VPRSDAP",122,0)
; also returns DATA = code^name^system for RXN/VUID
"RTN","VPRSDAP",123,0)
I '$D(^TMP("VPRX",$J,"NDF",DRUG)) D
"RTN","VPRSDAP",124,0)
. D NDF^PSS50(DRUG,,,,,"NDF")
"RTN","VPRSDAP",125,0)
. M ^TMP("VPRX",$J,"NDF",DRUG)=^TMP($J,"NDF",DRUG)
"RTN","VPRSDAP",126,0)
. K ^TMP($J,"NDF",DRUG)
"RTN","VPRSDAP",127,0)
S VPRVAP=$NA(^TMP("VPRX",$J,"NDF",DRUG))
"RTN","VPRSDAP",128,0)
S DATA=$G(^TMP("VPRX",$J,"NDF",DRUG,22)) I DATA D ;#50.68
"RTN","VPRSDAP",129,0)
. D CODE(.DATA,50.68)
"RTN","VPRSDAP",130,0)
. S $P(DATA,U,2)=$P($G(@VPRVAP@(22)),U,2) ;RXN text unreliable
"RTN","VPRSDAP",131,0)
. S:'$L($P(DATA,U,3)) $P(DATA,U,3)="VA50.68"
"RTN","VPRSDAP",132,0)
I 'DATA S DATA=DRUG_U_$G(@VPRVAP@(.01))_"^VA50"
"RTN","VPRSDAP",133,0)
Q
"RTN","VPRSDAP",134,0)
;
"RTN","VPRSDAP",135,0)
DOSES(IEN) ; -- build DLIST(n)=instance of Dose Instructions
"RTN","VPRSDAP",136,0)
N DA,I
"RTN","VPRSDAP",137,0)
S DA=0 F S DA=$O(^OR(100,IEN,4.5,"ID","INSTR",DA)) Q:DA<1 D
"RTN","VPRSDAP",138,0)
. S I=+$P($G(^OR(100,IEN,4.5,DA,0)),U,3)
"RTN","VPRSDAP",139,0)
. S:I DLIST(I)=I
"RTN","VPRSDAP",140,0)
Q
"RTN","VPRSDAP",141,0)
;
"RTN","VPRSDAP",142,0)
BCMA(IEN) ; -- get list of administrations
"RTN","VPRSDAP",143,0)
I $G(DFN)<1 S DFN=+$P($G(^OR(100,IEN,0)),U,2) Q:'DFN
"RTN","VPRSDAP",144,0)
N ORPK,ADT,DA,CNT,STS S (ADT,CNT)=0
"RTN","VPRSDAP",145,0)
S ORPK=$G(^OR(100,IEN,4)) Q:ORPK=""
"RTN","VPRSDAP",146,0)
F S ADT=$O(^PSB(53.79,"AORDX",DFN,ORPK,ADT)) Q:ADT<1 D Q:CNT>9
"RTN","VPRSDAP",147,0)
. S DA=0 F S DA=+$O(^PSB(53.79,"AORDX",DFN,ORPK,ADT,DA)) Q:DA<1 D
"RTN","VPRSDAP",148,0)
.. I $P($G(^PSB(53.79,DA,0)),U,9)="RM" Q ;REMOVED
"RTN","VPRSDAP",149,0)
.. S CNT=CNT+1,DLIST(CNT)=DA
"RTN","VPRSDAP",150,0)
Q
"RTN","VPRSDAP",151,0)
;
"RTN","VPRSDAP",152,0)
ADMSTS(DA) ; -- return the code^name of administration status
"RTN","VPRSDAP",153,0)
N X,Y,Z,Z0 S DA=+$G(DA)
"RTN","VPRSDAP",154,0)
S Y=$P($G(PSB0),U,9),X="" I Y="N" D
"RTN","VPRSDAP",155,0)
. S Z="" F S Z=$O(^PSB(53.79,DA,.9,Z),-1) Q:'Z S Z0=$G(^(Z,0)) D Q:$L(X)
"RTN","VPRSDAP",156,0)
.. S X=$P(Z0,U,4) Q:X=""
"RTN","VPRSDAP",157,0)
.. S Y=$S(X="REMOVED":"RM",1:$E(X))
"RTN","VPRSDAP",158,0)
I X="" S X=$$EXTERNAL^DILFD(53.79,.09,,Y)
"RTN","VPRSDAP",159,0)
S:$L(X) Y=Y_U_X
"RTN","VPRSDAP",160,0)
Q Y
"RTN","VPRSDAP",161,0)
;
"RTN","VPRSDAP",162,0)
IV() ; -- Return 1 or 0, if order is for IV/infusion
"RTN","VPRSDAP",163,0)
I ORPK["V" Q 1
"RTN","VPRSDAP",164,0)
N X0 S X0=$G(^OR(100,ORIFN,0))
"RTN","VPRSDAP",165,0)
I +$P(X0,U,5)=130 Q 1
"RTN","VPRSDAP",166,0)
I $P($G(^ORD(100.98,+$P(X0,U,11),0)),U,3)?1"IV".E Q 1
"RTN","VPRSDAP",167,0)
I $G(^TMP("PS",$J,"A",0))!$G(^TMP("PS",$J,"B",0)) Q 1
"RTN","VPRSDAP",168,0)
Q 0
"RTN","VPRSDAP",169,0)
;
"RTN","VPRSDAP",170,0)
IVMEDS(IEN) ; -- build DLIST(#)=name^amount^type[^bottle] for components
"RTN","VPRSDAP",171,0)
N I,TYPE,X,CNT S CNT=0
"RTN","VPRSDAP",172,0)
F TYPE="B","A" D ;bases, additives
"RTN","VPRSDAP",173,0)
. S I=0 F S I=$O(@VPRPS@(TYPE,I)) Q:I<1 D
"RTN","VPRSDAP",174,0)
.. S X=$G(@VPRPS@(TYPE,I,0)),CNT=CNT+1,DLIST(CNT)=$P(X,U,1,2)_U_TYPE
"RTN","VPRSDAP",175,0)
.. I TYPE="A" S DLIST(CNT)=DLIST(CNT)_U_$P(X,U,3) ;bottle
"RTN","VPRSDAP",176,0)
Q
"RTN","VPRSDAP",177,0)
;
"RTN","VPRSDAP",178,0)
IV1(X) ; -- get VA Drug Product info for IV component X (from DLIST)
"RTN","VPRSDAP",179,0)
N NAME,TYPE,IEN,DRUG
"RTN","VPRSDAP",180,0)
S VPRPSIV=$G(X),NAME=$P(VPRPSIV,U),TYPE=$P(VPRPSIV,U,3)
"RTN","VPRSDAP",181,0)
D:TYPE="B" ZERO^PSS52P7("",NAME,"","VPRPSIV")
"RTN","VPRSDAP",182,0)
D:TYPE="A" ZERO^PSS52P6("",NAME,"","VPRPSIV")
"RTN","VPRSDAP",183,0)
S IEN=$O(^TMP($J,"VPRPSIV",0)),DRUG=+$G(^(IEN,1))
"RTN","VPRSDAP",184,0)
S VPRPSIV=IEN_U_VPRPSIV ;ien^name^amt^type^bottle#
"RTN","VPRSDAP",185,0)
S X=+$G(DRUG) D:DRUG NDF(DRUG) ;#50 ien
"RTN","VPRSDAP",186,0)
I 'DRUG S DATA=IEN_U_NAME_U_$S(TYPE="A":"VA52.6",TYPE="B":"VA52.7",1:"VA") ;return IV file
"RTN","VPRSDAP",187,0)
K ^TMP($J,"VPRPSIV")
"RTN","VPRSDAP",188,0)
Q
"RTN","VPRSDAP",189,0)
;
"RTN","VPRSDAP",190,0)
IVRATE(IEN) ; -- return IV Rate, or DDEOUT if invalid
"RTN","VPRSDAP",191,0)
; also VPRATE = numeric amount, if ## ml/hr
"RTN","VPRSDAP",192,0)
I $G(PSTYPE)'="V" S DDEOUT=1 Q ""
"RTN","VPRSDAP",193,0)
N X S IEN=+$G(IEN)
"RTN","VPRSDAP",194,0)
S X=$$VALUE^ORX8(IEN,"RATE")
"RTN","VPRSDAP",195,0)
I X?1.N1" ml/hr".E S VPRATE=+X Q +X
"RTN","VPRSDAP",196,0)
S DDEOUT=1
"RTN","VPRSDAP",197,0)
Q ""
"RTN","VPRSDAP",198,0)
;
"RTN","VPRSDAP",199,0)
IVTYPE(IEN) ; -- return IV Type, or DDEOUT if invalid
"RTN","VPRSDAP",200,0)
I $G(PSTYPE)'="V" S DDEOUT=1 Q ""
"RTN","VPRSDAP",201,0)
N X,Y,ORPK,FN,FLD,IENS
"RTN","VPRSDAP",202,0)
S IEN=+$G(IEN),Y="",ORPK=$G(^OR(100,IEN,4))
"RTN","VPRSDAP",203,0)
I ORPK["P" S FN=53.1,FLD=53,IENS=+ORPK
"RTN","VPRSDAP",204,0)
E S FN=55.01,FLD=.04,IENS=+ORPK_","_DFN
"RTN","VPRSDAP",205,0)
S Y=$$GET1^DIQ(FN,IENS_",",FLD)
"RTN","VPRSDAP",206,0)
Q Y
"VER")
8.0^22.2
**END**
**END**