Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BQIRMHLP

BQIRMHLP.m

Go to the documentation of this file. 
  1. BQIRMHLP ;PRXM/HC/ALA-Reminders Help ; 20 Feb 2007  2:15 PM
  1.  ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
  1.  ;
  1.  Q
  1.  ;
  1. GET(DATA,REM) ;EP -- BQI GET REMINDERS HELP TEXT
  1.  ; Input
  1.  ;   REM - A reminder IEN if wanting the help text for a specific reminder
  1.  ;         otherwise if it is null, then retrieves the help text for all
  1.  ;         reminders
  1.  ; 
  1.  NEW UID,II,RIEN,BQIRM,REMNM,BQISORT
  1.  ;
  1.  S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
  1.  S DATA=$NA(^TMP("BQIRMHLP",UID))
  1.  K @DATA
  1.  ;
  1.  S II=0
  1.  NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIRMHLP D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
  1.  ;
  1.  S REM=$G(REM,"")
  1.  ;
  1.  S BQIRM=$$FIND1^DIC(9001015,"","","ALL REMINDERS","B","","")
  1.  I 'BQIRM S BMXSEC="'ALL REMINDERS' Health Summary Type not found." Q
  1.  ;
  1.  S @DATA@(II)="I00010MEAS_IEN^T00050REM_NAME^T00015CODE^T00030CATEGORY^T00030CLIN_GROUP^T00030STATUS^T01024REPORT_TEXT^T01024SUMM_LIST"_$C(30)
  1.  I REM'="" D GETDATA(REM) G DONE
  1.  S RIEN=0
  1.  F  S RIEN=$O(^BQI(90506.1,"AC","R",RIEN)) Q:RIEN=""  D
  1.  . I $$GET1^DIQ(90506.1,RIEN_",",.1,"I")=1 Q
  1.  . S REMNM=$P(^BQI(90506.1,RIEN,0),U,3)
  1.  . S BQISORT(REMNM,RIEN)=""
  1.  S REMNM=""
  1.  F  S REMNM=$O(BQISORT(REMNM)) Q:REMNM=""  D
  1.  . S RIEN=""
  1.  . F  S RIEN=$O(BQISORT(REMNM,RIEN)) Q:RIEN=""  D
  1.  .. D GETDATA(RIEN)
  1.  ;
  1. DONE ;
  1.  S II=II+1,@DATA@(II)=$C(31)
  1.  Q
  1.  ;
  1. ERR ;
  1.  D ^%ZTER
  1.  NEW Y,ERRDTM
  1.  S Y=$$NOW^XLFDT() X ^DD("DD") S ERRDTM=Y
  1.  S BMXSEC="Recording that an error occurred at "_ERRDTM
  1.  I $D(II),$D(DATA) S II=II+1,@DATA@(II)=$C(31)
  1.  Q
  1.  ;
  1. GETDATA(RIEN) ;EP - Get the reminder help text
  1.  NEW NAME,CODE,HIEN,IEN,CAT,CLIN,STATUS
  1.  S NAME=$P(^BQI(90506.1,RIEN,0),U,3),CODE=$P(^(0),U,1)
  1.  S CAT=$$GET1^DIQ(90506.1,RIEN_",",3.03,"E")
  1.  S CLIN=$$GET1^DIQ(90506.1,RIEN_",",3.02,"E")
  1.  S HIEN=$P(CODE,"_",2)
  1.  I $P(CODE,"_",1)="AUTTIMM" D
  1.  . S NAME="IMMUNIZATIONS"
  1.  . S HIEN=$$FIND1^DIC(9001018,"","Q",NAME,"B","","ERROR")
  1.  I $P(CODE,"_",1)="COLO" D
  1.  . S NAME="COLORECTAL CA-SCOPE/XRAY"
  1.  . S HIEN=$$FIND1^DIC(9001018,"","Q",NAME,"B","","ERROR")
  1.  ;
  1.  I $P(CODE,"_",1)="REG" D
  1.  . NEW DA,IENS
  1.  . S (DA(1),RGIEN)=$P(CODE,"_",2),(DA,HIEN)=$P(CODE,"_",3)
  1.  . S IENS=$$IENS^DILF(.DA)
  1.  . S NAME=$$GET1^DIQ(90507.015,IENS,.01,"E")
  1.  . S STATUS=$$GET1^DIQ(90507.015,IENS,.03,"E")
  1.  . S II=II+1,@DATA@(II)=RIEN_"^"_$P(^BQI(90506.1,RIEN,0),U,3)_"^"_CODE_"^"_CAT_"^"_CLIN_"^"_STATUS_"^"
  1.  . S IEN=0
  1.  . F  S IEN=$O(^BQI(90507,RGIEN,15,HIEN,13,IEN)) Q:'IEN  D
  1.  .. S II=II+1,@DATA@(II)=^BQI(90507,RGIEN,15,HIEN,13,IEN,0)_$C(10)
  1.  . S II=II+1,@DATA@(II)=U
  1.  ;
  1.  I $P(CODE,"_",1)="CMET" D
  1.  . S STATUS=$S($P(^BQI(90506.1,RIEN,0),U,10)=1:"INACTIVE",1:"ACTIVE")
  1.  . S II=II+1,@DATA@(II)=RIEN_"^"_$P(^BQI(90506.1,RIEN,0),U,3)_"^"_CODE_"^"_CAT_"^"_CLIN_"^"_STATUS_"^"
  1.  . S IEN=0
  1.  . F  S IEN=$O(^BQI(90506.1,RIEN,4,IEN)) Q:'IEN  D
  1.  .. S II=II+1,@DATA@(II)=^BQI(90506.1,RIEN,4,IEN,0)_$C(10)
  1.  . S II=II+1,@DATA@(II)=U
  1.  ;
  1.  I $P(CODE,"_",1)="EHR" D
  1.  . S STATUS=$S($P(^BQI(90506.1,RIEN,0),U,10)=1:"INACTIVE",1:"ACTIVE")
  1.  . S II=II+1,@DATA@(II)=RIEN_"^"_$P(^BQI(90506.1,RIEN,0),U,3)_"^"_CODE_"^"_CAT_"^"_CLIN_"^"_STATUS_"^"
  1.  . S IEN=0
  1.  . F  S IEN=$O(^BQI(90506.1,RIEN,4,IEN)) Q:'IEN  D
  1.  .. S II=II+1,@DATA@(II)=^BQI(90506.1,RIEN,4,IEN,0)_$C(10)
  1.  . S II=II+1,@DATA@(II)=U
  1.  ;
  1.  I $P(CODE,"_",1)'="REG",$P(CODE,"_",1)'="CMET",$P(CODE,"_",1)'="EHR" D
  1.  . S STATUS=$$GET1^DIQ(9001018,HIEN_",",.03,"E")
  1.  . S II=II+1,@DATA@(II)=RIEN_"^"_$P(^BQI(90506.1,RIEN,0),U,3)_"^"_CODE_"^"_CAT_"^"_CLIN_"^"_STATUS_"^"
  1.  . S IEN=0
  1.  . F  S IEN=$O(^APCHSURV(HIEN,13,IEN)) Q:'IEN  D
  1.  .. S II=II+1,@DATA@(II)=^APCHSURV(HIEN,13,IEN,0)_$C(10)
  1.  . S IEN=0
  1.  . I $O(^APCHSURV(HIEN,11,0)) S II=II+1,@DATA@(II)="Currently Defined Criteria in Use at this Facility:"_$C(10)
  1.  . F  S IEN=$O(^APCHSURV(HIEN,11,IEN)) Q:'IEN  D
  1.  .. NEW DA,IENS,AIEN
  1.  .. S DA(1)=HIEN,DA=IEN,IENS=$$IENS^DILF(.DA)
  1.  .. S II=II+1,@DATA@(II)="    Sex: "_$$GET1^DIQ(9001018.11,IENS,.01,"E")_$C(10)
  1.  .. S AIEN=0
  1.  .. F  S AIEN=$O(^APCHSURV(HIEN,11,IEN,11,AIEN)) Q:'AIEN  D
  1.  ... NEW DA,IENS
  1.  ... S DA(2)=HIEN,DA(1)=IEN,DA=AIEN,IENS=$$IENS^DILF(.DA)
  1.  ... S II=II+1,@DATA@(II)="        Min. Age: "_$$GET1^DIQ(9001018.1111,IENS,.01,"E")_"  Max. Age: "_$$GET1^DIQ(9001018.1111,IENS,.02,"E")_"  Frequency: "_$$GET1^DIQ(9001018.1111,IENS,.03,"E")_$C(10)
  1.  . S II=II+1,@DATA@(II)="^"_$$SLST(HIEN)
  1.  S II=II+1,@DATA@(II)=$C(30)
  1.  Q
  1.  ;
  1. SLST(SHIEN) ; List of summaries that the reminder is on
  1.  NEW LIST,SIEN,SP
  1.  S SIEN=0,LIST=""
  1.  F  S SIEN=$O(^APCHSCTL(SIEN)) Q:'SIEN  D
  1.  . S SP=0
  1.  . F  S SP=$O(^APCHSCTL(SIEN,5,SP)) Q:'SP  D
  1.  .. I $P(^APCHSCTL(SIEN,5,SP,0),U,2)'=SHIEN Q
  1.  .. S LIST=LIST_$P(^APCHSCTL(SIEN,0),U,1)_$C(10)
  1.  S LIST=$$TKO^BQIUL1(LIST,$C(10))
  1.  Q LIST
  1.  ;
  1. GLS(DATA,FAKE) ; EP - BQI GET REMINDERS GLOSSARY
  1.  NEW UID,II,RIEN,BQIRM,REMNM,BQISORT
  1.  ;
  1.  S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
  1.  S DATA=$NA(^TMP("BQIRMHLP",UID))
  1.  K @DATA
  1.  ;
  1.  S II=0
  1.  NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIRMHLP D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
  1.  ;
  1.  S BQIRM=$$FIND1^DIC(9001015,"","","ALL REMINDERS","B","","")
  1.  I 'BQIRM S BMXSEC="'ALL REMINDERS' Health Summary Type not found." Q
  1.  ;
  1.  S @DATA@(II)="T00050REM_NAME^T00050CATEGORY^T00050CLIN_GROUP^T00030STATUS^T02048REPORT_TEXT"_$C(30)
  1.  S RIEN=0
  1.  F  S RIEN=$O(^BQI(90506.1,"AC","R",RIEN)) Q:RIEN=""  D
  1.  . I $$GET1^DIQ(90506.1,RIEN_",",.1,"I")=1 Q
  1.  . S REMNM=$P(^BQI(90506.1,RIEN,0),U,3)
  1.  . S BQISORT(REMNM,RIEN)=""
  1.  S REMNM=""
  1.  F  S REMNM=$O(BQISORT(REMNM)) Q:REMNM=""  D
  1.  . S RIEN=""
  1.  . F  S RIEN=$O(BQISORT(REMNM,RIEN)) Q:RIEN=""  D
  1.  .. D GETGLS(RIEN)
  1.  S II=II+1,@DATA@(II)=$C(31)
  1.  Q
  1.  ;
  1. GETGLS(RIEN) ;EP - Get the reminder description
  1.  NEW NAME,CODE,HIEN,IEN,CAT,CLIN,STATUS
  1.  S NAME=$P(^BQI(90506.1,RIEN,0),U,3),CODE=$P(^(0),U,1)
  1.  S CAT=$$GET1^DIQ(90506.1,RIEN_",",3.03,"E")
  1.  S CLIN=$$GET1^DIQ(90506.1,RIEN_",",3.02,"E")
  1.  S HIEN=$P(CODE,"_",2)
  1.  I $P(CODE,"_",1)="AUTTIMM" D
  1.  . S NAME="IMMUNIZATIONS"
  1.  . S HIEN=$$FIND1^DIC(9001018,"","Q",NAME,"B","","ERROR")
  1.  I $P(CODE,"_",1)="COLO" D
  1.  . S NAME="COLORECTAL CA-SCOPE/XRAY"
  1.  . S HIEN=$$FIND1^DIC(9001018,"","Q",NAME,"B","","ERROR")
  1.  ;
  1.  I $P(CODE,"_",1)="REG" D
  1.  . NEW DA,IENS
  1.  . S (DA(1),RGIEN)=$P(CODE,"_",2),(DA,HIEN)=$P(CODE,"_",3)
  1.  . S IENS=$$IENS^DILF(.DA)
  1.  . S NAME=$$GET1^DIQ(90507.015,IENS,.01,"E")
  1.  . S STATUS=$$GET1^DIQ(90507.015,IENS,.03,"E")
  1.  . S II=II+1,@DATA@(II)=$P(^BQI(90506.1,RIEN,0),U,3)_"^"_CAT_"^"_CLIN_"^"_STATUS_"^"
  1.  . S IEN=0
  1.  . F  S IEN=$O(^BQI(90507,RGIEN,15,HIEN,1,IEN)) Q:'IEN  D
  1.  .. S II=II+1,@DATA@(II)=^BQI(90507,RGIEN,15,HIEN,1,IEN,0)_$C(10)
  1.  ;
  1.  I $P(CODE,"_",1)="CMET" D
  1.  . S STATUS=$S($P(^BQI(90506.1,RIEN,0),U,10)=1:"INACTIVE",1:"ACTIVE")
  1.  . S II=II+1,@DATA@(II)=$P(^BQI(90506.1,RIEN,0),U,3)_"^"_CAT_"^"_CLIN_"^"_STATUS_"^"
  1.  . S IEN=0,II=II+1,@DATA@(II)="Category: "_CAT_$C(10)
  1.  . F  S IEN=$O(^BQI(90506.1,RIEN,4,IEN)) Q:'IEN  D
  1.  .. S II=II+1,@DATA@(II)=^BQI(90506.1,RIEN,4,IEN,0)_$C(10)
  1.  ;
  1.  I $P(CODE,"_",1)="EHR" D
  1.  . S STATUS=$S($P(^BQI(90506.1,RIEN,0),U,10)=1:"INACTIVE",1:"ACTIVE")
  1.  . S II=II+1,@DATA@(II)=$P(^BQI(90506.1,RIEN,0),U,3)_"^"_CAT_"^"_CLIN_"^"_STATUS_"^"
  1.  . S IEN=0,II=II+1,@DATA@(II)="Category: "_CAT_$C(10)
  1.  . F  S IEN=$O(^BQI(90506.1,RIEN,4,IEN)) Q:'IEN  D
  1.  .. S II=II+1,@DATA@(II)=^BQI(90506.1,RIEN,4,IEN,0)_$C(10)
  1.  ;
  1.  I $P(CODE,"_",1)'="REG",$P(CODE,"_",1)'="CMET",$P(CODE,"_",1)'="EHR" D
  1.  . S STATUS=$$GET1^DIQ(9001018,HIEN_",",.03,"E")
  1.  . S II=II+1,@DATA@(II)=$P(^BQI(90506.1,RIEN,0),U,3)_"^"_CAT_"^"_CLIN_"^"_STATUS_"^"
  1.  . S IEN=0,II=II+1,@DATA@(II)="Category: "_CAT_$C(10)
  1.  . F  S IEN=$O(^APCHSURV(HIEN,1,IEN)) Q:'IEN  D
  1.  .. S II=II+1,@DATA@(II)=^APCHSURV(HIEN,1,IEN,0)_$C(10)
  1.  . S IEN=0
  1.  . I $O(^APCHSURV(HIEN,11,0)) S II=II+1,@DATA@(II)="Currently Defined Criteria in Use at this Facility:"_$C(10)
  1.  . F  S IEN=$O(^APCHSURV(HIEN,11,IEN)) Q:'IEN  D
  1.  .. NEW DA,IENS,AIEN
  1.  .. S DA(1)=HIEN,DA=IEN,IENS=$$IENS^DILF(.DA)
  1.  .. S II=II+1,@DATA@(II)="    Sex: "_$$GET1^DIQ(9001018.11,IENS,.01,"E")_$C(10)
  1.  .. S AIEN=0
  1.  .. F  S AIEN=$O(^APCHSURV(HIEN,11,IEN,11,AIEN)) Q:'AIEN  D
  1.  ... NEW DA,IENS
  1.  ... S DA(2)=HIEN,DA(1)=IEN,DA=AIEN,IENS=$$IENS^DILF(.DA)
  1.  ... S II=II+1,@DATA@(II)="        Min. Age: "_$$GET1^DIQ(9001018.1111,IENS,.01,"E")_"  Max. Age: "_$$GET1^DIQ(9001018.1111,IENS,.02,"E")_"  Frequency: "_$$GET1^DIQ(9001018.1111,IENS,.03,"E")_$C(10)
  1.  S II=II+1,@DATA@(II)=$C(30)
  1.  Q