Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRUGA22.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/DGRUGA22.m
r628 r636 1 DGRUGA22 ;ALB/GRR - HL7 ADT A22 MESSAGE BUILDER ; 11/7/07 3:45pm2 ;;5.3;Registration;**190 ,762**;Aug 13, 1993;Build31 DGRUGA22 ;ALB/GRR - HL7 ADT A22 MESSAGE BUILDER ;8/5/99 15:36 2 ;;5.3;Registration;**190**;Aug 13, 1993 3 3 ; 4 4 ;This routine will build a ADT A22 (From Leave of Absence) HL7 message for an inpatient. … … 14 14 N DGPV1,DGCNT,DGMDT,DGCDT,DGOADT,DGICD,DGICDCNT,DGIN,DGINCNT S DGCNT=0 15 15 Q:DGARRAY="" ;Required output variable name was not passed 16 K @DGARRAY ;Kill output array to insure erron eous data does not exist16 K @DGARRAY ;Kill output array to insure erronuous data does not exist 17 17 Q:DGMIEN="" 18 18 S DGMDT=$$GET1^DIQ(405,DGMIEN,".01","I") … … 28 28 I DGOADT]"" S $P(DGPV1,HL("FS"),45)=$$HLDATE^HLFNC(DGOADT) 29 29 S DGPV1=$$DOCID^DGRUUTL(DGPV1) 30 N VAIP,DGW,DGRM D IN5^VADPT S DGW=$P(VAIP(5),"^",2),DGRM=$P(VAIP(6),"^",2),$P(DGPV1,HL("FS"),4)=DGW_$E(HLECH)_DGRM K VAIP ; P-76231 30 S @DGARRAY@(DGCNT)=$$LOCTRAN^DGRUUTL1(DGPV1) ;Translate Ward and Room-Bed name, store into array 32 31 S DGMTYP=$$GET1^DIQ(405,DGMIEN,.18,"I") ;Get Movement Type
Note:
See TracChangeset
for help on using the changeset viewer.