| [613] | 1 | DGRPP1 ;ALB/MRL - REGISTRATION SCREEN PROCESSOR (CONTINUED) ;06 JUN 88@2300
|
|---|
| 2 | ;;5.3;Registration;**489,508**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | STR ;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 | ;
|
|---|
| 17 | LT ;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 | ;
|
|---|
| 25 | JUMP ;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 | ;
|
|---|
| 31 | WHICH ; 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 | ;
|
|---|
| 37 | MOREHLP ; 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 | ;
|
|---|
| 45 | W ;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
|
|---|
