source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SCDXPOV2.m@ 846

Last change on this file since 846 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1SCDXPOV2 ;ALB/SCK - VISIT REPORT BY NPCDB TRANSMISSION STATUS ; 10/31/96
2 ;;5.S;Scheduling;**73**;Aug 13, 1993
3 Q
4GETDATE(CAPTION) ; Get and return a date value
5 ; Input:
6 ; Caption - Prompt to be displayed in reader call
7 ;
8 D NOW^%DTC S Y=X D DD^%DT
9 S DIR(0)="DA^::EP",DIR("A")=CAPTION,DIR("B")=Y,DIR("??")="^D HELP^%DTC"
10 D ^DIR K DIR
11 S:$D(DIRUT) Y=-1
12 D CLEAR
13 Q Y
14 ;
15SHWTOT() ; Selects wether only the grand total page is shown
16 S DIR(0)="YA",DIR("A")="PRINT FACILITY TOTAL ONLY? ",DIR("B")="NO"
17 S DIR("A",2)="THIS IS A MULTI-DIVISIONAL FACILITY.",DIR("A",1)=""
18 S DIR("?")="IF YOU ANSWER YES (Y), YOU WILL GIVEN THE FACILITY TOTAL ONLY."
19 D ^DIR K DIR
20 S:$D(DIRUT) Y=-1
21 D CLEAR
22 Q Y
23 ;
24RPTOPT() ; Selects which parts of the report are shown
25 S DIR(0)="S^1:TRANSMISSION STATUS ONLY;2:VISIT COUNT;3:BOTH"
26 S DIR("A")="SELECT REPORT OPTION",DIR("B")=3
27 D ^DIR K DIR
28 S:$D(DIRUT) Y=-1
29 D CLEAR
30 Q Y
31 ;
32QUE ; Sets up the report for queueing
33 N LV
34 S ZTRTN="START^SCDXPOV"
35 S ZTDESCR="VISIT REPORT, TRANSMISSION STATUS TO NPCDB"
36 F LV="SCXOPT","SCXBEG","SCXEND","SCXMD","SCXTFLG" S ZTSAVE(LV)=""
37 D ^%ZTLOAD W:$D(ZTSK) !,"TASK #: ",ZTSK
38 D HOME^%ZIS K IO("Q")
39 Q
40CHKELG(SCELG) ; checks for inactive entries in the ELIGIBILTIT CODE File, #8
41 ;
42 Q +$P($G(^DIC(8,SCELG,0)),U,7)
43 ;
44ELGPRI(SCEL,SCCUR) ; Returns whether heirarchy level of eligibility should change
45 ; Input
46 ; SCEL - Eligibility
47 ; SCCUR - Current Hierarchy level
48 ; Returns
49 ; SCPRI = 1 Change current hierarchy to new
50 ; SCPRI = 0 Do not change
51 ;
52 N SCPRI,SCNEW
53 S SCPRI=4,SCNEW=+$P($G(^DIC(8,SCEL,0)),U,9)
54 S:SCNEW=1!(SCNEW=3) SCPRI=1
55 S:SCNEW=2!(SCNEW=15)!(SCNEW=16)!(SCNEW=17)!(SCNEW=18) SCPRI=2
56 S:SCNEW=4!(SCNEW=5) SCPRI=3
57 Q SCPRI_U_(SCPRI<SCCUR)
58 ;
59COVPRI(SCNEW,SCCUR) ; Returns whether heirarchy level of visit should change
60 ; Input
61 ; SCNEW - Eligibility
62 ; SCCUR - Current Hierarchy level
63 ; Returns
64 ; SCPRI = 1 Change current hierarchy to new
65 ; SCPRI = 0 Do not change
66 ;
67 N SCPRI
68 S SCPRI=3
69 S:SCNEW=1 SCPRI=2
70 S:SCNEW=2 SCPRI=3
71 S:SCNEW=3 SCPRI=1
72 Q SCPRI_U_(SCPRI<SCCUR)
73 ;
74CLEAR ; Clear DIR variables
75 K DIR,DTOUT,DUOUT,DIRUT,DIROUT
76 Q
Note: See TracBrowser for help on using the repository browser.