FBUCPEND ;ALBISC/TET - UNAUTHORIZED CLAIM PENDING INFO ;11/15/2001
;;3.5;FEE BASIS;**38**;JAN 30, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
REQ ;request pending information, called from fbucen & fbuced
;INPUT: FBDA = internal entry number of unauthorized claim
; displays from file 162.93, requested information
;OUTPUT: FBARY = array of user selection, FBOUT = 1 if timed out, otherwise 0
S:'$D(FBOUT) FBOUT=0
I +$G(FBDA) D DISP8^FBUCUTL5(FBDA) Q:FBOUT ;check if any info requested and not received
I +$G(^TMP("FBAR",$J,"FBAR")) W @IOF,!,"The following information has been requested:",!! D Q:FBOUT
.D DISPX^FBUCUTL1(0) K ^TMP("FBAR",$J) ;F FBZ=1:1:$S((IOSL-$Y)'>0:1,1:(IOSL-($Y+15))) W !
.W:($Y+4)>IOSL ! D CR^FBUCUTL1 Q:FBOUT ;return to continue
D DISP9^FBUCUTL5(162.93) ;set array for selection
D DISPX^FBUCUTL1(2) Q:FBOUT ;display/select choices, and display selection
N FBI,FBZ,Y
I +$G(FBARY) S FBI=0 F S FBI=$O(^TMP("FBARY",$J,FBI)) Q:'FBI D
. K DIR
. S FBZ=$G(^TMP("FBARY",$J,FBI))
. I FBZ[";OTHER" S DIR(0)="162.8,.04",DIR("A")="OTHER Reason"
. I FBZ[";SIGNED STATEMENT FROM CLAIMANT" D
. . S DIR(0)="Y"
. . S DIR("A")="Print 38 CFR 17.1002 and 17.1003 text on letter"
. . S DIR("B")="YES"
. . S DIR("?",1)="Enter NO if the text of the regulations should not be printed on the"
. . S DIR("?",2)="letter that requests additional information from the claimant."
. . S DIR("?",3)=" "
. . S DIR("?")="Enter either 'Y' or 'N'."
. Q:'$D(DIR)
. D ^DIR K DIR S:$D(DIRUT) FBOUT=1
. S:'FBOUT ^TMP("FBARY",$J,FBI,"PEND")=Y_$S(FBZ[";SIGNED STATEMENT FROM CLAIMANT":" PRINT REGS",1:"")
K ^TMP("FBAR",$J) Q
FREQ ;file requests, called from fbucen & fbuced
;INPUT: FBDA = ien of 162.7, unauthorized claim
; FBARY = array of user selection
;OUTPUT: none, updates file 162.8, unauthorized claim pending info
N DA,DIC,FBCT,FBLOCK,FBOTHER,FBPEND,FBPI,FBZ,X,Y
S DIC="^FBAA(162.8,",DIC(0)="MZ",FBPI=0
F S FBPI=$O(^TMP("FBARY",$J,FBPI)) Q:'FBPI S FBZ=$G(^(FBPI)),FBPEND=+FBZ D
.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
.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
..S FBOTHER=$G(^TMP("FBARY",$J,FBPI,"PEND")),DIE=DIC,DR="[FB UNAUTHORIZED PENDING]",DA=+Y
..D LOCK^FBUCUTL(DIE,DA,1) I FBLOCK D ^DIE L -^FBAA(162.8,DA) K DA,DR,DQ,FBLOCK
K FBARY,^TMP("FBARY",$J) Q
REC ;receive info selection, called from fbuced
;INPUT: FBDA = ien of unauthorized claim - displays what has been requested
;OUTPUT: FBARY = array of user selection, FBOUT = 1 if timed out, otherwise 0
D DISP8^FBUCUTL5(FBDA) Q:FBOUT
D DISPX^FBUCUTL1(2)
K ^TMP("FBAR",$J) Q
FREC ;file data for received info, called from fbuced
;INPUT: FBDA = ien of 162.7, unauthorized claim
; FBARY = array of user selection
;OUTPUT: none, updates file 162.8, unauthorized claim pending info
N FBARY,FBI,FBLOCK,FBX,FBZ,DA,DIE,DR S FBARY=$G(^TMP("FBARY",$J,"FBARY"))
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
.S FBX=$P($P(FBZ,";",2),U) I FBX="OTHER",$P(FBZ,U,3)]"" S FBX=$P(FBZ,U,3)
.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
K DIE,DA,DR,^TMP("FBARY",$J),FBARY Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFBUCPEND 3579 printed Oct 16, 2024@18:01:15 Page 2
FBUCPEND ;ALBISC/TET - UNAUTHORIZED CLAIM PENDING INFO ;11/15/2001
+1 ;;3.5;FEE BASIS;**38**;JAN 30, 1995
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
REQ ;request pending information, called from fbucen & fbuced
+1 ;INPUT: FBDA = internal entry number of unauthorized claim
+2 ; displays from file 162.93, requested information
+3 ;OUTPUT: FBARY = array of user selection, FBOUT = 1 if timed out, otherwise 0
+4 if '$DATA(FBOUT)
SET FBOUT=0
+5 ;check if any info requested and not received
IF +$GET(FBDA)
DO DISP8^FBUCUTL5(FBDA)
if FBOUT
QUIT
+6 IF +$GET(^TMP("FBAR",$JOB,"FBAR"))
WRITE @IOF,!,"The following information has been requested:",!!
Begin DoDot:1
+7 ;F FBZ=1:1:$S((IOSL-$Y)'>0:1,1:(IOSL-($Y+15))) W !
DO DISPX^FBUCUTL1(0)
KILL ^TMP("FBAR",$JOB)
+8 ;return to continue
if ($Y+4)>IOSL
WRITE !
DO CR^FBUCUTL1
if FBOUT
QUIT
End DoDot:1
if FBOUT
QUIT
+9 ;set array for selection
DO DISP9^FBUCUTL5(162.93)
+10 ;display/select choices, and display selection
DO DISPX^FBUCUTL1(2)
if FBOUT
QUIT
+11 NEW FBI,FBZ,Y
+12 IF +$GET(FBARY)
SET FBI=0
FOR
SET FBI=$ORDER(^TMP("FBARY",$JOB,FBI))
if 'FBI
QUIT
Begin DoDot:1
+13 KILL DIR
+14 SET FBZ=$GET(^TMP("FBARY",$JOB,FBI))
+15 IF FBZ[";OTHER"
SET DIR(0)="162.8,.04"
SET DIR("A")="OTHER Reason"
+16 IF FBZ[";SIGNED STATEMENT FROM CLAIMANT"
Begin DoDot:2
+17 SET DIR(0)="Y"
+18 SET DIR("A")="Print 38 CFR 17.1002 and 17.1003 text on letter"
+19 SET DIR("B")="YES"
+20 SET DIR("?",1)="Enter NO if the text of the regulations should not be printed on the"
+21 SET DIR("?",2)="letter that requests additional information from the claimant."
+22 SET DIR("?",3)=" "
+23 SET DIR("?")="Enter either 'Y' or 'N'."
End DoDot:2
+24 if '$DATA(DIR)
QUIT
+25 DO ^DIR
KILL DIR
if $DATA(DIRUT)
SET FBOUT=1
+26 if 'FBOUT
SET ^TMP("FBARY",$JOB,FBI,"PEND")=Y_$SELECT(FBZ[";SIGNED STATEMENT FROM CLAIMANT":" PRINT REGS",1:"")
End DoDot:1
+27 KILL ^TMP("FBAR",$JOB)
QUIT
FREQ ;file requests, called from fbucen & fbuced
+1 ;INPUT: FBDA = ien of 162.7, unauthorized claim
+2 ; FBARY = array of user selection
+3 ;OUTPUT: none, updates file 162.8, unauthorized claim pending info
+4 NEW DA,DIC,FBCT,FBLOCK,FBOTHER,FBPEND,FBPI,FBZ,X,Y
+5 SET DIC="^FBAA(162.8,"
SET DIC(0)="MZ"
SET FBPI=0
+6 FOR
SET FBPI=$ORDER(^TMP("FBARY",$JOB,FBPI))
if 'FBPI
QUIT
SET FBZ=$GET(^(FBPI))
SET FBPEND=+FBZ
Begin DoDot:1
+7 NEW FBDUP,FBZZ,FBI
SET (FBI,FBDUP)=0
FOR
SET FBI=$ORDER(^FBAA(162.8,"AUI",FBDA,FBPEND,FBI))
if 'FBI!(FBDUP)
QUIT
SET FBZZ=$GET(^FBAA(162.8,FBI,0))
IF FBZZ]""
IF '$PIECE(FBZZ,U,5)
SET FBDUP=1
+8 ;file info requested if not already requested or requested and received
IF 'FBDUP
IF $GET(^FB(162.93,FBPEND,0))]""
SET X=DT
KILL DD,DO
DO FILE^DICN
IF $PIECE(Y,U,3)
Begin DoDot:2
+9 SET FBOTHER=$GET(^TMP("FBARY",$JOB,FBPI,"PEND"))
SET DIE=DIC
SET DR="[FB UNAUTHORIZED PENDING]"
SET DA=+Y
+10 DO LOCK^FBUCUTL(DIE,DA,1)
IF FBLOCK
DO ^DIE
LOCK -^FBAA(162.8,DA)
KILL DA,DR,DQ,FBLOCK
End DoDot:2
End DoDot:1
+11 KILL FBARY,^TMP("FBARY",$JOB)
QUIT
REC ;receive info selection, called from fbuced
+1 ;INPUT: FBDA = ien of unauthorized claim - displays what has been requested
+2 ;OUTPUT: FBARY = array of user selection, FBOUT = 1 if timed out, otherwise 0
+3 DO DISP8^FBUCUTL5(FBDA)
if FBOUT
QUIT
+4 DO DISPX^FBUCUTL1(2)
+5 KILL ^TMP("FBAR",$JOB)
QUIT
FREC ;file data for received info, called from fbuced
+1 ;INPUT: FBDA = ien of 162.7, unauthorized claim
+2 ; FBARY = array of user selection
+3 ;OUTPUT: none, updates file 162.8, unauthorized claim pending info
+4 NEW FBARY,FBI,FBLOCK,FBX,FBZ,DA,DIE,DR
SET FBARY=$GET(^TMP("FBARY",$JOB,"FBARY"))
+5 IF +FBARY
SET DIE="^FBAA(162.8,"
SET DR=".05///^S X=DT;.06////^S X=DUZ"
SET FBI=0
FOR
SET FBI=$ORDER(^TMP("FBARY",$JOB,FBI))
if 'FBI
QUIT
SET FBZ=$GET(^TMP("FBARY",$JOB,FBI))
IF FBZ]""
Begin DoDot:1
+6 SET FBX=$PIECE($PIECE(FBZ,";",2),U)
IF FBX="OTHER"
IF $PIECE(FBZ,U,3)]""
SET FBX=$PIECE(FBZ,U,3)
+7 SET DA=+FBZ
IF DA
DO LOCK^FBUCUTL(DIE,DA,1)
IF FBLOCK
DO ^DIE
LOCK -^FBAA(162.8,DA)
WRITE !,"Receiving ",FBX
KILL DA,FBLOCK
End DoDot:1
+8 KILL DIE,DA,DR,^TMP("FBARY",$JOB),FBARY
QUIT
