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

PXRMGECQ.m

Go to the documentation of this file. 
  1. PXRMGECQ ;SLC/JVS GEC-QUEUE'D Reports ;7/14/05  10:44
  1.  ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  1.  Q
  1. LOC ;by Location
  1.  N CAT,HF,DATE,DFN,Y,HFN,DFNXX,PAGE,I
  1.  D E^PXRMGECV("LOC",1,BDT,EDT,"F",0)
  1.  D LOCCNT
  1.  I FORMAT="F" S FOR=1
  1.  I FORMAT="D" S FOR=0
  1.  W @IOF
  1.  F I=1:1:78 W "="
  1.  ;==
  1.  W !,"Complete GEC Referrals by Location"
  1.  W !,"From: "_$$FMTE^XLFDT(BDT,"5ZM")_" To: "_$$FMTE^XLFDT(EDT,"5ZM")
  1.  I FOR W !,"Location"
  1.  I FOR W !,?5,"Patient",?50,"Finish Date",!
  1.  I 'FOR W !,"Location^Location Count^Patient^SSN^Finish Date",!
  1.  F I=1:1:78 W "="
  1.  ;==
  1.  S PAGE=1
  1.  S LOCN="" F  S LOCN=$O(^TMP("PXRMGEC",$J,"TMPLOC",LOCN)) Q:LOCN=""  D
  1.  .Q:LOCNP'=1&(LOCN'=LOCNP)
  1.  .I FOR W !,LOCN,?30,"Total # Patients Evaluated= ",$G(^TMP("PXRMGEC",$J,"LOCBB",LOCN)) D PAGE^PXRMGECZ
  1.  .I FOR W ! D PAGE^PXRMGECZ
  1.  .S DFNXX="" F  S DFNXX=$O(^TMP("PXRMGEC",$J,"TMPLOC",LOCN,DFNXX)) Q:DFNXX=""  D
  1.  ..S VDT=0 F  S VDT=$O(^TMP("PXRMGEC",$J,"TMPLOC",LOCN,DFNXX,VDT)) Q:VDT=""  D
  1.  ...I VDT["0000" I FOR W !,?5,DFNXX,?50,"Incomplete" D PAGE^PXRMGECZ
  1.  ...E  I FOR W !,?5,$P(DFNXX," ",1,$L(DFNXX," ")-1),"  ("_$P(DFNXX," ",$L(DFNXX," "))_")",?50,$P($$FMTE^XLFDT(VDT,"5ZM"),"@",1) D PAGE^PXRMGECZ
  1.  ...I 'FOR W !,LOCN,"^",$G(^TMP("PXRMGEC",$J,"LOCBB",LOCN)),"^",$P(DFNXX," ",1,$L(DFNXX," ")-1),"^",$P(DFNXX," ",$L(DFNXX," ")),"^",$P($$FMTE^XLFDT(VDT,"5ZM"),"@",1)
  1.  K ^TMP("PXRMGEC",$J)
  1.  S ZTREQ="@"
  1.  Q
  1. DR ;by Date Range
  1.  N CAT,HF,DATE,DFN,Y,HFN,CNTREF,DIF,DIFF,PAGE,I
  1.  D E^PXRMGECV("HS1",INC,BDT,EDT,$S(INC=1:"F",1:"S"),DFNONLY)
  1.  I FORMAT="D" S FOR=0
  1.  I FORMAT="F" S FOR=1
  1.  W @IOF
  1.  F I=1:1:78 W "="
  1.  ;==
  1.  W !,"Complete GEC Referrals by Date Range"
  1.  W !,"From: "_$$FMTE^XLFDT(BDT,"5ZM")_" To: "_$$FMTE^XLFDT(EDT,"5ZM")
  1.  W !,$S(INC=0:"Incomplete",INC=1:"Complete",INC=2:"Complete and Incomplete",1:"")_" Referrals"
  1.  I FOR W !,"Patient"
  1.  I INC=1 I FOR W !,?5,"Start Date",?20,"",?35,"Elapsed Time"
  1.  E  I FOR W !,?5,"Start Date",?20,"Finished",?35,"Elapsed Time",?50,"Incomplete Status",!
  1.  I 'FOR W !,"Patient^SSN^Count^Start Date^Finished Date^Status",!
  1.  F I=1:1:78 W "="
  1.  ;==
  1.  S PAGE=1
  1.  S DFN="" F  S DFN=$O(^TMP("PXRMGEC",$J,"HS1",DFN)) Q:DFN=""  D
  1.  .I FOR W ! D PAGE^PXRMGECZ
  1.  .I FOR W !,$P(DFN," ",1,$L(DFN," ")-1)," ("_$P(DFN," ",$L(DFN," "))_")",?31,"Total= ",$G(^TMP("PXRMGEC",$J,"REFDFNN",$P(DFN," "))) D PAGE^PXRMGECZ
  1.  .I FOR W ! D PAGE^PXRMGECZ
  1.  .S CNTREF="" F  S CNTREF=$O(^TMP("PXRMGEC",$J,"HS1",DFN,CNTREF)) Q:CNTREF=""  D
  1.  ..S DATE=0 F  S DATE=$O(^TMP("PXRMGEC",$J,"HS1",DFN,CNTREF,DATE)) Q:DATE=""  D
  1.  ...S VDT=0 F  S VDT=$O(^TMP("PXRMGEC",$J,"HS1",DFN,CNTREF,DATE,VDT)) Q:VDT=""  D
  1.  ....S DIFF="" I VDT>0 S DIFF=$$FMDIFF^XLFDT(VDT,DATE,1)+1
  1.  ....S DIF="" S DIF=$$FMDIFF^XLFDT(DT,DATE,1)+1
  1.  ....I VDT["0000" I FOR W !,?5,$P($$FMTE^XLFDT(DATE,"5ZM"),"@",1),?20,"",?35,$S(DIFF="":DIF_" Days",DIFF>0:DIFF_" Days",1:""),?50,$S(DIFF="":"Incomplete",1:"") D PAGE^PXRMGECZ
  1.  ....E  I FOR W !,?5,$P($$FMTE^XLFDT(DATE,"5ZM"),"@",1),?20,$P($$FMTE^XLFDT(VDT,"5ZM"),"@",1),?35,$S(DIFF="":DIF_" Days",DIFF>0:DIFF_" Days",1:""),?50,$S(DIFF="":"Incomplete",1:"") D PAGE^PXRMGECZ
  1.  ....I 'FOR W !,$P(DFN," ",1,$L(DFN," ")-1),"^",$P(DFN," ",$L(DFN," "))
  1.  ....I 'FOR W "^",$G(^TMP("PXRMGEC",$J,"REFDFNN",$P(DFN," "))),"^",$P($$FMTE^XLFDT(DATE,"5ZM"),"@",1),"^",$P($$FMTE^XLFDT(VDT,"5ZM"),"@",1),"^",$S(DIFF="":DIF,DIFF>0:DIFF,1:"") D PAGE^PXRMGECZ
  1.  K ^TMP("PXRMGEC",$J)
  1.  S ZTREQ="@"
  1.  Q
  1. HS1 ;By Patient
  1.  N CAT,HF,DATE,DFN,Y,HFN,CNTREF,X,COMMENT,PAGE,DIV,NAME,DFNN,I
  1.  D E^PXRMGECV("HS1",1,BDT,EDT,"F",DFNONLY)
  1.  I FORMAT="D" S FOR=0
  1.  I FORMAT="F" S FOR=1
  1.  W !
  1.  F I=1:1:78 W "="
  1.  ;==
  1.  W !,"GEC Patient"
  1.  W !,"From: "_$$FMTE^XLFDT(BDT,"5ZM")_" To: "_$$FMTE^XLFDT(EDT,"5ZM")
  1.  I FOR W !,"Patient"
  1.  I FOR W !," Category"
  1.  I FOR W !,"    Health Factor",?44,"Value",?55,"Date of Evaluation",!
  1.  I 'FOR W !,"Patient^SSN^Eval Count^Category^Health Factor^Value^Date of Evaluation",!
  1.  F I=1:1:78 W "="
  1.  ;==
  1.  S PAGE=1,CNT=0
  1.  S DFN="" F  S DFN=$O(^TMP("PXRMGEC",$J,"HS1",DFN)) Q:DFN=""  D
  1.  .I FOR W ! D PAGE^PXRMGECZ
  1.  .S NAME=$P(DFN," ",1,$L(DFN," ")-1)
  1.  .S DFNN=$O(^DPT("B",NAME,0)) D
  1.  ..Q:DFNN=""
  1.  ..S STATUS=$S($D(^DPT(DFNN,.1)):"INPATIENT",1:"OUTPATIENT")
  1.  ..S DIV=$$GET1^DIQ(2,DFNN,.19) I DIV="" S DIV="Unknown"
  1.  .S CNT=CNT+1
  1.  .I STATUS["IN" I FOR W !,CNT,") ",STATUS,", DIVISION:",DIV D PAGE^PXRMGECZ
  1.  .I STATUS["OU" I FOR W !,CNT,") ",STATUS D PAGE^PXRMGECZ
  1.  .I FOR W !,CNT,") ",$P(DFN," ",1,$L(DFN," ")-1),"  (",$P(DFN," ",$L(DFN," "))_")",?50,"Total Number of referrals: ",$G(^TMP("PXRMGEC",$J,"REFDFNN",$P(DFN," "))) D PAGE^PXRMGECZ
  1.  .S CNTREF="" F  S CNTREF=$O(^TMP("PXRMGEC",$J,"HS1",DFN,CNTREF)) Q:CNTREF=""  D
  1.  ..I FOR W ! D PAGE^PXRMGECZ
  1.  ..I FOR W !,"Next Referral" D PAGE^PXRMGECZ
  1.  ..S DATE=0 F  S DATE=$O(^TMP("PXRMGEC",$J,"HS1",DFN,CNTREF,DATE)) Q:DATE=""  D
  1.  ...S VDT=0 F  S VDT=$O(^TMP("PXRMGEC",$J,"HS1",DFN,CNTREF,DATE,VDT)) Q:VDT=""  D
  1.  ....S CAT=0 F  S CAT=$O(^TMP("PXRMGEC",$J,"HS1",DFN,CNTREF,DATE,VDT,CAT)) Q:CAT=""  D
  1.  .....I FOR W !,?1,$P(CAT," ",3,6) D PAGE^PXRMGECZ
  1.  .....S DATEV=0 F  S DATEV=$O(^TMP("PXRMGEC",$J,"HS1",DFN,CNTREF,DATE,VDT,CAT,DATEV)) Q:DATEV=""  D
  1.  ......S DA=0 F  S DA=$O(^TMP("PXRMGEC",$J,"HS1",DFN,CNTREF,DATE,VDT,CAT,DATEV,DA)) Q:DA=""  D
  1.  .......S HFN=$$HFNAME(DA)
  1.  .......I FOR W !,?4,$P(HFN,"^",1),?44,$P(HFN,"^",2),?55,$P($$FMTE^XLFDT(DATEV,"5ZM"),"@",1) D PAGE^PXRMGECZ
  1.  .......S COMMENT=$G(^AUPNVHF(DA,811))
  1.  .......I FOR I COMMENT'="" D COMQ^PXRMGECZ
  1.  .......I 'FOR W !,$P(DFN," ",1,$L(DFN," ")-1),"^",$P(DFN," ",$L(DFN," "))
  1.  .......I 'FOR W "^",$G(^TMP("PXRMGEC",$J,"REFDFNN",$P(DFN," "))),"^",$P(CAT," ",3,6),"^",$P(HFN,"^",1),"^",$P(HFN,"^",2),"^",$P($$FMTE^XLFDT(DATEV,"5ZM"),"@",1)
  1.  K ^TMP("PXRMGEC",$J)
  1.  S ZTREQ="@"
  1.  D ^%ZISC
  1.  Q
  1. HFCD ;Health Factor Category Detailed
  1.  N CAT,HF,DATE,DFN,DFN1,FOR,HFDA,COMMENT,PAGE,I
  1.  I FORMAT="D" S FOR=0
  1.  I FORMAT="F" S FOR=1
  1.  D E^PXRMGECV("HFCD",1,BDT,EDT,"F",DFNONLY)
  1.  W !
  1.  F I=1:1:78 W "="
  1.  ;==
  1.  W !,"GEC Health Factor Category Detailed Report"
  1.  W !,"From: "_$$FMTE^XLFDT(BDT,"5ZM")_" To: "_$$FMTE^XLFDT(EDT,"5ZM")
  1.  I FOR W !,"Category"
  1.  I FOR W !,?2,"Patient Name"
  1.  I FOR W !,?4,"Health Factors",?41,"Value",?47,"Date",!
  1.  I 'FOR W !,"Category^Patient^SSN^Health Factor^Value^Date",!
  1.  F I=1:1:78 W "="
  1.  ;==
  1.  S PAGE=1
  1.  S CAT="" F  S CAT=$O(^TMP("PXRMGEC",$J,"HFCD",CAT)) Q:CAT=""  D
  1.  .S DFN1=0
  1.  .I FOR W !,$P(CAT," ",3,6) D PAGE^PXRMGECZ
  1.  .S DFN=0 F  S DFN=$O(^TMP("PXRMGEC",$J,"HFCD",CAT,DFN)) Q:DFN=""  D
  1.  ..S HF="" F  S HF=$O(^TMP("PXRMGEC",$J,"HFCD",CAT,DFN,HF)) Q:HF=""  D
  1.  ...S DATE=0 F  S DATE=$O(^TMP("PXRMGEC",$J,"HFCD",CAT,DFN,HF,DATE)) Q:DATE=""  D
  1.  ....I FOR I DFN'=DFN1 W ! D PAGE^PXRMGECZ
  1.  ....I FOR I DFN'=DFN1 W !,?2,$P($G(^DPT(DFN,0)),"^",1)_" ("_$P($G(^DPT(DFN,0)),"^",9)_")"  W ! S DFN1=DFN D PAGE^PXRMGECZ
  1.  ....S HFN=$$HFNAME(0,HF)
  1.  ....S HFDA=$O(^TMP("PXRMGEC",$J,"HFCD",CAT,DFN,HF,DATE,0))
  1.  ....I FOR W !,?4,$P(HFN,"^",1),?41,$P(HFN,"^",2),?47,$P($$FMTE^XLFDT(DATE,"5ZM"),"@",1) D PAGE^PXRMGECZ
  1.  ....S COMMENT=$G(^AUPNVHF(HFDA,811))
  1.  ....I FOR I COMMENT'="" D COMQ^PXRMGECZ
  1.  ....I 'FOR W !,$P(CAT," ",3,5),"^",$P($G(^DPT(DFN,0)),"^",1)_"^"_$P($G(^DPT(DFN,0)),"^",9),"^",$P(HFN,"^",1),"^",$P(HFN,"^",2),"^",$P($$FMTE^XLFDT(DATE,"5ZM"),"@",1) D PAGE^PXRMGECZ
  1.  K ^TMP("PXRMGEC",$J)
  1.  S ZTREQ="@"
  1.  D ^%ZISC
  1.  Q
  1. DFN2 ;By Provider Report
  1.  N DFN,DOCT,DIADA,DATEV,FLAG,REF,DFN1,PAGE,I
  1.  S REF="^TMP(""PXRMGEC"",$J)",DFN1=0
  1.  I FORMAT="D" S FOR=0
  1.  I FORMAT="F" S FOR=1
  1.  W @IOF
  1.  F I=1:1:78 W "="
  1.  ;==
  1.  W !,"GEC Provider"
  1.  W !,"From: "_$$FMTE^XLFDT(BDT,"5ZM")_" To: "_$$FMTE^XLFDT(EDT,"5ZM")
  1.  W !,"Report Displays Counts of Complete Referrals Only"
  1.  I FOR W !,"Provider"
  1.  I FOR W !,"  Patient",?17,"Completion Date",?41,"Dialog",!
  1.  I 'FOR W !,"Provider^IEN^Patient^SSN^Dialog^Completion Date",!
  1.  F I=1:1:78 W "="
  1.  ;==
  1.  S PAGE=1
  1.  D E^PXRMGECV("DFN",1,BDT,EDT,"F",0)
  1.  S DOCT=0 F  S DOCT=$O(@REF@("DFN",DOCT)),FLAG=1 Q:DOCT=""  D
  1.  .I PROV>0&('$D(PROVARY(DOCT))) Q
  1.  .I FOR W:FLAG=1 !!,$$GET1^DIQ(200,DOCT,.01)_" ("_DOCT_")" D PAGE^PXRMGECZ
  1.  .S DFN=0 F  S DFN=$O(@REF@("DFN",DOCT,DFN)) Q:DFN=""  D
  1.  ..S DATEV=0 F  S DATEV=$O(@REF@("DFN",DOCT,DFN,DATEV)) Q:DATEV=""  D
  1.  ...S DIADA=0 F  S DIADA=$O(@REF@("DFN",DOCT,DFN,DATEV,DIADA)) Q:DIADA=""  D
  1.  ....I FOR W !,?2,$S(DFN'=DFN1!(FLAG=1):$P($G(^DPT(DFN,0)),"^",1)_" ("_$P($G(^DPT(DFN,0)),"^",9)_")"_" ("_$$CNT^PXRMGECL(DOCT,DFN)_" Evaluation(s) )",1:"") D PAGE^PXRMGECZ
  1.  ....I FOR I DFN'=DFN1!(FLAG=1) W ! D PAGE^PXRMGECZ
  1.  ....S FLAG=0
  1.  ....W ?17,$P($$FMTE^XLFDT(DATEV,"5ZM"),"@",1,2),?41,$P($P($G(^PXRMD(801.41,DIADA,0)),"^",1)," ",3,6)
  1.  ....S DFN1=DFN
  1.  ....I 'FOR W !,$$GET1^DIQ(200,DOCT,.01),"^",DOCT,"^",$P($G(^DPT(DFN,0)),"^",1),"^",$P($G(^DPT(DFN,0)),"^",9)
  1.  ....I 'FOR W "^",$P($P($G(^PXRMD(801.41,DIADA,0)),"^",1)," ",3,6),"^",$P($$FMTE^XLFDT(DATEV,"5ZM"),"@",1) D PAGE^PXRMGECZ
  1.  K ^TMP("PXRMGEC",$J)
  1.  S ZTREQ="@"
  1.  Q
  1.  ;
  1. LOCCNT ;Count Locations of Referrals
  1.  N LOC,VDT
  1.  S LOC="" F  S LOC=$O(^TMP("PXRMGEC",$J,"LOCB",LOC)) Q:LOC=""  D
  1.  .S VDT="" F  S VDT=$O(^TMP("PXRMGEC",$J,"LOCB",LOC,VDT)) Q:VDT=""  D
  1.  ..I $D(^TMP("PXRMGEC",$J,"LOCBB",LOC)) S ^TMP("PXRMGEC",$J,"LOCBB",LOC)=$G(^TMP("PXRMGEC",$J,"LOCBB",LOC))+1
  1.  ..E  S ^TMP("PXRMGEC",$J,"LOCBB",LOC)=1
  1.  Q
  1.  ;
  1. HFNAME(DA,NAME) ;Decide to split name into columns
  1.  N WHOLE,FIRST,SECOND,REF,REF2,RESULT
  1.  I DA>0 D
  1.  .S WHOLE=$P($G(^AUTTHF($P($G(^AUPNVHF(DA,0)),"^",1),0)),"^",1)
  1.  E  S WHOLE=NAME
  1.  S RESULT="^"
  1.  S REF="YESNOSTAGE 1STAGE 2STAGE 3STAGE4"
  1.  S REF2="12"
  1.  S FIRST=$P(WHOLE,"-",1,$L(WHOLE,"-")-1)
  1.  S SECOND=$P(WHOLE,"-",$L(WHOLE,"-"))
  1.  I REF[SECOND S RESULT=FIRST_"^"_SECOND
  1.  E  S RESULT=WHOLE_"^"
  1.  I REF2[SECOND S RESULT=WHOLE_"^"
  1.  Q RESULT
  1.  ;