Global: ^DGPM

FileMan FileNo	FileMan Filename	Package
405	PATIENT MOVEMENT	Registration

Package	Total	Routines
Registration	59	DG53208P DGBLRV DGOTHFS4 DGPMEVT DGPMHST DGPMUTL DGPMV10 DGPMV3 DGPMV30 DGPMV301 DGPMV31 DGPMV32 DGPMV321 DGPMV322 DGPMV33 DGPMV331 DGPMV35 DGPMV36 DGPMVDL DGPMVDL1 DGPMX1 DGPMX2 DGPMX22 DGPMX3 DGPMX4 DGPMX5 DGPMX6 DGPMXA DGPMXAS DGPMXAS1 DGPMXX1 DGPMXX2 DGPTAPP1 DGPTFCR DGPTFDEL DGPTRNU DGPTTS1 DGPTTS2 DGRPC2 DGRUADT DGRUADT0 DGRUGA01 DGRUGA02 DGRUGA03 DGRUGA08 DGRUGA11 DGRUGA12 DGRUGA13 DGRUGA21 DGRUGA22 DGRUGC DGRUGDS DGRUGPRP DGRUUTL1 DGSWITCH VADPT30 VADPT31 VAFHLDG1 VAFHLPV2
Integrated Billing	10	IB20PT81 IB20PT84 IBOHLS1 IBOMHC IBTRH1A IBTRH2 IBTRH5C IBTRH7 IBTRHDE IBTUBO2
Scheduling	6	SDECEP SDECEPT SDES2EPT SDES2GETSTATUS SDES2SETCHECKOUT SDESCHECKOUT
DSS Extracts	4	ECXMOV ECXSETUP ECXTRT ECXUTL2
Methicillin Resistant Staph Aurerus Initiative Reports	4	MMRSCDI MMRSCDI2 MMRSCRE2 MMRSCRE3
VistA Integration Adapter	4	VIABMS VIABMS1 VIABMS2 VIABPOST
Virtual Patient Record	3	VPRDJ04A VPREVNT1 VPRSDADG
Wounded Injured and Ill Warriors	3	WIIACT4 WIIELG WIILM02
Clinical Reminders	2	PXRMINPL PXRMPDEM
Enterprise Health Management Platform	2	HMPDJ04A HMPEQLM
Mental Health	2	YSBWHIG2 YSBWHIGH
Adverse Reaction Tracking	1	GMRAPEM0
Automated Medical Information Exchange	1	DVBAADMR
Clinical Case Registries	1	RORXU001
Clinical Procedures	1	MDRPCOP
Incomplete Records Tracking	1	DGJBGJ
National Health Information Network	1	NHINVSIT
ODS	1	A1B2ADM
Patient Assessment Documentation	1	NUPAOBJ
Record Tracking	1	RTNQ41
Text Integration Utility	1	TIULV

Package	Total	FileMan Files
DSS Extracts	18	ADMISSION EXTRACT(#727.802)[30] CLINIC NOSHOW EXTRACT(#727.804)[10] NURSING EXTRACT(#727.805)[14] DENTAL EXTRACT(#727.806)[46] PHYSICAL MOVEMENT EXTRACT(#727.808)[12] UNIT DOSE LOCAL EXTRACT(#727.809)[14] PRESCRIPTION EXTRACT(#727.81)[19] SURGERY EXTRACT(#727.811)[25] LABORATORY EXTRACT(#727.813)[16] RADIOLOGY EXTRACT(#727.814)[17] EVENT CAPTURE LOCAL EXTRACT(#727.815)[23] TREATING SPECIALTY CHANGE EXTRACT(#727.817)[12] IV DETAIL EXTRACT(#727.819)[14] ADMISSION SETUP EXTRACT(#727.82)[30] PHYSICAL MOVEMENT SETUP EXTRACT(#727.821)[12] TREATING SPECIALTY CHANGE SETUP EXTRACT(#727.822)[12] LAB RESULTS EXTRACT(#727.824)[17] QUASAR EXTRACT(#727.825)[23]
Integrated Billing	7	TRANSFER PRICING TRANSACTIONS(#351.61)[1.08] SPECIAL INPATIENT BILLING CASES(#351.2)[.02] CLAIMS TRACKING(#356)[.05] INPATIENT DIAGNOSIS(#356.9)[.02] INPATIENT PROCEDURE(#356.91)[.02] INPATIENT INTERIM DRG(#356.93)[.02] INPATIENT PROVIDERS(#356.94)[.02]
Registration	5	CENSUS WORKFILE(#45.85)[.03] PATIENT MOVEMENT(#405)[.14, .15, .17, .21, .24] SCHEDULED ADMISSION(#41.1)[17] PATIENT(#2)[.102, .105] ADT/HL7 PIVOT(#391.71)[.05]
Dietetics	2	DIETITIAN TICKLER FILE(#119)[#119.01(102)] NUTRITION EVENTS(#119.8)[3]
Incomplete Records Tracking	1	INCOMPLETE RECORDS(#393)[.04]
Occurrence Screen	1	QA OCCURRENCE SCREEN(#741)[.02]
Order Entry Results Reporting	1	OE/RR PATIENT EVENT(#100.2)[3, 12]
Text Integration Utility	1	TIU DOCUMENT(#8925)[1401]
Wounded Injured and Ill Warriors	1	WII ADMISSIONS DISCHARGES(#987.5)[.01]

Package	Total	FileMan Files
Registration	13	SHARING AGREEMENT SUB-CATEGORY(#35.2)[54] FACILITY MOVEMENT TYPE(#405.1)[.04] MAS MOVEMENT TYPE(#405.2)[.18] MAS MOVEMENT TRANSACTION TYPE(#405.3)[.02] ROOM-BED(#405.4)[.07] LODGING REASON(#406.41)[30.01] PATIENT MOVEMENT(#405)[.14, .15, .17, .21, .24] PTF(#45)[.16] WARD LOCATION(#42)[.06] VA ADMITTING REGULATION(#43.4)[.12] FACILITY TREATING SPECIALTY(#45.7)[.09] ELIGIBILITY CODE(#8)[.2] PATIENT(#2)[.03]
Kernel	2	INSTITUTION(#4)[.05] NEW PERSON(#200)[.08, .19, 43, 100, 102]
PCE Patient Care Encounter	1	VISIT(#9000010)[.27]

Fields, Total: 58

Field #	Name	Loc	Type	Details
.01	DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EST" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),'$D(DGPMT) W !?3,7,"USE BED CONTROL MOVEMENT OPTIONS!" K X` LAST EDITED: `MAR 12, 2018` HELP-PROMPT: `Enter the date and time of this patient movement.` DESCRIPTION: `Enter in this field the date/time of the movement (admission, transfer, discharge, treating specialty transfer, lodger check-in, or lodger check- out). Time must be included.` AUDIT: DELETE TEST: `1,0)= I '$D(DGPMT) W !?5,7,"Use bed control movement options"` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `405^B` `1)= S ^DGPM("B",$E(X,1,30),DA)=""` `2)= K ^DGPM("B",$E(X,1,30),DA)` CROSS-REFERENCE: `405^AINP1^MUMPS` `1)= S DGPMDDF=1 D ^DGPMDD1` `2)= S DGPMDDF=1 D ^DGPMDD2` CROSS-REFERENCE: `^^TRIGGER^2^.351` `1)= X ^DD(405,.01,1,3,1.3) I X S X=DIV X ^DD(405,.01,1,3,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIV X ^DD(405,.01,1,3,1.4)` `1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"") S X=$S('$D(^DG(405.2,+$P(Y(1),U,18),0)):"",1:$P(^(0),U,1))["DEATH"` `1.4)= S DIH=$S($D(^DPT(DIV(0),.35)):^(.35),1:""),DIV=X I $D(^(0)) S $P(^(.35),U,1)=DIV,DIH=2,DIG=.351 D ^DICR` `2)= Q` `89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DGPM(D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^DPT(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DPT(D0,.35)):^(.35),1:"")` `CREATE CONDITION)= MAS MOVEMENT TYPE["DEATH"` `CREATE VALUE)= DATE/TIME` `DELETE VALUE)= NO EFFECT` `FIELD)= PATIENT:DATE OF DEATH` CROSS-REFERENCE: `405^A22^MUMPS` `1)= S:$P(^DGPM(DA,0),U,22)="" $P(^(0),U,22)=0` `2)= Q` CROSS-REFERENCE: `^^TRIGGER^405^.24` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S('$D(^DGPM(+$P(^DGPM(DA,0),U,24),0)):0,1:X'=+^(0)) I X S X=DIV S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X="" X ^DD(405,.01,1,5,1.4)` `1.4)= S DIH=$G(^DGPM(DIV(0),0)),DIV=X S $P(^(0),U,24)=DIV,DIH=405,DIG=.24 D ^DICR` `2)= Q` `CREATE CONDITION)= S X=$S('$D(^DGPM(+$P(^DGPM(DA,0),U,24),0)):0,1:X'=+^(0))` `CREATE VALUE)= @` `DELETE VALUE)= NO EFFECT` `FIELD)= RELATED PHYSICAL MOVEMENT` CROSS-REFERENCE: `405^ADFN1^MUMPS` `1)= S:$P(^DGPM(DA,0),U,3) ^DGPM("ADFN"_$P(^(0),U,3),X,DA)=""` `2)= K:$P(^DGPM(DA,0),U,3) ^DGPM("ADFN"_$P(^(0),U,3),X,DA)` CROSS-REFERENCE: `405^AGL1^MUMPS` `1)= S Y=$P(^DGPM(DA,0),U,2) I Y,Y'=4,Y'=5,X,X` `2)= S Y=$P(^DGPM(DA,0),U,2) I Y,Y'=4,Y'=5,X,X` `CROSS-REFERENCE: 405^AODS1^MUMPS` `1)= I "^1^3^"[("^"_$P(^DGPM(DA,0),"^",2)_"^") S A1B2TAG="ADM" D ^A1B2XFR` `2)= I "^1^3^"[("^"_$P(^DGPM(DA,0),"^",2)_"^") S A1B2TAG="ADM" D ^A1B2XFR` `RECORD INDEXES: AC (#1515)`
.02	TRANSACTION	0;2	POINTER TO MAS MOVEMENT TRANSACTION TYPE FILE (#405.3)	**********************REQUIRED FIELD********************** MAS MOVEMENT TRANSACTION TYPE(#405.3) LAST EDITED: `MAR 13, 1990` HELP-PROMPT: `Enter the transaction type for this patient movement.` DESCRIPTION: `Enter in this field the transaction type of the movement. Choose from:` `1 ADMISSION` `2 TRANSFER` `3 DISCHARGE` `4 CHECK-IN LODGER` `5 CHECK-OUT LODGER` `6 SPECIALTY TRANSFER` `UNEDITABLE` CROSS-REFERENCE: `405^AINP2^MUMPS` `1)= S DGPMDDF=2 D ^DGPMDD1` `2)= S DGPMDDF=2 D ^DGPMDD2` RECORD INDEXES: `AC (#1515)`
.03	PATIENT	0;3	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `MAR 23, 1990` HELP-PROMPT: `Enter the NAME of the patient.` DESCRIPTION: `Enter the patient for which this movement occurred. This field is a pointer to the PATIENT file.` `UNEDITABLE` CROSS-REFERENCE: `405^C` `1)= S ^DGPM("C",$E(X,1,30),DA)=""` `2)= K ^DGPM("C",$E(X,1,30),DA)` CROSS-REFERENCE: `405^AINP3^MUMPS` `1)= S DGPMDDF=3 D ^DGPMDD1` `2)= S DGPMDDF=3 D ^DGPMDD2` CROSS-REFERENCE: `405^ADFN^MUMPS` `1)= S ^DGPM("ADFN"_X,+^DGPM(DA,0),DA)=""` `2)= K ^DGPM("ADFN"_X,+^DGPM(DA,0),DA)` RECORD INDEXES: `AC (#1515)`
.04	TYPE OF MOVEMENT	0;4	POINTER TO FACILITY MOVEMENT TYPE FILE (#405.1)	**********************REQUIRED FIELD********************** FACILITY MOVEMENT TYPE(#405.1) INPUT TRANSFORM: `S DIC("S")="I $D(DGPMT),($P(^(0),""^"",2)=DGPMT),$P(^(0),""^"",4) S DGER=0,DGPMTYP=$P(^(0),""^"",3) D:DGPMT<4!(DGPMT=6)!(DGPMT=5) @(""DICS^DGPMV3""_DGPMT) I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 29, 2011` HELP-PROMPT: `Enter the type of movement for this patient on the date/time entered.` DESCRIPTION: `Choose the type of movement this patient had. You will be selecting from active FACILITY MOVEMENT TYPES for which the TRANSACTION TYPE of this movement matches the TRANSACTION TYPE of the FACILITY MOVEMENT TYPE. For` `example, if you are admitting a patient, you will only be able to select active admission types.` SCREEN: `S DIC("S")="I $D(DGPMT),($P(^(0),""^"",2)=DGPMT),$P(^(0),""^"",4) S DGER=0,DGPMTYP=$P(^(0),""^"",3) D:DGPMT<4!(DGPMT=6)!(DGPMT=5) @(""DICS^DGPMV3""_DGPMT) I 'DGER"` EXPLANATION: `Transaction types must match and only allowable types can be chosen.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^405^.18` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV S X=$S($D(^DG(405.1,X,0)):$P(^(0),"^",3),1:"") X ^DD(405,.04,1,1,1.4)` `1.4)= S DIH=$G(^DGPM(DIV(0),0)),DIV=X S $P(^(0),U,18)=DIV,DIH=405,DIG=.18 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X="" S DIH=$G(^DGPM(DIV(0),0)),DIV=X S $P(^(0),U,18)=DIV,DIH=405,DIG=.18 D ^DICR` `CREATE VALUE)= S X=$S($D(^DG(405.1,X,0)):$P(^(0),"^",3),1:"")` `DELETE VALUE)= @` `FIELD)= MAS MOVEMENT TYPE`
.05	TRANSFER FACILITY	0;5	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) INPUT TRANSFORM: `I '$D(DGPMT) W !?3,*7,"USE BED CONTROL MOVEMENT OPTIONS!" K X` LAST EDITED: `JAN 17, 1991` HELP-PROMPT: `Enter the facility from/to which the patient was received/placed.` DESCRIPTION: `If this movement is a TRANSFER IN (admission from another facility), TRANSFER OUT (discharge to another facility), or an ASIH movement to another facility (TO ASIH (OTHER FACILITY), for example), you will be prompted for` `TRANSFER FACILITY and will be asked to choose from an entry in the INSTITUTION file. This field is required for those movement types mentioned above.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the MAS MOVEMENT TYPE field of the PATIENT MOVEMENT File` CROSS-REFERENCE: `405^AODS10^MUMPS` `1)= I $P(^DGPM(DA,0),"^",2)=3 S A1B2TAG="ADM" D ^A1B2XFR` `2)= I $P(^DGPM(DA,0),"^",2)=3 S A1B2TAG="ADM" D ^A1B2XFR`
.06	WARD LOCATION	0;6	POINTER TO WARD LOCATION FILE (#42)	**********************REQUIRED FIELD********************** WARD LOCATION(#42) INPUT TRANSFORM: `S DIC("S")="I $S($D(^(""ORDER"")):^(""ORDER""),1:0)" D W^DGPMVDD I $D(X) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) D WARD^DGPMVDD K:$D(DGOOS) X K DGOOS` LAST EDITED: `JUN 17, 2010` HELP-PROMPT: `Enter the ward on which the patient was placed.` DESCRIPTION: `Enter in this field the WARD to which this patient is being admitted or transferred to. Choose from ACTIVE entries in the WARD LOCATION file. This field will only be prompted for movements to WARDS at the home facility.` SCREEN: `S DIC("S")="I $S($D(^(""ORDER"")):^(""ORDER""),1:0)" D W^DGPMVDD I $D(X)` EXPLANATION: `Don't allow an inactive ward or one not on bed census` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `405^CN^MUMPS` `1)= S DGPMDDF=6,DGPMDDT=1 D ^DGPMDDCN` `2)= S DGPMDDF=6,DGPMDDT=0 D ^DGPMDDCN` CROSS-REFERENCE: `^^TRIGGER^405^.07` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" S DIH=$G(^DGPM(DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=405,DIG=.07 D ^DICR` `2)= Q` `CREATE VALUE)= @` `DELETE VALUE)= NO EFFECT` `FIELD)= ROOM-BED` CROSS-REFERENCE: `405^AGL6^MUMPS` `1)= S Y=^DGPM(DA,0) I +Y,Y` `2)= S Y=^DGPM(DA,0) I +Y,Y`
.07	ROOM-BED	0;7	POINTER TO ROOM-BED FILE (#405.4)	ROOM-BED(#405.4) INPUT TRANSFORM: `K:'$D(DGPMT) X I $D(X) S DIC("S")="I $D(^DG(405.4,""W"",+$P(^DGPM(DA,0),""^"",6),+Y)) D OCC^DGPMRB I 'DGPMOC" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) D ROOM^DGPMVDD K:$D(DGOOS) X K DGOOS` LAST EDITED: `DEC 04, 1990` HELP-PROMPT: `Enter the ROOM-BED to which this patient is assigned.` DESCRIPTION: `Select the ROOM-BED to which you are admitting or transferring this patient. Select from those ACTIVE beds in the ROOM-BED file which are assigned to the WARD LOCATION chosen for this movement.` SCREEN: `S DIC("S")="I $D(^DG(405.4,""W"",+$P(^DGPM(DA,0),""^"",6),+Y)) D OCC^DGPMRB I 'DGPMOC"` EXPLANATION: `Only those unoccupied beds on ward selected` EXECUTABLE HELP: `D ^DGPMRB K DZ Q` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the WARD LOCATION field of the PATIENT MOVEMENT File` CROSS-REFERENCE: `405^RM^MUMPS` `1)= S DGPMDDF=7,DGPMDDT=1 D ^DGPMDDCN` `2)= S DGPMDDF=7,DGPMDDT=0 D ^DGPMDDCN`
.08	PRIMARY PHYSICIAN	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,+$G(^DGPM(DA,0)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 23, 1999` HELP-PROMPT: `Enter the PROVIDER assigned to this patient with this movement.` DESCRIPTION: `Enter the healthcare provider with primary responsibility for the direct care of the patient. This may be the resident or intern in a teaching facility or the staff physician in a nonaffiliated hospital.` `This field will only be prompted for movements with a transaction type of 'specialty transfer'.` SCREEN: `S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,+$G(^DGPM(DA,0)))"` EXPLANATION: `Select active providers only.` EXECUTABLE HELP: `D HELP^DGPMDD(DA,+$G(^DGPM(DA,0)))` CROSS-REFERENCE: `405^APR^MUMPS` `1)= S DGPMDDF=8,DGPMDDT=1 D ^DGPMDDCN` `2)= S DGPMDDF=8,DGPMDDT=0 D ^DGPMDDCN`
.09	FACILITY TREATING SPECIALTY	0;9	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,$P($G(^DGPM(DA,0)),U))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 12, 2008` HELP-PROMPT: `Enter the TREATING SPECIALTY assigned to this patient with this movement. This must be an active treating specialty.` DESCRIPTION: `When entering a movement with a TRANSACTION TYPE of SPECIALTY CHANGE, you will be asked to provide the treating specialty assigned to this patient. Choose an entry from the FACILITY TREATING SPECIALTY file which best` `describes the care this patient is receiving.` SCREEN: `S DIC("S")="I $$ACTIVE^DGACT(45.7,Y,$P($G(^DGPM(DA,0)),U))"` EXPLANATION: `Allows only active treating specialties.` AUDIT: `YES, ALWAYS` CROSS-REFERENCE: `405^ATS^MUMPS` `1)= S DGPMDDF=9 D ^DGPMDD1` `2)= S DGPMDDF=9 D ^DGPMDD2` CROSS-REFERENCE: `405^ATR^MUMPS` `1)= S DGPMDDF=9,DGPMDDT=1 D ^DGPMDDCN` `2)= S DGPMDDF=9,DGPMDDT=0 D ^DGPMDDCN` CROSS-REFERENCE: `405^AODS3S^MUMPS` `1)= I $D(^DGPM(+$P(^DGPM(DA,0),"^",24),0)),($P(^(0),"^",2)=1) S A1B2TAG="ADM1" D ^A1B2XFR` `2)= I $D(^DGPM(+$P(^DGPM(DA,0),"^",24),0)),($P(^(0),"^",2)=1) S A1B2TAG="ADM1" D ^A1B2XFR` CROSS-REFERENCE: `405^AGL9^MUMPS` `1)= S Y=^DGPM(DA,0) I +Y,Y` `2)= S Y=^DGPM(DA,0) I +Y,Y` `This is set to trigger the G&L Corrections routine to create an entry in the G&L Corrections File if there is a facility treating specialty change, needed to set recalc date for the Treating Specialty Report accurancy. If` `Facility TS change, NOT just a provider change will cause this to create and entry in the G&L Corrections File.` `CROSS-REFERENCE: 405^ADGRU09^MUMPS` `1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01($$GET1^DIQ(405,DA,.03,"I"))` `2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01($$GET1^DIQ(405,DA,.03,"I"))` `This cross reference is used to remember that changes were made to a monitored data field in the PATIENT MOVEMENT File (#405) required for a vendor RAI/MDS COTS system. Execution of this cross reference will create an` `entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.` `The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.`
.1	DIAGNOSIS [SHORT]	0;10	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!(X[";") X` LAST EDITED: `FEB 04, 1992` HELP-PROMPT: `Enter a 3-30 character description of the diagnosis associated with this movement excluding semi-colons.` DESCRIPTION: `When admitting a patient, you will be asked to provide a brief desciption of the diagnosis of this patient upon admission.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.11	ADMITTED FOR SC CONDITION?	0;11	SET	'1' FOR YES; '0' FOR NO; HELP-PROMPT: `Is this service-connected veteran being admitted for a service connected condition?` DESCRIPTION: `Is this patient being admitted for a service connected condition?`
.12	ADMITTING REGULATION	0;12	POINTER TO VA ADMITTING REGULATION FILE (#43.4)	**********************REQUIRED FIELD********************** VA ADMITTING REGULATION(#43.4) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),""^"",4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Select from the available listing the admitting regulation under which this patient is being admitted if this movement type is an admission.` DESCRIPTION: `When admitting a patient, you must choose an active ADMITTING REGULATION which best describes the category under which this patient is being admitted.` SCREEN: `S DIC("S")="I '$P(^(0),""^"",4)"` EXPLANATION: `Select active regulations only.`
.13	ABSENCE RETURN DATE	0;13	DATE	INPUT TRANSFORM: `K:'$D(DGPMT) X I $D(X) S %DT="EX" D ^%DT S X=Y K:Y<1!(Y<$P($P(^DGPM(DA,0),"^",1),".",1)) X I $D(X) D ABSRET^DGPMVDD` LAST EDITED: `OCT 03, 1990` HELP-PROMPT: `For absences, if desired, enter the date on which the patient is expected to return. Date must be on or after movement date.` DESCRIPTION: `If the patient is being transferred to an absence status (via the AUTH ABSENCE 96 HOURS OR LESS or AUTHORIZED ABSENCE transfer types), you will be asked to provide the date this patient is expected to return. If you` `choose to transfer the patient with AUTH ABSENCE 96 HOURS OR LESS, this date must be less than or equal to 4 days from the date of transfer. If you choose to transfer the patient AUTHORIZED ABSENCE, the date of return` `most be more than 4 days after the date of transfer.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.14	ADMISSION/CHECK-IN MOVEMENT	0;14	POINTER TO PATIENT MOVEMENT FILE (#405)	**********************REQUIRED FIELD********************** PATIENT MOVEMENT(#405) INPUT TRANSFORM: `S DIC("S")="S DGZ=^DGPM(DA,0) I $D(DGPMT),($P(^DGPM(+Y,0),""^"",3)=$P(DGZ,""^"",3)),$P(DGZ,""^"",1)'<$P(^DGPM(+Y,0),""^"",1) K DGZ" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 10, 2010` HELP-PROMPT: `Enter the admission or check-in movement with which this movement is associated.` DESCRIPTION: `This field is a pointer to the admission or check-in lodger movement which is associated with the transaction being entered.` SCREEN: `S DIC("S")="S DGZ=^DGPM(DA,0) I $D(DGPMT),($P(^DGPM(+Y,0),""^"",3)=$P(DGZ,""^"",3)),$P(DGZ,""^"",1)'<$P(^DGPM(+Y,0),""^"",1) K DGZ"` EXPLANATION: `Movement doesn't precede admission or check-in movement for same patient.` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `405^AINP14^MUMPS` `1)= S DGPMDDF=14 D ^DGPMDD1` `2)= S DGPMDDF=14 D ^DGPMDD2` CROSS-REFERENCE: `405^CA` `1)= S ^DGPM("CA",$E(X,1,30),DA)=""` `2)= K ^DGPM("CA",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^405^.17` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I "^3^5^"[("^"_$P(^DGPM(DA,0),"^",2)_"^") I X S X=DIV X ^DD(405,.14,1,3,89.2) S X=$P($G(^DGPM(+$P(Y(101),U,17),0)),U) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DA X ^DD(405,.14,1,3,1.4)` `1.4)= S DIH=$G(^DGPM(DIV(0),0)),DIV=X I $D(^(0)) S $P(^(0),U,17)=DIV,DIH=405,DIG=.17 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I "^3^5^"[("^"_$P(^DGPM(DA,0),"^",2)_"^") I X S X=DIV X ^DD(405,.14,1,3,89.2) S X=$P($G(^DGPM(+$P(Y(101),U,17),0)),U) S D0=I(0,0) S DIU=X K Y S X="" X ^DD(405,.14,1,3,2.4)` `2.4)= S DIH=$G(^DGPM(DIV(0),0)),DIV=X I $D(^(0)) S $P(^(0),U,17)=DIV,DIH=405,DIG=.17 D ^DICR` `89.2)= S I(0,0)=$G(D0),Y(1)=$S($D(^DGPM(D0,0)):^(0),1:""),D0=$P(Y(1),U,14) S:'D0!'$D(^DGPM(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DGPM(D0,0)):^(0),1:"")` `CREATE CONDITION)= I "^3^5^"[("^"_$P(^DGPM(DA,0),"^",2)_"^")` `CREATE VALUE)= S X=DA` `DELETE CONDITION)= I "^3^5^"[("^"_$P(^DGPM(DA,0),"^",2)_"^")` `DELETE VALUE)= @` `FIELD)= ADMISSION/CHECK-IN:.17` `This trigger will automatically set the 17th piece of the admission or check-in movement if a discharge or check-out movement is entered. The 17th piece is a pointer from the admission to the discharge movement, or, in the` `case of lodgers, a pointer from the check-in movement to the check- out movement.`
.15	ASIH ADMISSION	0;15	POINTER TO PATIENT MOVEMENT FILE (#405)	**********************REQUIRED FIELD********************** PATIENT MOVEMENT(#405) INPUT TRANSFORM: `K:'$D(DGPMT) X I $D(X) S DIC("S")="S DGZ=^DGPM(DA,0) I $P(^DGPM(+Y,0),""^"",3)=$P(DGZ,""^"",3),$P(DGZ,""^"",1)'<$P(^DGPM(+Y,0),""^"",1) K DGZ" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 05, 1990` DESCRIPTION: `This field is set internally by the module. If a patient is transferred either TO ASIH FROM NHCU/DOM or CONTINUED ASIH, this field will point to the entry in this file which holds the admission created by the module.` SCREEN: `S DIC("S")="S DGZ=^DGPM(DA,0) I $P(^DGPM(+Y,0),""^"",3)=$P(DGZ,""^"",3),$P(DGZ,""^"",1)'<$P(^DGPM(+Y,0),""^"",1) K DGZ"` EXPLANATION: `Movement must not precede ASIH movement for same patient.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.16	PTF ENTRY	0;16	POINTER TO PTF FILE (#45)	PTF(#45) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),""^"",1)=$P(^DGPM(DA,0),""^"",3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:Y Y=+Y` LAST EDITED: `FEB 04, 1992` HELP-PROMPT: `The number of the entry in the PTF (45) file associated with this movement.` DESCRIPTION: `This field is used for movements with a TRANSACTION TYPE of admission only. It stores the internal entry number of the record in the PTF file.` SCREEN: `S DIC("S")="I $P(^(0),""^"",1)=$P(^DGPM(DA,0),""^"",3)"` EXPLANATION: `Select PTF entry for same patient.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `405^APTF` `1)= S ^DGPM("APTF",$E(X,1,30),DA)=""` `2)= K ^DGPM("APTF",$E(X,1,30),DA)`
.17	DISCHARGE/CHECK-OUT MOVEMENT	0;17	POINTER TO PATIENT MOVEMENT FILE (#405)	PATIENT MOVEMENT(#405) INPUT TRANSFORM: `I '$D(DGPMT) K X W !?3,*7,"USE BED CONTROL MOVEMENT OPTIONS TO EDIT"` LAST EDITED: `JUL 05, 1990` HELP-PROMPT: `Answer with the movement which removes this patient from inpatient/lodger care.` DESCRIPTION: `Pointer to the discharge or check-out movement associated with this admission or check-in. If not defined, the patient is still in-house.` `WRITE AUTHORITY: ^` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the ADMISSION/CHECK-IN MOVEMENT field of the PATIENT MOVEMENT File` CROSS-REFERENCE: `405^ADIS^MUMPS` `1)= D XREF^DGPMDDCN` `2)= D XREF^DGPMDDCN`
.18	MAS MOVEMENT TYPE	0;18	POINTER TO MAS MOVEMENT TYPE FILE (#405.2)	**********************REQUIRED FIELD********************** MAS MOVEMENT TYPE(#405.2) LAST EDITED: `JUN 17, 2010` HELP-PROMPT: `A pointer to the MAS Movement Type file. Created by the module.` DESCRIPTION: `This field is internally set by the module. When you enter a FACILITY MOVEMENT TYPE (field .04 of this file), this field will automatically be set to the internal number of the MAS-distributed movement type to which this` `FACILITY MOVEMENT TYPE points. This internal number is used throughout the code of MAS and various other packages to determine the flow of processing that should occur.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the TYPE OF MOVEMENT field of the PATIENT MOVEMENT File` CROSS-REFERENCE: `^^TRIGGER^405^.05` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I "MAS MOVEMENT TYPE"'="TRANSFER IN"&("MAS MOVEMENT TYPE"'="TRANSFER OUT") I X S X=DIV S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(405,.18,1` `,1,1.4)` `1.4)= S DIH=$G(^DGPM(DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=405,DIG=.05 D ^DICR` `2)= Q` `CREATE CONDITION)= I "MAS MOVEMENT TYPE"'="TRANSFER IN"&("MAS MOVEMENT TYPE"'="TRANSFER OUT")` `CREATE VALUE)= @` `DELETE VALUE)= NO EFFECT` `FIELD)= TRANSFER FACILITY` CROSS-REFERENCE: `^^TRIGGER^2^.351` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S('$D(^DG(405.2,+Y(0),0)):"",1:$P(^(0),U,1))["DEATH" I X S X=DIV X ^DD(405,.18,1,2,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y X ^DD(405,.18,1,2,1.1) X ^DD(405,.18,1,2,1` `.4)` `1.1)= S X=DIV S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"") S X=$P(Y(1),U,1)` `1.4)= S DIH=$S($D(^DPT(DIV(0),.35)):^(.35),1:""),DIV=X I $D(^(0)) S $P(^(.35),U,1)=DIV,DIH=2,DIG=.351 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S('$D(^DG(405.2,+X,0)):"",1:$P(^(0),U,1))["DEATH" I X S X=DIV X ^DD(405,.18,1,2,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y S X="" X ^DD(405,.18,1,2,2.4)` `2.4)= S DIH=$S($D(^DPT(DIV(0),.35)):^(.35),1:""),DIV=X I $D(^(0)) S $P(^(.35),U,1)=DIV,DIH=2,DIG=.351 D ^DICR` `89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DGPM(D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^DPT(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DPT(D0,.35)):^(.35),1:"")` `CREATE CONDITION)= MAS MOVEMENT TYPE["DEATH"` `CREATE VALUE)= MOVEMENT DATE/TIME` `DELETE CONDITION)= OLD MAS MOVEMENT TYPE["DEATH"` `DELETE VALUE)= @` `FIELD)= .03:DATE OF DEATH` CROSS-REFERENCE: `405^AGL18^MUMPS` `1)= S Y=^DGPM(DA,0) I +Y,Y` `2)= S Y=^DGPM(DA,0) I +Y,Y` `CROSS-REFERENCE: 405^AODS5^MUMPS` `1)= I $P(^DGPM(DA,0),"^",2)=3 S A1B2TAG="ADM" D ^A1B2XFR` `2)= I $P(^DGPM(DA,0),"^",2)=3 S A1B2TAG="ADM" D ^A1B2XFR`
.19	ATTENDING PHYSICIAN	0;19	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,+$G(^DGPM(DA,0)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 04, 1995` HELP-PROMPT: `The name of the physician attending to this patient. Can be the same as the PRIMARY CARE PHYSICIAN.` DESCRIPTION: `Enter the supervising physician who is responsible for the care of the patient. Nonaffiliated hospitals may choose not to use this field.` `This field will be prompted for movements with a transaction type of 'specialty change' only.` SCREEN: `S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,+$G(^DGPM(DA,0)))"` EXPLANATION: `only active providers` EXECUTABLE HELP: `D HELP^DGPMDD(DA,+$G(^DGPM(DA,0)))` CROSS-REFERENCE: `405^AAP^MUMPS` `1)= S DGPMDDF=19,DGPMDDT=1 D ^DGPMDDCN` `2)= S DGPMDDF=19,DGPMDDT=0 D ^DGPMDDCN` `This cross-reference is used to update the ATTENDING PHYSICIAN field (.1041) in the PATIENT file. That field stores the current attending physician for all current inpatients.`
.2	ADMITTING ELIGIBILITY	0;20	POINTER TO ELIGIBILITY CODE FILE (#8)	**********************REQUIRED FIELD********************** ELIGIBILITY CODE(#8) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),""^"",7)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 11, 1992` HELP-PROMPT: `Answer with the ELIGIBILITY CODE which best describes the entitlement under which this patient is being admitted.` DESCRIPTION: `This field will be used in a future version to track the eligibility of a patient upon admission. This information will be used in the VISIT file which is being developed for use in DoD facilities.` SCREEN: `S DIC("S")="I '$P(^(0),""^"",7)"` EXPLANATION: `Only active eligibilities allowed.`
.21	ASIH TRANSFER	0;21	POINTER TO PATIENT MOVEMENT FILE (#405)	**********************REQUIRED FIELD********************** PATIENT MOVEMENT(#405) INPUT TRANSFORM: `I '$D(DGPMT) W !?3,*7,"USE BED CONTROL MOVEMENT OPTIONS TO EDIT" K X` LAST EDITED: `JUL 05, 1990` DESCRIPTION: `This field is internally set by the module. If the MAS MOVEMENT TYPE of this movement is TO ASIH, this field will contain a pointer to the transfer movement that created this admission (either a TO ASIH transfer or a` `CONTINUED ASIH transfer).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.22	ASIH SEQUENCE	0;22	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>2)!(X<0)!(X?.E1"."1N.N) X I $D(X),'$D(DGPMT) W !?3,*7,"USE BED CONTROL MOVEMENT OPTIONS TO EDIT" K X` LAST EDITED: `JUL 05, 1990` HELP-PROMPT: `Type a Number between 0 and 2, 0 Decimal Digits` DESCRIPTION: `This field is used internally by the module for movements that are ASIH. When transferring a patient ASIH to your own facility, there are 2 movements created at the same date/time (the admission and the transfer). This` `is also true for discharges FROM ASIH where both a discharge and a transfer occur at the same date/time. The movement that physically occurs first (the transfer in the first example, and the discharge in the second) will` `have a sequence number of 1 while the subsequent movement will have a sequence number of 2. This number (divided by 100000000) will be added to the date/time of the movement to aid in cross-referencing these movements.` `This is intended to make code generation quicker. [NOTE: non- ASIH movements will have a ASIH SEQUENCE of 0]` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `405^AINP22^MUMPS` `1)= S DGPMDDF=22 D ^DGPMDD1` `2)= S DGPMDDF=22 D ^DGPMDD2`
.23	DMMS EPISODE NUMBER	0;23	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 15, 1990` HELP-PROMPT: `Type a Number between 1 and 99999, 0 Decimal Digits` DESCRIPTION: `This field has been added for use by the DMMS package. It will hold the episode number of the movement as defined internally by that package.` CROSS-REFERENCE: `405^AINP23^MUMPS` `1)= S DGPMDDF=23 D ^DGPMDD1` `2)= S DGPMDDF=23 D ^DGPMDD2`
.24	RELATED PHYSICAL MOVEMENT	0;24	POINTER TO PATIENT MOVEMENT FILE (#405)	PATIENT MOVEMENT(#405) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)'=6,$P(^(0),U,14)=$P(^DGPM(DA,0),U,14),$S('$O(^DGPM(""APHY"",Y,0)):1,1:DA=$O(^(0)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 02, 1990` DESCRIPTION: `This field will be stored for movements with a TRANSACTION TYPE of TREATING SPECIALTY only. If the treating specialty transfer is in conjunction with a physical movement (either an admission or a transfer), this field` `will contain a pointer to that physical movement.` SCREEN: `S DIC("S")="I $P(^(0),U,2)'=6,$P(^(0),U,14)=$P(^DGPM(DA,0),U,14),$S('$O(^DGPM(""APHY"",Y,0)):1,1:DA=$O(^(0)))"` EXPLANATION: `Allows only physical movenments for same corresponding admission.` NOTES: `TRIGGERED by the DATE/TIME field of the PATIENT MOVEMENT File` CROSS-REFERENCE: `405^APHY` `1)= S ^DGPM("APHY",$E(X,1,30),DA)=""` `2)= K ^DGPM("APHY",$E(X,1,30),DA)`
.25	SCHEDULED ADMISSION?	0;25	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 21, 1990` HELP-PROMPT: `Was this admission scheduled?` DESCRIPTION: `If this admission was a result of a previously scheduled admission, this field should be answered yes. This field will be filled in for movements with a TRANSACTION of ADMISSION only.` `UNEDITABLE`
.26	PTF PURGE STATUS	0;26	SET	'1' FOR PURGED; '0' FOR ACTIVE; LAST EDITED: `DEC 22, 1992`
.27	VISIT FILE ENTRY	0;27	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) INPUT TRANSFORM: `S DIC("S")="I $P(^DGPM(+DA,0),""^"",2)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X K:$D(X) X` LAST EDITED: `MAR 31, 1993` HELP-PROMPT: `This is the Visit Tracking pointer. Stored here just to make sure it's included in the event driver.` SCREEN: `S DIC("S")="I $P(^DGPM(+DA,0),""^"",2)=1"` EXPLANATION: `If Patient Movement is an admission then vaild.` `WRITE AUTHORITY: ^` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `405^AVISIT` `1)= S ^DGPM("AVISIT",$E(X,1,30),DA)=""` `2)= K ^DGPM("AVISIT",$E(X,1,30),DA)` CROSS-REFERENCE: `405^AVST^MUMPS` `1)= S:$P(^DGPM(DA,0),U,3) ^DGPM("AVST",$P(^DGPM(DA,0),U,3),X,DA)=""` `2)= K:$P(^DGPM(DA,0),U,3) ^DGPM("AVST",$P(^DGPM(DA,0),U,3),X,DA)`
30.01	REASON FOR LODGING	LD;1	POINTER TO LODGING REASON FILE (#406.41)	**********************REQUIRED FIELD********************** LODGING REASON(#406.41) LAST EDITED: `MAR 04, 1990` DESCRIPTION: `Enter the reason this patient was lodged (inclement weather, traveling distance, etc.).`
30.02	LODGING COMMENTS	LD;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 24, 1990` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `Enter an additional comment on why this patient is being lodged if you wish.`
30.03	DISPOSITION	LD;3	SET	**********************REQUIRED FIELD********************** 'a' FOR ADMITTED; 'd' FOR DISMISSED; LAST EDITED: `MAR 20, 1990` HELP-PROMPT: `Enter A if the patient was admitted from lodger status, otherwise answer D.` DESCRIPTION: `Enter in this file the disposition of this patient upon being checked-out as a lodger. Choose from ADMITTED (if the patient was admitted to your facility) or DISMISSED (if the patient was returned to his place of` `residence).`
40	EXCLUDE FROM FACILITY DIR		COMPUTED	MUMPS CODE: `X ^DD(405,40,9.2) S Y(405,40,101)=$S($D(^DGPM(D0,"DIR")):^("DIR"),1:"") S X=$P($P(Y(405,40,102),$C(59)_$P(Y(405,40,101),U,1)_":",2),$C(59)) S D0=Y(405,40,80)` `9.2 = S Y(405,40,80)=$G(D0),Y(405,40,1)=$S($D(^DGPM(D0,0)):^(0),1:""),D0=$P(Y(405,40,1),U,14) S:'D0!'$D(^DGPM(+D0,0)) D0=-1 S Y(405,40,102)=$C(59)_$P($G(^DD(405,41,0)),U,3)` ALGORITHM: `ADMISSION/CHECK-IN MOVEMENT:FACILITY DIRECTORY EXCLUSION` LAST EDITED: `FEB 18, 2003` DESCRIPTION: `This computed field will determine if the patient wished to be excluded from the Facility Directory for the corresponding admission.`
41	FACILITY DIRECTORY EXCLUSION	DIR;1	SET	'0' FOR NO; '1' FOR YES; INPUT TRANSFORM: `I $D(X),'$D(DGPMT) D EN^DDIOL("USE BED CONTROL MOVEMENT OPTIONS!",,"!") K X` LAST EDITED: `FEB 19, 2003` HELP-PROMPT: `Enter 'YES' if the patient wishes to "opt out" from the Facility Directory for this admission. Otherwise answer 'NO'.` DESCRIPTION: `Denotes whether or not the patient wished to be excluded from the Facility Directory for this admisison.` `The Facility Directory is the directory of current inpatients in the facility. If the patient wishes to be excluded from the Facility Directory, then the VAMC can not make a positive statement to family, friends, or` `others as to whether the patient is here or not.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^405^42` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,"DIR")):^("DIR"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(405,41,1,1,1.4)` `1.4)= S DIH=$G(^DGPM(DIV(0),"DIR")),DIV=X S $P(^("DIR"),U,2)=DIV,DIH=405,DIG=42 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,"DIR")):^("DIR"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^DGPM(DIV(0),"DIR")),DIV=X S $P(^("DIR"),U,2)=DIV,DIH=405,DIG=42 D ^DICR` `CREATE VALUE)= NOW` `DELETE VALUE)= @` `FIELD)= #42` `Stuffs the current date/time into the FACILITY DIRECTORY TIME STAMP field (#42).` CROSS-REFERENCE: `^^TRIGGER^405^43` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,"DIR")):^("DIR"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) S DIH=$G(^DGPM(DIV(0),"DIR")),DIV=X S $P(^("DIR"),U,3)=DIV,DIH=405,DIG=43 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,"DIR")):^("DIR"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^DGPM(DIV(0),"DIR")),DIV=X S $P(^("DIR"),U,3)=DIV,DIH=405,DIG=43 D ^DICR` `CREATE VALUE)= S X=$G(DUZ)` `DELETE VALUE)= @` `FIELD)= #43` `Stuffs the current user into the FACILITY DIRECTORY USER field (#43).` CROSS-REFERENCE: `405^AFD^MUMPS` `1)= S DGPMDDF=41,DGPMDDT=1 D ^DGPMDDCN` `2)= S DGPMDDF=41,DGPMDDT=0 D ^DGPMDDCN` `Sets the FACILITY DIRECTORY EXCLUSION field (#.109) of the PATIENT file (#2).`
42	FACILITY DIRECTORY TIME STAMP	DIR;2	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `FEB 18, 2003` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `Date/time answer to Facility Directory exclusion question was entered.` `WRITE AUTHORITY: ^` `UNEDITABLE` NOTES: `TRIGGERED by the FACILITY DIRECTORY EXCLUSION field of the PATIENT MOVEMENT File`
43	FACILITY DIRECTORY USER	DIR;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 18, 2003` DESCRIPTION: `User entering the patient's response to the Facility Directory exclusion question.` `WRITE AUTHORITY: ^` `UNEDITABLE` NOTES: `TRIGGERED by the FACILITY DIRECTORY EXCLUSION field of the PATIENT MOVEMENT File`
51	SOURCE OF ADMISSION		COMPUTED	MUMPS CODE: `X ^DD(405,51,9.2) S X=$S('$D(^DIC(45.1,+$P(Y(405,51,101),U,1),0)):"",1:$P(^(0),U,1)) S D0=Y(405,51,80)` `9.2 = S Y(405,51,80)=$S($D(D0):D0,1:""),Y(405,51,1)=$S($D(^DGPM(D0,0)):^(0),1:""),D0=$P(Y(405,51,1),U,16) S:'$D(^DGPT(+D0,0)) D0=-1 S Y(405,51,101)=$S($D(^DGPT(D0,101)):^(101),1:"")` `9.3 = X ^DD(405,51,9.2) S Y(405,51,101)=$S($D(^DGPM(D0,0)):^(0),1:""),D0=$P(Y(405,51,101),U,16) S:'$D(^DGPT(+D0,0)) D0=-1 S Y(405,51,201)=$S($D(^DGPT(D0,101)):^(101),1:"")` ALGORITHM: `PTF ENTRY:SOURCE OF ADMISSION` LAST EDITED: `APR 23, 1991` DESCRIPTION: `This computed field will determine the SOURCE OF ADMISSION for the corresponding admission. The value is obtained from the PTF entry associated with the admission.` `This field is only computed for admission entries. If is field is needed while working with another type of movement, the following extended syntax can be used:` `ADMISSION/CHECK-IN MOVEMENT:SOURCE OF ADMISSION`
52	PTF MOVEMENT NUMBER	PTF;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 31, 1990` HELP-PROMPT: `Type a Number between 1 and 1000, 0 Decimal Digits` DESCRIPTION: `This field may be filled in for treating specialty movements. It will only be filled in if the treating specialty movement causes a PTF 501 movement to be created in the PTF record associated with the admission.` `The number stored in this field will be the internal multiple entry number of the 501 multiple in that PTF record.` `This field is updated automatically and no user input is necessary.`
53	NEXT PTF MOVEMENT	PTF;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 31, 1990` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field may be filled in for treating specialty movements. It will only be filled in if the treating specialty movement causes a PTF 501 movement to be created in the PTF record associated with the admission.` `The number stored in this field will be the internal multiple entry number of the 501 multiple, in that PTF record, corresponding to the next chronological 501 movement, if one exists.` `This field is updated automatically and no user input is necessary.`
54	ADMITTING CATEGORY	PTF;4	POINTER TO SHARING AGREEMENT SUB-CATEGORY FILE (#35.2)	SHARING AGREEMENT SUB-CATEGORY(#35.2) LAST EDITED: `JAN 17, 1997` HELP-PROMPT: `Please enter the Sharing Agreement Category.` DESCRIPTION: `If and entry for the Admitting Regulation exist in the Sharing Agreement Category file (#35.1) then the user will be prompted for the category associated with the Admitting Regulation.`
55	ELIGIBILITY		COMPUTED	MUMPS CODE: `X ^DD(405,55,9.2) S X=$S('$D(^DIC(8,+$P(Y(405,55,101),U,8),0)):"",1:$P(^(0),U,1)) S D0=Y(405,55,80)` `9.2 = S Y(405,55,80)=$S($D(D0):D0,1:""),Y(405,55,1)=$S($D(^DGPM(D0,0)):^(0),1:""),D0=$P(Y(405,55,1),U,16) S:'$D(^DGPT(+D0,0)) D0=-1 S Y(405,55,101)=$S($D(^DGPT(D0,101)):^(101),1:"")` ALGORITHM: `PTF ENTRY:ADMITTING ELIGIBILITY`
60.01	IRT BACKGROUND JOB RUN	IRT;1	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 07, 1993` DESCRIPTION: `This field stores the date that the IRT background job was run for this admission. If this field contains a date, this admission has been initialized and all standard deficiencies have been created for this admission.` `When the IRT background Job is run for all admission it will check to see if the admission has already been initialized. If so, this admission will not created duplicate entries for the standard deficiencies.`
99	DIAGNOSIS	DX;0	WORD-PROCESSING #405.099	DESCRIPTION: `Enter an in-depth description of the diagnosis for this patient. This will be asked for movements with a TRANSACTION TYPE of SPECIALTY TRANSFER only.` LAST EDITED: `JAN 02, 1989` CROSS-REFERENCE: `405.099^B` `1)= S ^DGPM(DA(1),"DX","B",$E(X,1,30),DA)=""` `2)= K ^DGPM(DA(1),"DX","B",$E(X,1,30),DA)`
100	ENTERED BY	USR;1	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `JUN 25, 1990` DESCRIPTION: `This field stores the name of the user entering this patient movement.`
101	ENTERED ON	USR;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 01, 2018` DESCRIPTION: `This field stores the date/time on which this PATIENT MOVEMENT FILE entry was initially entered.` FIELD INDEX: `AD (#1516) REGULAR IR SORTING ONLY` `Short Descr: Sort movements by date entered` `Set Logic: S ^DGPM("AD",$E(X,1,30),DA)=""` `Kill Logic: K ^DGPM("AD",$E(X,1,30),DA)` `Whole Kill: K ^DGPM("AD")` `X(1): ENTERED ON (405,101) (Subscr 1) (Len 30) (forwards)` `Transform (Display):`
102	LAST EDITED BY	USR;3	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `JUN 25, 1990` DESCRIPTION: `This is the user who last edited this patient movement entry. The user is only stored when a change is made.`
103	LAST EDITED ON	USR;4	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 21, 1989` DESCRIPTION: `This is the date/time this movement was last edited. It will only be stored if a change was made.`
200	WARD AT DISCHARGE		COMPUTED	MUMPS CODE: `D WARD^DGPMUTL` ALGORITHM: `D WARD^DGPMUTL` DESCRIPTION: `This computed field will determine the ward that the patient was on when the patient was discharged.` `This field is only computed for discharge entries. If is field is needed while working with another type of movement, the following extended syntax can be used:` `ADMISSION/CHECK-IN MOVEMENT:DISCHARGE/CHECK-OUT MOVEMENT:WARD AT DISCHARGE`
201	LENGTH OF STAY		COMPUTED	MUMPS CODE: `S X="" D EN^DGPMLOS S X=$P(X,U,5)` ALGORITHM: `S X="" D EN^DGPMLOS S X=$P(X,U,5)` LAST EDITED: `APR 29, 1991` DESCRIPTION: `This field will print the length of stay in days from admission to discharge minus DAYS ABSENT and ASIH DAYS.` `This field is accessible with extended syntax via the following statement:` `ADMISSION/CHECK-IN MOVEMENT:LOS`
202	PASS DAYS		COMPUTED	MUMPS CODE: `S X="" D EN^DGPMLOS S X=$P(X,U,3)` ALGORITHM: `S X="" D EN^DGPMLOS S X=$P(X,U,3)` LAST EDITED: `APR 24, 1991` DESCRIPTION: `This field will print AUTHORIZED ABSENCE DAYS <96 for each admission episode and is only calculated from the admission movements.` `This field is accessible with the following extended syntax:` `ADMISSION/CHECK-IN MOVEMENT:PASS DAYS` TECHNICAL DESCR:
203	DAYS ABSENT		COMPUTED	MUMPS CODE: `S X="" D EN^DGPMLOS S X=$P(X,U,2)` ALGORITHM: `S X="" D EN^DGPMLOS S X=$P(X,U,2)` LAST EDITED: `APR 25, 1991` DESCRIPTION: `This field is computed to print the number of absence days for a specific admission episode. It will not print PASS DAYS and is calculated from the admission movements only.` `This field is accessible with the following extended syntax:` `ADMISSION/CHECK-IN MOVMEMENT:DAYS ABSENT`
204	ASIH DAYS		COMPUTED	MUMPS CODE: `S X="" D EN^DGPMLOS S X=$P(X,U,4)` ALGORITHM: `S X="" D EN^DGPMLOS S X=$P(X,U,4)` LAST EDITED: `APR 29, 1991` DESCRIPTION: `This computed field will print the number of ASIH days for a DOM or NHCU admission episode. It will only be calculated from the admission movements that could have ASIH days.` `This field is accessible with the following extended syntax:` `ADMISSION/CHECK-IN MOVEMENT:ASIH DAYS`
300	ORIGINAL ADMISSION DATE	ORG;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X I $D(X),$P(^DGPM(DA,0),U,2)'=1 K X` LAST EDITED: `AUG 23, 2000` HELP-PROMPT: `Enter the patient's Original Admission Date/Time` DESCRIPTION: `This field contains the original admission date/time for a patient.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
11500.01	ODS AT ADMISSION	ODS;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 16, 1991` HELP-PROMPT: `Was this patient admitted with a period of service of 6 (ODS)?` DESCRIPTION: `Was this patient admitted for care due to injuries sustained in Operation Desert Shield? If the patient's period of service is 6 when admitted, this field will automatically be set to 1.`
11500.02	NON-VA FACILITY?	ODS;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 17, 1991` HELP-PROMPT: `Is this patient being transferred to a non-VA facility? If so, answer yes. Answer no for transfers to another VA facility.` DESCRIPTION: `Respond yes if you are transferring this patient out to a non-VA facility. Respond no if transferring the patient to another VA facility.` CROSS-REFERENCE: `405^AODS11^MUMPS` `1)= S A1B2TAG="ADM" D ^A1B2XFR` `2)= S A1B2TAG="ADM" D ^A1B2XFR`
11500.03	AT VA EXPENSE?	ODS;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 16, 1991` HELP-PROMPT: `Is the cost of this transfer to a non-VA facility incurred by the VA?` DESCRIPTION: `Answer yes if this transfer to a non-VA facility is at the VA's expense.`
11500.04	ODS ADMISSION ENTRY	ODS;4	POINTER *** TO AN UNDEFINED FILE (#11500.2), STORED IN ^A1B2(11500.2) *****	LAST EDITED: `JAN 17, 1991` HELP-PROMPT: `Enter the entry in the ODS ADMISSIONS file which corresponds to this admission.` DESCRIPTION: `If this patient was admitted with a period of service of 6 (ODS), enter the ODS ADMISSIONS file entry corresponding to this admission.` CROSS-REFERENCE: `405^AODSA` `1)= S ^DGPM("AODSA",$E(X,1,30),DA)=""` `2)= K ^DGPM("AODSA",$E(X,1,30),DA)`
11500.05	DISPLACED FOR ODS PATIENT?	ODS;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 16, 1991` HELP-PROMPT: `Was this VA patient transferred out to make room for an ODS patient?` DESCRIPTION: `Enter yes if this patient was transferred out in order to free a bed for an operation desert shield patient. Otherwise, respond no.`
11500.06	VA COST TO TRAVEL	ODS;6	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999999)!(X<0) X` LAST EDITED: `JAN 17, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999999999, 2 Decimal Digits` DESCRIPTION: `Enter the cost of travel to move this VA patient to a non-VA facility. This question is only asked if the patient was transferred in order to make room for an operation desert shield patient.` CROSS-REFERENCE: `405^AODS3^MUMPS` `1)= S A1B2TAG="ADM" D ^A1B2XFR` `2)= S A1B2TAG="ADM" D ^A1B2XFR`
11500.07	DISPLACED PATIENT	ODS;7	POINTER *** TO AN UNDEFINED FILE (#11500.3), STORED IN ^A1B2(11500.3) *****	LAST EDITED: `JAN 17, 1991` HELP-PROMPT: `Enter the DISPLACED PATIENT entry corresponding to this discharge.` DESCRIPTION: `Enter the entry in the DISPLACED PATIENT file which corresponds to this discharge.` CROSS-REFERENCE: `405^AODSD` `1)= S ^DGPM("AODSD",$E(X,1,30),DA)=""` `2)= K ^DGPM("AODSD",$E(X,1,30),DA)`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #1069	DISCHARGE SUMMARY
ICR #2360	Lab Service	MAS MOVEMENT TYPE (.18). Access: Direct Global Read & w/Fileman (Cross Reference). Access:	Global contains the following cross-reference:^DGPM("ATID3", which lists all PATIENT MOVEMENT TYPES of DISCHARGE.Read access is also requested for this cross-referernce in order for thecalculations to be accurate.
ICR #4076	Text Integration Utility	DISCHARGE/CHECK-OUT MOVEMENT (.17). Access: Direct Global Read & w/Fileman
ICR #4942	Spinal Cord Dysfunction	(n/a). Access: Direct Global Read & w/Fileman (n/a). Access: Direct Global Read & w/Fileman DATE/TIME (.01). Access: Direct Global Read & w/Fileman TRANSACTION (.02). Access: Direct Global Read & w/Fileman PATIENT (.03). Access: Direct Global Read & w/Fileman TRANSFER FACILITY (.05). Access: Direct Global Read & w/Fileman WARD LOCATION (.06). Access: Direct Global Read & w/Fileman ROOM-BED (.07). Access: Direct Global Read & w/Fileman PRIMARY PHYSICIAN (.08). Access: Direct Global Read & w/Fileman FACILITY TREATING SPECIALTY (.09). Access: Direct Global Read & w/Fileman ADMISSION/CHECK-IN MOVEMENT (.14). Access: Direct Global Read & w/Fileman ATTENDING PHYSICIAN (.19). Access: Direct Global Read & w/Fileman RELATED PHYSICAL MOVEMENT (.24). Access: Direct Global Read & w/Fileman	APRD Cross-referenceB Cross-reference

Customize PDF page

Package: Registration

Global: ^DGPM

Information

Description

Accessed By FileMan Db Calls, Total: 109

Pointed To By FileMan Files, Total: 37

Pointer To FileMan Files, Total: 16

Fields, Total: 58

ICR, Total: 4