Global: ^DGPM

FileMan FileNo	FileMan Filename	Package
405	PATIENT MOVEMENT	Registration

Package	Total	Routines
Registration	160	DG PTF NO ADMISSION DG3PR1 DG3PR2 DGFI DGMSTR3 DGMTDOM DGMTR DGOERNOT DGOINS1 DGOREL1 DGPM WARD AT DISCHARGE DGPMDD2 DGPMDDCN DGPMEX DGPMGLC DGPMGLG DGPMOBS DGPMRB DGPMSTAT DGPMTSI DGPMV10 DGPMV20 DGPMV21 DGPMV22 DGPMV300 DGPMV301 DGPMVBM DGPMVDD DGPMVDL DGPMVDL1 DGPMX1 DGPMX2 DGPMX3 DGPMX4 DGPMX41 DGPMX43 DGPMX44 DGPMX45 DGPMX5 DGPMX53 DGPMX6 DGPMX61 DGPMX62 DGPMX65 DGPMX66 DGPMX67 DGPMXA DGPMXA1 DGPMXAS DGPMXAS2 DGPMXAS3 DGPMXX1 DGPMXX2 DGPTF DGPTF4 DGPTFCR DGPTFDEL DGPTFM1 DGPTMSG1 DGPTOLC2 DGPTSUDO DGPTTS DGPTTS1 DGPTTS2 DGPTTS3 DGRPCP1 DGRPCR DGRUGC DGRUGSA DGSCHAD3 DGV53PTI DGWPT DGYZODS VADPT2 VADPT3 VADPT31 VAFCMS01 VAFHADT3 VAFHADT4 VAFHAPV1 ^DGPM DG1010S1 DG53208P DGABUL DGDEATH DGENPTA DGMTINP DGODNP1 DGOIL1 DGOIL2 DGOINPT1 DGOPATM DGOVBC1 DGPASS DGPMDDLD DGPMRBA1 DGPMUTL DGPMV2 DGPMV3 DGPMV30 DGPMV31 DGPMV32 DGPMV321 DGPMV322 DGPMV33 DGPMV331 DGPMV36 DGPMVBUL DGPMVODS DGPMVPU DGPMX15 DGPMX21 DGPMX23 DGPMX24 DGPMX27 DGPMX28 DGPMX31 DGPMX32 DGPTFUP DGRRPSAD DGRUADT2 DGRUGBGJ DGRUUTL1 DGSAUTL DGUTL2 DGV53PT3 VADPT VAFCADT3 VAFCADT4 VAFHPURG VAFHUTL ^DIC(42 DGAINP0 DGBLRV DGOIL3 DGOVBC DGPMGLG1 DGPMGLG2 DGPMGLG3 DGPMGLG4 DGPMGLG5 DGPMHST DGPMLOS DGPMOLD1 DGPMX11 DGPMX12 DGPMX13 DGPMX14 DGPMX42 DGPTC1 DGPTC2 DGPTCR DGPTR0 DGPTUTL DGRP12 DGSWITCH DGYSPOST VADPT30 VADPT32 VAFHCPV
IHS Changes To ADT	77	ADGAD1 ADGAD2 ADGAD3 ADGAD6 ADGBULL1 ADGCALLS ADGCEN30 ADGCP ADGCRB0 ADGCRB1 ADGCRB2 ADGCRB3 ADGCRB4 ADGCRB6 ADGDMM ADGDODC ADGDSAU ADGEVNT ADGFTRC ADGICUT ADGING21 ADGIP0 ADGLADC ADGLDCC ADGLOC0 ADGLOC1 ADGLOS ADGPCAC0 ADGPCU ADGPEP ADGPM1 ADGPMV10 ADGPTLC ADGRALC ADGRALP ADGRALP1 ADGREADM ADGT16 ADGT161 ADGT162 ADGT17 ADGT171 ADGT172 ADGVHF ADGWMM1 ADGWMM2 BDGAD1 BDGAD2 BDGAD3 BDGAD4 BDGAPI BDGAPI1 BDGAPI2 BDGCEN30 BDGCENI BDGCRB BDGEPI BDGF1 BDGICC BDGICS1 BDGILD1 BDGILD2 BDGILD3 BDGILD4 BDGILD5 BDGIPL1 BDGIPL8 BDGLOC1 BDGLOS1 BDGP1004 BDGPCCEL BDGPCCL BDGPOST2 BDGPOST3 BDGPOST4 BDGVAH BDGVHF
Integrated Billing	54	IB20PT1 IB20PT6 IB20PT81 IB20PT82 IB20PT83 IB20PT84 IB20PT85 IB20PT86 IB20PT89 IB20PT8A IBACVA IBAMTC IBAMTC2 IBAMTD IBAMTEDU IBAMTI IBAMTI1 IBAUTL5 IBCA0 IBCF22 IBCNSBL IBCNSBL1 IBCONS2 IBCONS3 IBCU64 IBCU82 IBECEA31 IBECEA32 IBECEA5 IBOEMP1 IBOUNP5 IBRBUL IBRFN1 IBTOAT IBTOAT1 IBTOBI IBTODD IBTODD1 IBTOSUM IBTOUR1 IBTOUR5 IBTRC IBTRE20 IBTRED IBTRPR01 IBTRV2 IBTRV3 IBTUTL4 ^IBE(351.2 ^IBT(356.9 ^IBT(356.91 IBTUTL ^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
Incomplete Records Tracking	19	DGJBGJ DGJOPRT1 DGJOPRT2 DGJOTP1 DGJOTPUL DGJPDEF1 DGJPDEF2 DGJSUM DGJTEE DGJTEE1 DGJTEE2 DGJTEE3 DGJTEVT DGJTUTL DGJTVW DGJTVW2 DGJTVW3 DGJXA DGJXE1
IHS GPRA Information System	14	BGPMUH01 BGPMUH03 BGPMUH04 BGPMUH05 BGPMUH06 BGPMUH07 BGPMUH08 BGPMUH09 BGPMUH10 BGPMUH11 BGPMUH12 BGPMUH13 BGPMUH14 BGPMUH15
Scheduling	9	SCMCPM SCRPW41 SDAM1 SDAM2 SDAMA308 SDAMEP2 SDM0 SDOPC1 SDSTAT
Lab Service	7	LRACSUM LRAPQOR3 LRAURV LRBLJPP1 LRBLPC1 LRMISEZ1 LROR4
Text Integration Utility	6	TIULD TIULV TIUMOVE TIUP149 TIUPRPN4 TIUTSK
IHS Changes To Lab	5	BLRDPT2 BLRDPT3 BLRDPT30 BLRDPT31 BLRDPT32
Order Entry Results Reporting	5	ORCB ORWCV ORWGAPIA ORWPT ORWPT16
Health Summary	4	GMTSDGA1 GMTSDGA2 GMTSDGC1 GMTSPXU2
Adverse Reaction Tracking	3	GMRACMR3 GMRACMR5 GMRADGMV
Clinical Reminders	3	PXRMINPL PXRMPDEM PXRMXAP
Patient Care Component Reports	3	APCLSMU APCLSMU2 APCLVLU1
Quality Assurance	3	AQALDG5 AQALDG50 AQALDG51
IHS Electronic Health Record	2	BEHOENCX BEHOPTCX
IHS Mods To Text Integration Utilities	2	BTIUDSC BTIULO6
IHS Omnicell Pyxis Interface	2	BOPBAT BOPRNEW1
Nursing Service	2	NURCRL2 NURSACE0
PCE Patient Care Encounter	2	VSITCK1 VSITGET
iCare	2	BQIDCINP BQIMTCR1
Barcode Medication Administration	1	PSBVITFL
Beneficiary Travel	1	DGBT2
General Medical Record - Vitals	1	GMVRPCHL
IHS Changes To Scheduling	1	BSDCHKI1
IHS Code Mapping	1	BCQMUTL
Local Area Programs	1	AZAXDPM2
Pharmacy Data Management	1	PSSCOMMN

Package	Total	Routines
Registration	74	DG53208P DGBLRV DGPASS DGPMEVT DGPMEX DGPMHST DGPMOLD1 DGPMUTL DGPMV10 DGPMV20 DGPMV3 DGPMV30 DGPMV301 DGPMV31 DGPMV32 DGPMV321 DGPMV322 DGPMV33 DGPMV331 DGPMV35 DGPMV36 DGPMVDL DGPMVDL1 DGPMX1 DGPMX13 DGPMX2 DGPMX23 DGPMX27 DGPMX28 DGPMX3 DGPMX31 DGPMX32 DGPMX4 DGPMX43 DGPMX45 DGPMX5 DGPMX53 DGPMX6 DGPMX65 DGPMX66 DGPMX67 DGPMXA DGPMXA1 DGPMXAS DGPMXAS3 DGPMXX1 DGPMXX2 DGPTAPP1 DGPTFCR DGPTFDEL DGPTTS1 DGPTTS2 DGRPC2 DGRUADT DGRUADT0 DGRUGA01 DGRUGA02 DGRUGA03 DGRUGA08 DGRUGA11 DGRUGA12 DGRUGA13 DGRUGA21 DGRUGA22 DGRUGC DGRUGDS DGRUGPRP DGRUUTL1 DGSWITCH DGV53PT3 VADPT30 VADPT31 VAFHLDG1 VAFHLPV2
IHS Changes To ADT	46	ADGCALLS ADGT16 ADGT162 ADGT17 ADGT171 ADGT172 BDGAD3 BDGAD4 BDGAPI BDGAPI1 BDGAPI2 BDGBULL1 BDGCEN30 BDGCENI BDGCPT BDGCRB BDGCRB1 BDGEAN BDGEAN2 BDGF1 BDGF2 BDGICC BDGICEVT BDGICF BDGICR1 BDGICS1 BDGILD1 BDGILD2 BDGILD3 BDGILD4 BDGILD5 BDGILD61 BDGILD7 BDGIPL4 BDGIPL5 BDGIPL7 BDGLOC BDGLOC1 BDGLOS1 BDGPAR BDGPCCE1 BDGPCCL BDGPOST2 BDGPV BDGVAH BDGVHF
IHS Mods To Text Integration Utilities	4	BTIUDSC BTIULO6 BTIUPCC BTIUU1
Patient Care Component Table Maintiance	3	APCM14E6 APCM24E6 APCM25E6
iCare	3	BQIDCINP BQIMTCR1 BQIUL1
Clinical Reminders	2	PXRMINPL PXRMPDEM
IHS GPRA Information System	2	BGPMUH08 BGPMUH10
Integrated Billing	2	IB20PT81 IB20PT84
Patient Care Component Reports	2	APCLSMU APCLSMU2
Text Integration Utility	2	TIULD TIULV
GUI Objects	1	BGOPROB1
IHS Changes To Lab	1	BLRAG04
IHS Changes To Scheduling	1	BSDAPP
IHS Code Mapping	1	BCQMUTL
IHS Mods To Radiology Nuclear Medicine	1	BRAPCC
Incomplete Records Tracking	1	DGJBGJ
Patient Registration MPI	1	AGMPHL03

Package	Total	FileMan Files
Integrated Billing	6	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] VA 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]
Order Entry Results Reporting	1	OE/RR PATIENT EVENT(#100.2)[3, 12]
Text Integration Utility	1	TIU DOCUMENT(#8925)[1401]

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] VA PATIENT(#2)[.03]
Utility Tables	3	ADMISSION SOURCE(#9999999.53)[9999999.06] PATIENT STATUS CODE (NUBC)(#99999.04)[9999999.07] TRANSFER FACILITY(#9999999.91)[.05]
IHS Patient	1	VISIT(#9000010)[.27, 9999999.1]
Kernel	1	NEW PERSON(#200)[.08, .19, 43, 100, 102, 9999999.02]

Fields, Total: 65

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: `FEB 08, 2002` 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. TECHNICAL DESCR: IHS/ANMC/LJF 2/21/2001: Removed seconds from input transform to align date/time with Visit date/time field. AUDIT: `EDITED OR DELETED` 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=$S($D(^DGPM(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=405,DIG=.24 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 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 MOVEMEMT 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
.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
.03	PATIENT	0;3	POINTER TO VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA 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)
.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: `JAN 17, 1997` 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 X ^DD(405,.04,1,1,1.1) X ^DD(405,.04,1,1,1.4) 1.1)= S X=DIV S X=$S($D(^DG(405.1,X,0)):$P(^(0),"^",3),1:"") 1.4)= S DIH=$S($D(^DGPM(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,18)=DIV,DIH=405,DIG=.18 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 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=$S($D(^DGPM(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,18)=DIV,DIH=405,DIG=.18 D ^DICR:$N(^DD(DIH,DIG,1,0)) >0 CREATE VALUE)= S X=$S($D(^DG(405.1,X,0)):$P(^(0),"^",3),1:"") DELETE VALUE)= @ FIELD)= MAS MOVEMENT
.05	TRANSFER FACILITY	0;5	POINTER TO TRANSFER FACILITY FILE (#9999999.91)	**********************REQUIRED FIELD********************** TRANSFER FACILITY(#9999999.91) INPUT TRANSFORM: `S DIC("S")="I $P($G(^AUTTTFAC(+Y,0)),U,2)=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 15, 2001` 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. SCREEN: `S DIC("S")="I $P($G(^AUTTTFAC(+Y,0)),U,2)="""""` EXPLANATION: `Active Facilities Only` NOTES: `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 $P($G(^BDGWD(+Y,0)),U,3)'=""I""" 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: `APR 14, 2004` 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. TECHNICAL DESCR: IHS/ITSC/LJF 4/14/2004: changed screen and input transform to look at IHS Ward Definition file's INACTIVE field. SCREEN: `S DIC("S")="I $P($G(^BDGWD(+Y,0)),U,3)'=""I""" 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=$S($D(^DGPM(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=405,DIG=.07 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= @ DELETE VALUE)= NO EFFECT FIELD)= ROOM 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)),$$SRVCHK^BDGF1(Y,DA)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 11, 2012` 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)),$$SRVCHK^BDGF1(Y,DA)"` EXPLANATION: `Allows only active treating specialties.` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` 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: `JAN 21, 1992` 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=$S('$D(^DGPM(+$P(Y(101),U,17),0)):"",1:$P(^(0),U,1)) 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=$S($D(^DGPM(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,17)=DIV,DIH=405,DIG=.17 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 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=$S('$D(^DGPM(+$P(Y(101),U,17),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y S X="" X ^DD(405,.14 ,1,3,2.4) 2.4)= S DIH=$S($D(^DGPM(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,17)=DIV,DIH=405,DIG=.17 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 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,14) S:'$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: `JAN 17, 1991` 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=$S($D(^DGPM(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=405,DIG=.05 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 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) LAST EDITED: `JUL 06, 2001` HELP-PROMPT: `Link to PCC Visit` 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.
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: `SEP 21, 1989` DESCRIPTION: This field stores the date/time on which this PATIENT MOVEMENT FILE entry was initially entered.
102	LAST EDITED BY	USR;3	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `FEB 08, 2002` DESCRIPTION: This is the user who last edited this patient movement entry. The user is only stored when a change is made. AUDIT: `EDITED OR DELETED`
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	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	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)
9999999.02	ADMITTING PROVIDER	IHS;2	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=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `FEB 21, 2001` HELP-PROMPT: `Enter physician who is admitting the patient.` SCREEN: `S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,+$G(^DGPM(DA,0)))"` EXPLANATION: `Select active providers only`
9999999.03	REFERRING PROVIDER	IHS;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 04, 2001` HELP-PROMPT: `Answer must be 3-30 characters in length`
9999999.04	ESTIMATED LENGTH OF STAY	IHS;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1.N) X` LAST EDITED: `MAY 04, 2001` HELP-PROMPT: `Enter # of days patient is expected to be an inpatient.`
9999999.05	ADMISSION TYPE-UB-04	IHS;5	SET	**********************REQUIRED FIELD********************** '1' FOR EMERGENCY; '2' FOR URGENT; '3' FOR ELECTIVE; '4' FOR NEWBORN; LAST EDITED: `OCT 20, 2008` DESCRIPTION: `1: EMERGENCY: The patient requires immediate medical intervention due` to a severe, life threatening, or potentially disabling condition. Generally, the patient is admitted through the Emergency Room. 2: URGENT: The patient requires immediate attention for care and treatment of a physical or mental disorder. Generally the patient is admitted to the first available and suitable accommodation. 3: ELECTIVE: The patient's condition permits time for medical services to be scheduled. 4: NEWBORN: This code is for a baby born within the facility. TECHNICAL DESCR: IHS/OIT/LJF 08/16/2006 Made field required per Area HIM Consultants.
9999999.06	ADMISSION SOURCE-UB-04	IHS;6	POINTER TO ADMISSION SOURCE FILE (#9999999.53)	**********************REQUIRED FIELD********************** ADMISSION SOURCE(#9999999.53) LAST EDITED: `OCT 20, 2008` TECHNICAL DESCR: IHS/OIT/LJF 08/16/2006 Made field required per Area HIM Consultants EXECUTABLE HELP: `D DESC^BDGF1`
9999999.07	DISCHARGE STATUS-UB-04	IHS;7	POINTER TO PATIENT STATUS CODE (NUBC) FILE (#99999.04)	**********************REQUIRED FIELD********************** PATIENT STATUS CODE (NUBC)(#99999.04) INPUT TRANSFORM: `S DIC("S")="I $P(^AUTTPSC(+Y,0),U,3)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$P($G(^AUTTPSC(+Y,0)),U)_" "_$P($G(^AUTTPSC(+Y,0)),U,2)` LAST EDITED: `OCT 20, 2008` SCREEN: `S DIC("S")="I $P(^AUTTPSC(+Y,0),U,3)'=1"` EXPLANATION: `Choose active, non-reserved codes only.`
9999999.1	*VISIT	IHS;1	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `MAY 25, 2000` TECHNICAL DESCR: Used by MAS v5.0. In PIMS v5.3, new visit field #.26 is used. Data converted during install of PIMS v5.3. IHS/ANMC/LJF 5/25/2000

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

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)
DESC^BDGF1	9999999.06(HELP )
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, .05+1, .06+1, .07+1, .08+1, .09+1, .12+1, .14+1, .15+1, .16+1 , .19+1, .2+1, .24+1, 9999999.02+1, 9999999.07+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)

Name	Line Occurrences (* Changed, ! Killed)
^AUTTPSC - [#99999.04]	9999999.07OT+1
^DD(	.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)
^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 1n1.1)
^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("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)

>>	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	.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, .07+1, .13+1, .15+1, .17+1, .21+1, .22+1
DIC	.04+1!, .05+1!, .06+1!, .07+1!, .08+1!, .09+1!, .12+1!, .14+1!, .15+1!, .16+1! , .19+1!, .2+1!, .24+1!, 9999999.02+1!, 9999999.07+1!*
DIC("S"	.04+1, .04SCR+1, .05+1, .05SCR+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, 9999999.02+1, 9999999.02SCR+1, 9999999.07+1, 9999999.07SCR+1
>> DIE	.04+1, .05+1, .06+1, .07+1, .08+1, .09+1, .12+1, .14+1, .15+1, .16+1 , .19+1, .2+1, .24+1, 9999999.02+1, 9999999.07+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.1), .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, 9999999.07OT+1
X	.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.1), .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(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), 9999999.02+1!, 9999999.03+1!, 9999999.04+1!, 9999999.07+1!
Y	.01+1, .01(XREF 3S), .01(XREF 5S), .01(XREF 7S), .01(XREF 7K), .04+1, .04(XREF 1S), .04(XREF 1K), .05+1, .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, 41(XREF 1S), 41(XREF 1K), 41(XREF 2S), 41(XREF 2K), 42+1, 60.01+1 , 101+1, 103+1, 300+1, 9999999.02+1, 9999999.07+1, 9999999.07OT+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), 9999999.07OT+1
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*

Customize PDF page

Package: Registration

Global: ^DGPM

Information

Description

Directly Accessed By Routines, Total: 428

Accessed By FileMan Db Calls, Total: 147

Pointed To By FileMan Files, Total: 16

Pointer To FileMan Files, Total: 18

Fields, Total: 65

ICR, Total: 4

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Marked Items

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.1), .04(XREF 1n1.4), .04(XREF 1K), .06(XREF 2S), .06(XREF 3K), .09(XREF 3S), .09(XREF 3K), .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 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