Routine: VPRSDADG

Information

VPRSDADG ;SLC/MKB -- SDA DG PTF utilities ;04/25/22 15:29

Name	Comments	DBIA/ICR reference
DXQ	; -- get PTF Dx via Admissions ; Query called from GET^DDE, returns DLIST(#)=ien ; Expects context variables DFN, DSTRT, DSTOP, DMAX
DX1	; -- get info for single PTF record [ID Action] ; Expects DIEN = #45 ien, returns VPRPOA & VPRPTF array
OPQ	; -- get PTF 601 procedure codes via Admissions ; Query called from GET^DDE, returns DLIST(#)=ien ; Expects context variables DFN, DSTRT, DSTOP, DMAX
OP1	; -- get info for single PTF record [ID Action] ; Expects DIEN = #45 iens, returns VPRPTF & VPRVST
MSE	;Using GETMSE^DGMSEUTL, build array for use in entity VPR PATIENT MSE ALL