Routine: VPRDVSIT

Information

VPRDVSIT ;SLC/MKB -- Visit/Encounter extract ;8/2/11 15:29

Name	Comments	DBIA/ICR reference
EN(DFN,BEG,END,MAX,ID)	; -- find patient's visits and appointments
ENQ	; end
ENAA	; -- allow search w/filter
IDT	; -- invert BEG and END dates for PCE format: ; IDT=(9999999-$P(VDT,"."))_"."_$P(VDT,".",2)
EN1(IEN,VST)	; -- return a visit in VST("attribute")=value
TIU(VISIT)	; -- add notes to VST("document")
POV(VISIT,VDT)	; -- return the primary Purpose of Visit as ICD^ProviderNarrative
ICD(IEN,DATE)	; -- return code^description^system for ICD code, or "^^" if error
CPT(VISIT)	; -- Return CPT code of encounter type
AMIS(X)	; -- return the AMIS code^name of Credit Stop X
CATG(X)	; -- Return name of visit Service Category code X
SERV(FTS)	; -- Return #42.4 Service for a Facility Treating Specialty
ADMVT(VAINDT)	; -- return movement# for related admission
ADM(IEN,DATE,ADM)	; -- return an admission in ADM("attribute")=value
INPT	; -- return current admission in ADM("attribute")=value [from ADM]
PTF(DFN,PTF,DATE)	; -- return ICD code^description^system for a PTF record
ENC(IEN,ENC)	; -- return an encounter in ENC("attribute")=value
XML(VISIT)	; -- Return patient visit as XML
LOOP()	; -- build sub-items string from NAMES and X
ADD(X)	; -- Add a line @VPR@(n)=X