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

VAFHLPV2.m

Go to the documentation of this file.
  1. VAFHLPV2 ;ALB/GRR - HL7 PV2 SEGMENT BUILDER ; 3/6/06 8:25am
  1. ;;5.3;Registration;**190,692**;Aug 13, 1993
  1. ;
  1. ;This routine will build an HL7 PV2 segment for an inpatient.
  1. ;
  1. EN(DFN,VAFHMIEN,VAFSTR) ;Entry point of routine
  1. ;DFN - Patient Internal Entry Number
  1. ;VAFHMIEN - Patient Movement Internal Entry Number
  1. ;VAFSTR - Sequence numbers to include in message
  1. ;
  1. N VAFHLREC,VAFHA,VAFHSUB S VAFHSUB="" ;Initialize variables
  1. S $P(VAFHLREC,HL("FS"))="PV2" ;Set segment type to PV2
  1. S VAFHMIEN=$$GETAMOV^DGRUUTL(DFN) I VAFHMIEN="" G QUITPV2 ;If movement ien not passed, get admission movement and quit if none
  1. I VAFSTR[",3," D
  1. .S VAFHA=$$GET1^DIQ(405,VAFHMIEN,".11","I") ;retrieve 'Admitted for SC Condition' field
  1. .I VAFHA=1 D ;If admitted for SC condition do following
  1. ..S $P(VAFHSUB,$E(HL("ECH")),4)="SC"
  1. ..S $P(VAFHSUB,$E(HL("ECH")),5)="ADMITTED FOR SC CONDITION"
  1. ..S $P(VAFHSUB,$E(HL("ECH")),6)="VA0039"
  1. .I VAFHA'=1 D ;If not admitted for SC condition do following
  1. ..S $P(VAFHSUB,$E(HL("ECH")),4)="NSC"
  1. ..S $P(VAFHSUB,$E(HL("ECH")),5)="NOT ADMITTED FOR SC CONDITION"
  1. ..S $P(VAFHSUB,$E(HL("ECH")),6)="VA0039"
  1. .S $P(VAFHLREC,HL("FS"),4)=VAFHSUB
  1. ;If call center param is on add privacy indicator
  1. I VAFSTR[",22," D
  1. .S VAIP("D")=$G(VAFHDT) D IN5^VADPT
  1. .S $P(VAFHLREC,HL("FS"),23)=$S(+VAIP(19,1)=1:"Y",+VAIP(19,1)=0:"N",1:"")
  1. .D KVAR^VADPT
  1. QUITPV2 Q VAFHLREC