STANDARD DATA DICTIONARY #405 -- PATIENT MOVEMENT FILE 3/24/25 PAGE 1
STORED IN ^DGPM( *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds the data for all admissions, transfers, discharges, treating specialty changes, and lodger movements. These
entries must not be edited through fileman. Instead, the appropriate bed control options should be executed to insure data
consistency.
The following cross-references exist on this file:
^DGPM("ATID"_TT,DFN,Inverse date_AS,DA)=""
^DGPM("ATT"_TT,Date_AS,DA)=""
^DGPM("APID",DFN,Inverse Date_AS,DA)=""
^DGPM("APTT"_TT,DFN,Date_AS,DA)=""
^DGPM("APCA",DFN,Corresponding Admission,Date_AS,DA)=""
^DGPM("APMV",DFN,Corresponding Admission,Inverse Date_AS,DA)=""
^DGPM("APRD",DFN,Date_AS,DA)=""
^DGPM("AMV"_TT,Date_AS,DFN,DA)=""
^DGPM("ATS",DFN,Corresponding Admission,Inverse Date_AS,Treating Specialty,DA)=""
^DGPM("CN",External Format of Ward,DA)="" **inpatients only**
^DGPM("LD",External Format of Ward,DA)="" **lodgers only**
^DGPM("ARM",IFN of Room-bed,DA)=1 or 0 [1 indicates lodger, 0 indicates non-lodger]
^DGPM("B",Date,DA)=""
^DGPM("C",DFN,DA)=""
^DGPM("CA",Corresponding Admission,DA)=""
where: TT=Transaction type where choices are as follows:
1=admission 4=check-in lodger
2=transfer 5=check-out lodger
3=discharge 6=specialty change
AS=ASIH Sequencewhere choices are as follows:
1=transfer to hospital ASIH
2=Admission to hospital (automatically generated by module)
or 1=discharge from hospitalwithin 30 days of ASIH stay
2=transfer to or discharge from NHCU/DOM (automatically generated by module)
[NOTE: This value is 0 for non-ASIH movements or ASIH movements where there are not 2 movements at the same date/time]
COMPILED CROSS-REFERENCE ROUTINE: DGPMXX
DD ACCESS: @
RD ACCESS: d
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
IDENTIFIED BY: TRANSACTION (#.02)[R], PATIENT (#.03)[R], TYPE OF MOVEMENT (#.04)[R], ADMISSION/CHECK-IN MOVEMENT (#.14)[R]
"WRITE": S DGPMDD=^(0) D ID^DGPMDD
POINTED TO BY: CURRENT MOVEMENT field (#.102) of the PATIENT File (#2)
CURRENT ADMISSION field (#.105) of the PATIENT File (#2)
ADMITTED field (#17) of the SCHEDULED ADMISSION File (#41.1)
ADMISSION ENTRY field (#.03) of the CENSUS WORKFILE File (#45.85)
ADMISSION field (#3) of the OE/RR PATIENT EVENT File (#100.2)
PATIENT MOVEMENT field (#12) of the OE/RR PATIENT EVENT File (#100.2)
ADMISSION field (#102) of the ITEM sub-field (#119.01) of the DIETITIAN TICKLER FILE File (#119)
ADMISSION field (#3) of the NUTRITION EVENTS File (#119.8)
ADMISSION field (#.02) of the SPECIAL INPATIENT BILLING CASES File (#351.2)
DISCHARGE MOVEMENT field (#1.08) of the TRANSFER PRICING TRANSACTIONS File (#351.61)
ADMISSION field (#.05) of the CLAIMS TRACKING File (#356)
ADMISSION MOVEMENT field (#.02) of the INPATIENT DIAGNOSIS File (#356.9)
ADMISSION MOVEMENT field (#.02) of the INPATIENT PROCEDURE File (#356.91)
ADMISSION MOVEMENT field (#.02) of the INPATIENT INTERIM DRG File (#356.93)
ADMISSION MOVEMENT field (#.02) of the INPATIENT PROVIDERS File (#356.94)
EVENT POINTER field (#.05) of the ADT/HL7 PIVOT File (#391.71)
ADMISSION field (#.04) of the INCOMPLETE RECORDS File (#393)
ADMISSION/CHECK-IN MOVEMENT field (#.14) of the PATIENT MOVEMENT File (#405)
ASIH ADMISSION field (#.15) of the PATIENT MOVEMENT File (#405)
DISCHARGE/CHECK-OUT MOVEMENT field (#.17) of the PATIENT MOVEMENT File (#405)
ASIH TRANSFER field (#.21) of the PATIENT MOVEMENT File (#405)
RELATED PHYSICAL MOVEMENT field (#.24) of the PATIENT MOVEMENT File (#405)
MOVEMENT FILE # field (#30) of the ADMISSION EXTRACT File (#727.802)
MOVEMENT FILE # field (#10) of the CLINIC NOSHOW EXTRACT File (#727.804)
MOVEMENT FILE # field (#14) of the NURSING EXTRACT File (#727.805)
MOVEMENT FILE # field (#46) of the DENTAL EXTRACT File (#727.806)
MOVEMENT FILE # field (#12) of the PHYSICAL MOVEMENT EXTRACT File (#727.808)
MOVEMENT FILE # field (#14) of the UNIT DOSE LOCAL EXTRACT File (#727.809)
MOVEMENT FILE # field (#19) of the PRESCRIPTION EXTRACT File (#727.81)
MOVEMENT FILE # field (#25) of the SURGERY EXTRACT File (#727.811)
MOVEMENT FILE # field (#16) of the LABORATORY EXTRACT File (#727.813)
MOVEMENT FILE # field (#17) of the RADIOLOGY EXTRACT File (#727.814)
MOVEMENT FILE # field (#23) of the EVENT CAPTURE LOCAL EXTRACT File (#727.815)
MOVEMENT FILE # field (#12) of the TREATING SPECIALTY CHANGE EXTRACT File (#727.817)
MOVEMENT FILE # field (#14) of the IV DETAIL EXTRACT File (#727.819)
EPISODE NUMBER field (#30) of the ADMISSION SETUP EXTRACT File (#727.82)
MOVEMENT FILE # field (#12) of the PHYSICAL MOVEMENT SETUP EXTRACT File (#727.821)
MOVEMENT FILE # field (#12) of the TREATING SPECIALTY CHANGE SETUP EXTRACT File (#727.822)
MOVEMENT FILE # field (#17) of the LAB RESULTS EXTRACT File (#727.824)
MOVEMENT FILE # field (#23) of the QUASAR EXTRACT File (#727.825)
ASSOCIATED ADMISSION field (#.02) of the QA OCCURRENCE SCREEN File (#741)
MOVEMENT TIME field (#.01) of the WII ADMISSIONS DISCHARGES File (#987.5)
PATIENT MOVEMENT RECORD field (#1401) of the TIU DOCUMENT File (#8925)
CROSS
REFERENCED BY: DATE/TIME(A22), ATTENDING PHYSICIAN(AAP), PATIENT(ADFN), DATE/TIME(ADFN1), FACILITY TREATING SPECIALTY(ADGRU09),
DISCHARGE/CHECK-OUT MOVEMENT(ADIS), FACILITY DIRECTORY EXCLUSION(AFD), DATE/TIME(AGL1), MAS MOVEMENT TYPE(AGL18),
WARD LOCATION(AGL6), FACILITY TREATING SPECIALTY(AGL9), DATE/TIME(AINP1), ADMISSION/CHECK-IN MOVEMENT(AINP14),
TRANSACTION(AINP2), ASIH SEQUENCE(AINP22), DMMS EPISODE NUMBER(AINP23), PATIENT(AINP3), DATE/TIME(AODS1),
TRANSFER FACILITY(AODS10), NON-VA FACILITY?(AODS11), VA COST TO TRAVEL(AODS3),
FACILITY TREATING SPECIALTY(AODS3S), MAS MOVEMENT TYPE(AODS5), ODS ADMISSION ENTRY(AODSA),
DISPLACED PATIENT(AODSD), RELATED PHYSICAL MOVEMENT(APHY), PRIMARY PHYSICIAN(APR), PTF ENTRY(APTF),
FACILITY TREATING SPECIALTY(ATR), FACILITY TREATING SPECIALTY(ATS), VISIT FILE ENTRY(AVISIT),
VISIT FILE ENTRY(AVST), DATE/TIME(B), PATIENT(C), ADMISSION/CHECK-IN MOVEMENT(CA), WARD LOCATION(CN),
ROOM-BED(RM)
INDEXED BY: DATE/TIME & TRANSACTION & PATIENT (AC), ENTERED ON (AD)
LAST MODIFIED: JUN 1,2018@15:18:25
405,.01 DATE/TIME 0;1 DATE (Required)
MOVEMENT DATE/TIME
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 OPTION
S!" 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(40
5.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=.3
51 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(+D
0,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(40
5,.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,X30!($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
405,.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?
405,.12 ADMITTING REGULATION 0;12 POINTER TO VA ADMITTING REGULATION FILE (#43.4) (Required)
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.
405,.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
405,.14 ADMISSION/CHECK-IN MOVEMENT 0;14 POINTER TO PATIENT MOVEMENT FILE (#405) (Required)
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=D
A 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.
405,.15 ASIH ADMISSION 0;15 POINTER TO PATIENT MOVEMENT FILE (#405) (Required)
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(D
GZ,""^"",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
405,.16 PTF ENTRY 0;16 POINTER TO PTF FILE (#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)
405,.17 DISCHARGE/CHECK-OUT MOVEMENT 0;17 POINTER TO PATIENT MOVEMENT FILE (#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
405,.18 MAS MOVEMENT TYPE 0;18 POINTER TO MAS MOVEMENT TYPE FILE (#405.2) (Required)
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=.3
51 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=.3
51 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(+D
0,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,Y2)!(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
405,.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
405,.24 RELATED PHYSICAL MOVEMENT 0;24 POINTER TO PATIENT MOVEMENT FILE (#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)
405,.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
405,.26 PTF PURGE STATUS 0;26 SET
'1' FOR PURGED;
'0' FOR ACTIVE;
LAST EDITED: DEC 22, 1992
405,.27 VISIT FILE ENTRY 0;27 POINTER TO VISIT FILE (#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)
405,30.01 REASON FOR LODGING LD;1 POINTER TO LODGING REASON FILE (#406.41) (Required)
LAST EDITED: MAR 04, 1990
DESCRIPTION:
Enter the reason this patient was lodged (inclement weather, traveling distance, etc.).
405,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.
405,30.03 DISPOSITION LD;3 SET (Required)
'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).
405,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.
405,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 ^DI
CR
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 ^DI
CR
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).
405,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
405,43 FACILITY DIRECTORY USER DIR;3 POINTER TO NEW PERSON FILE (#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
405,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
405,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.
405,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.
405,54 ADMITTING CATEGORY PTF;4 POINTER TO SHARING AGREEMENT SUB-CATEGORY FILE (#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.
405,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
405,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.
405,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)
405,100 ENTERED BY USR;1 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: JUN 25, 1990
DESCRIPTION:
This field stores the name of the user entering this patient movement.
405,101 ENTERED ON USR;2 DATE (Required)
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):
405,102 LAST EDITED BY USR;3 POINTER TO NEW PERSON FILE (#200) (Required)
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.
405,103 LAST EDITED ON USR;4 DATE (Required)
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.
405,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
405,201 LENGTH OF STAY ; COMPUTED
LOS
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
405,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:
405,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
405,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
405,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
405,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.
405,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
405,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.
405,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)
405,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.
405,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
405,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)
FILES POINTED TO FIELDS
ELIGIBILITY CODE (#8) ADMITTING ELIGIBILITY (#.2)
FACILITY MOVEMENT TYPE (#405.1) TYPE OF MOVEMENT (#.04)
FACILITY TREATING SPECIALTY
(#45.7) FACILITY TREATING SPECIALTY (#.09)
INSTITUTION (#4) TRANSFER FACILITY (#.05)
LODGING REASON (#406.41) REASON FOR LODGING (#30.01)
MAS MOVEMENT TRANSACTION TYPE
(#405.3) TRANSACTION (#.02)
MAS MOVEMENT TYPE (#405.2) MAS MOVEMENT TYPE (#.18)
NEW PERSON (#200) PRIMARY PHYSICIAN (#.08)
ATTENDING PHYSICIAN (#.19)
FACILITY DIRECTORY USER (#43)
ENTERED BY (#100)
LAST EDITED BY (#102)
PATIENT (#2) DATE/TIME (#.01)
PATIENT (#.03)
MAS MOVEMENT TYPE (#.18)
PATIENT MOVEMENT (#405) ADMISSION/CHECK-IN MOVEMENT (#.14)
ASIH ADMISSION (#.15)
DISCHARGE/CHECK-OUT MOVEMENT (#.17)
ASIH TRANSFER (#.21)
RELATED PHYSICAL MOVEMENT (#.24)
PTF (#45) PTF ENTRY (#.16)
ROOM-BED (#405.4) ROOM-BED (#.07)
SHARING AGREEMENT SUB-CATEGORY
(#35.2) ADMITTING CATEGORY (#54)
VA ADMITTING REGULATION (#43.4) ADMITTING REGULATION (#.12)
VISIT (#9000010) VISIT FILE ENTRY (#.27)
WARD LOCATION (#42) WARD LOCATION (#.06)
}UNDEFINED FILE (#11500.2) ODS ADMISSION ENTRY (#11500.04)
}UNDEFINED FILE (#11500.3) DISPLACED PATIENT (#11500.07)
File #405
Record Indexes:
AC (#1515) RECORD REGULAR IR SORTING ONLY
Short Descr: Speed up query by date, transaction, and patient
Description: BMS requires the ability to quickly look up a patient movement by date, transaction type, and patient. This
compond cross-reference supports that lookup.
Set Logic: S ^DGPM("AC",X(1),X(2),X(3),DA)=""
Kill Logic: K ^DGPM("AC",X(1),X(2),X(3),DA)
Whole Kill: K ^DGPM("AC")
X(1): DATE/TIME (405,.01) (Subscr 1) (forwards)
Transform (Display):
X(2): TRANSACTION (405,.02) (Subscr 2) (forwards)
Transform (Display):
X(3): PATIENT (405,.03) (Subscr 3) (forwards)
Transform (Display):
INPUT TEMPLATE(S):
DG PTF ATTACH FEB 23, 1990@19:38 USER #0
DGPM ADMIT AUG 02, 2024@09:07 USER #0 ^DGPMX1
This template is used by routine DGPMV3 to capture admission data for a
particular patient. This template can not be used without the
interaction of the 'Admit a Patient' option in MAS.
DGPM ASIH ADMIT FEB 19, 2003@11:57 USER #0 ^DGPMXA
This template is used when transfering a patient TO ASIH or CONTINUED ASIH,
both of which cause a new admission to be created. This template edits the
hospital admission.
DGPM CHECK-IN LODGER OCT 29, 1999@15:35 USER #0 ^DGPMX4
This template is used by the Check-in Lodger movement of MAS to capture data
necessary for a lodger's check in. This template can only be used from
within the MAS package.
DGPM DISCHARGE JUL 01, 2024@12:03 USER #0 ^DGPMX3
This template is used by the MAS routine DGPMV3 to capture discharge data for
a patient. It can not be used outside of the 'Discharge a Patient' option.
DGPM LODGER CHECK-OUT MAY 12, 1997@15:56 USER #0 ^DGPMX5
This template is used by the Lodger Check-Out option of MAS to capture data
relating a lodger's check-out movement.
DGPM SPECIALTY TRANSFER AUG 01, 1995@11:27 USER #0 ^DGPMX6
DGPM TRANSFER DEC 27, 1991@12:01 USER #0 ^DGPMX2
This template is used by the MAS option 'Transfer a Patient' to capture data
relating to a patient's transfer. It can only be used through this option.
DGRU ORIGINAL ADMISSION DATE MAY 08, 2000@11:15 USER #0
Used to enter/edit the Original Admission Date field (#300) in the
Patient Movement file (#405).
PRINT TEMPLATE(S):
DG PTF NO ADMISSION DEC 04, 1990@16:15 USER #0 No Associated PTF Record Listing
DGPM INPATIENT PRINT APR 09, 1990@15:11 USER #0 PATIENT MOVEMENT LIST
DGPMBLRV JUL 13, 1990@14:31 USER #0 @
DGPMINPATIENT APR 05, 1990@10:14 USER #0 PATIENT MOVEMENT LIST
DVBA ADMISSION REVIEW APR 09, 1998@08:10 USER #0 PATIENT MOVEMENT LIST
SORT TEMPLATE(S):
DG PTF NO ADMISSION DEC 04, 1990@13:31 USER #0
SORT BY: @DATE/TIME// (User is asked range)
DGPM INP HISTORICAL 1 DIVISIONMAY 16, 1991@15:30 USER #0
SORT BY: 'DATE/TIME// (User is asked range)
WITHIN DATE/TIME, SORT BY: PATIENT://
PATIENT FIELD: INPATIENT WARD// (User is asked range)
WITHIN INPATIENT WARD, SORT BY: @PATIENT:NAME//
DGPM INP HISTORICAL DIVISION MAY 16, 1991@15:33 USER #0
SORT BY: 'DATE/TIME// (User is asked range)
WITHIN DATE/TIME, SORT BY: +PATIENT:ABSENCE DIVISION;"DIVISION: "// (User is asked range)
WITHIN PATIENT:ABSENCE DIVISION, SORT BY: PATIENT://
PATIENT FIELD: INPATIENT WARD// (User is asked range)
WITHIN INPATIENT WARD, SORT BY: @PATIENT:NAME//
DVBA ADMISSION REVIEW JAN 22, 1991@12:24 USER #0
SORT BY: @DATE/TIME// (User is asked range)
WITHIN DATE/TIME, SORT BY: @TRANSACTION// From 'ADMISSION' To 'ADMISSION'
FORM(S)/BLOCK(S):