Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VAFCA04

VAFCA04.m

Go to the documentation of this file.
  1. VAFCA04 ;ALB/RJS-Creates the Registration Message ; 26 Mar 2003 3:13 PM
  1. ;;5.3;Registration;**91,209,149,261,298,415,484,508**;Aug 13, 1993
  1. ;
  1. ;07/07/00 ACS - Added sequence 21 (physical treating specialty - ward
  1. ;location) and sequence 39 (facility+suffix) to the inpatient string
  1. ;of fields. Added sequence 39 to the outpatient string of fields.
  1. ;
  1. EN(DFN,VAFCDATE,USER,PIVOTPTR) ;
  1. Q:($G(DFN)="")!($G(VAFCDATE)="") "-1^Missing required parameter(s)"
  1. N ERR,VCCI,SITE,FS,VAFCDT,VAFHPIV,REP,DGREL,DGINC,DGINR,DGDEP,VAFSTR
  1. N ICN,CHKSUM,SETICN,SETLOC,HLA,HLRST,PV1,LIN
  1. ;
  1. ;check HL7 V2.3 messaging flag
  1. N SEND S SEND=$P($$SEND^VAFHUTL(),"^",2)
  1. Q:SEND=0 "-1^Stop HL7 V2.3 messaging flag is set"
  1. ;
  1. S USER=+$G(USER)
  1. I 'USER,$D(DUZ) S USER=DUZ
  1. I 'USER,'$D(DUZ) S USER=0
  1. S PIVOTPTR=+$G(PIVOTPTR)
  1. I 'PIVOTPTR D
  1. .S VAFHPIV=+$$PIVNW^VAFHPIVT(DFN,VAFCDATE,3,DFN_";DPT(")
  1. .Q:+VAFHPIV<0
  1. .S PIVOTPTR=+$O(^VAT(391.71,"D",VAFHPIV,0))
  1. ;
  1. Q:+$G(VAFHPIV)<0 "-1^Could Not Create ADT/HL7 Pivot file entry"
  1. K ERR
  1. ;log edited field(s) in the ADT/HL7
  1. I $D(VAFCFLDS) D
  1. . S VAFCFLDS=$$PROCESS^VAFCDD01()
  1. . Q:VAFCFLDS'=-1
  1. . D REGEDIT^VAFCDD01(PIVOTPTR,VAFCFLDS)
  1. ;Messaging flag set to SUSPEND - flag entry in ADT/HL7 Pivot file
  1. ; for transmission and quit
  1. I SEND=2 D TRANSMIT^VAFCDD01(PIVOTPTR) Q 1
  1. K VAFCFLDS
  1. D INIT^HLFNC2("VAFC ADT-A04 SERVER",.HL)
  1. Q:$G(HL)]"" "-1^VAFC A04 SERVER NOT DEFINED PROPERLY"
  1. S FS=HL("FS"),REP=$E(HL("ECH"))
  1. ;
  1. S VAFCDT=$$HLDATE^HLFNC(VAFCDATE,"TS")
  1. S HLA("HLS",1)="EVN"_HLFS_"A04"_HLFS_VAFCDT_HLFS_HLFS_HLFS_USER_REP
  1. S DIC="^VA(200,",DIC(0)="MZO",X="`"_USER D ^DIC K DIC
  1. N DGNAME S DGNAME("FILE")=200,DGNAME("IENS")=USER,DGNAME("FIELD")=.01
  1. I USER'=0 S HLA("HLS",1)=HLA("HLS",1)_$$HLNAME^XLFNAME(.DGNAME,"",$E($G(HLECH)))
  1. ; ^ possible to not have a user defined
  1. S LIN=1
  1. K Y S VAFSTR=$$COMMANUM^VAFCADT2(1,9)_",10B,11PC,"_$$COMMANUM^VAFCADT2(13,21)_",22B,"_$$COMMANUM^VAFCADT2(23,30)
  1. S HLA("HLS",$$ADD(.LIN,1))=$$EN^VAFCPID(DFN,VAFSTR)
  1. ;CHECK IF PATIENT HAS AN ICN
  1. I $P(HLA("HLS",LIN),HLFS,3)=HLQ D
  1. . N X S X="MPIF001" X ^%ZOSF("TEST") Q:'$T
  1. . ; if patient does not have an ICN still pass HLQ
  1. . S ICN=$$GETICN^MPIF001(DFN)
  1. . I +ICN>0 S $P(HLA("HLS",LIN),HLFS,3)=ICN
  1. MERGE HLA("HLS",LIN)=VAFPID K VAFPID
  1. S VAFSTR=$$COMMANUM^VAFCADT2(1,12)
  1. S HLA("HLS",$$ADD(.LIN,1))=$$EN^VAFHLPD1(DFN,VAFSTR)
  1. S VAFHPIV=$P($G(^VAT(391.71,PIVOTPTR,0)),"^",2)
  1. Q:VAFHPIV'>0 "-1^COULDN'T FIND PIVOT ENTRY"
  1. I $G(^DPT(DFN,.1))]"" D
  1. . S PV1=$$EN^VAFHAPV1(DFN,VAFCDATE,",2,3,7,8,10,18,21,39,44,45,50")
  1. . S HLA("HLS",$$ADD(.LIN,1))=PV1
  1. . S VAFSTR=$$COMMANUM^VAFCADT2(1,4)
  1. . N HLAROL
  1. . D BLDROL^VAFCROL("HLAROL",DFN,VAFCDATE,VAFSTR,VAFHPIV)
  1. . N I,J,K
  1. . S I=""
  1. . F K=1:1 S I=+$O(HLAROL(I)) Q:('I) D
  1. . . S J=""
  1. . . F S J=$O(HLAROL(I,J)) Q:(J="") D
  1. . . . S:('J) HLA("HLS",LIN+K)=HLAROL(I,J)
  1. . . . S:(J) HLA("HLS",LIN+K,J)=HLAROL(I,J)
  1. . S LIN=LIN+K-1
  1. E D
  1. . S PV1=$$OPV1^VAFHCPV(DFN,+VAFHPIV,VAFCDATE,DFN_";DPT(",",2,3,7,18,39,45,50",1)
  1. . S HLA("HLS",$$ADD(.LIN,1))=PV1
  1. S HLA("HLS",$$ADD(.LIN,1))=$$EN^VAFHLOBX(DFN)
  1. S VAFSTR=$$COMMANUM^VAFCADT2(1,21)
  1. S HLA("HLS",$$ADD(.LIN,1))=$$EN^VAFHLZPD(DFN,VAFSTR)
  1. S VAFSTR=$$COMMANUM^VAFCADT2(1,5)
  1. S HLA("HLS",$$ADD(.LIN,1))=$$EN^VAFHLZSP(DFN)
  1. S VAFSTR=$$COMMANUM^VAFCADT2(1,22)
  1. S HLA("HLS",$$ADD(.LIN,1))=$$EN^VAFHLZEL(DFN,VAFSTR)
  1. S HLA("HLS",$$ADD(.LIN,1))=$$EN^VAFHLZCT(DFN,"1,2,3,4,5,6,7,8,9")
  1. S HLA("HLS",$$ADD(.LIN,1))=$$EN^VAFHLZEM(DFN,"1,2,3,4,5,6,7,8")
  1. S HLA("HLS",$$ADD(.LIN,1))="ZFF"_HL("FS")_2_HL("FS")_$P($G(^VAT(391.71,+$G(PIVOTPTR),2)),U)
  1. D ALL^DGMTU21(DFN,"V",VAFCDATE,"R")
  1. S VAFSTR=$$COMMANUM^VAFCADT2(1,13)
  1. S HLA("HLS",$$ADD(.LIN,1))=$$EN^VAFHLZIR(+$G(DGINR("V")),VAFSTR,1)
  1. S VAFSTR=$$COMMANUM^VAFCADT2(1,10)
  1. S HLA("HLS",$$ADD(.LIN,1))=$$EN^VAFHLZEN(DFN,VAFSTR,1,HL("Q"),HL("FS"))
  1. D GENERATE^HLMA("VAFC ADT-A04 SERVER","LM",1,.HLRST,"",.HL)
  1. ;Store result in pivot file
  1. S HLRST=$S(+HLRST:HLRST,1:$P(HLRST,U,3))
  1. I +HLRST>0 D MESSAGE^VAFCDD01(PIVOTPTR,+HLRST)
  1. D FILERM^VAFCUTL($O(^VAT(391.71,"D",+VAFHPIV,0)),HLRST)
  1. ;
  1. EX ;
  1. Q 1
  1. ;
  1. ADD(LINE,COUNTER) ;Increments Line = Line + Counter
  1. ;Input : LINE - Line number
  1. ; COUNTER - Increment number
  1. ;Output : Updated LINE value
  1. ;
  1. S LINE=$G(LINE),COUNTER=$G(COUNTER)
  1. S LINE=LINE+COUNTER
  1. Q LINE
  1. ;
  1. HL7A04(PIVOTNUM,IEN) ;
  1. ;A new Registration was created capture the key demographic data.
  1. ;Create an HL7 V2.3 entry in the ADT/HL PIVOT file so that the
  1. ;demographic data can be broadcasted.
  1. ; VAFCFLDS is set in routine VAFCDD01. It contains the
  1. ; fields that were edited.