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

SDAMOS.m

Go to the documentation of this file. 
  1. SDAMOS ;ALB/CAW - Statistical Report for Appointments;4/15/92
  1.  ;;5.3;Scheduling;**11,46,1007,1015**;Aug 13, 1993;Build 21
  1.  ;SCK - 5/18/93 MODS FOR APP CLININCS AND STOP CODES
  1.  ;IHS/ANMC/LJF  9/29/2000 added call to list manager
  1.  ;                        fixed code to display dashes correctly
  1.  ;             10/25/2000 changed 132 column message
  1.  ;cmi/anch/maw  8/14/2007 PATCH 1007 removed clinic stop as selectable report if division only
  1.  ;
  1. STATS ;
  1.  N OPT,SDFIN
  1.  K ^TMP("SDAMS",$J)
  1.  S SDFIN=0,SDSORT=SDSEL
  1.  I '$$FORMAT G STATSQ
  1.  I '$$DIV^SDAMO G STATSQ
  1.  I SDSEL=6 S VAUTC=1 G STATS1
  1.  I SDSEL=5 S OPT=$S(FMT=1:"GETCLN",1:"GETSC") D @OPT G:SDFIN STATSQ
  1. STATS1 ;
  1.  I '$$COMPL G ^SDAMO
  1.  W !!,$$LINE^SDAMO("Device Selection")
  1.  ;W !!,"This output requires 132 columns.",!!  ;IHS/ANMC/LJF 10/25/2000
  1.  W !!,"If printing to paper, this report requires 132 columns.",!!  ;IHS/ANMC/LJF 10/25/2000
  1.  S %ZIS="PQM" D ^%ZIS G STATSQ:POP
  1.  I $D(IO("Q")) D QUE G STATSQ
  1.  W ! D WAIT^DICD
  1.  I $E(IOST,1,2)="C-" D EN^BSDAMO,STATSQ Q  ;IHS/ANMC/LJF 9/29/2000
  1.  D START^SDAMOS
  1. STATSQ ;
  1.  D:'$D(ZTQUEUED) ^%ZISC
  1.  K SDAMDD,SDAPPT,SDASH,SDAT,SDATA,SDAT,SDCL,SDCLC,SDCLI,SDCLIN,SDCOL,SDDATE,SDDIV,SDDV,SDFLG,SDI,SDLEN,SDNXT,SDPAGE,SDPAT,SDSTAT,SDSTOP,SDTDASH
  1.  K ^TMP("SDAMS",$J),SDSEL,FMT,SDFIN,SDRUN,SCTOT,BLD,VAUTC,VAUTD,SDBEG,SDEND,VAUTNI,VAUTSTR,VAUTVB,SDSORT,DIC,DTOUT,DUOUT,DIROUT
  1.  Q
  1.  ;
  1. START ;
  1.  U IO
  1.  K ^TMP("SDAMS",$J)
  1.  ;S SDLEN=25,SDPAGE=1,$P(SDASH,"-",IOM+1)="",$P(SDTDASH,"=",IOM+1)="",SDAMDD=$P(^DD(2.98,3,0),U,3)  ;IHS/ANMC/LJF 9/29/2000
  1.  S SDLEN=25,SDPAGE=1,$P(SDASH,"-",132)="",$P(SDTDASH,"=",132)="",SDAMDD=$P(^DD(2.98,3,0),U,3)  ;IHS/ANMC/LJF 9/29/2000
  1.  D EN
  1.  I '$D(^TMP("SDAMS",$J)) D NOREP^SDAMOS1 G STATSQ
  1.  I FMT=1 D BLD^SDAMOSP
  1.  I FMT'=1 D BLD^SDAMOS1
  1.  D STATSQ Q
  1.  ;
  1. EN ; build ^TMP global
  1.  I FMT=1 D BLD1^SDAMOS
  1.  I FMT'=1 D STOPC^SDAMOS0
  1. ENQ Q
  1.  ;
  1. BLD1 ;
  1.  I VAUTD=1 S SDDIV=0 D CLINIC
  1.  S SDDV=0 F  S SDDV=$O(VAUTD(SDDV)) Q:'SDDV  S SDDIV=SDDV D CLINIC
  1.  Q
  1.  ;
  1. CLINIC ;all clinic or specific clinic
  1.  ;
  1.  ;all divisions and all clinics selected
  1.  I VAUTD=1&(VAUTC=1) D
  1.  .S SDCLIN=0 F  S SDCLIN=$O(^SC(SDCLIN)) Q:'SDCLIN  I $$CLINIC^SDAMU(SDCLIN) S SDCLC=$G(^SC(SDCLIN,0)) D PATIENT
  1.  ;specific division and all clinics selected
  1.  I SDDIV&(VAUTC=1) D
  1.  .S SDCLIN=0 F  S SDCLIN=$O(^SC(SDCLIN)) Q:'SDCLIN  I $$CLINIC^SDAMU(SDCLIN) D
  1.  ..S SDCLC=$G(^SC(SDCLIN,0)) I SDDIV=$$DIV^SDAMU(.SDCLIN,.VAUTD,.SDNAME,.SDLEN) D PATIENT
  1.  ;all or specific division(s) and specific clinic(s) selected
  1.  I VAUTC=0 D
  1.  .S SDCLIN=0 F  S SDCLIN=$O(VAUTC(SDCLIN)) Q:'SDCLIN  S SDCLC=$G(^SC(+SDCLIN,0)) D:VAUTD!(SDDIV=$$DIV^SDAMU(.SDCLIN,.VAUTD,.SDNAME,.SDLEN)) PATIENT
  1.  Q
  1.  ;
  1. PATIENT ;loop through appointments - find status of appt.
  1.  ;
  1.  S SDDATE=SDBEG-.1
  1.  F SDDATE=SDDATE:0 S SDDATE=$O(^SC(SDCLIN,"S",SDDATE)) Q:'SDDATE!(SDDATE>(SDEND_".9"))  D
  1.  .S SDAPPT=0 F  S SDAPPT=$O(^SC(SDCLIN,"S",SDDATE,1,SDAPPT)) Q:'SDAPPT  D SET
  1.  Q
  1.  ;
  1. SET ;Set in ^TMP("SDAMS",$J,Division,Clinic Name,Clinic IFN,Appt Status)
  1.  ;
  1.  S SDDV=$$DIV^SDAMU(.SDCLIN,.VAUTD,.SDNAME,.SDLEN),SDPAT=+$G(^SC(SDCLIN,"S",SDDATE,1,SDAPPT,0))
  1.  S SDATA=$G(^DPT(SDPAT,"S",SDDATE,0)) I 'SDATA G SETQ
  1.  G:'$$VALID^SDAM2(SDPAT,SDCLIN,SDDATE,SDAPPT) SETQ
  1.  S SDSTAT=$$STATUS^SDAM1(SDPAT,SDDATE,SDCLIN,SDATA,SDAPPT)
  1.  S ^(+SDSTAT)=$G(^TMP("SDAMS",$J,SDDV,$P(^SC(SDCLIN,0),U),SDCLIN,+SDSTAT))+1
  1.  S SDCL("SDAMS",$J,SDDV,+SDSTAT)=$G(SDCL("SDAMS",$J,SDDV,+SDSTAT))+1
  1.  S SDAT("SDAMS",$J,+SDSTAT)=$G(SDAT("SDAMS",$J,+SDSTAT))+1
  1.  I +SDSTAT["4^5^6^7",$P(SDSTAT,U,4)'="" S SDCI(SDCLIN,+SDSTAT)=$G(SDCI(SDCLIN,+SDSTAT))+1
  1. SETQ Q
  1.  ;
  1. GETCLN S SDFIN='$$CLINIC^SDAMO Q
  1.  ;
  1. GETSC S SDFIN='$$STOP Q
  1.  ;
  1. FORMAT() ;
  1.  N Y S Y=0
  1.  W !!,$$LINE^SDAMO("Report Format")
  1.  S FMT=$$OPTION(0)
  1.  Q (Y)
  1.  ;
  1. OPTION(CHECK) ;
  1.  S X="S^"
  1.  S X=X_"1:Appointment Clinic;"
  1.  ;S X=X_"2:Stop Code"  ;cmi/anch/maw orig line
  1.  I SDSEL'=6 S X=X_"2:Stop Code"  ;cmi/anch/maw 8/14/2007 patch 1007 no stop code report for division only stats
  1.  S DIR(0)=X,DIR("A")="Select Report Format",DIR("?")="Select format for printed report",DIR("B")="Appointment Clinic"
  1.  D ^DIR K DIR
  1.  Q (+Y)
  1. QUE ;
  1.  S ZTRTN="START^SDAMOS",ZTDESC="Appointment Management Report"
  1.  F X="FMT","VAUTC(","VAUTD(","SDSORT","SDSEL","SDBEG","SDEND","VAUTD","VAUTC" S ZTSAVE(X)=""
  1.  D ^%ZTLOAD W:$D(ZTSK) !,"Task #",ZTSK," Started."
  1.  D HOME^%ZIS K IO("Q")
  1.  Q
  1. STOP() ;
  1.  W !!,$$LINE^SDAMO("Stop Code Selection")
  1.  S DIC="^DIC(40.7,",VAUTSTR="Stop Code",VAUTVB="VAUTC",VAUTNI=2
  1.  D FIRST^VAUTOMA
  1.  I Y<0 K VAUTC
  1.  Q $D(VAUTC)>0
  1.  ;
  1. COMPL() ;
  1.  I '$$DISP^SDAMOS0 S Y=0 G COMPLQ
  1.  S DIR(0)="Y",DIR("A")="Continue",DIR("?")="Enter 'Y'es or 'N'o.",DIR("B")="YES"
  1.  D ^DIR K DIR I $D(DTOUT) S Y=0
  1. COMPLQ Q (Y)