VPR LRMI REPORT (90) ENTITY (1.5)

Name	Value
NAME	VPR LRMI REPORT
DEFAULT FILE NUMBER	63.05
DATA MODEL	SDA
DISPLAY NAME	Document
ITEM	FromTime SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 63.05 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_";MI" DocumentCompletionStatus SEQUENCE: 19 ITEM TYPE: ENTITY FILE NUMBER: 63.05 ENTITY: VPR CODE TABLE GET ACTION: S VALUE=$S($P($G(LR1),U,2)="F":"C^COMPLETED",1:"D^DRAFT") ;final or preliminary EnteredAt SEQUENCE: 23 ITEM TYPE: ENTITY FILE NUMBER: 63.05 FIELD NUMBER: .112 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=$P($G(LR0),U,14) S:'VALUE VALUE=$G(VASITE) EnteredOn SEQUENCE: 24 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 63.05 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.05 ENTITY: VPR LRMI EXTENSION GET ACTION: S VALUE=DIEN EnteredBy SEQUENCE: 22 ITEM TYPE: ENTITY FILE NUMBER: 63.05 ENTITY: VPR USER GET ACTION: S VALUE=$P($G(LR1),U,3) ToTime SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 63.05 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.05 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.05 GET ACTION: D RPT^VPRSDAB("MI",+DIEN) DocumentType SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 63.05 ENTITY: VPR CODE TABLE GET ACTION: S VALUE="LR^LABORATORY REPORT" Clinician SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 63.05 FIELD NUMBER: .04 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(LR0),U,4) AuthorizationTime SEQUENCE: 11 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 63.05 OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(LR1),U) DocumentName SEQUENCE: 12 ITEM TYPE: FIXED STRING GET ACTION: S VALUE="LR MICROBIOLOGY REPORT" FileType SEQUENCE: 13 ITEM TYPE: FIXED STRING FIXED RESPONSE: TXT
DESCRIPTION	This entity populates the Document container in HealthShare with Microbiology reports built from the MI subscript nodes in the LAB DATA (#63) file. It expects the MI sub-file IENS string and the subscript as 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,LR1,LRSUB,VASITE
GET ID ACTION	D AP1^VPRSDAB(.DIEN)
GET QUERY ROUTINE	MIRPTS^VPRSDAB