VPR LRAP REPORT (84) ENTITY (1.5)

Name	Value
NAME	VPR LRAP REPORT
DEFAULT FILE NUMBER	63.08
DATA MODEL	SDA
DISPLAY NAME	Document
ITEM	FromTime SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 63.08 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=9999999-(+DIEN) DocumentNumber SEQUENCE: 16 ITEM TYPE: ID OUTPUT TRANSFORM: S VALUE=+DIEN_";"_$G(LRSUB) DocumentCompletionStatus SEQUENCE: 19 ITEM TYPE: ENTITY FILE NUMBER: 63.08 FIELD NUMBER: .11 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE GET ACTION: S VALUE=$S($P($G(LR0),U,11):"C^COMPLETED",$P($G(LR0),U,3):"R^RELEASED",1:"D^DRAFT") ;final, if date exists EnteredBy SEQUENCE: 22 ITEM TYPE: ENTITY FILE NUMBER: 63.08 FIELD NUMBER: .02 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P($G(LR0),U,2) EnteredAt SEQUENCE: 23 ITEM TYPE: ENTITY FILE NUMBER: 63.08 ENTITY: VPR FACILITY GET ACTION: S VALUE=$G(VASITE) EnteredOn SEQUENCE: 24 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 63.08 FIELD NUMBER: .1 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(LR0),U,10) Extension SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 63.08 ENTITY: VPR LRAP EXTENSION GET ACTION: S VALUE=DIEN ToTime SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 63.08 FIELD NUMBER: .03 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(LR0),U,3) DocumentTime SEQUENCE: 6 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 63.08 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(LR0),U) NoteText SEQUENCE: 7 ITEM TYPE: WORD PROCESSING FILE NUMBER: 63.08 GET ACTION: D RPT^VPRSDAB(LRSUB,+DIEN) DocumentType SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 63.08 ENTITY: VPR CODE TABLE GET ACTION: S VALUE="LR^LABORATORY REPORT" Clinician SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 63.08 FIELD NUMBER: .02 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(LR0),U,2) AuthorizationTime SEQUENCE: 11 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 63.08 FIELD NUMBER: .11 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(LR0),U,11) DocumentName SEQUENCE: 12 ITEM TYPE: FIXED STRING GET ACTION: S VALUE="LR "_$$NAME^VPRDLRA($G(LRSUB))_" REPORT" FileType SEQUENCE: 13 ITEM TYPE: FIXED STRING FIXED RESPONSE: TXT
DESCRIPTION	This entity populates the Document container in HealthShare with Pathology reports that are not stored in TIU. Because these can come from the Surgical Pathology, Cytopathology, or Electron Microscropy sub-files in the Lab Data file #63, the GET ID ACTION code will set the Default File# for the appropriate sub-file based on the value of the IENS string in ID = IDT,LRDFN~SUB. ID = IDT,LRDFN~SUB
GET ENTRY ACTION	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")
GET EXIT ACTION	K LRDFN,LR0,LRSUB,VASITE
GET ID ACTION	D AP1^VPRSDAB(.DIEN)
GET QUERY ROUTINE	APRPTS^VPRSDAB