2.0P17959PXRMINPL2982435994
EDT)!(DATE="") D
. S IEN=""
. F S IEN=$O(^DGPM(SUB,DATE,IEN)) Q:IEN="" D
.. S DATA=^DGPM(IEN,0)
.. S DFN=$P(DATA,U,3)
.. I SUB="ATT1" D
...;WARD is a required field but it may not exist for older entries.
... S WARDP=+$P(DATA,U,6)
... S WARD=WARDP_";"_$S(WARDP>0:$P($G(^DIC(42,WARDP,0)),U,1),1:0)
.. I SUB="ATT3" D
... S WARD=$$GET1^DIQ(405,IEN,200)
... S WARDP=$S(WARD'="":$O(^DIC(42,"B",WARD,"")),1:0)
... S WARD=WARDP_";"_WARD
..;If a location list has been passed in make sure the hospital
..;location for the ward is on the list.
.. S HLOC=$S(WARDP>0:^DIC(42,WARDP,44),1:0)
.. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0)
.. I 'OK Q
.. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1
.. S ^TMP($J,PLIST,DFN,CNT)=U_DATE_U_405_U_DFN_U_WARD
.. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0)
.. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0)
.. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0)
.. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARD
.. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM
.. S ^TMP($J,PLIST,DFN,CNT,"TYPE_OF_MVMT")=$$GET1^DIQ(405.1,$P(DATA,U,4),.01)
K ^TMP($J,"CNT")
Q
;
;=====================================
CURR(NGET,BDT,EDT,PLIST,PARAM) ;Current inpatients.
; DBIAs #10035, #10039, #10040, #10061, #10090
N CNT,DFN,HLOC,INST,INSTNM,LOCLIST,OK,WARD,WARDP,WARDSUB,VAIN,VAERR
K ^TMP($J,PLIST),^TMP($J,"CNT")
S OK=1
S LOCLIST=$S(PARAM'="":+$O(^PXRMD(810.9,"B",PARAM,0)),1:0)
S WARD=""
F S WARD=$O(^DPT("CN",WARD)) Q:WARD="" D
. S DFN=0
. F S DFN=$O(^DPT("CN",WARD,DFN)) Q:'+DFN D
..;If a location list has been passed in make sure the hospital
..;location for the ward is on the list.
.. S WARDP=+$O(^DIC(42,"B",WARD,""))
.. S HLOC=+$G(^DIC(42,WARDP,44))
.. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0)
.. I 'OK Q
.. K VAIN,VAERR D INP^VADPT
.. S WARDSUB=+VAIN(4)_";"_WARD
.. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1
.. S ^TMP($J,PLIST,DFN,CNT)=U_+VAIN(7)_U_2_U_DFN_U_WARDSUB
.. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0)
.. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0)
.. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0)
.. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARDSUB
.. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM
.. S ^TMP($J,PLIST,DFN,CNT,"ADMIT DATE")=VAIN(7)
K ^TMP($J,"CNT")
Q
;
;=====================================
DISCH(NGET,BDT,EDT,PLIST,PARAM) ;Discharges during a date range.
;NOTE: ASIH is not accounted for in this version.
D ADMDISCH(BDT,EDT,PLIST,PARAM,"ATT3")
Q
;
]]>
VA DRUG CLASS50.605BL1172553034555924NOVA DRUG CLASS50.605BL11046716911543NOORDERABLE ITEMS101.43WARFARIN TAB 22093047933063NOORDERABLE ITEMS101.43TICLOPIDINE TAB 21383996409048NOHEALTH FACTORS9999999.64MU STK500491292931282NOHEALTH FACTORS9999999.64ELECTIVE CAROTID INTERVENTION5003062385829161NOHEALTH FACTORS9999999.64COMFORT MEASURES PROTOCOL FOLLOWED500305779307093NOHEALTH FACTORS9999999.64ENROLLED IN CLINICAL TRIALS500714182986683NOHEALTH FACTORS9999999.64ANTITHROMBOTIC NOT GIVEN AT DISCHARGE500601494926459NOHEALTH FACTORS9999999.64ANTITHROMBOTIC THERAPY GIVEN AT DISCH500622153255037NOREMINDER COMPUTED FINDINGS811.4VA-DISCHARGES FOR A DATE RANGE941608937132NOREMINDER COMPUTED FINDINGS811.4VA-ADMISSIONS FOR A DATE RANGE901960922291NOREMINDER TAXONOMY811.2MU STK-2 DENOM INCLU TX1463538177098NOREMINDER TAXONOMY811.2MU STK DENOM EXCLU ELECTIVE SURGERY TX1223882324901NOREMINDER TERM811.5MU DISCHARGE TO ANOTHER HOSP7293422916630NOREMINDER TERM811.5MU DISCHARGED PT LEFT AGAINST MED ADVICE6881255054350NOREMINDER TERM811.5MU DISCHARGE DEATH685536067863NOREMINDER TERM811.5MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE6841819822144NOREMINDER TERM811.5MU DISCHARGED HOME-HOSPIC CARE6751839453929NOREMINDER TERM811.5MU ADMISSION MVMT TRIAL TRM6601258096799NOREMINDER TERM811.5MU STK-2 DENOM EXCLU TRM652706072082NOREMINDER TERM811.5MU STK-2 NUMER INCLU TRM6222273402319NOREMINDER DEFINITION811.9MU STK-2 NUMER CR2023007164804YESREMINDER DEFINITION811.9MU STK-2 DENOM CR20328017522YES
18 Years of age
LOS 251910524118118109131131122144144135157157148171170161188184175205201192222218209239235226256252243304269260309309360322313365365432378369449437479462453487484508500491514513535527518541540562554545568567589581572595594616608599622621643635626649648672662653681677709694685723714819736727845824934858849955939