source: FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHQST.m@ 858

Last change on this file since 858 was 628, checked in by George Lilly, 16 years ago

initial load of FOIAVistA 6/30/08 version
File size: 4.4 KB
Line 
1DVBHQST ;ISC-ALBANY/PKE/PHH-Process HINQ response ; 3/23/06 7:59am
2 ;;4.0;HINQ;**32,57**;03/25/92
3A S DFN=DVBDFN D:'$D(DT) DT^DICRW I $D(X(1)),$E(X(1),1,4)'="HINQ" G NETERR
4 ;
5 I $D(X)#2,$E(X,1,4)="HINQ" S DVBREQST=$E(X,24,$L(X)-8) K:'$L(DVBREQST) DVBREQST
6 ;
7 G Q:'$D(X(1)) I "456789ABCDUVWZ"'[$E(X(1),5) G N:$E(X(1),6)=2,N:$E(X(1),5)=2,AB:$E(X(1),5)="N",AB:$E(X(1),5)="M",Q:$E(X(1),1,4)'="HINQ"
8 ;
9 S $P(DVBSP," ",35)="",DVBNM=$P(^DPT(DFN,0),U)_DVBSP,DVBNB=" "_DFN_DVBSP,Y=$E(X(1),5),DVBECT=DVBECT+1,DVBSTATS="E" D ERR S DVBTXT(DVBPCT,0)=" "_$E(DVBNM,1,20)_$E(DVBNB,1,11)_Y,DVBPCT=DVBPCT+1 D SET^DVBHQUT Q
10 ;
11ERR I "BC"[Y D RETRY^DVBHIQR Q
12 ;I Y="C" S Y="No Record matches data requested, Retry using CN. or SN. via 'Individual HINQ'." Q
13 I Y=6 S Y="Invalid Employee number Not AUTHORIZED" Q
14 I Y=9 S Y="PASSWORD missing or invalid" Q
15 I Y="X" S Y="Station # does not match Station # of password " Q
16 I Y="Y" S Y="Employee Number in New Person file doesn't match the # in VBA security record" Q
17 ;
18 S Y=$S(Y=4:"File in alert, NOT available",Y=5:"NO C&P record found ",Y=7:"SS # missing or invalid.",Y=8:"NAME missing or invalid.",1:Y) Q:Y'?1U
19 ;
20 S Y=$S(Y="A":"File NOT available",Y="D":"SENSITIVE File no access authorized",Y="U":"Unsuccessful read of password or sensitive file",Y="V":"Invalid CLAIM NUMBER",Y="W":"Invalid SERVICE NUMBER",1:Y)
21 Q
22Q K DVBOTM,DVBV,DVBOXMZ,DVBIXMZ,XMORIG QUIT
23 ;
24NETERR ;
25 S:'$D(DVBZ) DVBZ=^DVB(395.5,DFN,"HQ") S DVBSTATS="V",XMORIG=DUZ,XMDUZ=.5,XMSUB="IDCU Response for ",DVBREQUE="",DFN=+$E(DVBZ,10,21),DVBNETER=X(1) D SET^DVBHQUT Q
26 G Q
27AB S DVBACT=DVBACT+1 D EN^DVBHQR3,EN^DVBHIQM Q
28N S DVBSTATS="N" D SET^DVBHQUT Q
29 ;
30SC ;CHECK SUM need to set DVBCS=0,X(n),DVBSZ
31 N DA
32 I $D(X)#2 S DVBSX=X
33 I DVBSZ=1 S X=$E(X(DVBSZ),1,21)_$E(X(DVBSZ),26,999),DVBXLN=$E(X(DVBSZ),22,25) D O D Q
34 .;compare ien of file #395.5 (i.e., dfn) and $e(x(1),8,21)
35 .;quit if entering from hinq processor either foreground or background
36 .;only want to do this deletion during print/display of hinq response data
37 .Q:+$G(DVBTSK) Q:+$G(DFN)=0
38 .Q:'$D(^DVB(395.5,DFN,"RS",1))
39 .S DVBQDFN=+$E(X(1),8,21) I DVBQDFN'=DFN D
40 ..;if not a match, then delete entry from file #395.5 and send error message
41 ..S JJ=$O(^DVB(395,1,"HQMG",0)),DVBQMG=$P($G(^DVB(395,1,"HQMG",JJ,0)),U,1),DVBQMG=$P($G(^XMB(3.8,DVBQMG,0)),U,1)
42 ..S DA=DFN,DIK="^DVB(395.5," D ^DIK
43 ..S JJ=1
44 ..S ^TMP($J,"DVBQERR",JJ)="Record #"_DFN_" in the HINQ SUSPENSE file (#395.5)" S JJ=JJ+1
45 ..S ^TMP($J,"DVBQERR",JJ)="has been deleted." S JJ=JJ+1
46 ..S ^TMP($J,"DVBQERR",JJ)=" " S JJ=JJ+1
47 ..S ^TMP($J,"DVBQERR",JJ)="This record should have contained HINQ response data on:" S JJ=JJ+1
48 ..S ^TMP($J,"DVBQERR",JJ)=" " S JJ=JJ+1
49 ..S DVBQIENS=DFN_"," D GETS^DIQ(2,DVBQIENS,".01;.03;.09","E","DVBQA","DVBQE")
50 ..S ^TMP($J,"DVBQERR",JJ)="Name: "_$G(DVBQA(2,DVBQIENS,.01,"E")) S JJ=JJ+1
51 ..S ^TMP($J,"DVBQERR",JJ)=" DOB: "_$G(DVBQA(2,DVBQIENS,.03,"E")) S JJ=JJ+1
52 ..S ^TMP($J,"DVBQERR",JJ)=" SSN: "_$G(DVBQA(2,DVBQIENS,.09,"E")) S JJ=JJ+1
53 ..S ^TMP($J,"DVBQERR",JJ)=" " S JJ=JJ+1
54 ..K DVBQA,DVBQE
55 ..S ^TMP($J,"DVBQERR",JJ)="Instead it held HINQ response data for:" S JJ=JJ+1
56 ..S ^TMP($J,"DVBQERR",JJ)=" " S JJ=JJ+1
57 ..S DVBQIENS=DVBQDFN_"," D GETS^DIQ(2,DVBQIENS,".01;.03;.09","E","DVBQA","DVBQE")
58 ..S ^TMP($J,"DVBQERR",JJ)="Name: "_$G(DVBQA(2,DVBQIENS,.01,"E")) S JJ=JJ+1
59 ..S ^TMP($J,"DVBQERR",JJ)=" DOB: "_$G(DVBQA(2,DVBQIENS,.03,"E")) S JJ=JJ+1
60 ..S ^TMP($J,"DVBQERR",JJ)=" SSN: "_$G(DVBQA(2,DVBQIENS,.09,"E")) S JJ=JJ+1
61 ..S ^TMP($J,"DVBQERR",JJ)=" " S JJ=JJ+1
62 ..S ^TMP($J,"DVBQERR",JJ)="Please request new HINQ data on the appropriate veteran" S JJ=JJ+1
63 ..S ^TMP($J,"DVBQERR",JJ)="at your earliest convenience." S JJ=JJ+1
64 ..S XMDUZ=DUZ,XMSUB="HINQ Suspense File IEN#"_DFN_" Deleted",XMTEXT="^TMP($J,""DVBQERR"","
65 ..S XMY(DUZ)="" S:DVBQMG'="" XMY("G."_DVBQMG)=""
66 ..D ^XMD K XMZ
67 ..S DVBERCS=1 K DVBQDFN,DVBQIENS,DVBQA,DVBQE,DVBQMG,DIK,JJ
68 I DVBSZ>1 S X=$E(X(DVBSZ),1,999) D O Q
69 I 'DVBSZ S DVBCS="0000"_DVBCS,DVBCS=$E(DVBCS,($L(DVBCS)-3),$L(DVBCS)) I '$D(DVBECS) S ^(0)=$E(^DVB(395.5,DVBDFN,"RS",1,0),1,21)_DVBCS_$E(^(0),26,999)
70 I DVBXLN'=DVBCS,$D(DVBECS) S:'$D(DVBON) (DVBON,DVBOFF)="""""" D W1
71 I $D(DVBSX) S X=DVBSX
72 D EX
73 Q
74 ;
75EX K DVBXLN,DVBSX Q
76 ;
77O X ^%ZOSF("LPC") S DVBCS=(DVBCS+Y+$L(X))*DVBSZ
78 Q
79 ;
80W1 U IO W !!!!,*7,?15,"HINQ data does NOT seem right",!,?15,"Re-HINQ and/or Notify system manager. ",!,?15,"HINQ check sum failure for ",DVBON,$S($D(^DPT(DFN,0)):$P(^(0),U),1:DFN),DVBOFF,! H 3 S DVBERCS=1
81 Q
Note: See TracBrowser for help on using the repository browser.