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

SDAMQ2.m

Go to the documentation of this file.
  1. SDAMQ2 ;ALB/MJK - AM Background Utilities (cont.) ; 12/1/91
  1. ;;5.3;Scheduling;**132**;Aug 13, 1993
  1. ;
  1. CHK(SDBEG,SDEND,SDPCE) ; -- check if all dates are processed
  1. N SDDT,X1,X2,X K ^TMP("SDAM NOT UPDATED",$J)
  1. S SDDT=$S(SDBEG<$$SWITCH^SDAMU:$$SWITCH^SDAMU,1:SDBEG)
  1. F Q:SDDT>SDEND D
  1. .S:'$P($G(^SDD(409.65,+$O(^SDD(409.65,"B",SDDT,0)),0)),U,SDPCE) ^TMP("SDAM NOT UPDATED",$J,SDDT)=""
  1. .S X1=SDDT,X2=1 D C^%DTC S SDDT=X
  1. Q
  1. ;
  1. WKL(SDBEG,SDEND) ; -- check if all dates have been updated
  1. W !!,"Will now check if outpatient encounter dates have been updated..."
  1. D CHK(SDBEG,SDEND,5)
  1. I '$D(^TMP("SDAM NOT UPDATED",$J))>0 W "everything looks ok.",! G WKLQ
  1. W !!,*7,"The outpatient encounter status update process has not completed"
  1. W !,"for the following dates:",!
  1. D LIST
  1. W !!,"Note: To obtain accurate statistics, this workload report should"
  1. W !," be run again after the outpatient encounter status update"
  1. W !," process has been completed for these dates.",!
  1. WKLQ K ^TMP("SDAM NOT UPDATED",$J)
  1. Q
  1. ;
  1. LIST ; -- list error dates for display
  1. N COUNT,SDDT
  1. S COUNT=0,SDDT=0
  1. F S SDDT=$O(^TMP("SDAM NOT UPDATED",$J,SDDT)) Q:'SDDT D
  1. .S COUNT=COUNT+1 W ?$P("10^30^50",U,COUNT),$$FDATE^VALM1(SDDT)
  1. .I COUNT=3 W ! S COUNT=0
  1. Q