Routine: VPRSDAVF

Information

VPRSDAVF ;SLC/MKB -- SDA Vfile utilities ;7/29/22 14:11

Name	Comments	DBIA/ICR reference
EXAMS	; -- V Exams (Physical Exams)
HFACTORS	; -- V Health Factors (Health Concerns)
CPT	; -- V CPT (Procedures)
POV	; -- V POV (Diagnosis)
IMMS	; -- V Immunizations
PXRM	; -- Search PXRM index
ICR	; -- V Imm Contraindications/Refusals [query]
HFCVR	; -- V Health Factors, for COVID Vaccination Refusal [query]
CVR	;loop for ITEM
XAM1	; -- get info for single XAM record [ID Action] ; Expects/updates DIEN = #9000010.13 ien ; Returns VPRVST = #9000010 ien ; VPRVST0 = Visit zero node ; VPRXM array
HF1	; -- get info for single HF record [ID Action] ; Expects/updates DIEN = #9000010.23 ien ; Returns VPRVST = #9000010 ien ; VPRVST0 = Visit zero node ; VPRHF array
POV1	; -- get info for single POV record [ID Action] ; Expects/updates DIEN = #9000010.07 ien ; Returns VPRVST = #9000010 ien ; VPRVST0 = Visit zero node ; VPREDP = #230 ien or 0 ; VPRPOV array
POVNARR()	; -- build Original Text for POV
CPT1	; -- get info for single V CPT record [ID Action] ; Expects/updates DIEN = #9000010.18 ien ; Returns VPRVST = #9000010 ien ; VPRVST0 = Visit zero node ; VPRCPT array
VCPT(DA)	; -- ok to include V-CPT record in SDA?
DUP(VST,CPT,SUB)	; -- find V CPT match in VSUB file (IMM or SK)