source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTMOVE.m@ 1800

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

initial load of WorldVistAEHR

File size: 3.7 KB
RevLine 
[613]1DGPTMOVE ;ALB/JDS - MOVE DRG FY DATA TO UPPER LEVEL ; 26 AUG 84 14:15
2 ;;5.3;Registration;**78,158,178,256**;Aug 13, 1993
3 ;
4EN F I=1:1 S X=$P($T(TEXT+I),";;",2) Q:X="END" W !,X
5 S DGFLAG=0
6 D WHICH
7 I 'DGFLAG D FY
8 I 'DGFLAG D SET
9Q K DGFLAG,DGFY,DGFY2K,DGWHICH,I,X
10 Q
11 ;
12 ;
13WHICH ; select which option (local or all)
14 N DIR,DTOUT,DUOUT,DIRUT,DIROUT,X,Y
15 S DIR(0)="SM^A:ALL;L:LOCAL",DIR("A")="Copy which trim values"
16 S DIR("?",1)="Enter LOCAL if you want to use the local and national trim"
17 S DIR("?",2)="values from last year until new trim values are offically"
18 S DIR("?",3)="released. This will copy the local and national trim"
19 S DIR("?",4)="values into the next fiscal year. It will also copy the"
20 S DIR("?",5)="local trim values to the upper level of the DRG file for"
21 S DIR("?",6)="use on the <701> screen and in the DRG Calculation option."
22 S DIR("?",7)=" "
23 S DIR("?",8)="Choose ALL if local and national trim values have already"
24 S DIR("?",9)="been entered for the current fiscal year and you wish to"
25 S DIR("?",10)="copy those figures to the upper level of the DRG file for"
26 S DIR("?",11)="use on the <701> screen and in the DRG Calculation option."
27 S DIR("?",12)=" "
28 S DIR("?")="Choose L LOCAL or A for ALL."
29 D ^DIR
30 S DGWHICH=Y
31 I $D(DTOUT)!$D(DUOUT)!$D(DIRUT)!$D(DIROUT) S DGFLAG=1 Q
32 Q
33 ;
34 ;
35FY ; select fiscal year to copy from
36 N DIR,DTOUT,DUOUT,DIRUT,DIROUT,X,Y
37 S DIR(0)="F^2:2^I X'?2N K X",DIR("A")="Enter FISCAL YEAR to copy data from"
38 S DIR("?",1)="Enter the fiscal year from which you want to copy the trim"
39 S DIR("?",2)="values. The values you selected will be copied from this"
40 S DIR("?",3)="year to the upper level of the file."
41 I DGWHICH="L" D
42 . S DIR("?",3)=DIR("?",3)_" It will also copy"
43 . S DIR("?",4)="all trim data (local and national) to the fiscal year"
44 . S DIR("?",5)="following the year you select."
45 . S DIR("?",6)=" "
46 E D
47 . S DIR("?",4)=" "
48 S DIR("?")="Enter the fiscal year as NN (ex: '94' for fiscal year 1994)."
49 D ^DIR
50 S DGFY=Y
51 I $D(DTOUT)!$D(DUOUT)!$D(DIRUT)!$D(DIROUT) S DGFLAG=1 Q
52 S DGFY2K=$$DGY2K^DGPTOD0(DGFY)
53 I '$D(^ICD("AFY",DGFY2K)) W !!,"No information has been entered yet for the selected fiscal year.",*7,! G FY
54 Q
55 ;
56 ;
57SET ; set values into upper level and next fiscal year
58 N I,MULT,NODE,UPPER,Y
59 S Y=DGFY2K
60 X ^DD("DD")
61 W !!,"Copying WWU, ALOS, high trims, and low trims from FY",Y," to upper level of file."
62 I DGWHICH="L" D
63 .W !,"Also copying values from FY",Y," multiple to FY"
64 .S Y=DGFY2K+10000 X ^DD("DD") W Y," multiple."
65 W ".."
66 W ! F I=0:0 S I=$O(^ICD(I)) Q:I'>0 I $D(^ICD(I,"FY",DGFY2K,0)) D
67 . N NODE,MULT,UPPER
68 . S NODE=$G(^ICD(I,0)),MULT=$G(^ICD(I,"FY",DGFY2K,0))
69 . S $P(NODE,"^",15)="",$P(MULT,"^",15)="" ; ensures '^'s out to end of node
70 . I DGWHICH="A" D
71 . . S UPPER=$P(NODE,U,1)_U_$P(MULT,U,2,4)_U_$P(NODE,U,5,6)_U_$P(MULT,U,8,9)_U_$P(MULT,U,6,7)_U_$P(MULT,U,10)_U_$P(NODE,U,12)
72 . I DGWHICH="L" D
73 . . S UPPER=NODE
74 . . S $P(UPPER,"^",9)=$P(MULT,"^",6),$P(UPPER,"^",10)=$P(MULT,"^",7) ; sets local figures into upper level
75 . . S ^ICD(I,"FY",DGFY2K+10000,0)=(DGFY2K+10000)_"^"_$P(MULT,"^",2,10)
76 . S ^ICD(I,0)=UPPER
77 . W "."
78 W !!?17,"****** COPY COMPLETED ******",!!
79 Q
80 ;
81 ;
82TEXT ;
83 ;;This option is used to copy values from the FISCAL YEAR WEIGHTS&TRIMS
84 ;;multiple of the DRG File for display purposes on the <701> screen and
85 ;;in the DRG Calculation option and for the processing of the DRG Reports.
86 ;;
87 ;;Values are copied to the upper level of the DRG File for display purposes
88 ;;and may also be copied from a fiscal year to the next fiscal year to
89 ;;temporarily use a prior fiscal year's values until the current fiscal
90 ;;year's values are available.
91 ;;
92 ;;Local values must previously have been entered into the DRG File through
93 ;;the use of the 'Trim Point Entry' option.
94 ;;
95 ;;
96 ;;END
Note: See TracBrowser for help on using the repository browser.