BQI23PU3 ;GDIT/HS/ALA-2.3 Patch 3 Install ; 26 Sep 2012 10:21 AM
;;2.3;ICARE MANAGEMENT SYSTEM;**3,4**;Apr 18, 2012;Build 66
;
LAY ; Add new patient entries to 90506.1
NEW BI,BJ,BK,BN,BQIUPD,ERROR,IEN,ND,NDATA,TEXT,VAL,TTEXT,BJJ
F BI=1:1 S TEXT=$P($T(ARR+BI),";;",2) Q:TEXT="" D
. F BJ=1:1:$L(TEXT,"~") D
.. S NDATA=$P(TEXT,"~",BJ)
.. S ND=$P(NDATA,"|",1),VAL=$P(NDATA,"|",2)
.. I ND=0 D
... NEW DIC,X,Y
... S DIC(0)="LQZ",DIC="^BQI(90506.1,",X=$P(VAL,U,1)
... D ^DIC
... S IEN=+Y
... I IEN=-1 K DO,DD D FILE^DICN S IEN=+Y
.. I ND=1 S BQIUPD(90506.1,IEN_",",1)=VAL Q
.. I ND=5 S BQIUPD(90506.1,IEN_",",5)=VAL Q
.. F BK=1:1:$L(VAL,"^") D
... S BN=$O(^DD(90506.1,"GL",ND,BK,"")) I BN="" Q
... I $P(VAL,"^",BK)'="" S BQIUPD(90506.1,IEN_",",BN)=$P(VAL,"^",BK) Q
... I $P(VAL,"^",BK)="" S BQIUPD(90506.1,IEN_",",BN)="@"
... ;
... S TTEXT=$T(TIP+BI) Q:TTEXT=" Q" D
.... S TTEXT=$P(TTEXT,";;",2) I TTEXT="" Q
.... F BJJ=1:1:$L(TTEXT,"~") D
..... S NDATA=$P(TTEXT,"~",BJJ) I NDATA="" Q
..... S ^BQI(90506.1,IEN,4,BJJ,0)=NDATA
..... S ^BQI(90506.1,IEN,4,0)="^^"_BJJ_"^"_BJJ
. D FILE^DIE("","BQIUPD","ERROR")
;
; Re-Index File
K ^BQI(90506.1,"AC"),^BQI(90506.1,"AD")
NEW DIK
S DIK="^BQI(90506.1,",DIK(1)=3.01
D ENALL^DIK
;
Q
;
TIP ; Tooltips
;;
;;The most recent abdominal girth measurement for this patient.~
;;
;;The most recent oximetry measurement for this patient.~
;;
;;The most recent spirometry measurement for this patient.~
;;The most recent Tobacco Health Factor entry for this patient.~
;;
;;The last three blood pressure measures for this patient.~
;;The most recent HbA1c test result for this patient.~
;;Did the patient have an active ACE Inhibitor/ARB medication in the past~year.~
;;Patient had an active aspirin/anti-platelet medication in the past year.~
;;This is the value of the BMI calculated from the most recent height and ~weight measurements for the patient.~
;;Date of the last Chest xray for the patient.~
;;
;;
;;Has the patient had a dental exam in the past year.~
;;If the patient has Depression on the Problem List, no depression ~screening is needed. Otherwise has the patient had a depression screening~in the past year.~
;;The date of the patient's last visit to a dietician.~
;;Date of the last EKG exam for the patient.~
;;Has the patient had an eye exam in the past year.~
;;
;;Has the patient had a foot exam in the past year.~
;;
;;
;;
;;Has the patient been diagnosed with Hypertension?~
;;
;;The last height measurement taken for this patient.~
;;
;;
;;
;;This is the most recent waist circumference measurement taken for this ~patient.~
;;The most recent weight measurement taken for this patient.~
;;If applicable, the date of the patient's last mammogram.~
;;
;;The previous result from the most recent HbA1c lab test for this patient.~
;;
;;The date of the onset of Diabetes for this patient and where the date is ~documented.~
;;If applicable, the date of the patient's last pap smear.~
;;
;;
;;
;;Has the patient had self-monitoring blood glucose evidence in the past ~year.~
;;
;;
;;Was tobacco Use assessed in the last year for this patient.~
;;
;;The most recent urine protein test for this patient.~
Q
;
ARR ; Array
;;0|DECCOD^^Cause of Death^^^^^T00030DECCOD~1|S VAL=$$COD^BQIULPT(DFN)~3|1^^Demographics^O^44~5|
;;0|COPAG^^Abdominal Girth^^^^^T00030COPAG~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|26^^^O^3~5|S VAL=$$MS^BQIRGCOP(DFN,"AG"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,3),VAL=$P(VAL,U,1)
;;0|COPINH^^Active Inhaled Steroids^^^^^T00030COPINH~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|26^^^D^8~5|S VAL=$$INHST^BQIRGCOP(DFN),OTHER="",VISIT=$P(VAL,U,3),DATE=$P(VAL,U,2),VAL=$P(VAL,U,1)
;;0|COPOX^^Oximetry^^^^^T00030COPOX~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|26^^^D^1~5|S VAL=$$MS^BQIRGCOP(DFN,"O2"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,3),VAL=$P(VAL,U,1)
;;0|COPPNEU^^Pneumovax^^^^^T00030COPPNEU~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|26^^^D^5~5|S VAL=$$VAX^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
;;0|COPSPIR^^Spirometry^^^^^T00030COPSPIR~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|26^^^D^2~5|S VAL=$$MS^BQIRGCOP(DFN,"FVFC"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,3),VAL=$P(VAL,U,1)
;;0|COPTBHF^^Tobacco Health Factor^^^^^T00030COPTBHF~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|26^^^D^7~5|S VAL=$$TBHF^BQIRGCOP(DFN),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,3),VAL=$P(VAL,U,1)
;;0|COPTOBA^^Tobacco Assessed^^^^^T00030COPTOBA~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|26^^^D^6~5|S VAL=$$TOB^BQIRGDMS(DFN),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
;;0|BDM3BP^^Last 3 BP (non ER)^^^^^T00040BDM3BP~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^10~5|S VAL=$$BP^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
;;0|BDMA1C^^HbA1c^^^^^T00030BDMA1C~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^28~5|S VAL=$$A1C^BQIRGDMS(DFN),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
;;0|BDMACE^^On ACE Inhibitor?^^^^^T00030BDMACE~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^8~5|S VAL=$$ACE^BQIRGDMS(DFN),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
;;0|BDMASP^^Aspirin Use/Anti-platelet^^^^^T00030BDMASP~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^9~5|S VAL=$$ASP^BQIRGDMS(DFN),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
;;0|BDMBMI^^BMI^^^^^T00030BDMBMI~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^4~5|S VAL=$$MSR^BQIRGDMS(DFN,"BMI"),OTHER="",VISIT="",DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
;;0|BDMCHEST^^Last Chest Xray^^^^^T00030BDMCHEST~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^O^23~5|S VAL=$$RAD^BQIRGDMS(DFN,"CHEST"),OTHER="",VISIT="",DATE=""
;;0|BDMCREAT^^Creatinine^^^^^T00030BDMCREAT~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^33~5|S VAL=$$NEP^BQIRGDMS(DFN,"CREAT"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
;;0|BDMCVD^^CVD Diagnosed?^^^^^T00030BDMCVD~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^40~5|S VAL=$$UP^XLFSTR($P($$CVD^BDMDA12(DFN,DT)," ",2,999)),OTHER="",VISIT="",DATE=""
;;0|BDMDENT^^Dental Exam^^^^^T00030BDMDENT~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^14~5|S VAL=$$EXM^BQIRGDMS(DFN,"DEN"),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
;;0|BDMDEPRS^^Depression^^^^^T00030BDMDEPRS~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^11~5|S VAL=$$DEP^BQIRGDMS(DFN),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
;;0|BDMDIET^^Last Dietician Visit^^^^^T00030BDMDIET~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^18~5|S VAL=$$DIET^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
;;0|BDMEKG^^Last EKG^^^^^T00030BDMEKG^^1^3140429~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^22~5|S VAL=$$RAD^BQIRGDMS(DFN,"EKG"),OTHER="",VISIT="",DATE=""
;;0|BDMEYE^^DM Eye Exam^^^^^T00030BDMEYE~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^13~5|S VAL=$$EXM^BQIRGDMS(DFN,"EYE"),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
;;0|BDMFLU^^Seasonal Flu^^^^^T00030BDMFLU~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^19~5|S VAL=$$FLU^BQIRGDMS(DFN),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
;;0|BDMFOOT^^DM Foot Exam^^^^^T00030BDMFOOT~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^12~5|S VAL=$$EXM^BQIRGDMS(DFN,"FT"),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
;;0|BDMGFR^^Estimated GFR^^^^^T00030BDMGFR~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^34~5|S VAL=$$NEP^BQIRGDMS(DFN,"GFR"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
;;0|BDMHDL^^HDL Cholesterol^^^^^T00030BDMHDL~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^37~5|S VAL=$$NEP^BQIRGDMS(DFN,"HDL"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
;;0|BDMHEPB^^Hep B Series Complete^^^^^T00003BDMHEPB~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^39~5|S VAL=$$HEPB^BQIRGDMS(DFN)
;;0|BDMHTN^^HTN Diagnosed?^^^^^T00030BDMHTN~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^7~5|S VAL=$$UP^XLFSTR($$HTN^BDMS9B1(DFN)),OTHER="",VISIT="",DATE=""
;;0|BDMLDL^^LDL Cholesterol^^^^^T00030BDMLDL~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^36~5|S VAL=$$NEP^BQIRGDMS(DFN,"CHOL"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
;;0|BDMLHT^^Last Height^^^^^T00030BDMLHT~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^2~5|S VAL=$$MSR^BQIRGDMS(DFN,"HT"),OTHER="",VISIT="",DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
;;0|BDMLPPD^^Last PPD^^^^^T00030BDMLPPD^^1^3140429~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^25~5|S VAL=$$PPD^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
;;0|BDMLTB^^Last TB Test^^^^^T00030BDMLTB~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^O^26~5|S VAL=$$PPD^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
;;0|BDMLTBHF^^Last TB Health Factor^^^^^T00030BDMLTBHF~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^27~5|S VAL=$$TBHF^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
;;0|BDMLWC^^Last Waist Circumference^^^^^T00030BDMLWC~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^O^5~5|S VAL=$$MSR^BQIRGDMS(DFN,"WC"),OTHER="",VISIT="",DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
;;0|BDMLWT^^Last Weight^^^^^T00030BDMLWT~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^3~5|S VAL=$$MSR^BQIRGDMS(DFN,"WT"),OTHER="",VISIT="",DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
;;0|BDMMAM^^Last Mammogram^^^^^T00030BDMMAM~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^O^17~5|S VAL=$$SEX^BQIRGDMS(DFN,"MAM"),OTHER="",VISIT="",DATE=""
;;0|BDMMICRO^^Microalbuminuria^^^^^T00030BDMMICRO^^1^3140429~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^31~5|S VAL=$$NEP^BQIRGDMS(DFN,"MIC"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
;;0|BDMNA1C^^Previous HbA1c^^^^^T00030BDMNA1C~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^29~5|S VAL=$$NA1C^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
;;0|BDMNHDL^^Non-HDL Cholesterol^^^^^T00030BDMNHDL~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^41~5|S VAL=$$NEP^BQIRGDMS(DFN,"NHDL"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
;;0|BDMONSET^^DM Onset^^^^^T00030BDMONSET~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^1~5|S VAL=$$DOO^BQIRGDMS(DFN),OTHER="",VISIT=""
;;0|BDMPAP^^Last Pap Smear^^^^^T00030BDMPAP~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^O^16~5|S VAL=$$SEX^BQIRGDMS(DFN,"PAP"),OTHER="",VISIT="",DATE=""
;;0|BDMPNEU^^Pneumovax^^^^^T00040BDMPNEU~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^20~5|S VAL=$$VAX^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
;;0|BDMPPDS^^PPD Status^^^^^T00030BDMPPDS~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^O^24~5|S VAL=$$PPDS^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
;;0|BDMRATIO^^UACR (Quant A/C Ratio)^^^^^T00030BDMRATIO~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^32~5|S VAL=$$NEP^BQIRGDMS(DFN,"RATIO"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
;;0|BDMSMBG^^Self Monitoring (SMBG)^^^^^T00030BDMSMBG^^1^3140429~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^15~5|S VAL=$$EXM^BQIRGDMS(DFN,"SMB"),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
;;0|BDMTCHOL^^Total Cholesterol^^^^^T00030BDMTCHOL~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^35~5|S VAL=$$NEP^BQIRGDMS(DFN,"TCHOL"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
;;0|BDMTDTEN^^TD (10 yrs)^^^^^T00030BDMTDTEN~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^21~5|S VAL=$$TD^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
;;0|BDMTOB^^Tobacco Use Assessed^^^^^T00030BDMTOB~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^6~5|S VAL=$$TOB^BQIRGDMS(DFN),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
;;0|BDMTRIG^^Triglycerides^^^^^T00030BDMTRIG~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^38~5|S VAL=$$NEP^BQIRGDMS(DFN,"TRIG"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
;;0|BDMURINP^^Urine Protein^^^^^T00030BDMURINP^^1^3140429~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^30~5|S VAL=$$NEP^BQIRGDMS(DFN,"UR"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
Q
BQI23PU3 ;GDIT/HS/ALA-2.3 Patch 3 Install ; 26 Sep 2012 10:21 AM
+1 ;;2.3;ICARE MANAGEMENT SYSTEM;**3,4**;Apr 18, 2012;Build 66
+2 ;
LAY ; Add new patient entries to 90506.1
+1 NEW BI,BJ,BK,BN,BQIUPD,ERROR,IEN,ND,NDATA,TEXT,VAL,TTEXT,BJJ
+2 FOR BI=1:1
SET TEXT=$PIECE($TEXT(ARR+BI),";;",2)
IF TEXT=""
QUIT
Begin DoDot:1
+3 FOR BJ=1:1:$LENGTH(TEXT,"~")
Begin DoDot:2
+4 SET NDATA=$PIECE(TEXT,"~",BJ)
+5 SET ND=$PIECE(NDATA,"|",1)
SET VAL=$PIECE(NDATA,"|",2)
+6 IF ND=0
Begin DoDot:3
+7 NEW DIC,X,Y
+8 SET DIC(0)="LQZ"
SET DIC="^BQI(90506.1,"
SET X=$PIECE(VAL,U,1)
+9 DO ^DIC
+10 SET IEN=+Y
+11 IF IEN=-1
KILL DO,DD
DO FILE^DICN
SET IEN=+Y
End DoDot:3
+12 IF ND=1
SET BQIUPD(90506.1,IEN_",",1)=VAL
QUIT
+13 IF ND=5
SET BQIUPD(90506.1,IEN_",",5)=VAL
QUIT
+14 FOR BK=1:1:$LENGTH(VAL,"^")
Begin DoDot:3
+15 SET BN=$ORDER(^DD(90506.1,"GL",ND,BK,""))
IF BN=""
QUIT
+16 IF $PIECE(VAL,"^",BK)'=""
SET BQIUPD(90506.1,IEN_",",BN)=$PIECE(VAL,"^",BK)
QUIT
+17 IF $PIECE(VAL,"^",BK)=""
SET BQIUPD(90506.1,IEN_",",BN)="@"
+18 ;
+19 SET TTEXT=$TEXT(TIP+BI)
IF TTEXT=" Q"
QUIT
Begin DoDot:4
+20 SET TTEXT=$PIECE(TTEXT,";;",2)
IF TTEXT=""
QUIT
+21 FOR BJJ=1:1:$LENGTH(TTEXT,"~")
Begin DoDot:5
+22 SET NDATA=$PIECE(TTEXT,"~",BJJ)
IF NDATA=""
QUIT
+23 SET ^BQI(90506.1,IEN,4,BJJ,0)=NDATA
+24 SET ^BQI(90506.1,IEN,4,0)="^^"_BJJ_"^"_BJJ
End DoDot:5
End DoDot:4
End DoDot:3
End DoDot:2
+25 DO FILE^DIE("","BQIUPD","ERROR")
End DoDot:1
+26 ;
+27 ; Re-Index File
+28 KILL ^BQI(90506.1,"AC"),^BQI(90506.1,"AD")
+29 NEW DIK
+30 SET DIK="^BQI(90506.1,"
SET DIK(1)=3.01
+31 DO ENALL^DIK
+32 ;
+33 QUIT
+34 ;
TIP ; Tooltips
+1 ;;
+2 ;;The most recent abdominal girth measurement for this patient.~
+3 ;;
+4 ;;The most recent oximetry measurement for this patient.~
+5 ;;
+6 ;;The most recent spirometry measurement for this patient.~
+7 ;;The most recent Tobacco Health Factor entry for this patient.~
+8 ;;
+9 ;;The last three blood pressure measures for this patient.~
+10 ;;The most recent HbA1c test result for this patient.~
+11 ;;Did the patient have an active ACE Inhibitor/ARB medication in the past~year.~
+12 ;;Patient had an active aspirin/anti-platelet medication in the past year.~
+13 ;;This is the value of the BMI calculated from the most recent height and ~weight measurements for the patient.~
+14 ;;Date of the last Chest xray for the patient.~
+15 ;;
+16 ;;
+17 ;;Has the patient had a dental exam in the past year.~
+18 ;;If the patient has Depression on the Problem List, no depression ~screening is needed. Otherwise has the patient had a depression screening~in the past year.~
+19 ;;The date of the patient's last visit to a dietician.~
+20 ;;Date of the last EKG exam for the patient.~
+21 ;;Has the patient had an eye exam in the past year.~
+22 ;;
+23 ;;Has the patient had a foot exam in the past year.~
+24 ;;
+25 ;;
+26 ;;
+27 ;;Has the patient been diagnosed with Hypertension?~
+28 ;;
+29 ;;The last height measurement taken for this patient.~
+30 ;;
+31 ;;
+32 ;;
+33 ;;This is the most recent waist circumference measurement taken for this ~patient.~
+34 ;;The most recent weight measurement taken for this patient.~
+35 ;;If applicable, the date of the patient's last mammogram.~
+36 ;;
+37 ;;The previous result from the most recent HbA1c lab test for this patient.~
+38 ;;
+39 ;;The date of the onset of Diabetes for this patient and where the date is ~documented.~
+40 ;;If applicable, the date of the patient's last pap smear.~
+41 ;;
+42 ;;
+43 ;;
+44 ;;Has the patient had self-monitoring blood glucose evidence in the past ~year.~
+45 ;;
+46 ;;
+47 ;;Was tobacco Use assessed in the last year for this patient.~
+48 ;;
+49 ;;The most recent urine protein test for this patient.~
+50 QUIT
+51 ;
ARR ; Array
+1 ;;0|DECCOD^^Cause of Death^^^^^T00030DECCOD~1|S VAL=$$COD^BQIULPT(DFN)~3|1^^Demographics^O^44~5|
+2 ;;0|COPAG^^Abdominal Girth^^^^^T00030COPAG~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|26^^^O^3~5|S VAL=$$MS^BQIRGCOP(DFN,"AG"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,3),VAL=$P(VAL,U,1)
+3 ;;0|COPINH^^Active Inhaled Steroids^^^^^T00030COPINH~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|26^^^D^8~5|S VAL=$$INHST^BQIRGCOP(DFN),OTHER="",VISIT=$P(VAL,U,3),DATE=$P(VAL,U,2),VAL=$P(VAL,U,1)
+4 ;;0|COPOX^^Oximetry^^^^^T00030COPOX~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|26^^^D^1~5|S VAL=$$MS^BQIRGCOP(DFN,"O2"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,3),VAL=$P(VAL,U,1)
+5 ;;0|COPPNEU^^Pneumovax^^^^^T00030COPPNEU~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|26^^^D^5~5|S VAL=$$VAX^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
+6 ;;0|COPSPIR^^Spirometry^^^^^T00030COPSPIR~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|26^^^D^2~5|S VAL=$$MS^BQIRGCOP(DFN,"FVFC"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,3),VAL=$P(VAL,U,1)
+7 ;;0|COPTBHF^^Tobacco Health Factor^^^^^T00030COPTBHF~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|26^^^D^7~5|S VAL=$$TBHF^BQIRGCOP(DFN),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,3),VAL=$P(VAL,U,1)
+8 ;;0|COPTOBA^^Tobacco Assessed^^^^^T00030COPTOBA~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|26^^^D^6~5|S VAL=$$TOB^BQIRGDMS(DFN),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
+9 ;;0|BDM3BP^^Last 3 BP (non ER)^^^^^T00040BDM3BP~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^10~5|S VAL=$$BP^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
+10 ;;0|BDMA1C^^HbA1c^^^^^T00030BDMA1C~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^28~5|S VAL=$$A1C^BQIRGDMS(DFN),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+11 ;;0|BDMACE^^On ACE Inhibitor?^^^^^T00030BDMACE~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^8~5|S VAL=$$ACE^BQIRGDMS(DFN),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
+12 ;;0|BDMASP^^Aspirin Use/Anti-platelet^^^^^T00030BDMASP~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^9~5|S VAL=$$ASP^BQIRGDMS(DFN),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
+13 ;;0|BDMBMI^^BMI^^^^^T00030BDMBMI~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^4~5|S VAL=$$MSR^BQIRGDMS(DFN,"BMI"),OTHER="",VISIT="",DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+14 ;;0|BDMCHEST^^Last Chest Xray^^^^^T00030BDMCHEST~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^O^23~5|S VAL=$$RAD^BQIRGDMS(DFN,"CHEST"),OTHER="",VISIT="",DATE=""
+15 ;;0|BDMCREAT^^Creatinine^^^^^T00030BDMCREAT~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^33~5|S VAL=$$NEP^BQIRGDMS(DFN,"CREAT"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+16 ;;0|BDMCVD^^CVD Diagnosed?^^^^^T00030BDMCVD~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^40~5|S VAL=$$UP^XLFSTR($P($$CVD^BDMDA12(DFN,DT)," ",2,999)),OTHER="",VISIT="",DATE=""
+17 ;;0|BDMDENT^^Dental Exam^^^^^T00030BDMDENT~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^14~5|S VAL=$$EXM^BQIRGDMS(DFN,"DEN"),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
+18 ;;0|BDMDEPRS^^Depression^^^^^T00030BDMDEPRS~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^11~5|S VAL=$$DEP^BQIRGDMS(DFN),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
+19 ;;0|BDMDIET^^Last Dietician Visit^^^^^T00030BDMDIET~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^18~5|S VAL=$$DIET^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
+20 ;;0|BDMEKG^^Last EKG^^^^^T00030BDMEKG^^1^3140429~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^22~5|S VAL=$$RAD^BQIRGDMS(DFN,"EKG"),OTHER="",VISIT="",DATE=""
+21 ;;0|BDMEYE^^DM Eye Exam^^^^^T00030BDMEYE~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^13~5|S VAL=$$EXM^BQIRGDMS(DFN,"EYE"),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
+22 ;;0|BDMFLU^^Seasonal Flu^^^^^T00030BDMFLU~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^19~5|S VAL=$$FLU^BQIRGDMS(DFN),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
+23 ;;0|BDMFOOT^^DM Foot Exam^^^^^T00030BDMFOOT~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^12~5|S VAL=$$EXM^BQIRGDMS(DFN,"FT"),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
+24 ;;0|BDMGFR^^Estimated GFR^^^^^T00030BDMGFR~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^34~5|S VAL=$$NEP^BQIRGDMS(DFN,"GFR"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+25 ;;0|BDMHDL^^HDL Cholesterol^^^^^T00030BDMHDL~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^37~5|S VAL=$$NEP^BQIRGDMS(DFN,"HDL"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+26 ;;0|BDMHEPB^^Hep B Series Complete^^^^^T00003BDMHEPB~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^39~5|S VAL=$$HEPB^BQIRGDMS(DFN)
+27 ;;0|BDMHTN^^HTN Diagnosed?^^^^^T00030BDMHTN~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^7~5|S VAL=$$UP^XLFSTR($$HTN^BDMS9B1(DFN)),OTHER="",VISIT="",DATE=""
+28 ;;0|BDMLDL^^LDL Cholesterol^^^^^T00030BDMLDL~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^36~5|S VAL=$$NEP^BQIRGDMS(DFN,"CHOL"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+29 ;;0|BDMLHT^^Last Height^^^^^T00030BDMLHT~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^2~5|S VAL=$$MSR^BQIRGDMS(DFN,"HT"),OTHER="",VISIT="",DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+30 ;;0|BDMLPPD^^Last PPD^^^^^T00030BDMLPPD^^1^3140429~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^25~5|S VAL=$$PPD^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
+31 ;;0|BDMLTB^^Last TB Test^^^^^T00030BDMLTB~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^O^26~5|S VAL=$$PPD^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
+32 ;;0|BDMLTBHF^^Last TB Health Factor^^^^^T00030BDMLTBHF~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^27~5|S VAL=$$TBHF^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
+33 ;;0|BDMLWC^^Last Waist Circumference^^^^^T00030BDMLWC~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^O^5~5|S VAL=$$MSR^BQIRGDMS(DFN,"WC"),OTHER="",VISIT="",DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+34 ;;0|BDMLWT^^Last Weight^^^^^T00030BDMLWT~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^3~5|S VAL=$$MSR^BQIRGDMS(DFN,"WT"),OTHER="",VISIT="",DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+35 ;;0|BDMMAM^^Last Mammogram^^^^^T00030BDMMAM~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^O^17~5|S VAL=$$SEX^BQIRGDMS(DFN,"MAM"),OTHER="",VISIT="",DATE=""
+36 ;;0|BDMMICRO^^Microalbuminuria^^^^^T00030BDMMICRO^^1^3140429~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^31~5|S VAL=$$NEP^BQIRGDMS(DFN,"MIC"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+37 ;;0|BDMNA1C^^Previous HbA1c^^^^^T00030BDMNA1C~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^29~5|S VAL=$$NA1C^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+38 ;;0|BDMNHDL^^Non-HDL Cholesterol^^^^^T00030BDMNHDL~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^41~5|S VAL=$$NEP^BQIRGDMS(DFN,"NHDL"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+39 ;;0|BDMONSET^^DM Onset^^^^^T00030BDMONSET~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^1~5|S VAL=$$DOO^BQIRGDMS(DFN),OTHER="",VISIT=""
+40 ;;0|BDMPAP^^Last Pap Smear^^^^^T00030BDMPAP~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^O^16~5|S VAL=$$SEX^BQIRGDMS(DFN,"PAP"),OTHER="",VISIT="",DATE=""
+41 ;;0|BDMPNEU^^Pneumovax^^^^^T00040BDMPNEU~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^20~5|S VAL=$$VAX^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
+42 ;;0|BDMPPDS^^PPD Status^^^^^T00030BDMPPDS~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^O^24~5|S VAL=$$PPDS^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
+43 ;;0|BDMRATIO^^UACR (Quant A/C Ratio)^^^^^T00030BDMRATIO~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^32~5|S VAL=$$NEP^BQIRGDMS(DFN,"RATIO"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+44 ;;0|BDMSMBG^^Self Monitoring (SMBG)^^^^^T00030BDMSMBG^^1^3140429~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^15~5|S VAL=$$EXM^BQIRGDMS(DFN,"SMB"),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
+45 ;;0|BDMTCHOL^^Total Cholesterol^^^^^T00030BDMTCHOL~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^35~5|S VAL=$$NEP^BQIRGDMS(DFN,"TCHOL"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+46 ;;0|BDMTDTEN^^TD (10 yrs)^^^^^T00030BDMTDTEN~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^21~5|S VAL=$$TD^BQIRGDMS(DFN),OTHER="",VISIT="",DATE=""
+47 ;;0|BDMTOB^^Tobacco Use Assessed^^^^^T00030BDMTOB~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^6~5|S VAL=$$TOB^BQIRGDMS(DFN),OTHER="",VISIT="",DATE="",VAL=$P(VAL,U,2)
+48 ;;0|BDMTRIG^^Triglycerides^^^^^T00030BDMTRIG~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^38~5|S VAL=$$NEP^BQIRGDMS(DFN,"TRIG"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+49 ;;0|BDMURINP^^Urine Protein^^^^^T00030BDMURINP^^1^3140429~1|S VAL=$$DSP^BQIRGASU(DFN,STVW)~3|7^^^D^30~5|S VAL=$$NEP^BQIRGDMS(DFN,"UR"),OTHER="",VISIT=$P(VAL,U,2),DATE=$P(VAL,U,4),VAL=$P(VAL,U,1)
+50 QUIT
