Global: ^VAS(393

Enter the patient for which this summary or op report has been recorded.

1)= S ^VAS(393,"B",$E(X,1,30),DA)=""

2)= K ^VAS(393,"B",$E(X,1,30),DA)

Enter the type of deficiency that is being tracked.

Enter the date of the event (discharge date for discharge summaries, date of summary for interim summaries, or date of surgery for op reports).

1)= S ^VAS(393,"C",$E(X,1,30),DA)=""

2)= K ^VAS(393,"C",$E(X,1,30),DA)

Enter the admission associated with this report.  Enter nothing if this is an outpatient op report.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAS(393,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(393,.04,1,1,1.4)

1.4)= S DIH=$S($D(^VAS(393,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=393,DIG=.13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= S X=1

DELETE VALUE)= NO EFFECT

FIELD)= INPA

1)= S ^VAS(393,"ADM",$E(X,1,30),DA)=""

2)= K ^VAS(393,"ADM",$E(X,1,30),DA)

Enter the location of the patient at the time of the event (discharge operation or interim summary.

Enter the division at which this event took place.  Will initially be determined by the WARD field.

Enter the treating specialty the patient had at the time of this event.

Enter the service responsible for filing this report.  This field will be used to generate reports that are incomplete by service.

1)= S ^VAS(393,"AC",$E(X,1,30),DA)=""

2)= K ^VAS(393,"AC",$E(X,1,30),DA)

Enter the physician responsible for the patient... usually the physician that will be responsible for the dictation of the summary or report.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAS(393,D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(393,.09,1,1,1.4)

1.4)= S DIH=$S($D(^VAS(393,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=393,DIG=.12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= INTERNAL(PRIMARY PHYSICIAN)

DELETE VALUE)= NO EFFECT

FIELD)= PHYSICIAN RESPONSIBLE

This trigger will update the Physician Responsible field with the value of the Primary Physician field.

Enter the physician responsible for reviewing this summary (if applicable).

1)= S DGJATTD=1 D PHYDEF^DGJTUTL

2)= S DGJATTD=1 D PHYDEF^DGJTUTL

This MUMPS cross reference acts like a trigger that updates the Physician for Deficiency field in file 393.  If the attending physician is changed the record status is transcribed and the Physician for Signature is set to

attending then the Physician for Deficiency will be updated with the new attending physicians name.

Enter the status of this report at the present time.

This is the physician that is responsible for the dictation of the report.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X D PHYSRTRG^DGJTUTL I X S X=DIV S Y(1)=$S($D(^VAS(393,D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(393,.12,1,1,1.4)

1.4)= S DIH=$S($D(^VAS(393,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,14)=DIV,DIH=393,DIG=.14 D ^DICR:$N(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= D PHYSRTRG^DGJTUTL

CREATE VALUE)= INTERNAL(PHYSICIAN RESPONSIBLE)

DELETE VALUE)= NO EFFECT

FIELD)= PHYSICIAN FOR DE

This trigger updates the Physician for Deficiency field.

Enter  1 if this report is for an inpatient episode.  Enter 0 if it is an outpatient op report.

WRITE AUTHORITY:  ^

displayed on all the IRT reports as well as all of the enter/edit screens.

Enter the date on which this record was dictated.  Time of day may also be entered.

1)= S DGJFDIC=1 D PHYDEF^DGJTUTL

2)= S DGJFDIC=1 D PHYDEF^DGJTUTL

This MUMPS cross reference acts like a trigger that updates the Physician for Deficiency field in file 393.

Enter the user responsible for dictation of this summary or op report.

1)= S DGJFDIC=1 D PHYDEF^DGJTUTL

2)= S DGJFDIC=1 D PHYDEF^DGJTUTL

This MUMPS cross reference acts like a trigger that updates the Physician for Deficiency field in file 393.

Enter the date (or date/time) on which this report was transcribed.

1)= S DGJFSIG=1 D PHYDEF^DGJTUTL

2)= S DGJFSIG=1 D PHYDEF^DGJTUTL

This MUMPS cross reference acts like a trigger that updates the Physician for Deficiency field in file 393.

Enter the person or vendor that transcribed this report.

1)= S DGJFSIG=1 D PHYDEF^DGJTUTL

2)= S DGJFSIG=1 D PHYDEF^DGJTUTL

This MUMPS cross reference acts like a trigger that updates the Physician for Deficiency field in file 393.

Enter the date on which this summary was signed by the responsible provider.

1)= S DGJFREV=1 D PHYDEF^DGJTUTL

2)= S DGJFREV=1 D PHYDEF^DGJTUTL

This Mumps Cross reference acts like a trigger. It will update the Physician for Deficiency field.

Enter in this field the name of the provider that signed this summary or op report.

1)= S DGJFREV=1 D PHYDEF^DGJTUTL

2)= S DGJFREV=1 D PHYDEF^DGJTUTL

This Mumps Cross reference acts like a trigger. It will update the Physician for Deficiency field.

Enter the date on which this summary or op report was reviewed.  Entry of a review date/reviewer is optional.

1)= S DGJREVD=1 D PHYDEF^DGJTUTL

2)= S DGJREVD=1 D PHYDEF^DGJTUTL

This MUMPS cross reference acts like a trigger that updates the Physician for Deficiency field in file 393.

Enter the name of the individual responsible for reviewing the signed summary or op report.

1)= S DGJREVD=1 D PHYDEF^DGJTUTL

2)= S DGJREVD=1 D PHYDEF^DGJTUTL

This MUMPS cross reference acts like a trigger that updates the Physician for Deficiency field in file 393.

This field is a free text field that the user may add any comments that they need to, in regards to the deficiency.  Each deficiency has a comment field.