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

SCDXPOV2.m

Go to the documentation of this file.
  1. SCDXPOV2 ;ALB/SCK - VISIT REPORT BY NPCDB TRANSMISSION STATUS ; 10/31/96
  1. ;;5.S;Scheduling;**73**;Aug 13, 1993
  1. Q
  1. GETDATE(CAPTION) ; Get and return a date value
  1. ; Input:
  1. ; Caption - Prompt to be displayed in reader call
  1. ;
  1. D NOW^%DTC S Y=X D DD^%DT
  1. S DIR(0)="DA^::EP",DIR("A")=CAPTION,DIR("B")=Y,DIR("??")="^D HELP^%DTC"
  1. D ^DIR K DIR
  1. S:$D(DIRUT) Y=-1
  1. D CLEAR
  1. Q Y
  1. ;
  1. SHWTOT() ; Selects wether only the grand total page is shown
  1. S DIR(0)="YA",DIR("A")="PRINT FACILITY TOTAL ONLY? ",DIR("B")="NO"
  1. S DIR("A",2)="THIS IS A MULTI-DIVISIONAL FACILITY.",DIR("A",1)=""
  1. S DIR("?")="IF YOU ANSWER YES (Y), YOU WILL GIVEN THE FACILITY TOTAL ONLY."
  1. D ^DIR K DIR
  1. S:$D(DIRUT) Y=-1
  1. D CLEAR
  1. Q Y
  1. ;
  1. RPTOPT() ; Selects which parts of the report are shown
  1. S DIR(0)="S^1:TRANSMISSION STATUS ONLY;2:VISIT COUNT;3:BOTH"
  1. S DIR("A")="SELECT REPORT OPTION",DIR("B")=3
  1. D ^DIR K DIR
  1. S:$D(DIRUT) Y=-1
  1. D CLEAR
  1. Q Y
  1. ;
  1. QUE ; Sets up the report for queueing
  1. N LV
  1. S ZTRTN="START^SCDXPOV"
  1. S ZTDESCR="VISIT REPORT, TRANSMISSION STATUS TO NPCDB"
  1. F LV="SCXOPT","SCXBEG","SCXEND","SCXMD","SCXTFLG" S ZTSAVE(LV)=""
  1. D ^%ZTLOAD W:$D(ZTSK) !,"TASK #: ",ZTSK
  1. D HOME^%ZIS K IO("Q")
  1. Q
  1. CHKELG(SCELG) ; checks for inactive entries in the ELIGIBILTIT CODE File, #8
  1. ;
  1. Q +$P($G(^DIC(8,SCELG,0)),U,7)
  1. ;
  1. ELGPRI(SCEL,SCCUR) ; Returns whether heirarchy level of eligibility should change
  1. ; Input
  1. ; SCEL - Eligibility
  1. ; SCCUR - Current Hierarchy level
  1. ; Returns
  1. ; SCPRI = 1 Change current hierarchy to new
  1. ; SCPRI = 0 Do not change
  1. ;
  1. N SCPRI,SCNEW
  1. S SCPRI=4,SCNEW=+$P($G(^DIC(8,SCEL,0)),U,9)
  1. S:SCNEW=1!(SCNEW=3) SCPRI=1
  1. S:SCNEW=2!(SCNEW=15)!(SCNEW=16)!(SCNEW=17)!(SCNEW=18) SCPRI=2
  1. S:SCNEW=4!(SCNEW=5) SCPRI=3
  1. Q SCPRI_U_(SCPRI<SCCUR)
  1. ;
  1. COVPRI(SCNEW,SCCUR) ; Returns whether heirarchy level of visit should change
  1. ; Input
  1. ; SCNEW - Eligibility
  1. ; SCCUR - Current Hierarchy level
  1. ; Returns
  1. ; SCPRI = 1 Change current hierarchy to new
  1. ; SCPRI = 0 Do not change
  1. ;
  1. N SCPRI
  1. S SCPRI=3
  1. S:SCNEW=1 SCPRI=2
  1. S:SCNEW=2 SCPRI=3
  1. S:SCNEW=3 SCPRI=1
  1. Q SCPRI_U_(SCPRI<SCCUR)
  1. ;
  1. CLEAR ; Clear DIR variables
  1. K DIR,DTOUT,DUOUT,DIRUT,DIROUT
  1. Q