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

SDSCLM.m

Go to the documentation of this file.
  1. SDSCLM ;ALB/JAM/RBS - ASCD Encounter LISTMAN ; 3/7/07 12:42pm
  1. ;;5.3;Scheduling;**495,1015**;Aug 13, 1993;Build 21
  1. ;;MODIFIED FOR NATIONAL RELEASE from a Class III software product
  1. ;;known as Service Connected Automated Monitoring (SCAM).
  1. ;
  1. Q
  1. EN ; -- main entry point for SDSC REVIEW
  1. N SDSCEDIT S SDSCEDIT=1
  1. D EN^VALM("SDSC REVIEW")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. S VALMHDR(1)="The Service Connected status needs to be reviewed for the following encounters."
  1. S VALMHDR(2)="Selected Date Range: "_$$FMTE^XLFDT(SDSCBDT,"1Z")_" - "_$$FMTE^XLFDT(SDEDT,"1Z")
  1. S VALMHDR(3)=" "
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. ;
  1. RBLD ; Rebuild
  1. N SDSCDIV
  1. D CLEAN^VALM10
  1. K ^TMP("SDSCENC",$J),^TMP($J,"SDSCENC")
  1. S SDSCDIV=$S(SDSCDVSL'[SDSCDVLN:","_SDSCDVSL,1:"")
  1. S SDCNT=0
  1. I SDSCTAT'="" D RBLD1
  1. I SDSCTAT="" D S SDSCTAT=""
  1. . F SDSCTAT="N","R","C" D RBLD1
  1. ;
  1. ; -- set null message
  1. I 'SDCNT D
  1. . D SET^VALM10(1," ")
  1. . D SET^VALM10(2," >>> No Encounter's to review for Date Range selected.")
  1. . S ^TMP($J,"SDSCENC",1)=1,^(2)=2
  1. ;
  1. S VALMCNT=$S(SDCNT<1:1,1:SDCNT)
  1. Q
  1. RBLD1 ;
  1. N SDOEDT,SDOEDAT,STATUS,SDOE,SDECDT,SDPAT,X,DFN,SDERR,VADM,SCVST,SDV0
  1. S SDOEDT=SDSCTDT,STATUS=$$EXTERNAL^DILFD(409.48,.05,"F",SDSCTAT,"SDERR")
  1. F S SDOEDT=$O(^SDSC(409.48,"C",SDSCTAT,SDOEDT)) Q:SDOEDT=""!(SDOEDT\1>SDEDT) D
  1. . S SDOE=""
  1. . F S SDOE=$O(^SDSC(409.48,"C",SDSCTAT,SDOEDT,SDOE)) Q:SDOE="" D
  1. .. I SDSCDIV'="",(","_SDSCDIV_",")'[(","_$P(^SDSC(409.48,SDOE,0),U,12)_",") Q
  1. .. S SDOEDAT=$G(^SCE(SDOE,0)) Q:SDOEDAT=""
  1. .. S SDV0=$P(SDOEDAT,U,5),SCVST=$$GET1^DIQ(9000010,SDV0_",",80001,"I")
  1. .. I SCVST'=SCOPT,SCOPT'=2 Q
  1. .. S SDCNT=SDCNT+1
  1. .. S SDECDT=$P(SDOEDAT,U,1),SDPAT=$P(SDOEDAT,U,2)
  1. .. S SDECDT=$$FMTE^XLFDT(SDECDT,"5Z")
  1. .. S DFN=SDPAT D DEM^VADPT
  1. .. S SDPAT=$E(VADM(1),1,25)_" ("_$E($P(VADM(2),U),6,9)_")"
  1. .. S X=$$SETFLD^VALM1(SDCNT," ","LINENUM")
  1. .. S X=$$SETFLD^VALM1(SDOE,X,"ENCNO")
  1. .. S X=$$SETFLD^VALM1(SDECDT,X,"ENCDT")
  1. .. S X=$$SETFLD^VALM1(SDPAT,X,"PAT")
  1. .. S X=$$SETFLD^VALM1(STATUS,X,"STAT")
  1. .. S ^TMP($J,"SDSCENC",SDCNT)=SDOE
  1. .. D SET^VALM10(SDCNT,X)
  1. D KVA^VADPT
  1. Q
  1. ;
  1. HELP ; -- help code
  1. N X
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. K VALMHDR,VALMCNT
  1. K ^TMP("SDSCENC",$J),^TMP($J,"SDSCENC")
  1. K SDCNT,SDEDT,SDSCBDT,SDSCDVLN,SDSCDVSL,SDSCEDT,SDSCTAT,SDSCTDT
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q