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

GMTSPCD.m

Go to the documentation of this file.
  1. GMTSPCD ; SLC/DLT,KER - Queue HS Batch Print Clinic by Date ; 08/27/2002 [1/26/05 11:22am]
  1. ;;2.7;Health Summary;**28,56,70**;Oct 20, 1995;Build 5
  1. ;
  1. ; External References
  1. ; DBIA 10026 ^DIR
  1. ; DBIA 10063 ^%ZTLOAD
  1. ; DBIA 10040 ^SC("B")
  1. ; DBIA 10040 ^SC( file #44
  1. ; DBIA 10006 ^DIC (file #44 and 3.5)
  1. ; DBIA 10000 NOW^%DTC
  1. ;
  1. MAIN ; Controls branching
  1. W !!,"This option will queue Health Summaries for a specified Visit Date"
  1. W !,"for all Outpatient Clinics with Appointments on that Visit Date.",!!
  1. N GMTSCDT
  1. S GMTSCDT=$$SELDATE Q:GMTSCDT'>0
  1. W ! N DIR S DIR(0)="D^::%DT",DIR("A")="Date and Time to Queue this Job to run",DIR("B")="NOW" D ^DIR Q:($D(DTOUT)!($D(DUOUT))!($D(DIROUT)))
  1. S ZTDTH=Y,ZTIO="",ZTSAVE("GMTSCDT")=""
  1. S ZTRTN="CLINICQ^GMTSPCD",ZTDESC="Create Task HS Jobs for Clinics by Visit Date"
  1. D ^%ZTLOAD
  1. Q
  1. CLINICQ ; Loop thru clinics for appointments
  1. ; Date stored in GMTSCDT
  1. N GMTSARR,GMTSCNT,GMTSLOC,GMTSCL,GMTSTYP,GMTSJ
  1. ;GET ALL APPOINTMENTS ON DATE GMTSCDT
  1. S GMTSARR(1)=GMTSCDT_";"_GMTSCDT,GMTSARR("FLDS")="1;2",GMTSCNT=$$SDAPI^SDAMA301(.GMTSARR)
  1. ;IF ERROR IN SDAPI CALL, SEND MESSAGE AND QUIT
  1. I GMTSCNT<0 D MAIL^GMTSMAIL("SCHEDULING DATABASE ERROR "_GMTSCNT,"HS Batch Print Clinic by Date") K ^TMP($J,"SDAMA301") Q
  1. ;LOOP THROUGH RETURN ARRAY AND SORT BY CLINIC NAME REMOVING ANY CLINIC THAT IS NOT OF TYPE "C"
  1. I GMTSCNT>0 D
  1. .N GMTSI S GMTSI=0 F S GMTSI=$O(^TMP($J,"SDAMA301",GMTSI)) Q:'GMTSI D
  1. ..Q:$P($G(^SC(GMTSI,0)),U,3)'="C"
  1. ..N NAME,DFN,TIME,TEMP,TYPE
  1. ..S DFN=$O(^TMP($J,"SDAMA301",GMTSI,0))
  1. ..S TIME=$O(^TMP($J,"SDAMA301",GMTSI,DFN,0))
  1. ..S TEMP=$P(^TMP($J,"SDAMA301",GMTSI,DFN,TIME),U,2)
  1. ..S NAME=$P(TEMP,";",2)
  1. ..S TYPE=0,TYPE=$O(^GMT(142,"D",GMTSI,TYPE))
  1. ..I +TYPE>0 S ^TMP($J,"GMTSCL",NAME,GMTSI,TYPE)=""
  1. ;LOOP THROUGH CLINICS ALPHABETICALLY AND CALL QUEUE WITH GMTSTYP AND GMTSCL SET
  1. S GMTSJ="" F S GMTSJ=$O(^TMP($J,"GMTSCL",GMTSJ)) Q:'$L(GMTSJ) S GMTSCL=$O(^TMP($J,"GMTSCL",GMTSJ,0)) Q:'GMTSCL S GMTSTYP=$O(^TMP($J,"GMTSCL",GMTSJ,GMTSCL,0)) D QUEUE
  1. K ^TMP($J,"GMTSCL"),^TMP($J,"SDAMA301")
  1. Q
  1. QUEUE ; Queues HS batch print for particular HS Type and Location.
  1. N DIC,GMPSAP,GMTSCLI,GMTSLOC,GMTSSC,GMTSIO,GMTSDYS,GMV,QUEQIT,X,Y
  1. S QUEQIT=0
  1. S GMTSCLI=$O(^GMT(142,GMTSTYP,20,"B",GMTSCL,0))
  1. S GMTSLOC=$G(^GMT(142,GMTSTYP,20,GMTSCLI,0))
  1. S X=+GMTSLOC,DIC=44,DIC(0)="NXZ" D ^DIC
  1. I $S(+Y'>0:1,"WCOR"'[$P($G(Y(0)),U,3):1,1:0) Q
  1. S GMTSSC(1)=Y_U_$P(Y(0),U,3),$P(GMTSSC(1),U,4)=GMTSCDT
  1. S GMPSAP=$S($P(GMTSLOC,U,3)="Y":1,1:0)
  1. S ZTIO=$$GETIO($P(GMTSLOC,U,2)) Q:'$L(ZTIO)
  1. S ZTDTH=$H,ZTRTN="MAIN^GMTSPL",ZTDESC="Clinic Health Summaries by Visit Date"
  1. F GMV="GMTSTYP","GMPSAP" S ZTSAVE(GMV)=""
  1. S ZTSAVE("GMTSSC(")=""
  1. D ^%ZTLOAD
  1. Q
  1. GETIO(X) ; Get device for queueing
  1. N %,%Y,C,DIC,Y
  1. S DIC=3.5,DIC(0)="NXZ" D ^DIC S Y=$S(+Y'>0:"",1:$P(Y(0),U))
  1. Q Y
  1. SELDATE() ; Allows entry of Visit/Surgery date or date range
  1. ; for Print-by-Clinic
  1. N %,%H,%I,DIR,DEFDT,X,Y
  1. D NOW^%DTC S (X,DT)=$P(%,".") D REGDT4^GMTSU S DEFDT=X
  1. S DIR(0)="D^::EX",DIR("B")=DEFDT
  1. S DIR("A")="Please enter the Visit date"
  1. D ^DIR
  1. I Y="^^" S DIROUT=1
  1. Q Y