Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMXSL2.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• CLINICAL_REMINDERS-PXRM/PXRMXSL2.m (modified) (9 diffs)

FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMXSL2.m

@@ -1 @@
-PXRMXSL2 ; SLC/AGP - Process Visits/Appts Reminder Due report; 08/16/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMXSL2 ; SLC/AGP - Process Visits/Appts Reminder Due report; 06/07/2006
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;
 APPTS ;
@@ -6 +6 @@
  N APPTDT,BDT,EDT,NODE,DFN,FACILITY,HLIEN,NAM
  S NAM="All Locations"
- S BDT=PXRMBDT
- ;I PXRMBDT["." S BDT=PXRMBDT
- ;E  S BDT=PXRMBDT-.0001
+ I PXRMBDT["." S BDT=PXRMBDT
+ E  S BDT=PXRMBDT-.0001
  I PXRMEDT["." S EDT=PXRMEDT
  E  S EDT=PXRMEDT+.2359
@@ -41 +40 @@
  ;
 SDAM301(BD,ED,PXRMSEL,PXRMFD,PXRMREP) ;
- N ARRAY,BUSY,FACILITY,NAM,OPIEN,STATUS,TEXT
+ N ARRAY,BUSY,FACILITY,NAM,OPIEN,STATUS
  K ^TMP($J,"PXRM FUTURE APPT")
  K ^TMP($J,"PXRM FACILITY FUTURE APPT")
@@ -64 +63 @@
  S COUNT=$$SDAPI^SDAMA301(.ARRAY)
  S END=$H
- S TEXT="Elapsed time for call to the Scheduling Package: "_$$DETIME^PXRMXSL1(START,END)
- S ^XTMP(PXRMXTMP,"TIMING","SCHEDULING")=TEXT
- I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) W !,TEXT
+ I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) D DETIME^PXRMXSL1(START,END,"Total amount of time to call the Scheduling Package")
  I COUNT<0 D  Q
  .N CNT
@@ -72 +69 @@
  .F  S CNT=$O(^TMP($J,"SDAMA301",CNT)) Q:CNT'>0  D
  ..S DBERR(CNT)=$G(^TMP($J,"SDAMA301",CNT))
- .D ERRMSG^PXRMXDT1("E")
+ .D DBDOWN^PXRMXDT1("E")
  ;
 LOOP ;
  I PXRMFD'="P"!(PXRMSEL'="L") Q
- N APPTDT,CIEN,DFN,FUTDT,NODE,TEXT,VIEN
+ N APPTDT,CIEN,DFN,FUTDT,NODE,VIEN
  ;LOOP THROUGH PATIENT
  S START=$H
@@ -102 +99 @@
  S END=$H
  I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) D DONE^PXRMXBSY("Done")
- S TEXT="Elapsed time for sorting SDAMA301 output: "_$$DETIME^PXRMXSL1(START,END)
- S ^XTMP(PXRMXTMP,"TIMING","SCHEDULE SORT")=TEXT
- I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) W !,TEXT
+ I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) D DETIME^PXRMXSL1(START,END,"Sorting SDAMA301 Output")
  Q
  ;
  ;Scan visit file to build list of patients
 VISITS ;
- N BUSY,DAS,DATE,DFN,DS,END,ETIME,HLOC,NF
- N SC,START,TEMP,TEXT,TGLIST,TIME
- S START=$H
- K ^TMP($J,"PXRM PATIENT LIST")
- I '(PXRMQUE!$D(IO("S"))) D INIT^PXRMXBSY(.BUSY)
- W !,"Building patient list "
- K ^TMP($J,"HLOCL"),^TMP($J,"PLIST")
- M ^TMP($J,"HLOCL")=^XTMP(PXRMXTMP,"HLOC")
- D FPLIST^PXRMLOCL(9000010,"HLOCL",-1,PXRMBDT,PXRMEDT,"PLIST")
- K ^TMP($J,"HLOCL")
- S DFN=""
- F  S DFN=$O(^TMP($J,"PLIST",DFN)) Q:DFN=""  D
- . S NF=0
- . F  S NF=$O(^TMP($J,"PLIST",DFN,NF)) Q:NF=""  D
- .. S TEMP=^TMP($J,"PLIST",DFN,NF)
- .. S SC=$P(TEMP,U,4)
- .. I '$D(PXRMSCAT(SC)) Q
- .. ;Remove test Patients
- .. I 'PXRMTPAT,$$TESTPAT^VADPT(DFN)=1 Q
- .. ;Remove deceased patients
- .. I 'PXRMDPAT,$P($G(^DPT(DFN,.35)),U,1)>0 Q
- .. S DAS=$P(TEMP,U,1),DATE=$P(TEMP,U,2),HLOC=$P(TEMP,U,3)
- .. S ^TMP($J,"PXRM PATIENT LIST",DFN,HLOC,DATE,DAS)=""
- K ^TMP($J,"PLIST")
- S END=$H
- I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) D DONE^PXRMXBSY("Done")
- S TEXT="Elapsed time for building patient list: "_$$DETIME^PXRMXSL1(START,END)
- S ^XTMP(PXRMXTMP,"TIMING","PATIENT LIST")=TEXT
- I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) W !,TEXT
- I PXRMREP="D" D SDAM301(PXRMBDT,PXRMEDT,PXRMSEL,PXRMFD,PXRMREP)
- I DBDOWN=1 Q
- S START=$H
- S BUSY=0
- I '(PXRMQUE!$D(IO("S"))) D INIT^PXRMXBSY(.BUSY)
- N HLIEN,NAM,FACILITY,LSEL,NODE
- S DFN=0 F  S DFN=$O(^TMP($J,"PXRM PATIENT LIST",DFN)) Q:DFN'>0  D
- .S HLIEN=0
- .F  S HLIEN=$O(^TMP($J,"PXRM PATIENT LIST",DFN,HLIEN)) Q:HLIEN'>0  D
- ..I ('(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")))&(DBDOWN=0) D SPIN^PXRMXBSY("Removing Invalid Encounter(s)",.BUSY)
- ..S NODE=$G(^XTMP(PXRMXTMP,"HLOC",HLIEN))
- ..S FACILITY=$P(NODE,U),NAM=$P(NODE,U,2)
- ..D TMP^PXRMXSL1(DFN,NAM,FACILITY,HLIEN)
- ..S TEMP=$P(PXRMLCSC,U,1)
- ..S LSEL=$S(TEMP="CS":$P(NODE,U,3),TEMP="GS":$P(NODE,U,3),1:HLIEN)
- ..D MARK^PXRMXSL1(LSEL)
- ..S ^TMP($J,"PXRM PATIENT EVAL",DFN)=""
- S END=$H
- S TEXT="Elapsed time for removing invalid encounter(s): "_$$DETIME^PXRMXSL1(START,END)
- S ^XTMP(PXRMXTMP,"TIMING","REMOVING INVALID ENCOUNTER(S)")=TEXT
- I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) W !,TEXT
- I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) D DONE^PXRMXBSY("Done")
- Q
- ;
-VISITSO ; Old entry point
  N BTIME,DAS,DATE,DEND,DFN,DONE,DS,ETIME,HLOC,INVBD,INVDATE,INVDT,INVED
- N NFOUND,SC,TEMP,TEXT,TGLIST,TIME
+ N NFOUND,SC,TEMP,TGLIST,TIME
  N DOD,START,END
  S START=$H
@@ -175 +116 @@
  S INVBD=9999999-$P(PXRMBDT,".",1),BTIME=+("."_$P(PXRMBDT,".",2))
  S INVED=9999999-$P(DEND,".",1),ETIME=+("."_$P(DEND,".",2))
- S DS=INVED-.000001
+ S DS=INVED-1
  S HLOC=""
  F  S HLOC=$O(^XTMP(PXRMXTMP,"HLOC",HLOC)) Q:HLOC=""  D
@@ -203 +144 @@
  S END=$H
  I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) D DONE^PXRMXBSY("Done")
- S TEXT="Elapsed time for building patient list: "_$$DETIME^PXRMXSL1(START,END)
- S ^XTMP(PXRMXTMP,"TIMING","PATIENT LIST")=TEXT
- I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) W !,TEXT
- I PXRMREP="D" D SDAM301(PXRMBDT,PXRMEDT,PXRMSEL,PXRMFD,PXRMREP)
- ;D SDAM301(PXRMBDT-.0001,PXRMEDT,PXRMSEL,PXRMFD,PXRMREP)
+ I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) D DETIME^PXRMXSL1(START,END,"Building Patient List")
+ D SDAM301(PXRMBDT-.0001,PXRMEDT,PXRMSEL,PXRMFD,PXRMREP)
  ;
  I DBDOWN=1 Q
  S START=$H
  S BUSY=0
+ I DBDOWN=1 Q
  N NODE
  I '(PXRMQUE!$D(IO("S"))) D INIT^PXRMXBSY(.BUSY)
@@ -227 +166 @@
  ..S ^TMP($J,"PXRM PATIENT EVAL",DFN)=""
  S END=$H
- S TEXT="Elapsed time for removing invalid encounter(s): "_$$DETIME^PXRMXSL1(START,END)
- S ^XTMP(PXRMXTMP,"TIMING","REMOVING INVALID ENCOUNTER(S)")=TEXT
- I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) W !,TEXT
  I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) D DONE^PXRMXBSY("Done")
+ I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) D DETIME^PXRMXSL1(START,END,"Removing Invalid Encounter(s)")
  Q