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

SDAMOLP.m

Go to the documentation of this file.
  1. SDAMOLP ;ALB/CAW - Retroactive Encounter List (Print); 4/15/92 ; 03 Feb 99 4:20 PM
  1. ;;5.3;Scheduling;**132,176**;Aug 13, 1993
  1. ;
  1. BLD ; Build info from ^TMP global
  1. ;
  1. ; -- check if user has asked to stop job
  1. IF $$S^%ZTLOAD("Printing Retroactive Report...") S (SDSTOP,ZTSTOP)=1 G BLDQ
  1. ;
  1. S (SDDV,SDSC,SDAD,SDDFN)="",(SDPAGE,SDSTOP)=0,SDFST=21,SDSEC=50,SDFLEN=14,SDSLEN=30,SDCNT=0,SDMORE=1
  1. S $P(SDASH,"-",IOM+1)=""
  1. U IO
  1. I '$D(^TMP("SDRAL",$J)) D HDR W !,SDASH,!!,"No Encounters found for selected date range." G BLDQ
  1. ;
  1. D DV
  1. ;
  1. IF SDSTOP G BLDQ
  1. ;
  1. IF $G(SDCNT) D TOTAL
  1. ;
  1. BLDQ ; -- send message that job finished or stopped
  1. N X
  1. S X=$S('SDSTOP:"Retroactive Report Successfully Completed",1:"Retroactive Report Stopped By User")
  1. S X=$$S^%ZTLOAD(X)
  1. Q
  1. ;
  1. ; SDDV=Division, SDSC=Stop Code, SDAD=Encounter Date/Time, SDDFN=Patient
  1. ;
  1. DV F S SDDV=$O(^TMP("SDRAL",$J,SDDV)) Q:SDDV="" D SC Q:SDSTOP
  1. Q
  1. SC F S SDSC=$O(^TMP("SDRAL",$J,SDDV,SDSC)) Q:SDSC="" D HDR,AD Q:SDSTOP
  1. Q
  1. Q
  1. DFN F S SDDFN=$O(^TMP("SDRAL",$J,SDDV,SDSC,SDAD,SDDFN)) Q:'SDDFN S SDATA=^(SDDFN) S DFN=SDDFN D PID^VADPT6 D INFO Q:SDSTOP S SDCNT=$G(SDCNT)+1
  1. Q
  1. ;
  1. TOTAL ;
  1. W !!!,"Total Encounters: ",SDCNT
  1. Q
  1. INFO ; Encounter Date/Time and Patient
  1. ;
  1. W !,SDASH
  1. W !,"Encounter Date/Time:",?SDFST,$$FDTTM^VALM1(SDAD),?41,"Patient:",?SDSEC,$P(^DPT(SDDFN,0),U)
  1. ;
  1. ; Date Encounter Entered and ID
  1. W !,?7,"Date Entered:",?SDFST,$$FDTTM^VALM1($P(SDATA,U,2)),?46,"ID:",?SDSEC,VA("PID")
  1. ;
  1. ; Date Transmitted and Type
  1. W !,?3,"Close-Out Date :",?SDFST,$$FDTTM^VALM1($P(SDATA,U,5)),?44,"Type:",?SDSEC,$P(SDATA,U,4)
  1. ;
  1. ; User
  1. W !,?13,"Clinic:",?SDFST,$S($P(SDATA,U,6)=0:"",1:$P(SDATA,U,6)),?44,"User:",?SDSEC,$P($G(^VA(200,+$P(SDATA,U,3),0),"UNKNOWN"),U)
  1. ;
  1. S SDMORE=$S('$O(^TMP("SDRAL",$J,SDDV,SDSC,SDAD)):0,1:1)
  1. D CHK
  1. ;
  1. ; -- check if user has asked to stop job
  1. IF $$S^%ZTLOAD() S (SDSTOP,ZTSTOP)=1
  1. Q
  1. ;
  1. HDR ; Header
  1. ;
  1. S SDPAGE=SDPAGE+1
  1. I $E(IOST,1,2)="C-",'SDMORE S SDMORE=1 D PAUSE^VALM1 I 'Y S SDSTOP=1 Q
  1. W @IOF,"Retroactive Encounter List",?70,"Page: "_SDPAGE
  1. W !,?3,"Date Range: "_$$FDATE^VALM1(SDBD)_" to "_$$FDATE^VALM1(SDED) D NOW^%DTC W ?51,"Run Date: "_$E($$FTIME^VALM1(%),1,18) Q:'$D(^TMP("SDRAL",$J))
  1. W !,?5,"Division: "_$P($G(^DG(40.8,SDDV,0)),U),?44,"Close-Out Check: ",$S(SDNPDB=1:"DATABASE UPDATE ONLY",1:"WORKLOAD CREDIT")
  1. W !,?4,"Stop Code: "_SDSC,?44,"Visit Selection: "_$S(SDSEL=1:"STOP CODE",1:"CLINIC")
  1. Q
  1. ;
  1. CHK ;Check to pause on screen
  1. I $E(IOST,1,2)="C-",($Y+7)>IOSL D
  1. . D PAUSE^VALM1 S SDY=Y
  1. . IF SDMORE,SDY D HDR
  1. . S:'SDMORE SDMORE=1
  1. . IF 'SDY S SDSTOP=1
  1. I $E(IOST,1,2)="P-",($Y+6)>IOSL,SDMORE D HDR Q
  1. Q