VAFHLFNC ;ALB/MLI,JAM - Generic functions for MAS HL7 Interface ;27 Feb 93
;;5.3;Registration;**33,122,997**;Aug 13, 1993;Build 42
;
; This routine contains generic MAS functions used to interface with
; the DHCP HL7 package
;
;
ADDR(VAFADDR,VAFCOUNT) ; returns address in HL7 format
;
; NOTE: THIS MAY BE REPLACED WITH AN HL7 CALL IN THE FUTURE
;
; Input - VAFADDR as address in format:
; line1^line2^line3^city^state^zip^country ien^province^postal code
; DG*5.3*997;JAM; Country, Province, Postal code fields added for ZCT and ZGD segments
; VAFCOUNT as internal value of county (optional)
;
; ****Also assumes all HL7 variables returned from****
; INIT^HLTRANS are defined
;
; Output - HL7 formated Address_HLFS_County Code (if requested)
;
N X,Y
S X=$E(HLECH) ; first component separator
S $P(Y,X,1)=$P(VAFADDR,"^",1) ; line 1
S $P(Y,X,2)=$P(VAFADDR,"^",2)_$S($P(VAFADDR,"^",3)]"":" "_$P(VAFADDR,"^",3),1:"") ; lines 2 & 3
S $P(Y,X,3)=$P(VAFADDR,"^",4) ; city
; DG*5.3*997;JAM; If country code passed in, return .01 field in 6th piece and get flag for Foreign address
; ICR 5768 Supported ICR for File 779.004
N DGCNTRY,DGFOR
S DGCNTRY=$P(VAFADDR,"^",7)
I DGCNTRY]"" D
. S $P(Y,X,6)=$$GET1^DIQ(779.004,DGCNTRY_",",.01) ; country
. S DGFOR=$S($$FORIEN^DGADDUTL(DGCNTRY)<1:0,1:1) ;set foreign country flag =1, else, set as domestic
; DG*5.3*997; jam; If Foreign address, pass back postal code in place of zip and province in place of state
I $G(DGFOR)=1 D
.S $P(Y,X,5)=$P(VAFADDR,"^",9) ; postal code
.S $P(Y,X,4)=$P(VAFADDR,"^",8) ; province
E D ; DG*5.3*997;jam; else pass back zip and state
.S $P(Y,X,5)=$P(VAFADDR,"^",6) ; zip
.S $P(Y,X,4)=$P($G(^DIC(5,+$P(VAFADDR,"^",5),0)),"^",2) ; state abbr
I $G(VAFCOUNT) D ; county
.S $P(Y,HLFS,2)=$P($G(^DIC(5,+$P(VAFADDR,"^",5),1,+$G(VAFCOUNT),0)),"^",3)
.I $P(Y,HLFS,2)']"" S $P(Y,HLFS,2)=HLQ
I $P(Y,HLFS,1)=(X_X_X_X) S $P(Y,HLFS,1)=HLQ ; if no data...only component separator
Q Y
;
;
INS(DFN,VAFDT) ; call to see if pt has active insurance
;
; Input - DFN as internal entry number of PATIENT file
; VAFDT [optional] as date to compute ins coverage for
;
; Output - 1 if yes, 0 if no
;
INSQ Q $$INSURED^IBCNS1(DFN,$G(VAFDT))
;
;
YN(X) ; extrinsic function to convert YES/NO responses to 1/0
; (format of MAS-HL7 table VA01)
;
; Input - X as value of DHCP yes/no field
;
; Output - 1 if yes, 0 if no, or "" otherwise
;
S X=$TR($E(X),"Yy1Nn0","111000")
Q $S(X=1:X,X=0:0,1:HLQ)
;
STATION(INSTPTR) ;
;Description: Returns the facility number, including the suffix.
;
;Input:
; INSTPTR - ien, record in the INSTITUTION file
;Output:
; Function value - If unsuccessful, returns NULL, otherwise the facility number, including suffix
;
Q:'$G(INSTPTR) ""
Q $P($G(^DIC(4,INSTPTR,99)),"^",1)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAFHLFNC 2967 printed Dec 13, 2024@03:02:58 Page 2
VAFHLFNC ;ALB/MLI,JAM - Generic functions for MAS HL7 Interface ;27 Feb 93
+1 ;;5.3;Registration;**33,122,997**;Aug 13, 1993;Build 42
+2 ;
+3 ; This routine contains generic MAS functions used to interface with
+4 ; the DHCP HL7 package
+5 ;
+6 ;
ADDR(VAFADDR,VAFCOUNT) ; returns address in HL7 format
+1 ;
+2 ; NOTE: THIS MAY BE REPLACED WITH AN HL7 CALL IN THE FUTURE
+3 ;
+4 ; Input - VAFADDR as address in format:
+5 ; line1^line2^line3^city^state^zip^country ien^province^postal code
+6 ; DG*5.3*997;JAM; Country, Province, Postal code fields added for ZCT and ZGD segments
+7 ; VAFCOUNT as internal value of county (optional)
+8 ;
+9 ; ****Also assumes all HL7 variables returned from****
+10 ; INIT^HLTRANS are defined
+11 ;
+12 ; Output - HL7 formated Address_HLFS_County Code (if requested)
+13 ;
+14 NEW X,Y
+15 ; first component separator
SET X=$EXTRACT(HLECH)
+16 ; line 1
SET $PIECE(Y,X,1)=$PIECE(VAFADDR,"^",1)
+17 ; lines 2 & 3
SET $PIECE(Y,X,2)=$PIECE(VAFADDR,"^",2)_$SELECT($PIECE(VAFADDR,"^",3)]"":" "_$PIECE(VAFADDR,"^",3),1:"")
+18 ; city
SET $PIECE(Y,X,3)=$PIECE(VAFADDR,"^",4)
+19 ; DG*5.3*997;JAM; If country code passed in, return .01 field in 6th piece and get flag for Foreign address
+20 ; ICR 5768 Supported ICR for File 779.004
+21 NEW DGCNTRY,DGFOR
+22 SET DGCNTRY=$PIECE(VAFADDR,"^",7)
+23 IF DGCNTRY]""
Begin DoDot:1
+24 ; country
SET $PIECE(Y,X,6)=$$GET1^DIQ(779.004,DGCNTRY_",",.01)
+25 ;set foreign country flag =1, else, set as domestic
SET DGFOR=$SELECT($$FORIEN^DGADDUTL(DGCNTRY)<1:0,1:1)
End DoDot:1
+26 ; DG*5.3*997; jam; If Foreign address, pass back postal code in place of zip and province in place of state
+27 IF $GET(DGFOR)=1
Begin DoDot:1
+28 ; postal code
SET $PIECE(Y,X,5)=$PIECE(VAFADDR,"^",9)
+29 ; province
SET $PIECE(Y,X,4)=$PIECE(VAFADDR,"^",8)
End DoDot:1
+30 ; DG*5.3*997;jam; else pass back zip and state
IF '$TEST
Begin DoDot:1
+31 ; zip
SET $PIECE(Y,X,5)=$PIECE(VAFADDR,"^",6)
+32 ; state abbr
SET $PIECE(Y,X,4)=$PIECE($GET(^DIC(5,+$PIECE(VAFADDR,"^",5),0)),"^",2)
End DoDot:1
+33 ; county
IF $GET(VAFCOUNT)
Begin DoDot:1
+34 SET $PIECE(Y,HLFS,2)=$PIECE($GET(^DIC(5,+$PIECE(VAFADDR,"^",5),1,+$GET(VAFCOUNT),0)),"^",3)
+35 IF $PIECE(Y,HLFS,2)']""
SET $PIECE(Y,HLFS,2)=HLQ
End DoDot:1
+36 ; if no data...only component separator
IF $PIECE(Y,HLFS,1)=(X_X_X_X)
SET $PIECE(Y,HLFS,1)=HLQ
+37 QUIT Y
+38 ;
+39 ;
INS(DFN,VAFDT) ; call to see if pt has active insurance
+1 ;
+2 ; Input - DFN as internal entry number of PATIENT file
+3 ; VAFDT [optional] as date to compute ins coverage for
+4 ;
+5 ; Output - 1 if yes, 0 if no
+6 ;
INSQ QUIT $$INSURED^IBCNS1(DFN,$GET(VAFDT))
+1 ;
+2 ;
YN(X) ; extrinsic function to convert YES/NO responses to 1/0
+1 ; (format of MAS-HL7 table VA01)
+2 ;
+3 ; Input - X as value of DHCP yes/no field
+4 ;
+5 ; Output - 1 if yes, 0 if no, or "" otherwise
+6 ;
+7 SET X=$TRANSLATE($EXTRACT(X),"Yy1Nn0","111000")
+8 QUIT $SELECT(X=1:X,X=0:0,1:HLQ)
+9 ;
STATION(INSTPTR) ;
+1 ;Description: Returns the facility number, including the suffix.
+2 ;
+3 ;Input:
+4 ; INSTPTR - ien, record in the INSTITUTION file
+5 ;Output:
+6 ; Function value - If unsuccessful, returns NULL, otherwise the facility number, including suffix
+7 ;
+8 if '$GET(INSTPTR)
QUIT ""
+9 QUIT $PIECE($GET(^DIC(4,INSTPTR,99)),"^",1)
