Global: ^VAS(393

FileMan FileNo	FileMan Filename	Package
393	INCOMPLETE RECORDS	Incomplete Records Tracking

Package	Total	Routines
Incomplete Records Tracking	31	DGJ EDIT IRT RECORD DGJ ENTER IRT DEFICIENCY DGJOPRT1 DGJOPRT2 DGJOTP1 DGJOTP2 DGJOTPUL DGJPDEF1 DGJPDEF2 DGJSUM DGJTDEL DGJTEE DGJTEE1 DGJTEE2 DGJTEE3 DGJTEVT DGJTHLP DGJTUDIS DGJTUTL DGJTVW DGJTVW1 DGJTVW3 DGJXA DGJXA1 DGJXA2 DGJXA3 DGJXE DGJXE1 DGJXE4 ^VAS(393.41 DGJXE5

Package	Total	Routines
Incomplete Records Tracking	18	DGJBGJ DGJSUM DGJTDEL DGJTEE DGJTEE1 DGJTEE2 DGJTEE3 DGJTEVT DGJTVW DGJTVW1 DGJXA DGJXA1 DGJXA2 DGJXA3 DGJXE DGJXE1 DGJXE4 DGJXE5

Package	Total	FileMan Files
Text Integration Utility	1	TIU DOCUMENT(#8925)[1403]

Package	Total	FileMan Files
Registration	4	MEDICAL CENTER DIVISION(#40.8)[.06] PATIENT MOVEMENT(#405)[.04] FACILITY TREATING SPECIALTY(#45.7)[.07] PATIENT(#2)[.01]
Incomplete Records Tracking	3	MAS SERVICE(#393.1)[.08] IRT STATUS(#393.2)[.11] IRT TYPE OF DEFICIENCY(#393.3)[.02]
IFCAP	1	VENDOR(#440)[10.04]
Kernel	1	NEW PERSON(#200)[.09, .1, .12, .14, 10.02, 10.04, 10.06, 10.08]
Scheduling	1	HOSPITAL LOCATION(#44)[.05]

Fields, Total: 23

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `JAN 09, 1991` HELP-PROMPT: `Enter the patient for which this summary was created.` DESCRIPTION: `Enter the patient for which this summary or op report has been recorded.` CROSS-REFERENCE: `393^B` `1)= S ^VAS(393,"B",$E(X,1,30),DA)=""` `2)= K ^VAS(393,"B",$E(X,1,30),DA)`
.02	TYPE OF DEFICIENCY	0;2	POINTER TO IRT TYPE OF DEFICIENCY FILE (#393.3)	**********************REQUIRED FIELD********************** IRT TYPE OF DEFICIENCY(#393.3) LAST EDITED: `MAR 05, 1993` DESCRIPTION: `Enter the type of deficiency that is being tracked.`
.03	EVENT DATE	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:3991231X) X` LAST EDITED: `JUL 26, 1991` HELP-PROMPT: `TYPE A DATE BETWEEN 1/1/1980 AND 12/31/2099` DESCRIPTION: `Enter the date of the event (discharge date for discharge summaries, date of summary for interim summaries, or date of surgery for op reports).` CROSS-REFERENCE: `393^C` `1)= S ^VAS(393,"C",$E(X,1,30),DA)=""` `2)= K ^VAS(393,"C",$E(X,1,30),DA)`
.04	ADMISSION	0;4	POINTER TO PATIENT MOVEMENT FILE (#405)	PATIENT MOVEMENT(#405) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),""^"",2)=1,($P(^(0),""^"",3)=+^DGPM(DA,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 05, 1993` HELP-PROMPT: `Enter the admission associated with this report.` DESCRIPTION: `Enter the admission associated with this report. Enter nothing if this is an outpatient op report.` SCREEN: `S DIC("S")="I $P(^(0),""^"",2)=1,($P(^(0),""^"",3)=+^DGPM(DA,0))"` EXPLANATION: `Only admissions and only for same patient.` CROSS-REFERENCE: `^^TRIGGER^393^.13` `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` CROSS-REFERENCE: `393^ADM` `1)= S ^VAS(393,"ADM",$E(X,1,30),DA)=""` `2)= K ^VAS(393,"ADM",$E(X,1,30),DA)`
.05	LOCATION	0;5	POINTER TO HOSPITAL LOCATION FILE (#44)	**********************REQUIRED FIELD********************** HOSPITAL LOCATION(#44) INPUT TRANSFORM: `S DIC("S")="N CA S CA=$S($D(DGJTAIFN):DGJTAIFN,1:+$P(^VAS(393,DA,0),U,4)) I $P(^SC(+Y,0),U,3)=$S(CA:""W"",1:""C"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 10, 1992` HELP-PROMPT: `Enter the location of the patient at the time of the event.` DESCRIPTION: `Enter the location of the patient at the time of the event (discharge operation or interim summary.` SCREEN: `S DIC("S")="N CA S CA=$S($D(DGJTAIFN):DGJTAIFN,1:+$P(^VAS(393,DA,0),U,4)) I $P(^SC(+Y,0),U,3)=$S(CA:""W"",1:""C"")"` EXPLANATION: `Screen WARDS for inpatients, CLINICS for outpatients`
.06	DIVISION	0;6	POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)	**********************REQUIRED FIELD********************** MEDICAL CENTER DIVISION(#40.8) INPUT TRANSFORM: `S DIC("S")="I $D(^DG(40.8,+Y,0)) I $D(^DG(40.8,+Y,""DT"")) I $P(^DG(40.8,+Y,""DT""),""^"",1)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 10, 1992` HELP-PROMPT: `Enter the division at which this event took place.` DESCRIPTION: `Enter the division at which this event took place. Will initially be determined by the WARD field.` SCREEN: `S DIC("S")="I $D(^DG(40.8,+Y,0)) I $D(^DG(40.8,+Y,""DT"")) I $P(^DG(40.8,+Y,""DT""),""^"",1)=1"` EXPLANATION: `ONLY THOSE DIVISIONS THAT TRACK RECORDS.`
.07	SPECIALTY	0;7	POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)	**********************REQUIRED FIELD********************** FACILITY TREATING SPECIALTY(#45.7) INPUT TRANSFORM: `S DIC("S")="I $$ACTIVE^DGACT(45.7,Y,$G(DGJTDT))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 31, 1995` HELP-PROMPT: `Enter the patient's treating specialty. This must be an active treating specialty.` DESCRIPTION: `Enter the treating specialty the patient had at the time of this event.` SCREEN: `S DIC("S")="I $$ACTIVE^DGACT(45.7,Y,$G(DGJTDT))"` EXPLANATION: `Allows only active treating specialties.`
.08	SERVICE	0;8	POINTER TO MAS SERVICE FILE (#393.1)	**********************REQUIRED FIELD********************** MAS SERVICE(#393.1) LAST EDITED: `AUG 05, 1991` DESCRIPTION: `Enter the service responsible for filing this report. This field will be used to generate reports that are incomplete by service.` CROSS-REFERENCE: `393^AC` `1)= S ^VAS(393,"AC",$E(X,1,30),DA)=""` `2)= K ^VAS(393,"AC",$E(X,1,30),DA)`
.09	PRIMARY PHYSICIAN	0;9	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `JAN 22, 1993` HELP-PROMPT: `Enter the physician responsible for dictation of this report.` DESCRIPTION: `Enter the physician responsible for the patient... usually the physician that will be responsible for the dictation of the summary or report.` CROSS-REFERENCE: `^^TRIGGER^393^.12` `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.`
.1	ATTENDING PHYSICIAN	0;10	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 20, 1993` HELP-PROMPT: `Enter the physician responsible for reviewing this summary.` DESCRIPTION: `Enter the physician responsible for reviewing this summary (if applicable).` CROSS-REFERENCE: `393^AAT^MUMPS` `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.`
.11	STATUS	0;11	POINTER TO IRT STATUS FILE (#393.2)	**********************REQUIRED FIELD********************** IRT STATUS(#393.2) INPUT TRANSFORM: `D STATUS^DGJTHLP D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 20, 1993` DESCRIPTION: `Enter the status of this report at the present time.` SCREEN: `D STATUS^DGJTHLP` EXPLANATION: `Choose a STATUS`
.12	PHYSICIAN RESPONSIBLE	0;12	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `MAR 16, 1993` HELP-PROMPT: `Enter the physician who is responsible for the dictation of the summary or report.` DESCRIPTION: `This is the physician that is responsible for the dictation of the report.` NOTES: `TRIGGERED by the PRIMARY PHYSICIAN field of the INCOMPLETE RECORDS File` CROSS-REFERENCE: `^^TRIGGER^393^.14` `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.`
.13	INPATIENT REPORT?	0;13	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; HELP-PROMPT: `Enter 1 if this is an inpatient summary or op report, otherwise 0.` DESCRIPTION: `Enter 1 if this report is for an inpatient episode. Enter 0 if it is an outpatient op report.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the ADMISSION field of the INCOMPLETE RECORDS File`
.14	PHYSICIAN FOR DEFICIENCY	0;14	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 02, 1993` DESCRIPTION: `This field contains the name of the physician that is responsible for the deficiency at the present time. This field changes whenever an action is taken against a deficiency and the status changes. This field will be` `displayed on all the IRT reports as well as all of the enter/edit screens.` NOTES: `TRIGGERED by the PHYSICIAN RESPONSIBLE field of the INCOMPLETE RECORDS File`
10.01	DATE DICTATED	DT;1	DATE	INPUT TRANSFORM: `S %DT(0)="-NOW",%DT="ETX" D ^%DT K %DT(0) S X=Y K:Y<1 X` LAST EDITED: `MAR 03, 1993` HELP-PROMPT: `ENTER A DATE IN THE PAST OR NOW` DESCRIPTION: `Enter the date on which this record was dictated. Time of day may also be entered.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `393^ADD^MUMPS` `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.`
10.02	DICTATED BY	DT;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 03, 1993` HELP-PROMPT: `Enter the person who dictated this report` DESCRIPTION: `Enter the user responsible for dictation of this summary or op report.` CROSS-REFERENCE: `393^ADB^MUMPS` `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.`
10.03	DATE TRANSCRIBED	DT;3	DATE	INPUT TRANSFORM: `S %DT(0)="-NOW",%DT="ETX" D ^%DT K %DT(0) S X=Y K:Y<1 X` LAST EDITED: `MAR 02, 1993` HELP-PROMPT: `ENTER A DATE IN THE PAST OR NOW` DESCRIPTION: `Enter the date (or date/time) on which this report was transcribed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `393^ADT^MUMPS` `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.`
10.04	TRANSCRIBED BY	DT;4	VARIABLE POINTER	NEW PERSON(#200) VENDOR(#440) LAST EDITED: `MAR 02, 1993` DESCRIPTION: `Enter the person or vendor that transcribed this report.` TECHNICAL DESCR: CROSS-REFERENCE: `393^ATB^MUMPS` `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.`
10.05	DATE SIGNED	DT;5	DATE	INPUT TRANSFORM: `S %DT(0)="-NOW",%DT="ETX" D ^%DT K %DT(0) S X=Y K:Y<1 X` LAST EDITED: `MAR 02, 1993` HELP-PROMPT: `ENTER A DATE IN THE PAST OR NOW` DESCRIPTION: `Enter the date on which this summary was signed by the responsible provider.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `393^ADS^MUMPS` `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.`
10.06	SIGNED BY	DT;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 02, 1993` HELP-PROMPT: `Enter the name of the user that signed this report or summary.` DESCRIPTION: `Enter in this field the name of the provider that signed this summary or op report.` CROSS-REFERENCE: `393^ASB^MUMPS` `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.`
10.07	DATE REVIEWED	DT;7	DATE	INPUT TRANSFORM: `S %DT(0)="-NOW",%DT="ETX" D ^%DT K %DT(0) S X=Y K:Y<1 X` LAST EDITED: `MAR 03, 1993` HELP-PROMPT: `ENTER A DATE IN THE PAST OR NOW` DESCRIPTION: `Enter the date on which this summary or op report was reviewed. Entry of a review date/reviewer is optional.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `393^ADR^MUMPS` `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.`
10.08	REVIEWED BY	DT;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 03, 1993` HELP-PROMPT: `Enter the name of the physician responsible for reviewing this report.` DESCRIPTION: `Enter the name of the individual responsible for reviewing the signed summary or op report.` CROSS-REFERENCE: `393^ARB^MUMPS` `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.`
20.01	COMMENTS	MSG;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<3) X` LAST EDITED: `DEC 01, 1992` HELP-PROMPT: `Answer must be 3-200 characters in length.` DESCRIPTION: `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.`

Customize PDF page

Package: Incomplete Records Tracking

Global: ^VAS(393

Information

Description

Directly Accessed By Routines, Total: 33

Accessed By FileMan Db Calls, Total: 18

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 10

Fields, Total: 23