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

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1DGRPP1 ;ALB/MRL - REGISTRATION SCREEN PROCESSOR (CONTINUED) ;06 JUN 88@2300
2 ;;5.3;Registration;**489,508**;Aug 13, 1993
3 ;
4STR ;write string of selectable items on the bottom of the screen
5 ;
6 ;DGRPANP = string to print of selectable items (on bottom of screen)
7 ;K = 1 if all items are not selectable (DGRPANP=x,y,z,)
8 ; 0 if whole range is selectable (DGRPANP=x-y)
9 ;K1 = first item
10 ;K2 = last item
11 ;
12 S (K,K1,K2)="" F I=1:1 S J=+$P(DGRPAN,",",I) Q:'J S K2=+J S:I=1 K1=J I +$P(DGRPAN,",",I+1),+$P(DGRPAN,",",I+1)'=(J+1) S K=1
13 S DGRPANP=$S(K:$E(DGRPAN,1,$L(DGRPAN)-1),K1=K2:K1,1:K1_"-"_K2)
14 K K,K1,K2,I,J,I1
15 Q
16 ;
17LT ;local registration template questions
18 I '$D(^DG(43,1,0)) W !!,*7,"Your MAS PARAMETER file is not properly set up!" Q
19 S XX=$S($D(^DIE(+$P(^DG(43,1,0),"^",35),0)):$P(^(0),"^",1),1:"") I XX']"" Q
20 W @IOF S DGRPCM=1,Z="LOCAL REGISTRATION QUESTIONS",X=25 D W^DGRPU
21 S X1="",$P(X1,"=",81)="" W !,X1,!!
22 S DR="["_XX_"]",DIE="^DPT(",(DA,Y)=DFN D ^DIE
23 K XX Q
24 ;
25JUMP ;jump screens (^N)
26 S X=+$E(DGRPANN,2,99) I $D(DGRPVV(X)) S X1=$E(DGRPVV,$P(X,".")) I X1]"",'X1 G @$S(X=1.1:"^DGRPCADD",1:"^DGRP"_X)
27 S Z="INVALID SCREEN NUMBER...VALID SCREENS ARE " F I=1,1.1,2:1:DGRPLAST I '$E(DGRPVV,I) S Z=Z_$S(I=DGRPLAST:" and ",1:"")_I_$S(I<DGRPLAST:",",1:".")
28 W !,*7 D W H 2
29 G:DGRPS'=1.1 @("^DGRP"_DGRPS) G:DGRPS=1.1 ^DGRPCADD ;return to same screen
30 ;
31WHICH ; if screen 9, which elements can be edited (vet, spouse, dependents)
32 I DGRPS'=9 S DGRPSEL="" Q
33 S DGRPSEL="V" I $D(DGREL("S")) S DGRPSEL=DGRPSEL_"S"
34 I $O(DGREL("D",0)) S DGRPSEL=DGRPSEL_"D"
35 Q
36 ;
37MOREHLP ; print additional help prompt for screen 9
38 I DGRPVV(9)'["0"!+$G(DGRPV) Q ;view only
39 W !,"(To edit only veteran income, precede selection with 'V' [ex. 'V1-3']" I DGRPSEL]"V" W $S(DGRPSEL["SD":",",1:" or"),!
40 I DGRPSEL["S" W "precede with 'S' to edit spouse" I DGRPSEL["D" W ", or "
41 I DGRPSEL["D" W "precede with 'D' to edit dependents"
42 W "): "
43 Q
44 ;
45W ;write highlighted text on screen (if parameter on)
46 I IOST="C-QUME",$L(DGVI)'=2 W Z
47 E W @DGVI,Z,@DGVO
48 Q
Note: See TracBrowser for help on using the repository browser.