source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFHLA04.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: 1.9 KB
Line 
1VAFHLA04 ;ALB/JLU;CREATES THE REGISTRATION MESSAGE;
2 ;;5.3;Registration;**91,179**;Jun 06, 1996
3 ;hl7v1.6
4EN(VAFHDFN,VAFHDT) ;THE MAIN ENTRY POINT FOR THE A04 MESSAGE TYPE
5 ;
6 S ERR="^TMP(""VAFHERR"",$J)" K ^TMP("VAFHERR",$J)
7 I '$D(VAFHDFN)!('$D(VAFHDT)) S @ERR@(1)="-1^Can not build the A04 message. Parameters not defined correctly." D EBULL^VAFHUTL2("","","",ERR) G EX
8 I VAFHDFN=""!(VAFHDT="") S @ERR@(1)="-1^Can not build the A04 message. Parameters are null." D EBULL^VAFHUTL2(VAFHDFN,VAFHDT,"",ERR) G EX
9 ;
10 S VAFHPID="1,2,4,6,7,8,11,12,13,14,16,19"
11 S VAFHZPD="2,3,4,5,6,7,8,9,10,11,12,13,14,15"
12 K HLERR
13 S CTR=1,HLSDT="VAFHREG"
14 K HL D INIT^HLFNC2("VAFH A04",.HL)
15 I $D(HL)#2 G EX
16 ;. S @ERR@(1)="-1^Can not build the A04 message. Failed during HLFNC2"
17 ;. S @ERR@(2)=HL
18 ;. D EBULL^VAFHUTL2(VAFHDFN,VAFHDT,"",ERR)
19 S HLMTN="ADT"_$E(HL("ECH"))_"A04"
20 S VAFHGBL="^TMP(""HLS"",$J)" K ^TMP("HLS",$J)
21 S SING="" ;SINGLE MESSAGES (NOT BATCH)
22 ;
23BAT ;THIS ENTRY POINT IS TO BE CONSIDERED IF A BATCH PROCESS IS NEEDED.
24 ;
25 S VAFHPTR=VAFHDFN_";DPT("
26 S VAFHPIV=$$PIVNW^VAFHPIVT(VAFHDFN,VAFHDT,3,VAFHPTR)
27 I VAFHPIV<0 S @ERR@(1)="-1^Can not build the A04 message. Failed to get a PIVOT entry." D EBULL^VAFHUTL2(VAFHDFN,VAFHDT,"",ERR) G EX
28 S EVN=$$EVN^VAFHLEVN("A04","05") I +EVN=-1 S @ERR@(1)=EVN D EBULL^VAFHUTL2(VAFHDFN,VAFHDT,+VAFHPIV,ERR) G EX
29 S @VAFHGBL@(CTR)=EVN
30 S CTR=CTR+1,@VAFHGBL@(CTR)=$$EN^VAFHLPID(VAFHDFN,VAFHPID)
31 S CTR=CTR+1,@VAFHGBL@(CTR)=$$EN^VAFHLZPD(VAFHDFN,VAFHZPD)
32 S PV1=$$OPV1^VAFHCPV(VAFHDFN,+VAFHPIV,VAFHDT,VAFHPTR,50) I +PV1=-1 S @ERR@(1)=PV1 D EBULL^VAFHUTL2(VAFHDFN,VAFHDT,+VAFHPIV,ERR) G EX
33 ;;;I $P(PV1,HLFS,3)'="O" S $P(PV1,HLFS,3)="T"
34 ;;;I $P(PV1,HLFS,3)]"",$P(PV1,HLFS,3)'="O" S $P(PV1,HLFS,3)="T"
35 S $P(PV1,HLFS,3)="T"
36 S CTR=CTR+1,@VAFHGBL@(CTR)=PV1
37 I $D(SING) DO
38 .D GENERATE^HLMA("VAFH A04","GM",1,.HLRST)
39 ;
40EX ;
41 D KILL^HLTRANS
42 K VAFHGBL,VAFHDT,VAFHPTR,VAFHPID,VAFHZPD,PV1,EVN,CTR,SING,ERR
43 K ^TMP("HLS",$J),^TMP("VAFHERR",$J)
44 Q
Note: See TracBrowser for help on using the repository browser.