BQI202PU ;VNGT/HS/ALA-2.0.2 Install Utility Program ; 07 May 2009 10:03 AM
;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
;
TPS ; Set tooltips
NEW TEXT,BQIUPD,ERROR,BI,BJ,HELP,IEN
F BI=1:1 S TEXT=$P($T(TIP+BI),";;",2) Q:TEXT="" D
. S CODE=$P(TEXT,"~",1)
. S IEN=$O(^BQI(90506.1,"B",CODE,"")) I IEN="" Q
. F BJ=1:1 S TXT=$P($T(@CODE+BJ),";;",2) Q:TXT="" D
.. S HELP(BJ)=TXT
. D WP^DIE(90506.1,IEN_",",4,"","HELP","ERROR")
. K HELP
;
TAX ; Update taxonomies
; Add new taxonomies OR update existing ones
D ^BQIITX
;
TX ; Reset the variable pointer values for the taxonomies
NEW BQIDA,N,X,IEN,VAL,BQIUPD,REG,RP,TIEN
S BQIDA=1
S N=0
F S N=$O(^BQI(90508,BQIDA,10,N)) Q:'N D
. S X=$P(^BQI(90508,BQIDA,10,N,0),U,1)
. S IEN=N_","_BQIDA_","
. I $P(^BQI(90508,BQIDA,10,N,0),U,5)="T" S VAL=$$STXPT(X,"L")
. E S VAL=$$STXPT(X,"N")
. S BQIUPD(90508.03,IEN,.02)=VAL
I $D(BQIUPD) D FILE^DIE("","BQIUPD","ERROR")
;
S REG=0
F S REG=$O(^BQI(90507,REG)) Q:'REG D
. S N=0
. F S N=$O(^BQI(90507,REG,10,N)) Q:'N D
.. S X=$P(^BQI(90507,REG,10,N,0),U,1)
.. S IEN=N_","_REG_","
.. I $P(^BQI(90507,REG,10,N,0),U,5)="T" S VAL=$$STXPT(X,"L")
.. E S VAL=$$STXPT(X,"N")
.. S BQIUPD(90507.01,IEN,.02)=VAL
. I $D(BQIUPD) D FILE^DIE("","BQIUPD","ERROR")
. ;
. S RP=0
. F S RP=$O(^BQI(90507,REG,20,RP)) Q:'RP D
.. S N=0
.. F S N=$O(^BQI(90507,REG,20,RP,10,N)) Q:'N D
... S X=$P(^BQI(90507,REG,20,RP,10,N,0),U,1)
... S IEN=N_","_RP_","_REG_","
... S TIEN=$O(^BQI(90507,REG,10,"B",X,""))
... I $P(^BQI(90507,REG,10,TIEN,0),U,5)="T" S VAL=$$STXPT(X,"L")
... E S VAL=$$STXPT(X,"N")
... S BQIUPD(90507.03,IEN,.02)=VAL
. I $D(BQIUPD) D FILE^DIE("","BQIUPD","ERROR")
Q
;
CTX ; Set community taxonomies
NEW DATA,DA,DIK
S DA(1)=$$SPM^BQIGPUTL(),DA=0,DIK="^BQI(90508,"_DA(1)_",10,"
F S DA=$O(^BQI(90508,DA(1),10,DA)) Q:'DA D
. I $P(^BQI(90508,DA(1),10,DA,0),U,5)'="CM" Q
. D ^DIK
S DATA="TEST",II=0
D COMMTX^BQIUTB(.DATA)
K @DATA
Q
;
DX ; Check diagnosis code pointers
NEW CN,DN,DXC,DXN
S CN=0
F S CN=$O(^BQI(90507.8,CN)) Q:'CN D
. S DN=0
. F S DN=$O(^BQI(90507.8,CN,10,DN)) Q:'DN D
.. S DXC=$P(^BQI(90507.8,CN,10,DN,0),U,2)_" "
.. S DXN=$$FIND1^DIC(80,"","X",DXC,"BA","","ERROR")
.. I $P(^BQI(90507.8,CN,10,DN,0),U,1)=DXN Q
.. NEW DA,IENS
.. S DA(1)=CN,DA=DN,IENS=$$IENS^DILF(.DA)
.. S BQIUPD(90507.801,IENS,.01)=DXN
I $D(BQIUPD) D FILE^DIE("","BQIUPD","ERROR")
K BQIUPD
Q
;
CAT ; Change NEW CATEGORY value
NEW DIEN,TEXT
F TEXT="DPCP","DCAT" D
. S DIEN=$O(^BQI(90506.1,"B",TEXT,""))
. S $P(^BQI(90506.1,DIEN,3),U,3)="Other Patient Data"
F TEXT="LVD","LVPR","LVCL","LVDN","LVPN","NAPD","NAPC","NAPV","LVDTM","NAPDTM" D
. S DIEN=$O(^BQI(90506.1,"B",TEXT,"")) I DIEN="" Q
. S $P(^BQI(90506.1,DIEN,3),U,3)="Visit Related"
F TEXT="MSTRT","MCTY","MSTAT","MZIP","HPHN","WPHN","OPHN" D
. S DIEN=$O(^BQI(90506.1,"B",TEXT,"")) I DIEN="" Q
. S $P(^BQI(90506.1,DIEN,3),U,3)="Address"
F TEXT="PN","HRN","DOB","AGE","SX","CM","COM","MFLG","GPRM","PADD","DOD","UPOP","BEN" D
. S DIEN=$O(^BQI(90506.1,"B",TEXT,""))
. S $P(^BQI(90506.1,DIEN,3),U,3)="Demographics"
. I TEXT="HRN" S $P(^BQI(90506.1,DIEN,0),U,8)="T00040HRN"
Q
;
STXPT(TXNM,TYP) ; Set taxonomy pointer
;
;Input
; TXNM - Taxonomy name
; TYP - Taxonomy Type (L = LAB, N = Non Lab)
NEW IEN,SIEN,DA,IENS,BQUPD,VALUE,GLB
S VALUE=""
I TYP="L" D
. S IEN=$O(^ATXLAB("B",TXNM,"")),GLB="ATXLAB("
. I IEN="" S TYP="N"
I TYP="N" S IEN=$O(^ATXAX("B",TXNM,"")),GLB="ATXAX("
I IEN="" S VALUE="@"
I IEN'="" S VALUE=IEN_";"_GLB
Q VALUE
;
PNLFX ; Loop through existing panels and fix layout related issues
;
N CML,FLN,OWNR,PNL,SHR
;
S OWNR=0 F S OWNR=$O(^BQICARE(OWNR)) Q:'OWNR D
. S PNL=0 F S PNL=$O(^BQICARE(OWNR,1,PNL)) Q:'PNL D
.. ;
.. ;Revert templates entries back to system default or customized
.. K ^BQICARE(OWNR,1,PNL,4)
.. ;
.. ;Validate sub-file file numbers - Fix if needed
.. S FLN=$P($G(^BQICARE(OWNR,1,PNL,20,0)),U,2) I FLN]"",FLN'="90505.05P" S $P(^BQICARE(OWNR,1,PNL,20,0),U,2)="90505.05P"
.. S FLN=$P($G(^BQICARE(OWNR,1,PNL,22,0)),U,2) I FLN]"",FLN'="90505.122" S $P(^BQICARE(OWNR,1,PNL,22,0),U,2)="90505.122"
.. S FLN=$P($G(^BQICARE(OWNR,1,PNL,25,0)),U,2) I FLN]"",FLN'="90505.125" S $P(^BQICARE(OWNR,1,PNL,25,0),U,2)="90505.125"
.. S FLN=$P($G(^BQICARE(OWNR,1,PNL,23,0)),U,2) I FLN]"",FLN'="90505.123" S $P(^BQICARE(OWNR,1,PNL,23,0),U,2)="90505.123"
.. S CML=0 F S CML=$O(^BQICARE(OWNR,1,PNL,23,CML)) Q:'CML S FLN=$P($G(^BQICARE(OWNR,1,PNL,23,CML,1,0)),U,2) I FLN]"",FLN'="90505.1231" S $P(^BQICARE(OWNR,1,PNL,23,CML,1,0),U,2)="90505.1231"
.. ;
.. ;Loop through shared user layouts
.. S SHR=0 F S SHR=$O(^BQICARE(OWNR,1,PNL,30,SHR)) Q:'SHR D
... ;
... ;Revert shared user entries from templates to system default or customized
... K ^BQICARE(OWNR,1,PNL,30,SHR,4)
... ;
... ;Validate sub-file file number - Fix if needed
... S FLN=$P($G(^BQICARE(OWNR,1,PNL,30,SHR,20,0)),U,2) I FLN]"",FLN'="90505.06P" S $P(^BQICARE(OWNR,1,PNL,30,SHR,20,0),U,2)="90505.06P"
... S FLN=$P($G(^BQICARE(OWNR,1,PNL,30,SHR,22,0)),U,2) I FLN]"",FLN'="90505.322" S $P(^BQICARE(OWNR,1,PNL,30,SHR,22,0),U,2)="90505.322"
... S FLN=$P($G(^BQICARE(OWNR,1,PNL,30,SHR,25,0)),U,2) I FLN]"",FLN'="90505.325" S $P(^BQICARE(OWNR,1,PNL,30,SHR,25,0),U,2)="90505.325"
... S FLN=$P($G(^BQICARE(OWNR,1,PNL,30,SHR,23,0)),U,2) I FLN]"",FLN'="90505.323" S $P(^BQICARE(OWNR,1,PNL,30,SHR,23,0),U,2)="90505.323"
... S CML=0 F S CML=$O(^BQICARE(OWNR,1,PNL,30,SHR,23,CML)) Q:'CML S FLN=$P($G(^BQICARE(OWNR,1,PNL,30,SHR,23,CML,1,0)),U,2) I FLN]"",FLN'="90505.3231" S $P(^BQICARE(OWNR,1,PNL,30,SHR,23,CML,1,0),U,2)="90505.3231"
;
Q
;
TIP ; Tooltips
;;ASACON
;;ASACT
;;ASAQC
;;ASCNTRL
;;ASFHX
;;ASFLU
;;ASIHSD
;;ASLADM
;;ASLBPF
;;ASLEUV
;;ASLFD
;;ASLFEV
;;ASLHSV
;;ASLPF
;;ASLV
;;ASRLVR
;;ASSEV
;;ASSTAT
;;ASTBHF
;;ASTRIG
;;DPCP
Q
;
ASACON ;
;;Asthma Control: Most recent Control value from Measurements file. The
;;visit date will display if your cursor hovers over the cell.
Q
;
ASACT ;
;;Asthma Action Plan: Date of most recent Action Plan provided to this
;;patient. Action Plans are available from the PCC Patient Wellness
;;Handout menus or from the iCare Patient Record.
Q
;
ASAQC ;
;;Asthma Quality of Care: If this patient has an Active Asthma diagnostic
;;tag (Proposed or Accepted), are ALL of the following key elements
;;documented: Asthma Severity value ever; Asthma Control and Peak Flow or
;;FEV1 measurement and Asthma Action Plan and Flu Shot in past year; and
;;current Controller medication prescription if Severity is Persistent (2,3 ~or 4).
;;"N/A" will display if this patient does not have an active Asthma
;;diagnostic tag.
Q
;
ASCNTRL ;
;;On Controller Meds? Is this patient currently prescribed with Asthma
;;Controller medications?
;;"N/A" will display if this patient does not have an active Asthma
;;diagnostic tag. Open this patient's record to PCC/Medications tab to
;;view specific asthma-related medications list.
Q
;
ASFHX ;
;;Asthma Family History: "Y" indicates this patient has at least one Family
;;History entry for asthma. Detailed asthma FHX data will display if your
;;cursor hovers over the cell.
;;Open this patient's record to FHX tab to view, add or edit any Family
;;History.
Q
;
ASFLU ;
;;Last Flu Shot: Date of most recent Influenza immunization.
Q
;
ASIHSD ;
;;On Inhaled Steroids? Is this patient currently prescribed with Inhaled
;;Steroid medications?
;;"N/A" will display if this patient does not have an active Asthma
;;diagnostic tag. Open this patient's record to PCC/Medications tab to
;;view specific asthma-related medications list.
Q
;
ASLADM ;
;;Asthma Work/School Days Missed: Value of most recent Work/School Missed.
;;Available values are 0-14 (days), documented in V Measurements. The
;;visit date will display if your cursor hovers over the cell.
Q
;
ASLBPF ;
;;Best Peak Flow: Most recent Best Peak Flow value from Measurements file.
;;BPF is the highest PEF the patient is able to achieve over a 2 to 3 week
;;period of using the peak flow meter while asthma is under control.
;;The visit date will display if your cursor hovers over the cell.
Q
;
ASLEUV ;
;;Last Asthma ER/UC Visit: Date of most recent visit to the ER or Urgent
;;Care (clinic codes 80 or 30) with Asthma as the primary POV.
Q
;
ASLFD ;
;;Asthma Symptom Free Days: Value of most recent Symptom Free Days.
;;Available values are 0-14 (days), documented in V Measurements. The
;;visit date will display if your cursor hovers over the cell.
Q
;
ASLFEV ;
;;FEV1/FVC: Most recent FEV1/FVC values from Measurements file, obtained
;;from spirometry measurements during a visit. The visit date will display
;;if your cursor hovers over the cell.
Q
;
ASLHSV ;
;;Last Asthma Hospital Visit: Date of most recent hospitalization (service
;;category H) with Asthma as the primary POV.
Q
;
ASLPF ;
;;Peak Flow: Most recent Peak Flow value from Measurements file, obtained
;;from a peak flow meter during a visit. If multiple PFs were documented
;;on the same date, the value displayed is the highest.
;;The visit date will display if your cursor hovers over the cell.
Q
;
ASLV ;
;;Last Asthma Visit: Date of most recent Asthma visit, defined as a
;;face-to-face visit with ANY of the following asthma-related data elements
;;documented: Severity, Control, Symptom Free Days, Work/School Missed,
;;and/or Patient Education.
;;Click the date to link directly to the Visit Record.
Q
;
ASRLVR ;
;;On Reliever Meds? Is this patient currently prescribed with Asthma
;;Reliever medications?
;;"N/A" will display if this patient does not have an active Asthma
;;diagnostic tag. Open this patient's record to PCC/Medications tab to
;;view specific asthma-related medications list.
Q
;
ASSEV ;
;;Asthma Severity: Most recent Severity, documented in Problem List
;;Classification field. Values are: 1-Intermittent; 2-Mild Persistent;
;;3-Moderate Persistent; 4-Severe Persistent.
Q
;
ASSTAT ;
;;Asthma Diagnostic Tag Status: Most recent diagnostic tag status for
;;Asthma only, if any. Open this patient's record to DX Tag tab to view a
;;complete history of all diagnostic tags.
Q
;
ASTBHF ;
;;Last Tobacco Health Factor: Most recent Tobacco Health Factor. The visit
;;date will display if your cursor hovers over the cell.
Q
;
ASTRIG ;
;;Asthma Triggers List: A list of the most recent of ANY Asthma Triggers
;;(Health Factors) documented ever for this patient. The visit date(s)
;;will display if your cursor hovers over the cell.
Q
;
DPCP ;
;;Designated Primary Care Provider (DPCP): Name of this patient's
;;DPCP, if any.
Q
BQI202PU ;VNGT/HS/ALA-2.0.2 Install Utility Program ; 07 May 2009 10:03 AM
+1 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
+2 ;
TPS ; Set tooltips
+1 NEW TEXT,BQIUPD,ERROR,BI,BJ,HELP,IEN
+2 FOR BI=1:1
SET TEXT=$PIECE($TEXT(TIP+BI),";;",2)
IF TEXT=""
QUIT
Begin DoDot:1
+3 SET CODE=$PIECE(TEXT,"~",1)
+4 SET IEN=$ORDER(^BQI(90506.1,"B",CODE,""))
IF IEN=""
QUIT
+5 FOR BJ=1:1
SET TXT=$PIECE($TEXT(@CODE+BJ),";;",2)
IF TXT=""
QUIT
Begin DoDot:2
+6 SET HELP(BJ)=TXT
End DoDot:2
+7 DO WP^DIE(90506.1,IEN_",",4,"","HELP","ERROR")
+8 KILL HELP
End DoDot:1
+9 ;
TAX ; Update taxonomies
+1 ; Add new taxonomies OR update existing ones
+2 DO ^BQIITX
+3 ;
TX ; Reset the variable pointer values for the taxonomies
+1 NEW BQIDA,N,X,IEN,VAL,BQIUPD,REG,RP,TIEN
+2 SET BQIDA=1
+3 SET N=0
+4 FOR
SET N=$ORDER(^BQI(90508,BQIDA,10,N))
IF 'N
QUIT
Begin DoDot:1
+5 SET X=$PIECE(^BQI(90508,BQIDA,10,N,0),U,1)
+6 SET IEN=N_","_BQIDA_","
+7 IF $PIECE(^BQI(90508,BQIDA,10,N,0),U,5)="T"
SET VAL=$$STXPT(X,"L")
+8 IF '$TEST
SET VAL=$$STXPT(X,"N")
+9 SET BQIUPD(90508.03,IEN,.02)=VAL
End DoDot:1
+10 IF $DATA(BQIUPD)
DO FILE^DIE("","BQIUPD","ERROR")
+11 ;
+12 SET REG=0
+13 FOR
SET REG=$ORDER(^BQI(90507,REG))
IF 'REG
QUIT
Begin DoDot:1
+14 SET N=0
+15 FOR
SET N=$ORDER(^BQI(90507,REG,10,N))
IF 'N
QUIT
Begin DoDot:2
+16 SET X=$PIECE(^BQI(90507,REG,10,N,0),U,1)
+17 SET IEN=N_","_REG_","
+18 IF $PIECE(^BQI(90507,REG,10,N,0),U,5)="T"
SET VAL=$$STXPT(X,"L")
+19 IF '$TEST
SET VAL=$$STXPT(X,"N")
+20 SET BQIUPD(90507.01,IEN,.02)=VAL
End DoDot:2
+21 IF $DATA(BQIUPD)
DO FILE^DIE("","BQIUPD","ERROR")
+22 ;
+23 SET RP=0
+24 FOR
SET RP=$ORDER(^BQI(90507,REG,20,RP))
IF 'RP
QUIT
Begin DoDot:2
+25 SET N=0
+26 FOR
SET N=$ORDER(^BQI(90507,REG,20,RP,10,N))
IF 'N
QUIT
Begin DoDot:3
+27 SET X=$PIECE(^BQI(90507,REG,20,RP,10,N,0),U,1)
+28 SET IEN=N_","_RP_","_REG_","
+29 SET TIEN=$ORDER(^BQI(90507,REG,10,"B",X,""))
+30 IF $PIECE(^BQI(90507,REG,10,TIEN,0),U,5)="T"
SET VAL=$$STXPT(X,"L")
+31 IF '$TEST
SET VAL=$$STXPT(X,"N")
+32 SET BQIUPD(90507.03,IEN,.02)=VAL
End DoDot:3
End DoDot:2
+33 IF $DATA(BQIUPD)
DO FILE^DIE("","BQIUPD","ERROR")
End DoDot:1
+34 QUIT
+35 ;
CTX ; Set community taxonomies
+1 NEW DATA,DA,DIK
+2 SET DA(1)=$$SPM^BQIGPUTL()
SET DA=0
SET DIK="^BQI(90508,"_DA(1)_",10,"
+3 FOR
SET DA=$ORDER(^BQI(90508,DA(1),10,DA))
IF 'DA
QUIT
Begin DoDot:1
+4 IF $PIECE(^BQI(90508,DA(1),10,DA,0),U,5)'="CM"
QUIT
+5 DO ^DIK
End DoDot:1
+6 SET DATA="TEST"
SET II=0
+7 DO COMMTX^BQIUTB(.DATA)
+8 KILL @DATA
+9 QUIT
+10 ;
DX ; Check diagnosis code pointers
+1 NEW CN,DN,DXC,DXN
+2 SET CN=0
+3 FOR
SET CN=$ORDER(^BQI(90507.8,CN))
IF 'CN
QUIT
Begin DoDot:1
+4 SET DN=0
+5 FOR
SET DN=$ORDER(^BQI(90507.8,CN,10,DN))
IF 'DN
QUIT
Begin DoDot:2
+6 SET DXC=$PIECE(^BQI(90507.8,CN,10,DN,0),U,2)_" "
+7 SET DXN=$$FIND1^DIC(80,"","X",DXC,"BA","","ERROR")
+8 IF $PIECE(^BQI(90507.8,CN,10,DN,0),U,1)=DXN
QUIT
+9 NEW DA,IENS
+10 SET DA(1)=CN
SET DA=DN
SET IENS=$$IENS^DILF(.DA)
+11 SET BQIUPD(90507.801,IENS,.01)=DXN
End DoDot:2
End DoDot:1
+12 IF $DATA(BQIUPD)
DO FILE^DIE("","BQIUPD","ERROR")
+13 KILL BQIUPD
+14 QUIT
+15 ;
CAT ; Change NEW CATEGORY value
+1 NEW DIEN,TEXT
+2 FOR TEXT="DPCP","DCAT"
Begin DoDot:1
+3 SET DIEN=$ORDER(^BQI(90506.1,"B",TEXT,""))
+4 SET $PIECE(^BQI(90506.1,DIEN,3),U,3)="Other Patient Data"
End DoDot:1
+5 FOR TEXT="LVD","LVPR","LVCL","LVDN","LVPN","NAPD","NAPC","NAPV","LVDTM","NAPDTM"
Begin DoDot:1
+6 SET DIEN=$ORDER(^BQI(90506.1,"B",TEXT,""))
IF DIEN=""
QUIT
+7 SET $PIECE(^BQI(90506.1,DIEN,3),U,3)="Visit Related"
End DoDot:1
+8 FOR TEXT="MSTRT","MCTY","MSTAT","MZIP","HPHN","WPHN","OPHN"
Begin DoDot:1
+9 SET DIEN=$ORDER(^BQI(90506.1,"B",TEXT,""))
IF DIEN=""
QUIT
+10 SET $PIECE(^BQI(90506.1,DIEN,3),U,3)="Address"
End DoDot:1
+11 FOR TEXT="PN","HRN","DOB","AGE","SX","CM","COM","MFLG","GPRM","PADD","DOD","UPOP","BEN"
Begin DoDot:1
+12 SET DIEN=$ORDER(^BQI(90506.1,"B",TEXT,""))
+13 SET $PIECE(^BQI(90506.1,DIEN,3),U,3)="Demographics"
+14 IF TEXT="HRN"
SET $PIECE(^BQI(90506.1,DIEN,0),U,8)="T00040HRN"
End DoDot:1
+15 QUIT
+16 ;
STXPT(TXNM,TYP) ; Set taxonomy pointer
+1 ;
+2 ;Input
+3 ; TXNM - Taxonomy name
+4 ; TYP - Taxonomy Type (L = LAB, N = Non Lab)
+5 NEW IEN,SIEN,DA,IENS,BQUPD,VALUE,GLB
+6 SET VALUE=""
+7 IF TYP="L"
Begin DoDot:1
+8 SET IEN=$ORDER(^ATXLAB("B",TXNM,""))
SET GLB="ATXLAB("
+9 IF IEN=""
SET TYP="N"
End DoDot:1
+10 IF TYP="N"
SET IEN=$ORDER(^ATXAX("B",TXNM,""))
SET GLB="ATXAX("
+11 IF IEN=""
SET VALUE="@"
+12 IF IEN'=""
SET VALUE=IEN_";"_GLB
+13 QUIT VALUE
+14 ;
PNLFX ; Loop through existing panels and fix layout related issues
+1 ;
+2 NEW CML,FLN,OWNR,PNL,SHR
+3 ;
+4 SET OWNR=0
FOR
SET OWNR=$ORDER(^BQICARE(OWNR))
IF 'OWNR
QUIT
Begin DoDot:1
+5 SET PNL=0
FOR
SET PNL=$ORDER(^BQICARE(OWNR,1,PNL))
IF 'PNL
QUIT
Begin DoDot:2
+6 ;
+7 ;Revert templates entries back to system default or customized
+8 KILL ^BQICARE(OWNR,1,PNL,4)
+9 ;
+10 ;Validate sub-file file numbers - Fix if needed
+11 SET FLN=$PIECE($GET(^BQICARE(OWNR,1,PNL,20,0)),U,2)
IF FLN]""
IF FLN'="90505.05P"
SET $PIECE(^BQICARE(OWNR,1,PNL,20,0),U,2)="90505.05P"
+12 SET FLN=$PIECE($GET(^BQICARE(OWNR,1,PNL,22,0)),U,2)
IF FLN]""
IF FLN'="90505.122"
SET $PIECE(^BQICARE(OWNR,1,PNL,22,0),U,2)="90505.122"
+13 SET FLN=$PIECE($GET(^BQICARE(OWNR,1,PNL,25,0)),U,2)
IF FLN]""
IF FLN'="90505.125"
SET $PIECE(^BQICARE(OWNR,1,PNL,25,0),U,2)="90505.125"
+14 SET FLN=$PIECE($GET(^BQICARE(OWNR,1,PNL,23,0)),U,2)
IF FLN]""
IF FLN'="90505.123"
SET $PIECE(^BQICARE(OWNR,1,PNL,23,0),U,2)="90505.123"
+15 SET CML=0
FOR
SET CML=$ORDER(^BQICARE(OWNR,1,PNL,23,CML))
IF 'CML
QUIT
SET FLN=$PIECE($GET(^BQICARE(OWNR,1,PNL,23,CML,1,0)),U,2)
IF FLN]""
IF FLN'="90505.1231"
SET $PIECE(^BQICARE(OWNR,1,PNL,23,CML,1,0),U,2)="90505.1231"
+16 ;
+17 ;Loop through shared user layouts
+18 SET SHR=0
FOR
SET SHR=$ORDER(^BQICARE(OWNR,1,PNL,30,SHR))
IF 'SHR
QUIT
Begin DoDot:3
+19 ;
+20 ;Revert shared user entries from templates to system default or customized
+21 KILL ^BQICARE(OWNR,1,PNL,30,SHR,4)
+22 ;
+23 ;Validate sub-file file number - Fix if needed
+24 SET FLN=$PIECE($GET(^BQICARE(OWNR,1,PNL,30,SHR,20,0)),U,2)
IF FLN]""
IF FLN'="90505.06P"
SET $PIECE(^BQICARE(OWNR,1,PNL,30,SHR,20,0),U,2)="90505.06P"
+25 SET FLN=$PIECE($GET(^BQICARE(OWNR,1,PNL,30,SHR,22,0)),U,2)
IF FLN]""
IF FLN'="90505.322"
SET $PIECE(^BQICARE(OWNR,1,PNL,30,SHR,22,0),U,2)="90505.322"
+26 SET FLN=$PIECE($GET(^BQICARE(OWNR,1,PNL,30,SHR,25,0)),U,2)
IF FLN]""
IF FLN'="90505.325"
SET $PIECE(^BQICARE(OWNR,1,PNL,30,SHR,25,0),U,2)="90505.325"
+27 SET FLN=$PIECE($GET(^BQICARE(OWNR,1,PNL,30,SHR,23,0)),U,2)
IF FLN]""
IF FLN'="90505.323"
SET $PIECE(^BQICARE(OWNR,1,PNL,30,SHR,23,0),U,2)="90505.323"
+28 SET CML=0
FOR
SET CML=$ORDER(^BQICARE(OWNR,1,PNL,30,SHR,23,CML))
IF 'CML
QUIT
SET FLN=$PIECE($GET(^BQICARE(OWNR,1,PNL,30,SHR,23,CML,1,0)),U,2)
IF FLN]""
IF FLN'="90505.3231"
SET $PIECE(^BQICARE(OWNR,1,PNL,30,SHR,23,CML,1,0),U,2)="90505.3231"
End DoDot:3
End DoDot:2
End DoDot:1
+29 ;
+30 QUIT
+31 ;
TIP ; Tooltips
+1 ;;ASACON
+2 ;;ASACT
+3 ;;ASAQC
+4 ;;ASCNTRL
+5 ;;ASFHX
+6 ;;ASFLU
+7 ;;ASIHSD
+8 ;;ASLADM
+9 ;;ASLBPF
+10 ;;ASLEUV
+11 ;;ASLFD
+12 ;;ASLFEV
+13 ;;ASLHSV
+14 ;;ASLPF
+15 ;;ASLV
+16 ;;ASRLVR
+17 ;;ASSEV
+18 ;;ASSTAT
+19 ;;ASTBHF
+20 ;;ASTRIG
+21 ;;DPCP
+22 QUIT
+23 ;
ASACON ;
+1 ;;Asthma Control: Most recent Control value from Measurements file. The
+2 ;;visit date will display if your cursor hovers over the cell.
+3 QUIT
+4 ;
ASACT ;
+1 ;;Asthma Action Plan: Date of most recent Action Plan provided to this
+2 ;;patient. Action Plans are available from the PCC Patient Wellness
+3 ;;Handout menus or from the iCare Patient Record.
+4 QUIT
+5 ;
ASAQC ;
+1 ;;Asthma Quality of Care: If this patient has an Active Asthma diagnostic
+2 ;;tag (Proposed or Accepted), are ALL of the following key elements
+3 ;;documented: Asthma Severity value ever; Asthma Control and Peak Flow or
+4 ;;FEV1 measurement and Asthma Action Plan and Flu Shot in past year; and
+5 ;;current Controller medication prescription if Severity is Persistent (2,3 ~or 4).
+6 ;;"N/A" will display if this patient does not have an active Asthma
+7 ;;diagnostic tag.
+8 QUIT
+9 ;
ASCNTRL ;
+1 ;;On Controller Meds? Is this patient currently prescribed with Asthma
+2 ;;Controller medications?
+3 ;;"N/A" will display if this patient does not have an active Asthma
+4 ;;diagnostic tag. Open this patient's record to PCC/Medications tab to
+5 ;;view specific asthma-related medications list.
+6 QUIT
+7 ;
ASFHX ;
+1 ;;Asthma Family History: "Y" indicates this patient has at least one Family
+2 ;;History entry for asthma. Detailed asthma FHX data will display if your
+3 ;;cursor hovers over the cell.
+4 ;;Open this patient's record to FHX tab to view, add or edit any Family
+5 ;;History.
+6 QUIT
+7 ;
ASFLU ;
+1 ;;Last Flu Shot: Date of most recent Influenza immunization.
+2 QUIT
+3 ;
ASIHSD ;
+1 ;;On Inhaled Steroids? Is this patient currently prescribed with Inhaled
+2 ;;Steroid medications?
+3 ;;"N/A" will display if this patient does not have an active Asthma
+4 ;;diagnostic tag. Open this patient's record to PCC/Medications tab to
+5 ;;view specific asthma-related medications list.
+6 QUIT
+7 ;
ASLADM ;
+1 ;;Asthma Work/School Days Missed: Value of most recent Work/School Missed.
+2 ;;Available values are 0-14 (days), documented in V Measurements. The
+3 ;;visit date will display if your cursor hovers over the cell.
+4 QUIT
+5 ;
ASLBPF ;
+1 ;;Best Peak Flow: Most recent Best Peak Flow value from Measurements file.
+2 ;;BPF is the highest PEF the patient is able to achieve over a 2 to 3 week
+3 ;;period of using the peak flow meter while asthma is under control.
+4 ;;The visit date will display if your cursor hovers over the cell.
+5 QUIT
+6 ;
ASLEUV ;
+1 ;;Last Asthma ER/UC Visit: Date of most recent visit to the ER or Urgent
+2 ;;Care (clinic codes 80 or 30) with Asthma as the primary POV.
+3 QUIT
+4 ;
ASLFD ;
+1 ;;Asthma Symptom Free Days: Value of most recent Symptom Free Days.
+2 ;;Available values are 0-14 (days), documented in V Measurements. The
+3 ;;visit date will display if your cursor hovers over the cell.
+4 QUIT
+5 ;
ASLFEV ;
+1 ;;FEV1/FVC: Most recent FEV1/FVC values from Measurements file, obtained
+2 ;;from spirometry measurements during a visit. The visit date will display
+3 ;;if your cursor hovers over the cell.
+4 QUIT
+5 ;
ASLHSV ;
+1 ;;Last Asthma Hospital Visit: Date of most recent hospitalization (service
+2 ;;category H) with Asthma as the primary POV.
+3 QUIT
+4 ;
ASLPF ;
+1 ;;Peak Flow: Most recent Peak Flow value from Measurements file, obtained
+2 ;;from a peak flow meter during a visit. If multiple PFs were documented
+3 ;;on the same date, the value displayed is the highest.
+4 ;;The visit date will display if your cursor hovers over the cell.
+5 QUIT
+6 ;
ASLV ;
+1 ;;Last Asthma Visit: Date of most recent Asthma visit, defined as a
+2 ;;face-to-face visit with ANY of the following asthma-related data elements
+3 ;;documented: Severity, Control, Symptom Free Days, Work/School Missed,
+4 ;;and/or Patient Education.
+5 ;;Click the date to link directly to the Visit Record.
+6 QUIT
+7 ;
ASRLVR ;
+1 ;;On Reliever Meds? Is this patient currently prescribed with Asthma
+2 ;;Reliever medications?
+3 ;;"N/A" will display if this patient does not have an active Asthma
+4 ;;diagnostic tag. Open this patient's record to PCC/Medications tab to
+5 ;;view specific asthma-related medications list.
+6 QUIT
+7 ;
ASSEV ;
+1 ;;Asthma Severity: Most recent Severity, documented in Problem List
+2 ;;Classification field. Values are: 1-Intermittent; 2-Mild Persistent;
+3 ;;3-Moderate Persistent; 4-Severe Persistent.
+4 QUIT
+5 ;
ASSTAT ;
+1 ;;Asthma Diagnostic Tag Status: Most recent diagnostic tag status for
+2 ;;Asthma only, if any. Open this patient's record to DX Tag tab to view a
+3 ;;complete history of all diagnostic tags.
+4 QUIT
+5 ;
ASTBHF ;
+1 ;;Last Tobacco Health Factor: Most recent Tobacco Health Factor. The visit
+2 ;;date will display if your cursor hovers over the cell.
+3 QUIT
+4 ;
ASTRIG ;
+1 ;;Asthma Triggers List: A list of the most recent of ANY Asthma Triggers
+2 ;;(Health Factors) documented ever for this patient. The visit date(s)
+3 ;;will display if your cursor hovers over the cell.
+4 QUIT
+5 ;
DPCP ;
+1 ;;Designated Primary Care Provider (DPCP): Name of this patient's
+2 ;;DPCP, if any.
+3 QUIT
