Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^DGPM

Package: Registration

Global: ^DGPM


Information

FileMan FileNo FileMan Filename Package
405 PATIENT MOVEMENT Registration

Description

Accessed By FileMan Db Calls, Total: 109

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    

Pointed To By FileMan Files, Total: 37

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]    

Pointer To FileMan Files, Total: 16

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, Total: 4

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
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All