Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Global: ^DGPM

Package: Registration

Global: ^DGPM


Information

FileMan FileNo FileMan Filename Package
405 PATIENT MOVEMENT Registration

Description

Directly Accessed By Routines, Total: 431

Package Total Routines
Registration 145 DG PTF NO ADMISSION    DG3PR1    DG3PR2    DG53141P    DGABUL    DGENPTA    DGFI    DGMTR
DGOPATM    DGPM DISCHARGE    DGPM TRANSFER    DGPMDDLD    DGPMLOS    DGPMRB    DGPMRBA1    DGPMSTAT
DGPMTSI    DGPMUTL    DGPMV21    DGPMV22    DGPMV3    DGPMV301    DGPMV31    DGPMV321
DGPMV33    DGPMV331    DGPMVBM    DGPMVDD    DGPMVDL1    DGPMX1    DGPMX4    DGPMX5
DGPTF4    DGPTR0    DGPTTS    DGRUGSA    ^DGPM    DG53208P    DGAINP0    DGBLRV
DGDEATH    DGMSTR3    DGMTDOM    DGODNP1    DGOERNOT    DGOIL1    DGOIL2    DGOIL3
DGOINPT1    DGOINS1    DGOREL1    DGOVBC    DGOVBC1    DGPASS    DGPM ADMIT    DGPM ASIH ADMIT
DGPM CHECK-IN LODGER    DGPM INP HISTORICAL 1 DIVISION    DGPM INP HISTORICAL DIVISION    DGPM INPATIENT PRINT    DGPM LODGER CHECK-OUT    DGPM SPECIALTY TRANSFER    DGPMBLRV    DGPMDD2
DGPMDDCN    DGPMEX    DGPMGLG1    DGPMGLG3    DGPMGLG4    DGPMOLD1    DGPMV2    DGPMVPU
DGPMX22    DGPMXAS1    DGPTFCR    DGPTMSG1    DGPTRI0    DGPTSUDO    DGPTTS3    DGPTUTL
DGRPCP1    DGRUADT2    DGRUGBGJ    DGSCHAD3    DGYSPOST    DGYZODS    VADPT3    VAFCMS01
VAFHADT4    VAFHCPV    ^DGPT    ^DIC(42    DGPMGLC    DGPMGLG    DGPMGLG2    DGPMGLG5
DGPMHST    DGPMOBS    DGPMV10    DGPMV20    DGPMV30    DGPMV300    DGPMV32    DGPMV322
DGPMV36    DGPMVBUL    DGPMVDL    DGPMVODS    DGPMX2    DGPMX3    DGPMX6    DGPMXA
DGPMXAS    DGPMXX1    DGPMXX2    DGPTC1    DGPTC2    DGPTCR    DGPTF    DGPTFDEL
DGPTFM1    DGPTFUP    DGPTOLC2    DGPTTS1    DGPTTS2    DGRP12    DGRPCR    DGRRPSAD
DGRUGC    DGRUUTL1    DGSAUTL    DGSWITCH    DGUTL2    DGWPT    VADPT    VADPT2
VADPT30    VADPT31    VADPT32    VAFCADT3    VAFCADT4    VAFHADT3    VAFHAPV1    VAFHPURG
VAFHUTL    
Integrated Billing 90 IB20PT6    IB20PT81    IB20PT83    IB20PT85    IB20PT86    IBACV    IBACVA    IBAECU2
IBAMTC    IBAMTC2    IBAMTD    IBAMTEDU    IBAMTI    IBATEI    IBATFILE    IBAUTL5
IBCA0    IBCD    IBCEF2    IBCEF21    IBCEP9A    IBCERP2    IBCF22    IBCNSBL
IBCOMC1    IBCONS2    IBCONS3    IBCU64    IBCU82    IBECEA31    IBECEA32    IBECEA5
IBJDF2    IBJDI41    IBJDI6    IBOEMP1    IBOUNP5    IBRFN1    IBTOAT1    IBTOBI
IBTRPR01    IBTUBO2    ^IBE(351.2    ^IBE(399.6    IBTRV3    IBTUTL5    ^IBT(356.9    IB20PT1
IB20PT82    IB20PT84    IB20PT89    IB20PT8A    IB2P562A    IBAECI    IBAECN1    IBAECU5
IBAHVE3    IBAMTI1    IBAMTV1    IBAMTV2    IBATEI1    IBCD5    IBCNSBL1    IBECEAU5
IBJD1    IBJDB21    IBJDI21    IBJDI3    IBJDI5    IBJDU1    IBRBUL    IBTOAT
IBTODD    IBTODD1    IBTOSUM    IBTOUR1    IBTOUR5    IBTRC    IBTRE2    IBTRE20
IBTRE4    IBTRED    IBTRKR    IBTRV2    IBTUBOU    IBTUTL    IBTUTL4    ^IBT(356.91
^IBT(356.93    ^IBT(356.94    
Dietetics 30 FHASN4    FHASN5    FHASN71    FHASP    FHASP2    FHASXR    FHASXR1    FHDMP1
FHDPA    FHMMBRPT    FHMMNADM    FHMMNREP    FHMNADM    FHMNBRPT    FHMNREP    FHORC1
FHORC2    FHORD11    FHORD2    FHORD81    FHORD82    FHORE21    FHPATM    FHSYSK
FHWADM    FHWHEA    FHWOR    FHWTRN    FHXCNV    FHXIN    
Automated Medical Information Exchange 21 DVBA ADMISSION REVIEW    DVBAB51    DVBAB53    DVBAB56    DVBAB67    DVBAB82    DVBAB9    DVBACERT
DVBACMRP    DVBADSCK    DVBADSRP    DVBADSRT    DVBAPND1    DVBAREG1    ^DVB(396.95    DVBADSNT
DVBARADM    DVBAREN1    DVBARQP    DVBASPD2    DVBAVDPT    
Incomplete Records Tracking 19 DGJBGJ    DGJOPRT1    DGJOPRT2    DGJOTP1    DGJOTPUL    DGJPDEF1    DGJPDEF2    DGJSUM
DGJTEE    DGJTEE1    DGJTEE2    DGJTEE3    DGJTEVT    DGJTUTL    DGJTVW    DGJTVW2
DGJTVW3    DGJXA    DGJXE1    
DSS Extracts 14 ECXADM    ECXEC    ECXMOV    ECXOBSUR    ECXPAI    ECXQSR    ECXRAD    ECXSETU1
ECXSETUP    ECXSURG    ECXTRT    ECXTRYIT    ECXUTL2    ECXUTL6    
Scheduling 14 SCMCPM    SCRPW41    SDAM1    SDAM2    SDAMA308    SDAMEP2    SDEC50    SDECPTCX
SDECUTL    SDES2SETCHECKOUT    SDESCHECKOUT    SDM0    SDOPC1    SDSTAT    
Clinical Monitoring System 12 ^QA(743.92    QAMC11    QAMC12    QAMC14    QAMC15    QAMC18    QAMC19    QAMC20
QAMC5    QAMC7    QAMC8    ^QA(743.4    
Occurrence Screen 9 QAOC1011    QAOC102    QAOC1061    QAOC109    QAOC199    QAOSCNV3    QAOSENTR    QAOSPHDR
QAOSSFR0    
Lab Service 7 LRACSUM    LRAPQOR3    LRAURV    LRBLJPP1    LRBLPC1    LRMISEZ1    LROR4    
Health Summary 5 GMTSDGA1    GMTSDGA2    GMTSDGC1    GMTSFHWZ    GMTSPXU2    
Order Entry Results Reporting 5 ORCB    ORWCV    ORWGAPIA    ORWPT    ORWPT16    
Text Integration Utility 5 TIULD    TIULV    TIUMOVE    TIUPRPN4    TIUTSK    
Adverse Reaction Tracking 3 GMRACMR3    GMRACMR5    GMRADGMV    
Clinical Reminders 3 PXRMINPL    PXRMPDEM    PXRMXAP    
ODS 3 A1B2BGJ    A1B2MUT    A1B2XFR    
Record Tracking 3 RTNQ3    RTNQ41    RTRPT5    
VA FileMan 3 ^DDE    ITEM    YEAR    
Virtual Patient Record 3 VPRDJ04A    VPRSDADG    VPRSDAV    
Enterprise Health Management Platform 2 HMPDJ04A    HMPEVNT    
Income Verification Match 2 IVMCMZ    IVMUFNC1    
Interim Management Support 2 ECTS334    ECTS345    
Mental Health 2 YSBWHIGH    YSDGDEM0    
Methicillin Resistant Staph Aurerus Initiative Reports 2 MMRSCRE2    MMRSIPC2    
Nursing Service 2 NURCRL2    NURSACE0    
PCE Patient Care Encounter 2 VSITCK1    VSITGET    
VistA Integration Adapter 2 VIABMS1    VIABMS2    
Accounts Receivable 1 RCXVDC5    
Barcode Medication Administration 1 PSBVITFL    
Beneficiary Travel 1 DGBT2    
Enrollment Application System 1 EASUER    
General Medical Record - Vitals 1 GMVRPCHL    
Kernel 1 ^DIC(19    
Oncology 1 ONCOCFP    
Pharmacy Data Management 1 PSSCOMMN    
Shift Handoff Tool 1 CRHDUT    
Utilization Management Rollup 1 IBQL356    
Womens Health 1 WVGETALL    
Wounded Injured and Ill Warriors 1 WIIACT4    

Accessed By FileMan Db Calls, Total: 108

Package Total Routines
Registration 60 DG53208P    DGBLRV    DGOTHFS4    DGPMEVT    DGPMHST    DGPMUTL    DGPMV10    DGPMV3
DGPMV30    DGPMV301    DGPMV31    DGPMV32    DGPMV321    DGPMV322    DGPMV33    DGPMV331
DGPMV35    DGPMV36    DGPMVDL    DGPMVDL1    DGPMVODS    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    
DSS Extracts 4 ECXMOV    ECXSETUP    ECXTRT    ECXUTL2    
Methicillin Resistant Staph Aurerus Initiative Reports 4 MMRSCDI    MMRSCDI2    MMRSCRE2    MMRSCRE3    
Scheduling 4 SDECEP    SDECEPT    SDES2SETCHECKOUT    SDESCHECKOUT    
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)[312]    
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.1943100102]    
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

    External References

    Name Field # of Occurrence
    ^%DT .01+1, .13+1, 42+1, 60.01+1, 101+1, 103+1, 300+1
    NOW^%DTC 41(XREF 1S)
    ^A1B2XFR .01(XREF 8S), .01(XREF 8K), .05(XREF 1S), .05(XREF 1K), .09(XREF 3S), .09(XREF 3K), .18(XREF 4S), .18(XREF 4K), 11500.02(XREF 1S), 11500.02(XREF 1K)
    11500.06(XREF 1S), 11500.06(XREF 1K)
    HELP^DGPMDD .08(HELP ), .19(HELP )
    ID^DGPMDD IDWRITE+1
    ^DGPMDD1 .01(XREF 2S), .02(XREF 1S), .03(XREF 2S), .09(XREF 1S), .14(XREF 1S), .22(XREF 1S), .23(XREF 1S)
    ^DGPMDD2 .01(XREF 2K), .02(XREF 1K), .03(XREF 2K), .09(XREF 1K), .14(XREF 1K), .22(XREF 1K), .23(XREF 1K)
    ^DGPMDDCN .06(XREF 1S), .06(XREF 1K), .07(XREF 1S), .07(XREF 1K), .08(XREF 1S), .08(XREF 1K), .09(XREF 2S), .09(XREF 2K), .19(XREF 1S), .19(XREF 1K)
    41(XREF 3S), 41(XREF 3K)
    XREF^DGPMDDCN .17(XREF 1S), .17(XREF 1K)
    ^DGPMGLC .01(XREF 7S), .01(XREF 7K), .06(XREF 3S), .09(XREF 4S), .09(XREF 4K), .18(XREF 3S)
    EN^DGPMLOS 201+1, 202+1, 203+1, 204+1
    ^DGPMRB .07(HELP )
    WARD^DGPMUTL 200+1
    ABSRET^DGPMVDD .13+1
    ROOM^DGPMVDD .07+1
    W^DGPMVDD .06+1, .06SCR+1
    WARD^DGPMVDD .06+1
    ADGRU^DGRUDD01 .09(XREF 5S), .09(XREF 5K)
    ^DIC .04+1, .06+1, .07+1, .08+1, .09+1, .12+1, .14+1, .15+1, .16+1, .19+1
    , .2+1, .24+1, .27+1
    ^DICR .01(XREF 3n1.4), .01(XREF 5n1.4), .04(XREF 1n1.4), .04(XREF 1K), .06(XREF 2S), .14(XREF 3n1.4), .14(XREF 3n2.4), .18(XREF 1n1.4), .18(XREF 2n1.4), .18(XREF 2n2.4)
    41(XREF 1n1.4), 41(XREF 1K), 41(XREF 2S), 41(XREF 2K)
    $$GET1^DIQ .09(XREF 5S), .09(XREF 5K)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(405 .01(XREF 3S), .01(XREF 5S), .04(XREF 1S), .14(XREF 3S), .14(XREF 3K), .18(XREF 1S), .18(XREF 2S), .18(XREF 2K), 40+1, 40OF9.2+1
    41(XREF 1S), 51+1, 51OF9.3+1, 55+1
    ^DG(405.1 - [#405.1] .04(XREF 1S)
    ^DG(405.2 - [#405.2] .01(XREF 3n1.3), .18(XREF 2S), .18(XREF 2K), .18(XREF 3K)
    ^DGPM - [#405] .01(XREF 3n1.3), .01(XREF 3n89.2), .01(XREF 4S), .01(XREF 5S), .01(XREF 5n1.4), .01(XREF 6S), .01(XREF 6K), .01(XREF 7S), .01(XREF 7K), .01(XREF 8S)
    .01(XREF 8K), .03(XREF 3S), .03(XREF 3K), .04(XREF 1S), .04(XREF 1n1.4), .04(XREF 1K), .05(XREF 1S), .05(XREF 1K), .06(XREF 2S), .06(XREF 3S)
    .06(XREF 3K), .08(HELP ), .09(XREF 3S), .09(XREF 3K), .09(XREF 4S), .09(XREF 4K), .13+1, .14(XREF 3S), .14(XREF 3n1.4), .14(XREF 3K)
    .14(XREF 3n2.4), .14(XREF 3n89.2), .18(XREF 1S), .18(XREF 1n1.4), .18(XREF 2n1.1), .18(XREF 2n89.2), .18(XREF 3S), .18(XREF 3K), .18(XREF 4S), .18(XREF 4K)
    .19(HELP ), .27(XREF 2S), .27(XREF 2K), 40+1, 40OF9.2+1, 41(XREF 1S), 41(XREF 1n1.4), 41(XREF 1K), 41(XREF 2S), 41(XREF 2K)
    , 51OF9.2+1, 51OF9.3+1, 55OF9.2+1, 300+1
    ^DGPM("AC" IXACSL+1*, IXACKL+1!, IXACKEIC+1!
    ^DGPM("AD" IXADSL+1*, IXADKL+1!, IXADKEIC+1!
    ^DGPM("ADFN" .01(XREF 6S), .01(XREF 6K), .03(XREF 3S), .03(XREF 3K)
    ^DGPM("AODSA" 11500.04(XREF 1S), 11500.04(XREF 1K)
    ^DGPM("AODSD" 11500.07(XREF 1S), 11500.07(XREF 1K)
    ^DGPM("APHY" .24(XREF 1S), .24(XREF 1K)
    ^DGPM("APTF" .16(XREF 1S), .16(XREF 1K)
    ^DGPM("AVISIT" .27(XREF 1S), .27(XREF 1K)
    ^DGPM("AVST" .27(XREF 2S), .27(XREF 2K)
    ^DGPM("B" .01(XREF 1S), .01(XREF 1K)
    ^DGPM("C" .03(XREF 1S), .03(XREF 1K)
    ^DGPM("CA" .14(XREF 2S), .14(XREF 2K)
    ^DGPT - [#45] 51OF9.2+1, 51OF9.3+1, 55OF9.2+1
    ^DIC(42 - [#42] .06(XREF 3K)
    ^DIC(45.1 - [#45.1] 51+1
    ^DIC(8 - [#8] 55+1
    ^DPT - [#2] .01(XREF 3n1.4), .01(XREF 3n89.2), .18(XREF 2n1.4), .18(XREF 2n2.4), .18(XREF 2n89.2)

    Naked Globals

    Name Field # of Occurrence
    ^( .01(XREF 3n1.4), .01(XREF 3n89.2), .18(XREF 2n1.4), .18(XREF 2n2.4), .18(XREF 2n89.2)
    ^("DIR" 40+1, 41(XREF 1S), 41(XREF 1n1.4), 41(XREF 1K), 41(XREF 2S), 41(XREF 2K)
    ^(0 IDWRITE+1, .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n89.2), .01(XREF 4S), .01(XREF 5S), .01(XREF 5n1.4), .01(XREF 6S), .01(XREF 6K), .04(XREF 1S)
    .04(XREF 1n1.4), .04(XREF 1K), .06(XREF 2S), .06(XREF 3K), .09(XREF 3S), .09(XREF 3K), .14(XREF 3n1.4), .14(XREF 3n2.4), .14(XREF 3n89.2), .18(XREF 1S)
    .18(XREF 1n1.4), .18(XREF 2S), .18(XREF 2n1.1), .18(XREF 2n1.4), .18(XREF 2K), .18(XREF 2n2.4), .18(XREF 2n89.2), .18(XREF 3K), 40OF9.2+1, 51+1
    , 51OF9.2+1, 51OF9.3+1, 55+1, 55OF9.2+1
    ^(101 51OF9.2+1, 51OF9.3+1, 55OF9.2+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % 41(XREF 1S)
    %DT .01+1*!, .13+1*, 42+1*, 60.01+1*, 101+1*, 103+1*, 300+1*
    %H 41(XREF 1S)
    %I 41(XREF 1S)
    >> A1B2TAG .01(XREF 8S), .01(XREF 8K), .05(XREF 1S), .05(XREF 1K), .09(XREF 3S), .09(XREF 3K), .18(XREF 4S), .18(XREF 4K), 11500.02(XREF 1S), 11500.02(XREF 1K)
    11500.06(XREF 1S), 11500.06(XREF 1K)
    >> D0 .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n89.2), .01(XREF 5S), .04(XREF 1S), .04(XREF 1K), .06(XREF 2S), .14(XREF 3S), .14(XREF 3K), .14(XREF 3n89.2)
    .18(XREF 1S), .18(XREF 2S), .18(XREF 2n1.1), .18(XREF 2K), .18(XREF 2n89.2), 40+1*, 40OF9.2+1*, 41(XREF 1S), 41(XREF 1K), 41(XREF 2S)
    41(XREF 2K), 51+1*, 51OF9.2+1*, 51OF9.3+1*, 55+1*, 55OF9.2+1*
    >> DA IXACSL+1, IXACKL+1, IXADSL+1, IXADKL+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 3n1.3), .01(XREF 4S), .01(XREF 5S), .01(XREF 6S)
    .01(XREF 6K), .01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .03(XREF 1S), .03(XREF 1K), .03(XREF 3S), .03(XREF 3K), .04(XREF 1S)
    .04(XREF 1K), .05(XREF 1S), .05(XREF 1K), .06(XREF 2S), .06(XREF 3S), .06(XREF 3K), .08(HELP ), .09(XREF 3S), .09(XREF 3K), .09(XREF 4S)
    .09(XREF 4K), .09(XREF 5S), .09(XREF 5K), .13+1, .14(XREF 2S), .14(XREF 2K), .14(XREF 3S), .14(XREF 3K), .16(XREF 1S), .16(XREF 1K)
    .18(XREF 1S), .18(XREF 2S), .18(XREF 2K), .18(XREF 3S), .18(XREF 3K), .18(XREF 4S), .18(XREF 4K), .19(HELP ), .24(XREF 1S), .24(XREF 1K)
    .27(XREF 1S), .27(XREF 1K), .27(XREF 2S), .27(XREF 2K), 41(XREF 1S), 41(XREF 1K), 41(XREF 2S), 41(XREF 2K), 300+1, 11500.04(XREF 1S)
    11500.04(XREF 1K), 11500.07(XREF 1S), 11500.07(XREF 1K)
    >> DGHNYT .01(XREF 7S), .01(XREF 7K), .06(XREF 3S), .09(XREF 4S), .09(XREF 4K), .18(XREF 3S)
    DGIDX .01(XREF 7S), .06(XREF 3S), .06(XREF 3K), .18(XREF 3S), .18(XREF 3K)
    DGOOS .06+1!, .07+1!
    >> DGOTY .18(XREF 3S), .18(XREF 3K)
    >> DGOWD .06(XREF 3S), .06(XREF 3K)
    >> DGPMDD IDWRITE+1*
    >> DGPMDDF .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 2S), .03(XREF 2K), .06(XREF 1S), .06(XREF 1K), .07(XREF 1S), .07(XREF 1K)
    .08(XREF 1S), .08(XREF 1K), .09(XREF 1S), .09(XREF 1K), .09(XREF 2S), .09(XREF 2K), .14(XREF 1S), .14(XREF 1K), .19(XREF 1S), .19(XREF 1K)
    .22(XREF 1S), .22(XREF 1K), .23(XREF 1S), .23(XREF 1K), 41(XREF 3S), 41(XREF 3K)
    >> DGPMDDT .06(XREF 1S), .06(XREF 1K), .07(XREF 1S), .07(XREF 1K), .08(XREF 1S), .08(XREF 1K), .09(XREF 2S), .09(XREF 2K), .19(XREF 1S), .19(XREF 1K)
    41(XREF 3S), 41(XREF 3K)
    >> DGPMT .01+1, .01DEL1+1, .05+1, .07+1, .13+1, .15+1, .17+1, .21+1, .22+1
    DIC .04+1!*, .06+1!*, .07+1!*, .08+1!*, .09+1!*, .12+1!*, .14+1!*, .15+1!*, .16+1!*, .19+1!*
    , .2+1!*, .24+1!*, .27+1!*
    DIC("S" .04+1*, .04SCR+1*, .06+1*, .06SCR+1*, .07+1*, .07SCR+1*, .08+1*, .08SCR+1*, .09+1*, .09SCR+1*
    , .12+1*, .12SCR+1*, .14+1*, .14SCR+1*, .15+1*, .15SCR+1*, .16+1*, .16SCR+1*, .19+1*, .19SCR+1*
    , .2+1*, .2SCR+1*, .24+1*, .24SCR+1*, .27+1*, .27SCR+1*
    >> DIE .04+1, .06+1, .07+1, .08+1, .09+1, .12+1, .14+1, .15+1, .16+1, .19+1
    , .2+1, .24+1, .27+1
    >> DIG .01(XREF 3n1.4), .01(XREF 5n1.4), .04(XREF 1n1.4), .04(XREF 1K), .06(XREF 2S), .14(XREF 3n1.4), .14(XREF 3n2.4), .18(XREF 1n1.4), .18(XREF 2n1.4), .18(XREF 2n2.4)
    41(XREF 1n1.4), 41(XREF 1K), 41(XREF 2S), 41(XREF 2K)
    >> DIH .01(XREF 3n1.4), .01(XREF 5n1.4), .04(XREF 1n1.4), .04(XREF 1K), .06(XREF 2S), .14(XREF 3n1.4), .14(XREF 3n2.4), .18(XREF 1n1.4), .18(XREF 2n1.4), .18(XREF 2n2.4)
    41(XREF 1n1.4), 41(XREF 1K), 41(XREF 2S), 41(XREF 2K)
    >> DIU .01(XREF 3S), .01(XREF 5S), .04(XREF 1S), .04(XREF 1K), .06(XREF 2S), .14(XREF 3S), .14(XREF 3K), .18(XREF 1S), .18(XREF 2S), .18(XREF 2K)
    41(XREF 1S), 41(XREF 1K), 41(XREF 2S), 41(XREF 2K)
    DIV .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 5S), .01(XREF 5n1.4), .04(XREF 1S), .04(XREF 1n1.4), .04(XREF 1K), .06(XREF 2S), .14(XREF 3S)
    .14(XREF 3n1.4), .14(XREF 3K), .14(XREF 3n2.4), .18(XREF 1S), .18(XREF 1n1.4), .18(XREF 2S), .18(XREF 2n1.1), .18(XREF 2n1.4), .18(XREF 2K), .18(XREF 2n2.4)
    41(XREF 1S), 41(XREF 1n1.4), 41(XREF 1K), 41(XREF 2S), 41(XREF 2K)
    DIV(0 .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n89.2), .01(XREF 5S), .01(XREF 5n1.4), .04(XREF 1S), .04(XREF 1n1.4), .04(XREF 1K), .06(XREF 2S), .14(XREF 3S)
    .14(XREF 3n1.4), .14(XREF 3K), .14(XREF 3n2.4), .14(XREF 3n89.2), .18(XREF 1S), .18(XREF 1n1.4), .18(XREF 2S), .18(XREF 2n1.4), .18(XREF 2K), .18(XREF 2n2.4)
    .18(XREF 2n89.2), 41(XREF 1S), 41(XREF 1n1.4), 41(XREF 1K), 41(XREF 2S), 41(XREF 2K)
    DT .01(XREF 7S), .01(XREF 7K), .06(XREF 3S), .06(XREF 3K), .09(XREF 4S), .09(XREF 4K), .18(XREF 3S), .18(XREF 3K)
    DUZ 41(XREF 2S)
    DZ .07(HELP )
    >> I(0 .01(XREF 3S), .01(XREF 3n89.2), .14(XREF 3S), .14(XREF 3K), .14(XREF 3n89.2), .18(XREF 2S), .18(XREF 2K), .18(XREF 2n89.2)
    U .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n89.2), .01(XREF 4S), .01(XREF 5S), .01(XREF 5n1.4), .01(XREF 6S), .01(XREF 6K), .01(XREF 7S)
    .01(XREF 7K), .04(XREF 1S), .04(XREF 1n1.4), .04(XREF 1K), .06(XREF 2S), .06(XREF 3S), .06(XREF 3K), .09(XREF 4S), .09(XREF 4K), .14(XREF 3S)
    .14(XREF 3n1.4), .14(XREF 3K), .14(XREF 3n2.4), .14(XREF 3n89.2), .18(XREF 1S), .18(XREF 1n1.4), .18(XREF 2S), .18(XREF 2n1.1), .18(XREF 2n1.4), .18(XREF 2K)
    .18(XREF 2n2.4), .18(XREF 2n89.2), .18(XREF 3S), .18(XREF 3K), .27(XREF 2S), .27(XREF 2K), 40+1, 40OF9.2+1, 41(XREF 1S), 41(XREF 1n1.4)
    41(XREF 1K), 41(XREF 2S), 41(XREF 2K), 51+1, 51OF9.2+1, 51OF9.3+1, 55+1, 55OF9.2+1, 201+1, 202+1
    , 203+1, 204+1, 300+1
    X IXADSL+1, IXADKL+1, .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 5S), .01(XREF 5n1.4)
    .01(XREF 6S), .01(XREF 6K), .01(XREF 7S), .01(XREF 7K), .03(XREF 1S), .03(XREF 1K), .03(XREF 3S), .03(XREF 3K), .04+1*!, .04(XREF 1S)
    .04(XREF 1n1.4), .04(XREF 1K), .05+1!, .06+1*!, .06SCR+1, .06(XREF 2S), .06(XREF 3K), .07+1!*, .08+1*!, .09+1*!
    .09(XREF 4S), .09(XREF 4K), .1+1!, .12+1*!, .13+1!*, .14+1*!, .14(XREF 2S), .14(XREF 2K), .14(XREF 3S), .14(XREF 3n1.4)
    .14(XREF 3K), .14(XREF 3n2.4), .15+1!*, .16+1*!, .16(XREF 1S), .16(XREF 1K), .17+1!, .18(XREF 1S), .18(XREF 1n1.4), .18(XREF 2S)
    .18(XREF 2n1.1), .18(XREF 2n1.4), .18(XREF 2K), .18(XREF 2n2.4), .18(XREF 3K), .19+1*!, .2+1*!, .21+1!, .22+1!, .23+1!
    , .24+1*!, .24(XREF 1S), .24(XREF 1K), .27+1*!, .27(XREF 1S), .27(XREF 1K), .27(XREF 2S), .27(XREF 2K), 30.02+1!, 40+1*
    41(XREF 1S), 41(XREF 1n1.4), 41(XREF 1K), 41(XREF 2S), 41(XREF 2K), 42+1*!, 51+1*, 52+1!, 53+1!, 55+1*
    , 60.01+1*!, 101+1*!, 103+1*!, 201+1*, 202+1*, 203+1*, 204+1*, 300+1*!, 11500.04(XREF 1S), 11500.04(XREF 1K)
    , 11500.06+1*!, 11500.07(XREF 1S), 11500.07(XREF 1K)
    X(1 IXACSL+1, IXACKL+1
    X(2 IXACSL+1, IXACKL+1
    X(3 IXACSL+1, IXACKL+1
    Y .01+1, .01(XREF 3S), .01(XREF 5S), .01(XREF 7S), .01(XREF 7K), .04+1, .04(XREF 1S), .04(XREF 1K), .06+1, .06(XREF 2S)
    .06(XREF 3S), .06(XREF 3K), .07+1, .08+1, .09+1, .09(XREF 4S), .09(XREF 4K), .12+1, .13+1, .14+1
    .14(XREF 3S), .14(XREF 3K), .15+1, .16+1, .16OT+1*, .18(XREF 1S), .18(XREF 2S), .18(XREF 2K), .18(XREF 3S), .18(XREF 3K)
    , .19+1, .2+1, .24+1, .27+1, 41(XREF 1S), 41(XREF 1K), 41(XREF 2S), 41(XREF 2K), 42+1, 60.01+1
    , 101+1, 103+1, 300+1
    Y(0 .01(XREF 3n1.3), .01(XREF 5S), .14(XREF 3S), .14(XREF 3K), .16OT+1*, .18(XREF 1S), .18(XREF 2S), .18(XREF 2K)
    Y(1 .01(XREF 3n1.3), .01(XREF 3n89.2), .01(XREF 5S), .04(XREF 1S), .04(XREF 1K), .06(XREF 2S), .14(XREF 3n89.2), .18(XREF 1S), .18(XREF 2n1.1), .18(XREF 2n89.2)
    41(XREF 1S), 41(XREF 1K), 41(XREF 2S), 41(XREF 2K)
    Y(101 .01(XREF 3S), .01(XREF 3n89.2), .14(XREF 3S), .14(XREF 3K), .14(XREF 3n89.2), .18(XREF 2S), .18(XREF 2K), .18(XREF 2n89.2)
    Y(405 40+1*, 40OF9.2+1*, 51+1, 51OF9.2+1*, 51OF9.3+1*, 55+1, 55OF9.2+1*

    Marked Items

    Name Field # of Occurrence
    $T(ADGRU^DGRUDD01 .09(XREF 5S), .09(XREF 5K)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  Marked Items  | All