Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMXSL1.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/PXRMXSL1.m (modified) (9 diffs)

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

@@ -1 @@
-PXRMXSL1 ; SLC/PJH - Process Visits/Appts Reminder Due report;02/07/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMXSL1 ; SLC/PJH - Process Visits/Appts Reminder Due report;12/09/2005
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;
  ; Called from PXRMXSE
@@ -25 +25 @@
  I '$D(PXRMFACN(HFAC)) Q ""
  Q HFAC
- ;
-INACTCL(HLIEN,PXRMBDT) ;
- ;Check to see if clinic is inactivated before the start of 
- ;the reporting period
- N INACT,REACT
- S INACT=+$P($G(^SC(HLIEN,"I")),U) I INACT=0 Q 0
- S REACT=+$P($G(^SC(HLIEN,"I")),U,2)
- I REACT'<INACT Q 0
- I INACT<PXRMBDT Q 1
- Q 0
  ;
 INPADM ;
@@ -61 +51 @@
  ;
 BHLOC ;
- N CLINIEN,END,FACILITY,NAM,HLIEN,I,START,TEXT
- N INACT,REACT
+ N CLINIEN,END,FACILITY,NAM,HLIEN,I,START
  I '(PXRMQUE!$D(IO("S"))) D INIT^PXRMXBSY(.BUSY)
  ;All inpatient, outpatient all location credit stop and encounter
@@ -69 +58 @@
  .S HLIEN=0 F  S HLIEN=$O(^SC(HLIEN)) Q:HLIEN'>0  D
  ..S FACILITY=$$HFAC(HLIEN) I FACILITY'>0 Q
- ..I $$INACTCL(HLIEN,PXRMBDT)=1 Q
  ..S NAM=$P(^SC(HLIEN,0),U)
  ..I ('(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")))&(DBDOWN=0) D SPIN^PXRMXBSY("Building Hospital Locations List",.BUSY)
@@ -82 +70 @@
  .S HLIEN=0 F  S HLIEN=$O(PXRMLOCN(HLIEN)) Q:HLIEN'>0  D
  ..S FACILITY=$$HFAC(HLIEN) I FACILITY'>0 Q
- ..I $$INACTCL(HLIEN,PXRMBDT)=1 Q
  ..S NAM=$P(^SC(HLIEN,0),U)
  ..I ('(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")))&(DBDOWN=0) D SPIN^PXRMXBSY("Building Hospital Locations List",.BUSY)
@@ -91 +78 @@
  ..S HLIEN=0 F  S HLIEN=$O(^SC("AST",CLINIEN,HLIEN)) Q:HLIEN'>0  D
  ...S FACILITY=$$HFAC(HLIEN) I FACILITY'>0 Q
- ...I $$INACTCL(HLIEN,PXRMBDT)=1 Q
  ...S NAM=$P(^DIC(40.7,CLINIEN,0),U)_" "_$P(PXRMCS($G(PXRMCSN(CLINIEN))),U,3)
  ...I ('(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")))&(DBDOWN=0) D SPIN^PXRMXBSY("Building Hospital Locations List",.BUSY)
@@ -100 +86 @@
  ..S HLIEN=0 F  S HLIEN=$O(^SC("ASCRPW",CGRPIEN,HLIEN)) Q:HLIEN'>0  D
  ...S FACILITY=$$HFAC(HLIEN) I FACILITY'>0 Q
- ...I $$INACTCL(HLIEN,PXRMBDT)=1 Q
  ...I ('(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")))&(DBDOWN=0) D SPIN^PXRMXBSY("Building Hospital Locations List",.BUSY)
  ...S ^XTMP(PXRMXTMP,"HLOC",HLIEN)=FACILITY_U_$P(^SC(HLIEN,0),U)_U_CGRPIEN
  I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) D DONE^PXRMXBSY("Done")
  S END=$H
- S TEXT="Elapsed time for building hospital locations: "_$$DETIME^PXRMXSL1(START,END)
- S ^XTMP(PXRMXTMP,"TIMING","BUILDING HOSPITAL LOCATIONS")=TEXT
- I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) W !,TEXT
- Q
- ;
-DETIME(START,END) ;
+ I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) D DETIME(START,END,"Building Hospital Locations")
+ Q
+ ;
+DETIME(START,END,SECTION) ;
  N ETIME,TEXT
  S ETIME=$$HDIFF^XLFDT(END,START,2)
  I ETIME>90 D
  . S ETIME=$$HDIFF^XLFDT(END,START,3)
- . S TEXT=ETIME
- E  S TEXT=ETIME_" secs"
- Q TEXT
+ . S TEXT="Elapsed time for "_SECTION_": "_ETIME
+ E  S TEXT="Elapsed time for "_SECTION_": "_ETIME_" secs"
+ D MES^XPDUTL(TEXT)
+ Q
  ;
 OERR ;
@@ -145 +129 @@
  I '(PXRMQUE!$D(IO("S"))) D INIT^PXRMXBSY(.BUSY)
  N CNT,SCDT,LIST,SCERR,SCLIST,II,PCM,NAM,PNAM,PXRM,OK
- N FACILITY,NAM
  S SCDT("BEGIN")=PXRMSDT,SCDT("END")=PXRMSDT
  ;Include patient if in team on any day in range
@@ -163 +146 @@
  ..I PXRMPRIM="P",($$PCASSIGN^PXRMXAP(DFN)'=1) Q
  ..;For detailed provider report get assoc clinic
- ..I PXRMREP="D" S DCLN=$P(^TMP($J,"PCM",CNT),U,7) I +$G(DCLN)>0 D
- ...S FACILITY=$$HFAC(DCLN)
- ...S NAM=$P(^SC(DCLN,0),U)
- ...S ^XTMP(PXRMXTMP,"HLOC",DCLN)=FACILITY_U_NAM
+ ..I PXRMREP="D" S DCLN=$P(^TMP($J,"PCM",CNT),U,7) I $G(DCLN)'="" S ^XTMP(PXRMXTMP,"HLOC",DCLN)=""
  ..I $G(DCLN)'="" S PXRMDCLN(DCLN)=""
  ..D UPD1(DFN,NAM,"FACILITY",+$G(DCLN))