source: WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBUCPEND.m@ 1608

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

initial load of WorldVistAEHR
File size: 3.4 KB
RevLine 
[613]1FBUCPEND ;ALBISC/TET - UNAUTHORIZED CLAIM PENDING INFO ;11/15/2001
2 ;;3.5;FEE BASIS;**38**;JAN 30, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4REQ ;request pending information, called from fbucen & fbuced
5 ;INPUT: FBDA = internal entry number of unauthorized claim
6 ; displays from file 162.93, requested information
7 ;OUTPUT: FBARY = array of user selection, FBOUT = 1 if timed out, otherwise 0
8 S:'$D(FBOUT) FBOUT=0
9 I +$G(FBDA) D DISP8^FBUCUTL5(FBDA) Q:FBOUT ;check if any info requested and not received
10 I +$G(^TMP("FBAR",$J,"FBAR")) W @IOF,!,"The following information has been requested:",!! D Q:FBOUT
11 .D DISPX^FBUCUTL1(0) K ^TMP("FBAR",$J) ;F FBZ=1:1:$S((IOSL-$Y)'>0:1,1:(IOSL-($Y+15))) W !
12 .W:($Y+4)>IOSL ! D CR^FBUCUTL1 Q:FBOUT ;return to continue
13 D DISP9^FBUCUTL5(162.93) ;set array for selection
14 D DISPX^FBUCUTL1(2) Q:FBOUT ;display/select choices, and display selection
15 N FBI,FBZ,Y
16 I +$G(FBARY) S FBI=0 F S FBI=$O(^TMP("FBARY",$J,FBI)) Q:'FBI D
17 . K DIR
18 . S FBZ=$G(^TMP("FBARY",$J,FBI))
19 . I FBZ[";OTHER" S DIR(0)="162.8,.04",DIR("A")="OTHER Reason"
20 . I FBZ[";SIGNED STATEMENT FROM CLAIMANT" D
21 . . S DIR(0)="Y"
22 . . S DIR("A")="Print 38 CFR 17.1002 and 17.1003 text on letter"
23 . . S DIR("B")="YES"
24 . . S DIR("?",1)="Enter NO if the text of the regulations should not be printed on the"
25 . . S DIR("?",2)="letter that requests additional information from the claimant."
26 . . S DIR("?",3)=" "
27 . . S DIR("?")="Enter either 'Y' or 'N'."
28 . Q:'$D(DIR)
29 . D ^DIR K DIR S:$D(DIRUT) FBOUT=1
30 . S:'FBOUT ^TMP("FBARY",$J,FBI,"PEND")=Y_$S(FBZ[";SIGNED STATEMENT FROM CLAIMANT":" PRINT REGS",1:"")
31 K ^TMP("FBAR",$J) Q
32FREQ ;file requests, called from fbucen & fbuced
33 ;INPUT: FBDA = ien of 162.7, unauthorized claim
34 ; FBARY = array of user selection
35 ;OUTPUT: none, updates file 162.8, unauthorized claim pending info
36 N DA,DIC,FBCT,FBLOCK,FBOTHER,FBPEND,FBPI,FBZ,X,Y
37 S DIC="^FBAA(162.8,",DIC(0)="MZ",FBPI=0
38 F S FBPI=$O(^TMP("FBARY",$J,FBPI)) Q:'FBPI S FBZ=$G(^(FBPI)),FBPEND=+FBZ D
39 .N FBDUP,FBZZ,FBI S (FBI,FBDUP)=0 F S FBI=$O(^FBAA(162.8,"AUI",FBDA,FBPEND,FBI)) Q:'FBI!(FBDUP) S FBZZ=$G(^FBAA(162.8,FBI,0)) I FBZZ]"",'$P(FBZZ,U,5) S FBDUP=1
40 .I 'FBDUP,$G(^FB(162.93,FBPEND,0))]"" S X=DT K DD,DO D FILE^DICN I $P(Y,U,3) D ;file info requested if not already requested or requested and received
41 ..S FBOTHER=$G(^TMP("FBARY",$J,FBPI,"PEND")),DIE=DIC,DR="[FB UNAUTHORIZED PENDING]",DA=+Y
42 ..D LOCK^FBUCUTL(DIE,DA,1) I FBLOCK D ^DIE L -^FBAA(162.8,DA) K DA,DR,DQ,FBLOCK
43 K FBARY,^TMP("FBARY",$J) Q
44REC ;receive info selection, called from fbuced
45 ;INPUT: FBDA = ien of unauthorized claim - displays what has been requested
46 ;OUTPUT: FBARY = array of user selection, FBOUT = 1 if timed out, otherwise 0
47 D DISP8^FBUCUTL5(FBDA) Q:FBOUT
48 D DISPX^FBUCUTL1(2)
49 K ^TMP("FBAR",$J) Q
50FREC ;file data for received info, called from fbuced
51 ;INPUT: FBDA = ien of 162.7, unauthorized claim
52 ; FBARY = array of user selection
53 ;OUTPUT: none, updates file 162.8, unauthorized claim pending info
54 N FBARY,FBI,FBLOCK,FBX,FBZ,DA,DIE,DR S FBARY=$G(^TMP("FBARY",$J,"FBARY"))
55 I +FBARY S DIE="^FBAA(162.8,",DR=".05///^S X=DT;.06////^S X=DUZ" S FBI=0 F S FBI=$O(^TMP("FBARY",$J,FBI)) Q:'FBI S FBZ=$G(^TMP("FBARY",$J,FBI)) I FBZ]"" D
56 .S FBX=$P($P(FBZ,";",2),U) I FBX="OTHER",$P(FBZ,U,3)]"" S FBX=$P(FBZ,U,3)
57 .S DA=+FBZ I DA D LOCK^FBUCUTL(DIE,DA,1) I FBLOCK D ^DIE L -^FBAA(162.8,DA) W !,"Receiving ",FBX K DA,FBLOCK
58 K DIE,DA,DR,^TMP("FBARY",$J),FBARY Q
Note: See TracBrowser for help on using the repository browser.