VPR RAD REPORT (89) ENTITY (1.5)

Name	Value
NAME	VPR RAD REPORT
DEFAULT FILE NUMBER	74
DATA MODEL	SDA
DISPLAY NAME	Document
ITEM	FromTime SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 74 FIELD NUMBER: 3 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) DocumentName SEQUENCE: 12 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 74 GET ACTION: S VALUE=$G(RAPROC) S:VALUE="" VALUE="RADIOLOGY REPORT" DocumentNumber SEQUENCE: 16 ITEM TYPE: ID OUTPUT TRANSFORM: S VALUE=VALUE_";RA" INPUT TRANSFORM: S:$P(VALUE,";",2)="RA" VALUE=+VALUE DocumentCompletionStatus SEQUENCE: 19 ITEM TYPE: ENTITY FILE NUMBER: 74 FIELD NUMBER: 5 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE OUTPUT TRANSFORM: I $D(VPRAE2),$D(@VPRAE2) S VALUE=VALUE_U_$P(@VPRAE2,U) EnteredBy SEQUENCE: 22 ITEM TYPE: ENTITY FILE NUMBER: 74 FIELD NUMBER: 11 RETURN INTERNAL VALUE: YES ENTITY: VPR USER EnteredAt SEQUENCE: 23 ITEM TYPE: ENTITY FILE NUMBER: 74 ENTITY: VPR FACILITY GET ACTION: S VALUE=$G(VASITE) EnteredOn SEQUENCE: 24 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 74 FIELD NUMBER: 6 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(@VPRAE2@("P")),U,3) FileType SEQUENCE: 13 ITEM TYPE: FIXED STRING FIXED RESPONSE: TXT Extension SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 74 ENTITY: VPR RAD RPT EXTENSION GET ACTION: S VALUE=DIEN ToTime SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 74 FIELD NUMBER: 7 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) DocumentTime SEQUENCE: 6 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 74 FIELD NUMBER: 3 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) NoteText SEQUENCE: 7 ITEM TYPE: WORD PROCESSING FILE NUMBER: 74 GET ACTION: M WP=@VPRAE3 DocumentType SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 74 ENTITY: VPR CODE TABLE GET ACTION: S VALUE="RA^RADIOLOGY REPORT" Clinician SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 70.03 FIELD NUMBER: 15 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(@VPRAE2@("P")),U) S:'VALUE VALUE=$P($G(@VPRAE2@("P")),U,2) I 'VALUE S DDEOUT=1 TranscriptionTime SEQUENCE: 10 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 74 FIELD NUMBER: 8 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) AuthorizationTime SEQUENCE: 11 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 74 FIELD NUMBER: 7 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
DESCRIPTION	This entity populates the Document container in HealthShare.
GET ENTRY ACTION	S VASITE=$$SITE^VPRSDA
GET EXIT ACTION	K ^TMP($J,"RAE2"),^TMP($J,"RAE3"),VPRXID,VPRAE2,VPRAE3,RAPROC,VASITE
GET ID ACTION	D RPT1^VPRSDAR
GET QUERY ROUTINE	RPTS^VPRSDAR