Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFHLPID.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFHLPID.m
r628 r636 1 1 VAFHLPID ;ALB/MLI/ESD - Create generic PID segment ; 21 Nov 2002 3:13 PM 2 ;;5.3;Registration;**68,94,415,508 ,749**;Aug 13, 1993;Build 102 ;;5.3;Registration;**68,94,415,508**;Aug 13, 1993 3 3 ; 4 4 ; This routine returns the HL7 defined PID segment with its … … 26 26 ; variables may be altered. 27 27 ; 28 N I,VAFY,VA,VADM,X,X1,Y,OUTPUT,DGNAME, DGMMN,VAPA ; calls VADPT...have to NEW28 N I,VAFY,VA,VADM,X,X1,Y,OUTPUT,DGNAME,VAPA ; calls VADPT...have to NEW 29 29 S VAFSTR=$G(VAFSTR) ; if not defined, just return required fields 30 30 S DFN=$G(DFN) … … 50 50 S X=$$HLNAME^XLFNAME(.DGNAME,"",$E(HLECH)),VAFY(5)=$S(X]"":X,1:HLQ) 51 51 ;Mother's maiden name (#6) 52 I VAFSTR[",6," D 53 .S DGMMN("FILE")=2,DGMMN("IENS")=DFN,DGMMN("FIELD")=.2403 54 .S X=$$HLNAME^XLFNAME(.DGMMN,"",$E(HLECH)),VAFY(6)=$S(X]"":X,1:HLQ) 52 I VAFSTR[",6," S X=$P($G(^DPT(DFN,.24)),"^",3),VAFY(6)=$S(X]"":X,1:HLQ) 55 53 ;Date of birth (#7) 56 54 I VAFSTR[",7," S VAFY(7)=$$HLDATE^HLFNC(+VADM(3))
Note:
See TracChangeset
for help on using the changeset viewer.