2.0P171093MU_STK8BOKHARI,SYEDVOE OFFICE INSTITUTION07/22/2011@03:15:43PXRMINPL2982435994
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
;
]]>
HEALTH FACTORS9999999.64MU STK500491292931282NOHEALTH FACTORS9999999.64ELECTIVE CAROTID INTERVENTION5003062385829161NOHEALTH FACTORS9999999.64COMFORT MEASURES PROTOCOL FOLLOWED500305779307093NOHEALTH FACTORS9999999.64ENROLLED IN CLINICAL TRIALS500714182986683NOHEALTH FACTORS9999999.64COMFORT MEASURES ON OR DAY AFTER ARRIVAL500641895354898NOHEALTH FACTORS9999999.64ADDRESSED:ACTIVATION OF EMERG MED SYS50050464735467NOHEALTH FACTORS9999999.64ADDRESSED:FOLLOW-UP500511748576748NOHEALTH FACTORS9999999.64ADDRESSED:MEDICATION AT DISCHARGE500524044354407NOHEALTH FACTORS9999999.64ADDRESSED:STROKE RISK FACTORS500533060682712NOHEALTH FACTORS9999999.64ADDRESSED:STROKE WARNING SIGNS/SYMPTOMS500543238240041NOREMINDER COMPUTED FINDINGS811.4VA-DISCHARGES FOR A DATE RANGE941608937132NOREMINDER COMPUTED FINDINGS811.4VA-ADMISSIONS FOR A DATE RANGE901960922291NOREMINDER TAXONOMY811.2MU STK-8 DENOM INCLU TX1203610401467NOREMINDER TERM811.5MU DISCHARGED HOME-HOSPIC CARE6751839453929NOREMINDER TERM811.5MU DISCHARGED COURT/LAW 6741301941291NOREMINDER TERM811.5MU DISCHARGED HOME6732743717861NOREMINDER TERM811.5MU STK-8 DENOM EXCLU TRM5431459727918NOREMINDER TERM811.5MU STK-8 NUMER INCLU EMS TRM5402550873597NOREMINDER TERM811.5MU STK-8 NUMER INCLU FOLLOW-UP TRM5383614554001NOREMINDER TERM811.5MU STK-8 NUMER INCLU MED TRM5373120744118NOREMINDER TERM811.5MU STK-8 NUMER INCLU RISK TRM5363486940289NOREMINDER TERM811.5MU STK-8 NUMER INCLU WARNING SIGN/SY TRM5333232873249NOREMINDER DEFINITION811.9MU STK-8 NUMER CR2401879819296YES
MAX_DATE(2))&(MAX_DATE(3)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(5)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(4)FN(2))&(FN(1)REMINDER DEFINITION811.9MU STK-8 DENOM CR1933528780773YES
MAX_DATE(2))&(MAX_DATE(3)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(5)FN(2))&(FN(1)MAX_DATE(2))&(MAX_DATE(4)FN(2))&(FN(1)251910524119118109136132123153149140170166157187183174204200191221217208238234225255251242272268259320285276325325376338329381381452394385470457491483474497496518510501524523545537528551550574564555583579601596587607606625620611631630649644635655654673668659679678697692683703702857716707906862104591991010891050